jsoto/MBS
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

CxC: ccprrp018/003/001 con reporte Genero, ccprrp052 y ccprmt002 corregidos

Browse Source 
- ccprrp018: agrega MAIN, GROUP BY por nombre, y reemplaza la salida Excel/DDE
  (G:\ESTADO.XLS, DEL G:\ESTADOS) por un reporte Genero (ccprrp018.4rp); carga con
  un solo INSERT...SELECT en tabla temporal.
- ccprrp003: reemplaza el REPORT de texto con codigos de impresora por
  ccprrp003.4rp; agrega por cliente en una consulta (DATEDIFF, mismas reglas).
- ccprrp001: agrega MAIN, GROUP BY por nombre, reporte Genero (ccprrp001.4rp) y
  registra el formulario ccfmrp001 en FORMULARIOS_CC (faltaba, -1110).
- ccprrp052: la validacion del campo Orden estaba al reves.
- ccprmt002: cctb00002.fecha es datetime en SQL Server; el formulario, la variable
  global relacion (ccprgb000) y el CONSTRUCT la manejan como DATE; corrige que
  eLiminar mostrara exito sin actualizar filas.
- mbsERP.4pw: registra los .4rp, libgre y ccfmrp001 (sin credenciales).

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-11-07 15:23:22 -04:00
co-authored by Claude Sonnet 5.5
parent b52ccfae7f
commit 539af7f912
11 changed files with 654 additions and 477 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/ccdir/ccprrp001.4gl
+59 -106
View File
@@ -55,8 +55,22 @@ GLOBALS "ccprgb000.4gl"
apellido CHAR(30)
END RECORD
MAIN
DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CONNECT TO "smarmotech" USER usuarios USING clave
SELECT * INTO p_companias.* FROM companias
CALL ccprrp001()
END MAIN
FUNCTION ccprrp001()
DEFINE salir2,salir,salir1 CHAR(1)
DEFINE r_output STRING
DEFINE handler om.SaxDocumentHandler
DEFINE hay SMALLINT
# WHENEVER ERROR CONTINUE
OPTIONS
@@ -66,7 +80,7 @@ DEFINE salir2,salir,salir1 CHAR(1)
OPEN FORM ccfmrp001 FROM "ccfmrp001"
DISPLAY FORM ccfmrp001
CALL pantalla()
#CALL pantalla()
DISPLAY "ccprrp001" AT 4,3
DISPLAY "Clientes sin Ventas" AT 6,30
@@ -121,7 +135,7 @@ DEFINE salir2,salir,salir1 CHAR(1)
"WHERE d.fecha_orig <= ? AND d.tipo_cliente = a.tipo_cliente AND ",
criterio CLIPPED," AND d.status_t IS NULL AND d.sec_cliente= a.sec_cliente ",
" AND d.tipo_doc[1] = 'F' AND a.status_t is null AND ",
criterio clipped, " GROUP BY 1,2,3"
criterio clipped, " GROUP BY d.tipo_cliente,d.sec_cliente,a.nombre"
DISPLAY "<< Buscando Factura del Cliente... Espere Por Favor. >>" AT 19,14
ATTRIBUTE (REVERSE,BOLD)
@@ -130,7 +144,16 @@ DEFINE salir2,salir,salir1 CHAR(1)
DECLARE busca CURSOR FOR comando
OPEN busca USING fecha_corte
START REPORT ventas TO "C:\\archivo"
LET r_output = getPreviewDevice()
IF NOT fgl_report_loadCurrentSettings("ccprrp001.4rp") THEN
CALL fgl_winmessage("ERROR", "No se pudo cargar ccprrp001.4rp", "stop")
RETURN
END IF
CALL fgl_report_selectDevice(r_output)
CALL fgl_report_selectPreview(TRUE)
LET handler = fgl_report_commitCurrentSettings()
START REPORT ventas TO XML HANDLER handler
LET hay = 0
DISPLAY " " AT 19,14
DISPLAY "<< Reporte Generandose ... Por Favor Espere. >>"
AT 19,14 ATTRIBUTE (REVERSE)
@@ -199,12 +222,15 @@ IF (fecha_corte - vendcli.fecha) >= dia_minimo AND
LET vendcli.balance = balancli.balance - valor_de
OUTPUT TO REPORT ventas(vendcli.*,fecha_corte)
LET hay = 1
END IF
END WHILE
FINISH REPORT ventas
CLEAR SCREEN
RUN "type C:\\archivo > %USPRINT%" END FUNCTION
FINISH REPORT ventas
IF NOT hay THEN
CALL fgl_winmessage("INFO", "NO EXISTEN REGISTROS PARA ESTOS PARAMETROS", "info")
END IF
END FUNCTION
REPORT ventas(x,fecha5)
DEFINE x RECORD
@@ -217,112 +243,39 @@ REPORT ventas(x,fecha5)
valor DECIMAL(12,2),
balance DECIMAL(12,2)
END RECORD
DEFINE nombre1,apellido CHAR(30)
DEFINE dias_c INTEGER
DEFINE fecha5 DATE
DEFINE balance, monto_factura DECIMAL(10,2)
DEFINE descrip_zone CHAR(30)
DEFINE doble_on CHAR(2)
DEFINE doble_off CHAR(2)
DEFINE negrillas_on CHAR(2)
DEFINE negrillas_off CHAR(2)
DEFINE comp_on CHAR(2)
DEFINE comp_off CHAR(2)
DEFINE doce CHAR(2)
DEFINE normal CHAR(2)
DEFINE hora CHAR(5)
DEFINE fecha_factura DATE
DEFINE total_monto_zona,total_gral_monto_zona,monto DECIMAL(12,2)
OUTPUT
TOP MARGIN 0
LEFT MARGIN 0
BOTTOM MARGIN 2
DEFINE empresa, titulo, vendedor, cli, fec STRING
DEFINE dias_c INTEGER
ORDER BY x.sec_vend,x.sec_cliente
FORMAT
PAGE HEADER
LET doble_on = ASCII 14
LET doble_off = ASCII 20
LET negrillas_on = ASCII 27, ASCII 69
LET negrillas_off = ASCII 27, ASCII 70
LET comp_on = ASCII 15
LET comp_off = ASCII 18
LET doce = ASCII 27, ASCII 77
LET normal = ASCII 27, ASCII 80
LET hora = time
IF total_gral_monto_zona is null THEN
LET total_gral_monto_zona = 0
END IF
LET lj = (96 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 1, doce ,negrillas_on
PRINT COLUMN 1, "ccprrp001",
COLUMN lj, p_companias.nombre,
COLUMN 89, "Pag. ",pageno using "###"
PRINT COLUMN 32, "Sistema de Cuentas por Cobrar",
COLUMN 89, today using "dd/mm/yyyy"
IF dia_maximo != 3650 THEN
PRINT COLUMN 30, "Clientes sin Ventas ",
"de ",dia_minimo using "<<<",
" a ",dia_maximo using "<<<",
" dias",
COLUMN 92, hora
ELSE
PRINT COLUMN 29, "Clientes sin Ventas a mas de ",
dia_minimo using "<<"," dias",
COLUMN 92, hora
END IF
PRINT COLUMN 41, "Al ", fecha5 using "dd/mm/yyyy"
SKIP 1 LINES
PRINT COLUMN 1, "--------------------------------------------------",
"----------------------------------------------"
PRINT COLUMN 44, "|------ULTIMA VENTA------|"
PRINT COLUMN 6, "Cliente",
COLUMN 44, "Factura",
COLUMN 54, "Fecha",
COLUMN 65, "Valor",
COLUMN 74, "No.dias",
COLUMN 86, "Balance"
PRINT COLUMN 1, "--------------------------------------------------",
"----------------------------------------------"
# , negrillas_off
BEFORE GROUP OF x.sec_vend
SKIP 1 LINE
SELECT nom1_emp,apell1_emp INTO nombre1,apellido
BEFORE GROUP OF x.sec_vend
INITIALIZE nombre1, apellido TO NULL
SELECT nom1_emp,apell1_emp INTO nombre1,apellido
FROM adtb00003 WHERE status_t IS NULL AND num_emp = x.sec_vend
LET descrip5 = NULL
LET descrip5 = nombre1 CLIPPED," ",apellido CLIPPED
IF descrip5 IS NULL THEN
LET descrip5 = "Vendedor no Existe. Verifique."
END IF
PRINT COLUMN 1," Vendedor : ",x.sec_vend using "&&&&"," ", descrip5
clipped
LET descrip5 = NULL
LET descrip5 = nombre1 CLIPPED," ",apellido CLIPPED
IF descrip5 IS NULL OR LENGTH(descrip5 CLIPPED) = 0 THEN
LET descrip5 = "Vendedor no Existe. Verifique."
END IF
LET vendedor = "Vendedor : ", x.sec_vend USING "&&&&", " ", descrip5 CLIPPED
LET empresa = p_companias.nombre CLIPPED
IF dia_maximo != 3650 THEN
LET titulo = "Clientes sin Ventas de ", dia_minimo USING "<<<<<",
" a ", dia_maximo USING "<<<<<", " dias Al ",
fecha5 USING "dd/mm/yyyy"
ELSE
LET titulo = "Clientes sin Ventas a mas de ", dia_minimo USING "<<<<<",
" dias Al ", fecha5 USING "dd/mm/yyyy"
END IF
PRINTX empresa, titulo, vendedor
ON EVERY ROW
PRINT COLUMN 4, x.tipo_cliente using "&&","-",
COLUMN 7, x.sec_cliente using "&&&&",
COLUMN 12, x.nombre,
COLUMN 44, x.factura using "######",
COLUMN 52, x.fecha using "dd/mm/yyyy",
COLUMN 61, x.valor using "$,$$$,$$$.$$",
COLUMN 73, fecha5 - x.fecha using "###,###",
COLUMN 82, x.balance using "---,---,---.##"
AFTER GROUP OF x.sec_vend
SKIP TO TOP OF PAGE
END REPORT
LET cli = x.tipo_cliente USING "&&", "-", x.sec_cliente USING "&&&&&",
" ", x.nombre CLIPPED
LET fec = x.fecha USING "dd/mm/yyyy"
LET dias_c = fecha5 - x.fecha
PRINTX cli, x.factura, fec, x.valor, dias_c, x.balance
END REPORT