383 lines
16 KiB
Plaintext
383 lines
16 KiB
Plaintext
{
|
|
-------------------------------------------------------------------------------
|
|
PROGRAMA : CCPRRP048
|
|
OBJETIVO : Comisiones
|
|
REALIZADO POR : JUAN F. SOTO
|
|
FECHA : Abril 17, 2015.
|
|
-------------------------------------------------------------------------------
|
|
}
|
|
GLOBALS "ccprgb000.4gl"
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL STARTLOG("ccrp048.txt")
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT to "decomarmol" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL ccprrp043()
|
|
END MAIN
|
|
|
|
|
|
FUNCTION ccprrp043()
|
|
DEFINE datos RECORD
|
|
codigo_supervisor SMALLINT,
|
|
nombre_supervisor VARCHAR(60),
|
|
sec_vend SMALLINT,
|
|
nombre_vendedor VARCHAR(60),
|
|
fecha DATE,
|
|
documento INT,
|
|
tipo_doc VARCHAR(2),
|
|
cotizacion_no INT,
|
|
nombre_cliente VARCHAR(100),
|
|
valor_orig DEC(12,2),
|
|
porc_cobros_vend DEC(8,4),
|
|
chitbis CHAR(2),
|
|
comision_vend DEC(12,4),
|
|
sec_vend_a SMALLINT,
|
|
valor_adicional DEC(12,2),
|
|
comision_adicional DEC(12,2),
|
|
str_reporte VARCHAR(50)
|
|
|
|
END RECORD
|
|
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
|
|
r_filename STRING, -- filename of Report Design Document including .4rp extension
|
|
r_output STRING, -- output format option
|
|
preview INTEGER -- TRUE/FALSE, to set preview option
|
|
|
|
DEFINE porc_itbis DEC(8,2)
|
|
OPEN FORM ccfmrp043 FROM "ccfmrp047"
|
|
DISPLAY FORM ccfmrp043
|
|
|
|
DELETE FROM tmpccrp48
|
|
|
|
INPUT BY NAME p_ano,p_mes
|
|
BEFORE INPUT
|
|
SELECT a.itbi INTO porc_itbis FROM vetb00019 a WHERE a.disponible = 'S'
|
|
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
|
|
|
|
DISPLAY BY NAME rango.fecha_ini,rango.fecha_fin
|
|
END INPUT
|
|
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
LET int_flag = false
|
|
RETURN
|
|
END IF
|
|
|
|
CONSTRUCT criterio ON a.sec_vend,a.sec_vend_a
|
|
FROM sec_vend,sec_vend_a
|
|
|
|
# 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
|
|
#CALL seleccionarSalida() RETURNING r_output
|
|
# CALL crear_registros()
|
|
|
|
# Prepara al sistema operativo para recibir el reporte
|
|
|
|
LET selec =
|
|
" select a.sec_vend,(SELECT RTRIM(c.nom1_emp)+' '+c.apell1_emp from adtb00003 c where a.sec_vend = c.num_emp) ,",
|
|
" a.sec_vend_a, RTRIM(b.nom1_emp)+' '+b.apell1_emp,CONVERT(CHAR(10),j.fecha_orig,103),j.num_doc,j.tipo_doc,",
|
|
" j.num_cheque,x1.nombre,j.valor*x2.tasa,a.porc_cobros,j1.chitbis ",
|
|
" from cctb00001 j INNER JOIN vetb00075 a ON j.cod_emp_sec = a.sec_vend_a and j.tipo_doc IN ('AV') AND ",
|
|
" j.num_doc = j.aplica_a INNER JOIN vetb00004 x1 ON j.tipo_cliente = x1.tipo_cliente AND j.sec_cliente = x1.sec_cliente ",
|
|
" INNER JOIN cgtb00084 x2 ON x2.ano = ? AND x2.mes = ? AND x2.tipo_cliente = j.tipo_cliente ",
|
|
" INNER JOIN cctb00011 j1 ON j.num_doc = j1.num_doc and j1.tipo_doc = j.tipo_doc, adtb00003 b ",
|
|
" where a.sec_vend_a = b.num_emp and j.fecha_orig between ? and ? AND j.status_t is null AND ",
|
|
" a.sec_vend_a not in (select sec_vend from vetb00076) AND",
|
|
criterio CLIPPED,
|
|
|
|
" UNION ",
|
|
|
|
" select a.sec_vend,(SELECT RTRIM(c.nom1_emp)+' '+c.apell1_emp from adtb00003 c where a.sec_vend = c.num_emp) ,",
|
|
" a.sec_vend_a, RTRIM(b.nom1_emp)+' '+b.apell1_emp,CONVERT(CHAR(10),j.fecha_orig,103),j.num_doc,j.tipo_doc,",
|
|
" j.aplica_a,x1.nombre,j.valor*x2.tasa,a.porc_cobros,j1.chitbis ",
|
|
" from cctb00001 j INNER JOIN vetb00075 a ON j.cod_emp_sec = a.sec_vend_a and j.tipo_doc IN ('PG') ",
|
|
" INNER JOIN vetb00004 x1 ON j.tipo_cliente = x1.tipo_cliente AND j.sec_cliente = x1.sec_cliente ",
|
|
" INNER JOIN cgtb00084 x2 ON x2.ano = ? AND x2.mes = ? AND x2.tipo_cliente = j.tipo_cliente ",
|
|
" INNER JOIN vetb00002 x3 ON j.aplica_a = x3.factura ",
|
|
" INNER JOIN cctb00011 j1 ON j.num_doc = j1.num_doc AND j.tipo_doc = j1.tipo_doc, adtb00003 b ",
|
|
" where a.sec_vend_a = b.num_emp and j.fecha_orig between ? and ? AND j.status_t IS NULL AND ",
|
|
" DATEDIFF(day,x3.fecha_factura,j.fecha_orig) < 91 AND ",
|
|
" a.sec_vend_a not in (select sec_vend from vetb00076) AND",
|
|
criterio CLIPPED,
|
|
" order by a.sec_vend,a.sec_vend_a,j.tipo_doc,j.num_doc"
|
|
|
|
PREPARE comando_inicial FROM selec
|
|
DECLARE busca_datos CURSOR FOR comando_inicial
|
|
OPEN busca_datos USING p_ano,p_mes,rango.fecha_ini,rango.fecha_fin,p_ano,p_mes,rango.fecha_ini,rango.fecha_fin
|
|
|
|
|
|
LET progreso = 20
|
|
DISPLAY progreso TO progreso
|
|
CALL ui.Interface.refresh()
|
|
|
|
LET r_filename ="ccprrp048.4rp"
|
|
CALL seleccionarsalida() RETURNING r_output
|
|
# LET r_output="PDF"
|
|
LET preview=1
|
|
|
|
LET idx = 1
|
|
FOREACH busca_datos INTO datos.*
|
|
IF idx = 1 THEN
|
|
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
|
|
|
CALL fgl_report_selectDevice(r_output) -- changing default
|
|
CALL fgl_report_selectPreview(preview) -- changing default
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
END IF
|
|
|
|
START REPORT reporte43 TO XML HANDLER handler
|
|
|
|
END IF
|
|
LET datos.str_reporte="COMISIONES VENDEDORES"
|
|
|
|
IF datos.chitbis = "SI" THEN
|
|
LET datos.valor_orig = (datos.valor_orig/(1+(porc_itbis/100)))
|
|
END IF
|
|
IF datos.valor_orig < 0 THEN
|
|
LET datos.valor_orig = datos.valor_orig * -1
|
|
END IF
|
|
|
|
LET datos.comision_vend = datos.valor_orig * datos.porc_cobros_vend
|
|
|
|
IF datos.comision_vend IS NULL THEN
|
|
LET datos.comision_vend =0
|
|
END IF
|
|
|
|
|
|
INSERT INTO tmpccrp48 VALUES (datos.*)
|
|
OUTPUT TO REPORT reporte43(datos.*)
|
|
LET progreso = 50
|
|
DISPLAY progreso TO progreso
|
|
CALL ui.Interface.refresh()
|
|
|
|
LET idx = idx + 1
|
|
|
|
END FOREACH
|
|
LET progreso = 100
|
|
|
|
DISPLAY progreso TO progreso
|
|
CALL ui.Interface.refresh()
|
|
|
|
|
|
# OTRAS COMISIONES
|
|
|
|
|
|
DECLARE busca_adicional CURSOR FOR
|
|
SELECT a.sec_vend,j.num_doc,j.tipo_doc, CONVERT(char(10),j.fecha_orig,103),j.aplica_a,a.porc_vendedor,x1.nombre,
|
|
SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.cantidad_2)/100)))/((x3.sub_total-x3.monto_desc)*x2.tasa),
|
|
e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis
|
|
FROM cctb00001 j,vetb00076 a,vetb00003 b,vetb00093 d,adtb00003 e,vetb00004 x1,
|
|
cgtb00084 x2,vetb00002 x3,prtb00012 c,cctb00011 j1
|
|
WHERE j.fecha_orig BETWEEN rango.fecha_ini AND rango.fecha_fin AND
|
|
j.tipo_doc IN ('PG') AND
|
|
b.factura = x3.factura AND
|
|
b.factura = j.aplica_a AND
|
|
j.fecha_orig-x3.fecha_factura < 91 AND
|
|
x3.orden = c.num_oc AND
|
|
j.tipo_cliente = j1.tipo_cliente AND
|
|
c.cotizacion_no = d.cotizacion_no AND
|
|
a.cod_n = b.cod_n AND
|
|
j.tipo_cliente = x1.tipo_cliente AND
|
|
j.sec_cliente = x1.sec_cliente AND
|
|
j1.num_doc = j.num_doc AND
|
|
j1.tipo_doc = j.tipo_doc AND
|
|
a.sec_vend = e.num_emp AND
|
|
a.sec_vend = d.sec_vend AND
|
|
x2.ano = p_ano AND
|
|
x2.mes = p_mes AND
|
|
x2.tipo_cliente = j.tipo_cliente AND
|
|
j.status_t IS NULL
|
|
GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_vendedor,e.nom1_emp,e.apell1_emp,x1.nombre,
|
|
j.num_doc,j.tipo_doc, j.aplica_a,x3.sub_total,j.valor,x2.tasa,j1.chitbis,
|
|
j.fecha_orig,x3.monto_Desc
|
|
|
|
UNION
|
|
SELECT a.sec_vend,j.num_doc,j.tipo_doc, CONVERT(char(10),j.fecha_orig,103),j.aplica_a,a.porc_vendedor,x1.nombre,
|
|
SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.cantidad_2)/100)))/((x3.sub_total-x3.monto_desc)*x2.tasa),
|
|
e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis
|
|
FROM cctb00001 j,vetb00076 a,vetb00003 b,vetb00050 d,adtb00003 e,vetb00004 x1,
|
|
cgtb00084 x2,vetb00002 x3,prtb00012 c,cctb00011 j1
|
|
WHERE j.fecha_orig BETWEEN rango.fecha_ini AND rango.fecha_fin AND
|
|
j.tipo_doc IN ('PG') AND
|
|
b.factura = x3.factura AND
|
|
b.factura = j.aplica_a AND
|
|
|
|
x3.orden = c.num_oc AND
|
|
j.tipo_cliente = j1.tipo_cliente AND
|
|
c.cotizacion_no = d.cotizacion_no AND
|
|
a.cod_n = b.cod_n AND
|
|
j.tipo_cliente = x1.tipo_cliente AND
|
|
j.sec_cliente = x1.sec_cliente AND
|
|
j1.num_doc = j.num_doc AND
|
|
j1.tipo_doc = j.tipo_doc AND
|
|
a.sec_vend = e.num_emp AND
|
|
a.sec_vend = d.sec_vend AND
|
|
x2.ano = p_ano AND
|
|
x2.mes = p_mes AND
|
|
x2.tipo_cliente = j.tipo_cliente AND
|
|
j.status_t IS NULL
|
|
GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_vendedor,e.nom1_emp,e.apell1_emp,x1.nombre,
|
|
j.num_doc,j.tipo_doc, j.aplica_a,x3.sub_total,j.valor,x2.tasa,j1.chitbis,
|
|
j.fecha_orig,x3.monto_desc
|
|
|
|
UNION
|
|
SELECT a.sec_vend,j.num_doc,j.tipo_doc,CONVERT(char(10),j.fecha_orig,103), x3.cotizacion_no, a.porc_vendedor,x1.nombre,
|
|
SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.porc_desc)/100)))/(x3.sub_total*x2.tasa),
|
|
e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis
|
|
FROM cctb00001 j,vetb00076 a,vetb00051 b,vetb00093 d,adtb00003 e,vetb00004 x1,
|
|
cgtb00084 x2,vetb00050 x3,cctb00011 j1
|
|
WHERE j.fecha_orig BETWEEN rango.fecha_ini AND rango.fecha_fin AND
|
|
j.tipo_doc IN ('AV') AND
|
|
j.banco = b.cotizacion_no AND
|
|
b.cotizacion_no=x3.cotizacion_no AND
|
|
b.cotizacion_no=d.cotizacion_no AND
|
|
a.cod_n = b.cod_n AND
|
|
j.tipo_cliente = x1.tipo_cliente AND
|
|
j.sec_cliente = x1.sec_cliente AND
|
|
j.tipo_cliente = j1.tipo_cliente AND
|
|
j1.num_doc = j.num_doc AND
|
|
j1.tipo_doc = j.tipo_doc AND
|
|
a.sec_vend = e.num_emp AND
|
|
a.sec_vend = d.sec_vend AND
|
|
x2.ano = p_ano AND
|
|
x2.mes = p_mes AND
|
|
x2.tipo_cliente = j.tipo_cliente AND
|
|
j.status_t IS NULL
|
|
GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_vendedor,e.nom1_emp,e.apell1_emp,x1.nombre,j.num_doc,j.tipo_doc, x3.cotizacion_no,
|
|
x3.sub_total,j.valor,x2.tasa,j1.chitbis,j.fecha_orig
|
|
|
|
UNION
|
|
SELECT j.cod_emp_sec,j.num_doc,j.tipo_doc,CONVERT(char(10),j.fecha_orig,103), x3.cotizacion_no, a.porc_vendedor,x1.nombre,
|
|
SUM(b.cantidad*((b.precio*x2.tasa)-((b.precio*x2.tasa)*(b.porc_desc)/100)))/(x3.sub_total*x2.tasa),
|
|
e.nom1_emp || ' '||e.apell1_emp,j.valor*x2.tasa,j1.chitbis
|
|
FROM cctb00001 j,vetb00076 a,vetb00051 b,adtb00003 e,vetb00004 x1,
|
|
cgtb00084 x2,vetb00050 x3,cctb00011 j1
|
|
WHERE j.fecha_orig BETWEEN rango.fecha_ini AND rango.fecha_fin AND
|
|
j.tipo_doc IN ('AV') AND
|
|
j.banco = b.cotizacion_no AND
|
|
b.cotizacion_no=x3.cotizacion_no AND
|
|
a.cod_n = b.cod_n AND
|
|
j.tipo_cliente = x1.tipo_cliente AND
|
|
j.sec_cliente = x1.sec_cliente AND
|
|
j.tipo_cliente = j1.tipo_cliente AND
|
|
j1.num_doc = j.num_doc AND
|
|
j1.tipo_doc = j.tipo_doc AND
|
|
a.sec_vend = e.num_emp AND
|
|
a.sec_vend = j.cod_emp_sec AND
|
|
x2.ano = p_Ano AND
|
|
x2.mes = p_mes AND
|
|
x2.tipo_cliente = j.tipo_cliente AND
|
|
j.status_t IS NULL
|
|
GROUP BY j.cod_emp_sec,a.sec_vend,a.porc_vendedor,e.nom1_emp,e.apell1_emp,x1.nombre,j.num_doc,j.tipo_doc, x3.cotizacion_no,
|
|
x3.sub_total,j.valor,x2.tasa,j1.chitbis,j.fecha_orig
|
|
|
|
|
|
FOREACH busca_adicional INTO datos.sec_vend,datos.documento,datos.tipo_doc,datos.fecha,
|
|
datos.cotizacion_no,
|
|
datos.porc_cobros_vend,
|
|
datos.nombre_cliente,
|
|
datos.valor_adicional,datos.nombre_vendedor,
|
|
datos.valor_orig,datos.chitbis
|
|
|
|
LET datos.codigo_supervisor=0
|
|
|
|
IF datos.chitbis = "SI" THEN
|
|
LET datos.valor_orig = (datos.valor_orig/(1+(porc_itbis/100)))
|
|
END IF
|
|
IF datos.valor_orig < 0 THEN
|
|
LET datos.valor_orig=datos.valor_orig * -1
|
|
END IF
|
|
LET datos.valor_orig = datos.valor_adicional*datos.valor_orig
|
|
LET datos.comision_adicional = datos.valor_orig * datos.porc_cobros_vend
|
|
LET datos.comision_vend= datos.comision_adicional
|
|
|
|
IF datos.valor_orig IS NOT NULL THEN
|
|
INSERT INTO tmpccrp48 VALUES (datos.*)
|
|
OUTPUT TO REPORT reporte43(datos.*)
|
|
END IF
|
|
END FOREACH
|
|
|
|
|
|
IF idx > 1 THEN
|
|
|
|
FINISH REPORT reporte43
|
|
END IF
|
|
|
|
END FUNCTION
|
|
# Rutina de reporte
|
|
|
|
REPORT reporte43(x)
|
|
# Variable que toma el valor de la funcion que llamo a esta rutina
|
|
DEFINE x RECORD
|
|
codigo_supervisor SMALLINT,
|
|
nombre_supervisor VARCHAR(60),
|
|
sec_vend SMALLINT,
|
|
nombre_vendedor VARCHAR(60),
|
|
fecha DATE,
|
|
documento INT,
|
|
tipo_doc VARCHAR(2),
|
|
cotizacion_no INT,
|
|
nombre_cliente VARCHAR(100),
|
|
valor_orig DEC(12,2),
|
|
porc_cobros_vend DEC(8,4),
|
|
chitbis CHAR(2),
|
|
comision_vend DEC(12,4),
|
|
sec_vend_a SMALLINT,
|
|
valor_adicional DEC(12,2),
|
|
comision_adicional DEC(12,2),
|
|
str_reporte VARCHAR(50)
|
|
END RECORD,
|
|
nombre_mes CHAR(30),
|
|
hora CHAR(16),
|
|
t_valor_supervisor,t_valor_vendedor DEC(12,2)
|
|
|
|
ORDER BY x.codigo_supervisor,x.sec_vend
|
|
FORMAT
|
|
PAGE HEADER
|
|
LET hora = TODAY
|
|
|
|
SELECT a.descrip INTO nombre_mes FROM mestable a WHERE a.mes = p_mes
|
|
|
|
|
|
BEFORE GROUP OF x.codigo_supervisor
|
|
LET t_valor_supervisor =0
|
|
|
|
BEFORE GROUP OF x.sec_vend
|
|
LET t_valor_vendedor = 0
|
|
|
|
ON EVERY ROW
|
|
LET t_valor_vendedor = t_valor_vendedor + x.comision_vend
|
|
LET t_valor_supervisor = t_valor_supervisor + x.comision_vend
|
|
|
|
|
|
PRINTX x.*,t_valor_supervisor,p_companias.nombre,p_ano,nombre_mes,hora,t_valor_vendedor
|
|
|
|
END REPORT
|
|
|