63 lines
2.0 KiB
Plaintext
63 lines
2.0 KiB
Plaintext
{ PROGRAMA : NOPRRP040
|
|
OBJETIVO PROGRAMA: GENERA REPORTE VALIDACION COMISIONES
|
|
DESARROLLADO POR : ING. JUAN SOTO
|
|
}
|
|
|
|
GLOBALS "noprgb000.4gl"
|
|
DEFINE pvetb75 RECORD LIKE vetb00075.*,
|
|
pvetb76 RECORD LIKE vetb00076.*,
|
|
piptb20 RECORD LIKE iptb00020.*,
|
|
salida CHAR(15)
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
# LET usuarios = 'jsoto'
|
|
# LET clave = 'lmmjvsd2009'
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
SELECT a.* INTO p_companias.* FROM companias a
|
|
CALL noprrp040()
|
|
END MAIN
|
|
|
|
FUNCTION noprrp040()
|
|
OPEN WINDOW nofmrp040 WITH FORM "nofmrp040"
|
|
|
|
CONSTRUCT BY NAME criterio ON a.sec_vend
|
|
|
|
CALL seleccionarSalida() RETURNING r_output
|
|
|
|
LET selec = "SELECT a.*,b.*,c.* FROM vetb00075 a LEFT OUTER JOINING vet00076 b ON ",
|
|
" a.sec_vend = b.sec_vend INNER JOIN iptb00020 c ON b.cod_n = c.cod_n ",
|
|
" WHERE ",criterio CLIPPED,
|
|
" ORDER BY a.sec_vend"
|
|
|
|
PREPARE comando FROM selec
|
|
DECLARE busca CURSOR FOR comando
|
|
OPEN busca
|
|
|
|
LET idx = 1
|
|
FOREACH busca INTO pvetb75.*,pvetb76.*,piptb20.*
|
|
IF STATUS = NOTFOUND THEN
|
|
EXIT FOREACH
|
|
END IF
|
|
IF idx = 1 THEN
|
|
LET r_filename = salida
|
|
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
|
|
LET preview=TRUE
|
|
# CALL fgl_report_selectDevice(r_output) -- changing default
|
|
# CALL fgl_report_selectPreview(preview) -- changing default
|
|
LET handler = fgl_report_commitCurrentSettings() -- commit changes
|
|
END IF
|
|
|
|
|
|
### Loop para igualar tipo de venta a la variable ventas.ventas
|
|
IF handler IS NOT NULL THEN -- report engine was configured ok
|
|
|
|
END IF
|
|
END IF
|
|
|
|
END FOREACH
|
|
END FUNCTION
|