1033 lines
38 KiB
Plaintext
1033 lines
38 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : CCPRRP043
|
|
OBJETIVO : Resumen cobros
|
|
REALIZADO POR : JUAN F. SOTO
|
|
FECHA : Diciembre 26, 2011.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ccprgb000.4gl"
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
CALL ARG_VAL(3) RETURNING impresor
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL ccprrp043()
|
|
END MAIN
|
|
|
|
|
|
FUNCTION ccprrp043()
|
|
DEFINE comision_c RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
porc_cobros DECIMAL(8,4),
|
|
grupo LIKE iptb00002.cod_n
|
|
END RECORD,
|
|
recibo_ant INTEGER
|
|
|
|
DEFINE vendedor RECORD
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente INT,
|
|
cod_cia SMALLINT,
|
|
sec_vend SMALLINT,
|
|
fecha_factura DATE,
|
|
factura INTEGER,
|
|
cond_pago SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad LIKE vetb00003.cantidad,
|
|
precio LIKE vetb00003.precio,
|
|
monto_desc LIKE vetb00003.bonificacion,
|
|
grupo LIKE iptb00002.cod_n,
|
|
porc_desc LIKE vetb00003.cantidad_2,
|
|
valor_cobrado LIKE cctb00001.valor,
|
|
ventas LIKE vetb00002.ventas,
|
|
numero_recibo INTEGER,
|
|
codigo CHAR(7),
|
|
porc_ventas LIKE cctb00008.porc_ventas,
|
|
bruto DECIMAL(12,2),
|
|
valor_devuelto DECIMAL(12,2),
|
|
neto LIKE vetb00002.neto,
|
|
comision DECIMAL(12,2),
|
|
monto_desc_d DECIMAL(12,2),
|
|
dias SMALLINT,
|
|
fcobrado DECIMAL(12,2),
|
|
pfecha_factura LIKE vetb00002.fecha_factura
|
|
END RECORD
|
|
|
|
DEFINE porciento RECORD
|
|
sec_vend SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
porc_ventas DECIMAL(10,4)
|
|
END RECORD,
|
|
valor_factura,valor_rec,valor_real DECIMAL(12,2),
|
|
satisfecho,hice_ant CHAR(1)
|
|
|
|
|
|
OPEN FORM ccfmrp043 FROM "ccfmrp043"
|
|
DISPLAY FORM ccfmrp043
|
|
|
|
INPUT BY NAME p_ano,p_mes
|
|
AFTER FIELD p_ano
|
|
IF p_ano IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD p_ano
|
|
END IF
|
|
|
|
AFTER FIELD p_mes
|
|
IF p_mes IS NULL THEN
|
|
LET numero_msg = 16
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD p_mes
|
|
END IF
|
|
|
|
SELECT a.fecha_inicio,a.fecha_corte INTO rango.fecha_ini,rango.fecha_fin
|
|
FROM prdtable a
|
|
WHERE a.ano = p_ano AND
|
|
a.mes = p_mes
|
|
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
CONSTRUCT criterio ON d.cod_emp_sec
|
|
FROM cod_emp_Sec
|
|
|
|
# Chequo de la cancelacion del programa con la variable global int_flag
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
#--------------------------------------------------------------------
|
|
# Borra la tabla temporal para el resumen de los empleados
|
|
|
|
|
|
# Prepara al sistema operativo para recibir el reporte
|
|
START REPORT reporte43 TO "dumb"
|
|
|
|
# Buscando las informaciones del reporte
|
|
select a.TipoCobro,a.ocupacion,a.primerNombre,a.PrimerApellido,SUM(a.valorrd),SUM(a.valor)
|
|
from vwcobros a where a.ano = 2011
|
|
group by a.TipoCobro,a.ocupacion,a.primerNombre,a.PrimerApellido
|
|
|
|
LET selec =
|
|
"SELECT .tipo_cliente,a.sec_cliente,a.cod_cia,d.cod_emp_sec,a.fecha_factura,a.factura,a.cond_pago, ",
|
|
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,c.cantidad,c.precio, ",
|
|
" c.bonificacion,b.cod_n,c.cantidad_2,'0',a.ventas,d.num_doc ",
|
|
"FROM vetb00002 a,vetb00003 c,iptb00002 b,cctb00001 d ",
|
|
"WHERE a.cod_cia = c.cod_cia AND d.fecha_orig between ? and ? and ",
|
|
" a.tipo_cliente = d.tipo_cliente AND ",
|
|
" a.sec_cliente = d.sec_cliente AND ",
|
|
" d.aplica_a = a.factura AND ",
|
|
" a.factura=c.factura AND a.status_t is null AND a.ventas = ? AND ",
|
|
" d.status_t IS NULL AND ",
|
|
" d.tipo_doc IN ('PG') AND ",
|
|
" c.cod_n = b.cod_n AND ",
|
|
" c.cod_grupo = b.cod_grupo AND ",
|
|
" c.cod_tipo = b.cod_tipo AND ",
|
|
" c.cod_sec = b.cod_sec AND ",
|
|
" c.cantidad > 0 AND ",
|
|
criterio clipped,
|
|
" ORDER BY 4,6,9,10,11"
|
|
|
|
DISPLAY "Buscando Facturas... Espere Por Favor" AT 19,14
|
|
|
|
PREPARE b_vende FROM selec19
|
|
DECLARE c_vende CURSOR FOR b_vende
|
|
OPEN c_vende USING fecha1,fecha2,ventas
|
|
|
|
DISPLAY " " AT 19,14
|
|
DISPLAY "<< Reporte Generandose ... Por Favor Espere >>" AT 19,14
|
|
ATTRIBUTE (REVERSE)
|
|
|
|
# Loop para darle salida al Query hasta que la variable global status = 100
|
|
FOR idx = 1 TO 20
|
|
LET resumen[idx].vendedor = NULL
|
|
LET resumen[idx].monto_cobrado = 0
|
|
LET resumen[idx].comision = 0
|
|
END FOR
|
|
LET idx = 1
|
|
LET total_cobrado = 0
|
|
LET total_gerente = 0
|
|
LET valor_rec = 0
|
|
LET recibo_ant =0
|
|
LET codigo_ant = " "
|
|
LET salir = "N"
|
|
WHILE salir != "S"
|
|
FETCH c_vende INTO vendedor.*
|
|
IF status = notfound THEN
|
|
LET salir = "N"
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
IF vendedor.cod_n IS NULL OR vendedor.cod_n = 0 THEN
|
|
CONTINUE WHILE
|
|
END IF
|
|
|
|
IF recibo_ant != vendedor.factura THEN
|
|
|
|
IF vendedor.valor_cobrado < 0 THEN
|
|
LET vendedor.valor_cobrado = vendedor.valor_cobrado * -1
|
|
END IF
|
|
LET satisfecho = "N"
|
|
LET recibo_ant = vendedor.factura
|
|
LET valor_real = 0
|
|
LET valor_rec = 0
|
|
|
|
IF vendedor.ventas = "1" THEN
|
|
IF vendedor.tipo_cliente <> 19 THEN
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc) / 1.16
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.aplica_a = vendedor.factura AND
|
|
a.tipo_doc = "PG" AND a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend and
|
|
a.tipo_cliente <> 19
|
|
ELSE
|
|
LET valor_rec_otros = 0
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc)
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.aplica_a = vendedor.factura AND
|
|
a.tipo_doc = "PG" AND a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
END IF
|
|
|
|
ELSE
|
|
IF vendedor.ventas = "2" THEN
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc)
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.aplica_a = vendedor.factura AND
|
|
a.tipo_doc = "PG" AND a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
ELSE
|
|
IF vendedor.ventas = "3" THEN
|
|
IF vendedor.tipo_cliente <> 18 THEN
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc) / 1.16
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.aplica_a = vendedor.factura AND
|
|
a.tipo_doc = "PG" AND a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
|
|
ELSE
|
|
LET valor_rec_otros = 0
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc)
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.aplica_a = vendedor.factura AND
|
|
a.tipo_doc = "PG" AND a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
|
|
END IF
|
|
END IF
|
|
END IF
|
|
END IF
|
|
LET valor_rec = valor_rec * -1
|
|
LET vendedor.valor_cobrado = valor_rec
|
|
|
|
|
|
LET valor_Factura = 0
|
|
SELECT a.sub_total INTO valor_factura
|
|
FROM vetb00002 a
|
|
WHERE a.factura = vendedor.factura AND
|
|
a.cod_cia = vendedor.cod_cia AND
|
|
a.ventas = ventas
|
|
|
|
|
|
|
|
END IF
|
|
|
|
|
|
IF vendedor.precio IS NULL THEN
|
|
LET vendedor.precio = 0
|
|
END IF
|
|
|
|
IF vendedor.cantidad IS NULL THEN
|
|
LET vendedor.cantidad = 0
|
|
END IF
|
|
|
|
LET vendedor.codigo = vendedor.cod_n using "&",
|
|
vendedor.cod_grupo using "&",
|
|
vendedor.cod_tipo using "&&",
|
|
vendedor.cod_sec using "&&&"
|
|
|
|
# CALCULO VENCIMIENTO DE LA FACTURA
|
|
|
|
LET vendedor.dias = vendedor.pfecha_factura - vendedor.fecha_factura
|
|
|
|
# BUSCO LA COMISION POR VENTA
|
|
LET vendedor.porc_ventas = 0
|
|
SELECT AVG(a.porc_ventas) INTO vendedor.porc_ventas
|
|
FROM cctb00008 a
|
|
WHERE (a.cod_n = vendedor.cod_n AND
|
|
a.cod_grupo = vendedor.cod_grupo AND
|
|
a.cod_tipo = vendedor.cod_tipo AND
|
|
a.cod_sec = vendedor.cod_sec) AND
|
|
a.status_t IS NULL
|
|
|
|
IF vendedor.porc_ventas IS NULL THEN
|
|
LET vendedor.porc_ventas = 0
|
|
END IF
|
|
|
|
# CALCULO COMISION ALTAGRACIA, M. ALEJANDRA, RODOLFO , DIMAS
|
|
|
|
CASE
|
|
WHEN vendedor.sec_vend = 5
|
|
LET vendedor.porc_ventas = (vendedor.porc_ventas /2)
|
|
EXIT CASE
|
|
|
|
END CASE
|
|
|
|
# CALCULO BRUTO DE LA FACTURA
|
|
LET vendedor.bruto = vendedor.cantidad * vendedor.precio
|
|
|
|
# CALCULO COMISION
|
|
IF vendedor.monto_desc IS NULL THEN
|
|
LET vendedor.monto_desc = 0
|
|
END IF
|
|
|
|
IF total_gerente IS NULL THEN
|
|
LET total_gerente = 0
|
|
END IF
|
|
|
|
IF vendedor.porc_desc > 0 THEN
|
|
LET vendedor.neto = vendedor.bruto - vendedor.monto_desc
|
|
# LET vendedor.neto = vendedor.neto + vendedor.neto
|
|
ELSE
|
|
LET vendedor.monto_desc = 0
|
|
LET vendedor.neto = vendedor.bruto
|
|
END IF
|
|
IF vendedor.neto > 0 THEN
|
|
LET vendedor.fcobrado = vendedor.valor_cobrado / vendedor.neto
|
|
END IF
|
|
IF vendedor.fcobrado IS NULL THEN
|
|
LET vendedor.fcobrado = 0
|
|
END IF
|
|
SELECT UNIQUE a.num_emp
|
|
FROM notb00017 a
|
|
WHERE a.num_emp = vendedor.sec_vend
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
|
|
IF vendedor.dias < 91 THEN
|
|
|
|
LET total_cobrado = total_cobrado + vendedor.valor_cobrado
|
|
LET vendedor.comision = vendedor.neto * (vendedor.porc_ventas/100)
|
|
{ MODIFICADO EL 9/3/2005 SOLICITADO POR LIC. CARMEN IF vendedor.sec_vend !=44 AND vendedor.sec_vend != 145 AND
|
|
vendedor.sec_vend != 5 AND vendedor.sec_vend != 38 AND
|
|
vendedor.sec_vend != 338 THEN
|
|
}
|
|
IF vendedor.sec_vend = 49 or vendedor.sec_vend = 368 or vendedor.sec_vend = 43 or vendedor.sec_vend = 53
|
|
or vendedor.sec_vend = 54 or vendedor.sec_vend = 76 THEN
|
|
LET total_gerente = total_gerente + vendedor.valor_cobrado
|
|
#INSERT INTO comision values (vendedor.sec_vend,vendedor.valor_cobrado)
|
|
END IF
|
|
|
|
ELSE
|
|
LET vendedor.fcobrado = 0
|
|
LET vendedor.comision = 0
|
|
END IF
|
|
|
|
|
|
OUTPUT TO REPORT reporte43 (vendedor.*)
|
|
END IF
|
|
END WHILE
|
|
|
|
IF ventas = 1 THEN
|
|
LET selec19 =
|
|
"SELECT UNIQUE d.tipo_cliente,d.sec_cliente, d.cod_cia,d.cod_emp_sec,a.fecha_oc,a.num_oc,'1', ",
|
|
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,c.cantidad,c.precio, ",
|
|
" '0',b.cod_n,'0','0','1',d.num_doc ",
|
|
"FROM prtb00012 a,prtb00013 c,iptb00002 b,cctb00001 d ",
|
|
"WHERE d.fecha_orig between ? and ? and ",
|
|
" d.num_cheque = a.num_oc AND ",
|
|
" a.num_oc=c.num_oc AND a.status_t is null AND ",
|
|
" d.num_doc = d.aplica_a AND ",
|
|
" a.tipo_cliente IN(15,12,19) AND ",
|
|
" d.status_t IS NULL AND ",
|
|
" d.tipo_doc IN ('AV') AND ",
|
|
" c.cod_n = b.cod_n AND ",
|
|
" c.cod_grupo = b.cod_grupo AND ",
|
|
" c.cod_tipo = b.cod_tipo AND ",
|
|
" c.cod_sec = b.cod_sec AND ",
|
|
" c.cantidad > 0 ",
|
|
" ORDER BY 4,6,9,10,11"
|
|
|
|
ELSE
|
|
IF ventas = 2 THEN
|
|
LET selec19 =
|
|
"SELECT UNIQUE d.tipo_cliente,d.sec_cliente,d.cod_cia,d.cod_emp_sec,a.fecha_oc,a.num_oc,'1', ",
|
|
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,c.cantidad,c.precio, ",
|
|
" '0',b.cod_n,'0','0','1',d.num_doc ",
|
|
"FROM prtb00012 a,prtb00013 c,iptb00002 b,cctb00001 d ",
|
|
"WHERE d.fecha_orig between ? and ? and ",
|
|
" d.num_cheque = a.num_oc AND ",
|
|
" a.num_oc=c.num_oc AND a.status_t is null AND ",
|
|
" d.num_doc = d.aplica_a AND ",
|
|
" a.tipo_cliente IN(17) AND ",
|
|
" d.status_t IS NULL AND ",
|
|
" d.tipo_doc IN ('AV') AND ",
|
|
" c.cod_n = b.cod_n AND ",
|
|
" c.cod_grupo = b.cod_grupo AND ",
|
|
" c.cod_tipo = b.cod_tipo AND ",
|
|
" c.cod_sec = b.cod_sec AND ",
|
|
" c.cantidad > 0 ",
|
|
" ORDER BY 4,6,9,10,11"
|
|
END IF
|
|
|
|
IF ventas = 3 THEN
|
|
LET selec19 =
|
|
"SELECT UNIQUE d.tipo_cliente,d.sec_cliente,d.cod_cia,d.cod_emp_sec,a.fecha_oc,a.num_oc,'1', ",
|
|
" c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec,c.cantidad,c.precio, ",
|
|
" '0',b.cod_n,'0','0','1',d.num_doc ",
|
|
"FROM prtb00012 a,prtb00013 c,iptb00002 b,cctb00001 d ",
|
|
"WHERE d.fecha_orig between ? and ? and ",
|
|
" d.num_cheque = a.num_oc AND ",
|
|
" a.num_oc=c.num_oc AND a.status_t is null AND ",
|
|
" d.num_doc = d.aplica_a AND ",
|
|
" a.tipo_cliente in(14,16,18) AND ",
|
|
" d.status_t IS NULL AND ",
|
|
" d.tipo_doc IN ('AV') AND ",
|
|
" c.cod_n = b.cod_n AND ",
|
|
" c.cod_grupo = b.cod_grupo AND ",
|
|
" c.cod_tipo = b.cod_tipo AND ",
|
|
" c.cod_sec = b.cod_sec AND ",
|
|
" c.cantidad > 0 ",
|
|
" ORDER BY 4,6,9,10,11"
|
|
END IF
|
|
|
|
END IF
|
|
|
|
DISPLAY "Buscando Avances... Espere Por Favor" AT 19,14
|
|
|
|
PREPARE b_vende1 FROM selec19
|
|
DECLARE c_vende1 CURSOR FOR b_vende1
|
|
OPEN c_vende1 USING fecha1,fecha2
|
|
|
|
|
|
DISPLAY " " AT 19,14
|
|
DISPLAY "<< Reporte Generandose2 ... Por Favor Espere >>" AT 19,14
|
|
ATTRIBUTE (REVERSE)
|
|
|
|
LET valor_rec = 0
|
|
LET recibo_ant =0
|
|
LET codigo_ant = " "
|
|
LET salir = "N"
|
|
# LET idx = 1
|
|
WHILE salir != "S"
|
|
FETCH c_vende1 INTO vendedor.*
|
|
IF status = notfound THEN
|
|
LET salir = "N"
|
|
EXIT WHILE
|
|
END IF
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
IF vendedor.cod_n IS NULL OR vendedor.cod_n = 0 THEN
|
|
CONTINUE WHILE
|
|
END IF
|
|
|
|
IF vendedor.precio IS NULL THEN
|
|
LET vendedor.precio = 0
|
|
END IF
|
|
|
|
IF vendedor.cantidad IS NULL THEN
|
|
LET vendedor.cantidad = 0
|
|
END IF
|
|
|
|
LET vendedor.codigo = vendedor.cod_n using "&",
|
|
vendedor.cod_grupo using "&",
|
|
vendedor.cod_tipo using "&&",
|
|
vendedor.cod_sec using "&&&"
|
|
|
|
|
|
IF recibo_ant != vendedor.factura THEN
|
|
|
|
IF vendedor.valor_cobrado < 0 THEN
|
|
LET vendedor.valor_cobrado = vendedor.valor_cobrado * -1
|
|
END IF
|
|
|
|
LET satisfecho = "N"
|
|
LET recibo_ant = vendedor.factura
|
|
LET valor_real = 0
|
|
LET valor_rec = 0
|
|
IF vendedor.tipo_cliente < 18 THEN
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc) / 1.16
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.num_cheque = vendedor.factura AND
|
|
a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.tipo_doc = "AV" AND a.valor > 0 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
ELSE
|
|
SELECT MAX(a.fecha_orig),SUM(a.valor+a.monto_desc)
|
|
INTO vendedor.pfecha_factura,valor_rec
|
|
FROM cctb00001 a
|
|
WHERE a.num_cheque = vendedor.factura AND
|
|
a.fecha_orig BETWEEN fecha1 AND fecha2 AND
|
|
a.tipo_doc = "AV" AND a.valor > 0 AND
|
|
a.status_t IS NULL AND a.cod_emp_sec = vendedor.sec_vend
|
|
|
|
END IF
|
|
LET vendedor.valor_cobrado = valor_rec
|
|
|
|
LET valor_Factura = 0
|
|
SELECT SUM(a.cantidad*a.precio) INTO valor_factura
|
|
FROM prtb00013 a
|
|
WHERE a.num_oc = vendedor.factura
|
|
|
|
|
|
END IF
|
|
|
|
|
|
IF vendedor.precio IS NULL THEN
|
|
LET vendedor.precio = 0
|
|
END IF
|
|
|
|
IF vendedor.cantidad IS NULL THEN
|
|
LET vendedor.cantidad = 0
|
|
END IF
|
|
|
|
LET vendedor.codigo = vendedor.cod_n using "&",
|
|
vendedor.cod_grupo using "&",
|
|
vendedor.cod_tipo using "&&",
|
|
vendedor.cod_sec using "&&&"
|
|
|
|
# CALCULO VENCIMIENTO DE LA FACTURA
|
|
|
|
LET vendedor.dias = vendedor.pfecha_factura - vendedor.fecha_factura
|
|
|
|
# BUSCO LA COMISION POR VENTA
|
|
LET vendedor.porc_ventas = 0
|
|
SELECT AVG(a.porc_ventas) INTO vendedor.porc_ventas
|
|
FROM cctb00008 a
|
|
WHERE (a.cod_n = vendedor.cod_n AND
|
|
a.cod_grupo = vendedor.cod_grupo AND
|
|
a.cod_tipo = vendedor.cod_tipo AND
|
|
a.cod_sec = vendedor.cod_sec) AND
|
|
a.status_t IS NULL
|
|
|
|
IF vendedor.porc_ventas IS NULL THEN
|
|
LET vendedor.porc_ventas = 0
|
|
END IF
|
|
|
|
# CALCULO COMISION ALTAGRACIA, M. ALEJANDRA, RODOLFO, DIMAS
|
|
CASE
|
|
WHEN vendedor.sec_vend = 5
|
|
LET vendedor.porc_ventas = (vendedor.porc_ventas /2)
|
|
EXIT CASE
|
|
END CASE
|
|
|
|
|
|
# CALCULO BRUTO DE LA FACTURA
|
|
LET vendedor.bruto = vendedor.cantidad * vendedor.precio
|
|
|
|
# CALCULO COMISION
|
|
IF vendedor.monto_desc IS NULL THEN
|
|
LET vendedor.monto_desc = 0
|
|
END IF
|
|
|
|
LET vendedor.neto = valor_factura
|
|
IF vendedor.porc_desc > 0 THEN
|
|
LET vendedor.neto = vendedor.bruto - vendedor.monto_desc
|
|
# LET vendedor.neto = vendedor.neto + vendedor.neto
|
|
ELSE
|
|
LET vendedor.monto_desc = 0
|
|
LET vendedor.neto = vendedor.bruto
|
|
END IF
|
|
|
|
# IF vendedor.dias < 91 THEN
|
|
IF vendedor.neto > 0 THEN
|
|
LET vendedor.fcobrado = vendedor.valor_cobrado / vendedor.neto
|
|
END IF
|
|
LET vendedor.comision = vendedor.neto * (vendedor.porc_ventas/100)
|
|
{
|
|
IF vendedor.sec_vend != 144 AND vendedor.sec_vend != 145 AND
|
|
vendedor.sec_vend != 5 AND vendedor.sec_vend != 33 AND
|
|
vendedor.sec_vend != 38 AND vendedor.sec_vend != 338 THEN
|
|
}
|
|
IF vendedor.sec_vend = 49 or vendedor.sec_vend = 368 or vendedor.sec_vend = 43 or vendedor.sec_vend = 53
|
|
or vendedor.sec_vend = 54 or vendedor.sec_vend = 76 THEN
|
|
LET total_gerente = total_gerente + vendedor.valor_cobrado
|
|
|
|
# INTO comision values (vendedor.sec_vend,vendedor.valor_cobrado)
|
|
END IF
|
|
# ELSE
|
|
# LET vendedor.fcobrado = 0
|
|
# LET vendedor.comision = 0
|
|
# END IF
|
|
|
|
SELECT UNIQUE a.num_emp
|
|
FROM notb00017 a
|
|
WHERE a.num_emp = vendedor.sec_vend
|
|
|
|
IF STATUS != NOTFOUND THEN
|
|
OUTPUT TO REPORT reporte43 (vendedor.*)
|
|
END IF
|
|
END WHILE
|
|
|
|
FINISH REPORT reporte43
|
|
IF pflag = "N" THEN
|
|
RUN "type c:\\ventas > %USPRINT% "
|
|
ELSE
|
|
RUN "pantalla c:\\ventas"
|
|
END IF
|
|
|
|
#---------------------------------------------------------------------
|
|
|
|
CLEAR SCREEN
|
|
END FUNCTION
|
|
# Rutina de reporte
|
|
|
|
REPORT reporte43(x)
|
|
# Variable que toma el valor de la funcion que llamo a esta rutina
|
|
DEFINE x RECORD
|
|
tipo_cliente SMALLINT,
|
|
sec_cliente INT,
|
|
cod_cia SMALLINT,
|
|
sec_vend SMALLINT,
|
|
fecha_factura DATE,
|
|
factura INTEGER,
|
|
cond_pago SMALLINT,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad LIKE vetb00003.cantidad,
|
|
precio LIKE vetb00003.precio,
|
|
monto_desc LIKE vetb00003.bonificacion,
|
|
grupo LIKE iptb00002.cod_n,
|
|
porc_desc LIKE vetb00003.cantidad_2,
|
|
valor_cobrado LIKE cctb00001.valor,
|
|
ventas LIKE vetb00002.ventas,
|
|
numero_recibo INTEGER,
|
|
codigo CHAR(7),
|
|
porc_ventas LIKE cctb00008.porc_ventas,
|
|
bruto DECIMAL(12,2),
|
|
valor_devuelto DECIMAL(12,2),
|
|
neto LIKE vetb00002.neto,
|
|
comision DECIMAL(12,2),
|
|
monto_desc_d DECIMAL(12,2),
|
|
dias SMALLINT,
|
|
fcobrado DECIMAL(12,2),
|
|
pfecha_factura LIKE vetb00002.fecha_factura
|
|
END RECORD,
|
|
descrip_item CHAR(30)
|
|
|
|
DEFINE nombre_mes CHAR(10)
|
|
DEFINE porc_ventas DECIMAL(10,4),
|
|
descuento_x,cantidad_x,t_comision_v,t_cantidad_n,cantidad_n,
|
|
tmonto_dev,gt_comision_v, gt_valor_n,gt_comision_ventas DECIMAL(12,2),
|
|
valor_dev DECIMAL(12,2),
|
|
nombre_g LIKE iptb00020.producto,
|
|
total_bruto,total_neto,tvcomision,ttvcomision,total_subgerente,total_empleado,
|
|
total_empleado1 DECIMAL(12,2)
|
|
|
|
#------------------------------------------------------------------
|
|
# Estas variables son constantes en todos los reportes de RAYOVAC
|
|
# para no estar definiendolas en cada momento.
|
|
# Estas variables son los caracteres ASCII para ser interpretados por
|
|
# el printer.
|
|
|
|
DEFINE valor_devuelto DECIMAL(12,2)
|
|
DEFINE dias1,dias2,j,k INTEGER
|
|
DEFINE cambio CHAR(1)
|
|
|
|
DEFINE vcantidad_dev,tt_comision,t_comision_ventas DECIMAL(12,2),
|
|
total_aparte,total_aparte1,valor_d,t_valor_n,descuento,und_netas,gt_cantidad_n DECIMAL(12,2),
|
|
tund_desc,und_desc INTEGER,
|
|
p_iptb20 RECORD LIKE iptb00020.*
|
|
|
|
DEFINE hora CHAR(5),
|
|
comp_on,doce,comp_off,negrillas_on,negrillas_off CHAR(2),
|
|
lj SMALLINT
|
|
|
|
|
|
OUTPUT
|
|
TOP MARGIN 0
|
|
LEFT MARGIN 5
|
|
BOTTOM MARGIN 4
|
|
|
|
#ORDER BY x.sec_vend
|
|
#------------------------------------------------------------------------
|
|
|
|
FORMAT
|
|
PAGE HEADER
|
|
# Asignaciones de los valores ASCII para la impresion
|
|
LET hora = time
|
|
LET comp_on = ASCII 15
|
|
LET comp_off = ASCII 18
|
|
LET negrillas_on = ASCII 27, ASCII 69
|
|
LET negrillas_off = ASCII 27, ASCII 70
|
|
LET doce = ASCII 27, ASCII 77
|
|
|
|
# Funcion que busca los meses del ano
|
|
SELECT descrip INTO nombre_mes FROM mestable WHERE mes = p_mes
|
|
#--------------------------------------------------------------------------
|
|
|
|
|
|
LET lj = (137 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
PRINT COLUMN 1, doce,comp_on
|
|
PRINT COLUMN 1, "ccprrp043",
|
|
COLUMN lj, p_companias.nombre CLIPPED,
|
|
COLUMN 112, "Pag. ",pageno using "###"
|
|
PRINT COLUMN 36, " Sistema de Cuentas por Cobrar",
|
|
COLUMN 110, today using "dd/mm/yyyy"
|
|
PRINT COLUMN 36, " COMISIONES POR COBROS",
|
|
COLUMN 115, hora
|
|
|
|
PRINT COLUMN 40, " "
|
|
IF ventas = 1 THEN
|
|
PRINT COLUMN 36, "Ventas Locales RD$"
|
|
END IF
|
|
IF ventas = 2 THEN
|
|
PRINT COLUMN 36, "Ventas INTERNACIONALES"
|
|
END IF
|
|
IF ventas = 3 THEN
|
|
PRINT COLUMN 36, "Ventas Locales US$"
|
|
END IF
|
|
PRINT COLUMN 1, "DESDE: ",fecha1 using "dd/mm/yyyy",
|
|
" HASTA: ",fecha2 using "dd/mm/yyyy"
|
|
|
|
PRINT negrillas_on,"PRODUCTOS LOCALES",negrillas_off
|
|
PRINT COLUMN 1, "---------------------------------------------------",
|
|
"--------------------------------------------------",
|
|
"-----------------------------------------------------------------"
|
|
PRINT COLUMN 47, "NUMERO",
|
|
COLUMN 55, "FECHA",
|
|
COLUMN 74, "FECHA",
|
|
COLUMN 66, "MONTO",
|
|
COLUMN 95, "MONTO",
|
|
COLUMN 120, "MONTO",
|
|
COLUMN 134, "VALOR",
|
|
COLUMN 147, "PORCIENTO",
|
|
COLUMN 158, "COMISION A",
|
|
2 SPACES, "DIAS"
|
|
|
|
PRINT COLUMN 2, "ARTICULOS",
|
|
COLUMN 47, "RECIBO",
|
|
COLUMN 55, "RECIBO",
|
|
COLUMN 64, "FACTURA",
|
|
COLUMN 74, "FACTURA",
|
|
COLUMN 86, "BRUTO",
|
|
COLUMN 95, "DESCUENTO",
|
|
COLUMN 120, "NETO",
|
|
COLUMN 134, "COBRADO",
|
|
COLUMN 147, "COMISION",
|
|
COLUMN 158, "COBRAR",
|
|
2 SPACES , "COBRADA"
|
|
|
|
PRINT COLUMN 1, "---------------------------------------------------",
|
|
"--------------------------------------------------",
|
|
"-----------------------------------------------------------------"
|
|
SKIP 1 LINE
|
|
BEFORE GROUP OF x.cod_cia
|
|
LET t_comision_ventas = 0
|
|
|
|
BEFORE GROUP OF x.sec_vend
|
|
LET t_valor_n = 0
|
|
LET t_cantidad_n = 0
|
|
LET t_comision_v = 0
|
|
LET t_comision_ventas = 0
|
|
LET tund_desc = 0
|
|
LET vcantidad_dev = 0
|
|
LET tmonto_dev = 0
|
|
LET tvcomision = 0
|
|
LET rvalor_cobrado = 0
|
|
|
|
LET resumen[idx].vendedor = NULL
|
|
# Impresion del nombre del vendedor
|
|
SELECT nom1_emp,apell1_emp INTO nombre_vend,apellido_vend
|
|
FROM adtb00003 WHERE num_emp = x.sec_vend
|
|
|
|
PRINT COLUMN 2,negrillas_on,x.sec_vend," ",
|
|
nombre_vend clipped," ",
|
|
apellido_vend clipped,negrillas_off
|
|
|
|
SKIP 1 LINE
|
|
ON EVERY ROW
|
|
IF t_comision_ventas IS NULL THEN
|
|
LET t_comision_ventas = 0
|
|
END IF
|
|
IF gt_comision_ventas IS NULL THEN
|
|
LET gt_comision_ventas = 0
|
|
END IF
|
|
LET t_comision_ventas = t_comision_ventas + x.comision
|
|
LET gt_comision_ventas = gt_comision_ventas + x.comision
|
|
|
|
SELECT a.descrip_esp INTO descrip_item
|
|
FROM iptb00002 a
|
|
WHERE a.cod_n = x.cod_n AND
|
|
a.cod_grupo = x.cod_grupo AND
|
|
a.cod_tipo = x.cod_tipo AND
|
|
a.cod_sec = x.cod_sec
|
|
|
|
PRINT COLUMN 1, x.cod_n USING "&","-",x.cod_grupo using "&","-",
|
|
x.cod_tipo using "&&","-",x.cod_sec using "&&&",
|
|
" ",descrip_item,
|
|
|
|
COLUMN 45, x.numero_recibo USING "<<<<<<",
|
|
2 SPACES, x.pfecha_factura USING "dd/mm/yyyy",
|
|
COLUMN 64, "(",x.tipo_cliente USING "<<",") ",x.factura USING "<<<<<<",
|
|
COLUMN 76, x.fecha_factura USING "dd/mm/yyyy",
|
|
COLUMN 86, x.bruto USING "###,###.##",
|
|
COLUMN 96, x.monto_desc USING "###,###.##",
|
|
COLUMN 114, x.neto USING "##,###,###.##",
|
|
COLUMN 130,x.valor_cobrado USING "##,###,###.##",
|
|
COLUMN 145, x.porc_ventas USING "###.####",
|
|
COLUMN 155, x.comision USING "(((,(((.##)",
|
|
2 SPACES, x.dias USING "(((&)"
|
|
|
|
IF x.dias < 91 THEN
|
|
LET rvalor_cobrado = rvalor_cobrado + x.valor_cobrado
|
|
END IF
|
|
|
|
AFTER GROUP OF x.factura
|
|
SKIP 1 LINE
|
|
PRINT COLUMN 2, "----------------------------------------------------------------",
|
|
"----------------------------------------------------------------",
|
|
"--------------------------------------------"
|
|
PRINT COLUMN 30, "TOTAL FACTURA ",
|
|
COLUMN 83, GROUP SUM(x.cantidad*x.precio) USING "##,###,###.##",
|
|
COLUMN 91, GROUP SUM(x.monto_desc) USING "#,###,###.##",
|
|
COLUMN 113, GROUP SUM(x.neto) USING "###,###,###.##",
|
|
COLUMN 130, GROUP SUM(x.valor_cobrado) USING "###,###,###.##",
|
|
COLUMN 155, GROUP SUM(x.comision) * x.fcobrado USING "(((,###.##)"
|
|
IF GROUP SUM(x.neto) > 0 THEN
|
|
LET x.fcobrado = GROUP SUM(x.valor_cobrado) / GROUP SUM(x.neto)
|
|
END IF
|
|
PRINT COLUMN 135, "Porciento Cobrado: ", x.fcobrado * 100 USING "###.##%"
|
|
PRINT COLUMN 135, "Valor Comision : ", GROUP SUM(x.comision) * x.fcobrado USING "###,###.##"
|
|
IF ttvcomision IS NULL THEN
|
|
LET ttvcomision = 0
|
|
END IF
|
|
LET tvcomision = (GROUP SUM(x.comision) * x.fcobrado) + tvcomision
|
|
SKIP 1 LINE
|
|
|
|
AFTER GROUP OF x.sec_vend
|
|
PRINT negrillas_on
|
|
LET valor_d = 0
|
|
LET valor_dev = 0
|
|
LET x.valor_devuelto = 0
|
|
IF valor_dev IS NULL THEN
|
|
LET valor_dev = 0
|
|
LET x.valor_devuelto = 0
|
|
END IF
|
|
|
|
PRINT COLUMN 84,"--------------",
|
|
COLUMN 90, "-------------",
|
|
COLUMN 115, "-------------",
|
|
2 SPACES, "--------------",
|
|
COLUMN 152, "-------------"
|
|
|
|
|
|
PRINT COLUMN 30, "TOTAL VENDEDOR ",
|
|
COLUMN 83, GROUP SUM(x.cantidad*x.precio) USING "##,###,###.##",
|
|
COLUMN 91, GROUP SUM(x.monto_desc) USING "#,###,###.##",
|
|
COLUMN 113, GROUP SUM(x.neto) USING "###,###,###.##",
|
|
COLUMN 130, GROUP SUM(x.valor_cobrado) USING "###,###,###.##",
|
|
COLUMN 155, tvcomision USING "###,###.##"
|
|
LET ttvcomision = ttvcomision + tvcomision
|
|
{ PRINT COLUMN 30, "TOTAL COBRADO ANTES DE 91 DIAS ", total_cobrado USING "###,###,###.##",
|
|
COLUMN 75, "TOTAL COBRADO GERENTE ANTES 91 DIAS ", total_gerente USING "###,###,###.##"
|
|
}
|
|
|
|
# RESUMEN COMISIONES
|
|
LET resumen[idx].vendedor = nombre_vend
|
|
LET resumen[idx].monto_cobrado = rvalor_cobrado
|
|
LET resumen[idx].comision = tvcomision
|
|
LET idx = idx + 1
|
|
|
|
# COMISIONES PARA EL SUB-GERENTE
|
|
IF x.sec_vend = 38 or x.sec_vend = 44 THEN
|
|
IF total_subgerente IS NULL THEN
|
|
LET total_subgerente = 0
|
|
END IF
|
|
IF total_empleado IS NULL THEN
|
|
LET total_empleado = 0
|
|
END IF
|
|
|
|
IF total_empleado1 IS NULL THEN
|
|
LET total_empleado1 = 0
|
|
END IF
|
|
LET total_subgerente = total_subgerente + (tvcomision * .50) # 338 Altagracia
|
|
LET total_empleado = total_empleado + (tvcomision *.20) # Codigo 33 Rodolfo
|
|
LET total_empleado1 = total_empleado1 + (tvcomision *.30) # 38 Maria Alejandra
|
|
END IF
|
|
ON LAST ROW
|
|
PRINT COLUMN 2, "Total General ",
|
|
COLUMN 83, SUM(x.bruto) USING "###,###,###.##",
|
|
COLUMN 113, SUM(x.neto) USING "###,###,###.##",
|
|
COLUMN 130, SUM(x.valor_cobrado) USING "###,###,###.##",
|
|
COLUMN 155, ttvcomision USING "###,###.##"
|
|
# COMISION ADICIONAL PARA EL GERENTE
|
|
|
|
|
|
LET ttvcomision = 0
|
|
# Comisiones Adicionales, esta parte esta fija hasta que se modifique el programa
|
|
# Maestra de Vendedores que se encuentra en el mantenimiento de ventas
|
|
|
|
IF ventas = 1 OR ventas = 3 THEN
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
PRINT COLUMN 10, "| RESUMEN COMISIONES |"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 11, "COBRADOR",
|
|
COLUMN 25, "MONTO COBRADO",
|
|
COLUMN 45, "COMISION"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
FOR idx = 1 TO 20
|
|
IF resumen[idx].vendedor IS NOT NULL THEN
|
|
PRINT COLUMN 10,"| ",resumen[idx].vendedor,
|
|
COLUMN 25, resumen[idx].monto_cobrado USING "###,###,###.##",
|
|
COLUMN 45, resumen[idx].comision USING "##,###.##",
|
|
COLUMN 55,"|"
|
|
END IF
|
|
END FOR
|
|
IF ventas = 3 THEN
|
|
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
PRINT COLUMN 10, "| COMISIONES ADICIONALES |"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 11, "COBRADOR",
|
|
COLUMN 25, "MONTO COBRADO",
|
|
COLUMN 45, "COMISION"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 10, "| DIMAS .81% ",
|
|
COLUMN 25 , total_gerente USING "USD$##,###,###.##",
|
|
COLUMN 45, total_gerente * (.81/100) USING "USD$##,###.##",
|
|
COLUMN 55, "|"
|
|
END IF
|
|
|
|
IF ventas != 3 THEN
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
SKIP 1 LINE
|
|
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
PRINT COLUMN 10, "| COMISIONES ADICIONALES |"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 11, "COBRADOR",
|
|
COLUMN 25, "MONTO COBRADO",
|
|
COLUMN 45, "COMISION"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
LET total_aparte1 = 0
|
|
LET total_aparte = 0
|
|
SELECT SUM(a.valor*-1) INTO total_aparte FROM cctb00001 a
|
|
WHERE a.tipo_doc in ("PG") and a.fecha_orig between fecha1 AND fecha2 AND
|
|
a.tipo_cliente in (12,15) and a.status_t IS NULL
|
|
|
|
{ POR REQUERIMIENTOS DE DONA CARME ESTOY COLOCANDO ESTE QUERY EN COMENTARIO,
|
|
NO SE LE PAGA COMISION A ROSA POR AVANCES
|
|
|
|
SELECT SUM(a.valor) INTO total_aparte1 FROM cctb00001 a
|
|
WHERE a.tipo_doc in ("AV") and a.fecha_orig between fecha1 AND fecha2 AND
|
|
a.tipo_cliente in (12) and a.status_t IS NULL and a.valor > 0
|
|
}
|
|
|
|
LET total_cobrado = total_aparte + total_aparte1
|
|
|
|
PRINT COLUMN 10, "| ROSA .232%",
|
|
COLUMN 25, total_cobrado USING "##,###,###.##",
|
|
COLUMN 45, total_cobrado * (.232/100) USING "###,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
PRINT COLUMN 10, "| DIMAS .81% ",
|
|
COLUMN 25 , total_gerente USING "##,###,###.##",
|
|
COLUMN 45, total_gerente * (.81/100) USING "##,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
PRINT COLUMN 10, "| ALTAGRACIA 50% ",
|
|
COLUMN 45, total_subgerente USING "###,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
PRINT COLUMN 10, "| KORA 30% ",
|
|
COLUMN 45, total_empleado1 USING "###,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
|
|
PRINT COLUMN 10, "| RODOLFO 20% ",
|
|
COLUMN 45, total_empleado USING "###,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
END IF
|
|
ELSE
|
|
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
PRINT COLUMN 10, "| COMISIONES ADICIONALES |"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 11, "COBRADOR",
|
|
COLUMN 25, "MONTO COBRADO",
|
|
COLUMN 45, "COMISION"
|
|
PRINT COLUMN 10, "|--------------------------------------------|"
|
|
|
|
PRINT COLUMN 10, "| DIMAS .81% ",
|
|
COLUMN 25 , total_gerente USING "USD$##,###,###.##",
|
|
COLUMN 45, total_gerente * (.81/100) USING "USD$##,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
PRINT COLUMN 10, "| ROSA .232%",
|
|
COLUMN 25, total_cobrado USING "USD$##,###,###.##",
|
|
COLUMN 45, total_cobrado * (.232/100) USING "USD$###,###.##",
|
|
COLUMN 55, "|"
|
|
|
|
END IF
|
|
|
|
END REPORT
|
|
|
|
FUNCTION pantalla()
|
|
DEFINE fecha CHAR(8),
|
|
hora char(5)
|
|
LET fecha = today USING "dd/mm/yy"
|
|
LET hora = time
|
|
|
|
LET lj = (80 - LENGTH(p_companias.nombre CLIPPED))/2
|
|
DISPLAY p_companias.nombre CLIPPED AT 4,lj ATTRIBUTE (REVERSE,blue)
|
|
DISPLAY fecha AT 4,70 ATTRIBUTE (blue)
|
|
DISPLAY "Sistema de Cuentas por Cobrar" AT 5,25
|
|
DISPLAY hora AT 6,73 ATTRIBUTE(blue)
|
|
|
|
CALL fgl_drawbox(5,79,3,1)
|
|
#CALL fgl_drawbox(1,79,22,1)
|
|
END FUNCTION
|