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

Merge origin/main (cambios de Abel) en main local

Browse Source
This commit is contained in:
jpeguero
2026-10-27 13:14:06 -04:00
parent 16bff226c5 6a72dad748
commit 1829bd1bc7
6 changed files with 46 additions and 65 deletions
Download Patch File Download Diff File Expand all files Collapse all files
.gitignore
+5 -12
View File
@@ -34,7 +34,6 @@ mydatabase.db
# ── Logs de ejecución ── # ── Logs de ejecución ──
*.log *.log
*.err *.err
PROYECTO/bin/*.TXT
# ── Spool de reportes (salida temporal de impresión) ── # ── Spool de reportes (salida temporal de impresión) ──
PROYECTO/spool/ PROYECTO/spool/
@@ -53,17 +52,11 @@ desktop.ini
# -- Paquetes GAR: se generan en el build (gsmake -t mbs mbsERP.4pw), no van al repo -- # -- Paquetes GAR: se generan en el build (gsmake -t mbs mbsERP.4pw), no van al repo --
*.gar *.gar
# -- bin/IMAGENES: solo las imagenes que usan los programas/reportes -- # -- PROYECTO/bin: no se versiona (compilados, imagenes, ejecutables, datos de ejecucion) --
# (lo demas son fotos, temporales y archivos subidos en ejecucion, p.ej. comprobantes) # salvo los disenos de reporte .4rp, que son fuentes registradas en mbsERP.4pw.
PROYECTO/bin/IMAGENES/** PROYECTO/bin/**
!PROYECTO/bin/IMAGENES/Logo.png !PROYECTO/bin/**/
!PROYECTO/bin/IMAGENES/Logo_DCM.png !PROYECTO/bin/**/*.4rp
!PROYECTO/bin/IMAGENES/genero_logo.png
!PROYECTO/bin/IMAGENES/LOGO.JPG
!PROYECTO/bin/IMAGENES/logo1.png
!PROYECTO/bin/IMAGENES/EMPLEADOS/
PROYECTO/bin/IMAGENES/EMPLEADOS/*
!PROYECTO/bin/IMAGENES/EMPLEADOS/.gitkeep
# -- Llaves y certificados: NUNCA en el repo (se entregan aparte a quien los necesite) -- # -- Llaves y certificados: NUNCA en el repo (se entregan aparte a quien los necesite) --
*.jks *.jks
PROYECTO/codir/coprrp001.4gl
+7 -5
View File
@@ -144,11 +144,13 @@ FUNCTION coprrp001()
archivo, archivo,
copia copia
-- La API de configuracion de reportes (fgl_report_*) no esta LET r_filename = 'coprrp001.4rp'
-- disponible en este FGL; se escribe el XML directo a un archivo CALL seleccionarSalida() RETURNING r_output
-- en FGLSPOOL en lugar de usar la plantilla .4rp con vista previa. IF fgl_report_loadCurrentSettings(r_filename) THEN
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp001_catalogo.xml" CALL fgl_report_selectDevice(r_output)
LET handler = om.XmlWriter.createFileWriter(r_filename) CALL fgl_report_selectPreview(TRUE)
LET handler = fgl_report_commitCurrentSettings()
END IF
START REPORT catalogo2 TO XML HANDLER handler START REPORT catalogo2 TO XML HANDLER handler
#### Enviando la informacion al registro del reporte #### Enviando la informacion al registro del reporte
PROYECTO/codir/coprrp004.4gl
+4 -9
View File
@@ -117,13 +117,8 @@ END IF
# doce,normal,archivo,copia # doce,normal,archivo,copia
-- La API de configuracion de reportes (fgl_report_*) no esta CALL seleccionarsalida() RETURNING r_output
-- disponible en este FGL; seleccionarsalida()/configureoutput() CALL configureoutput(r_output) RETURNING handler
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp004_cronologico.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT cronologico TO XML HANDLER handler START REPORT cronologico TO XML HANDLER handler
@@ -194,7 +189,7 @@ REPORT cronologico(x)
LET bandera1 = "N" LET bandera1 = "N"
LET hora = time LET hora = time
LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2 LET l = (80 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 3, ASCII 27, ASCII 80,comp_off, negrillas_on PRINT COLUMN 3, comp_off, negrillas_on # sin ESC P (codigo de impresora matricial)
PRINT COLUMN 1, "coprrp004", PRINT COLUMN 1, "coprrp004",
COLUMN l, p_companias.nombre CLIPPED, COLUMN l, p_companias.nombre CLIPPED,
COLUMN 73, "Pag. ",pageno using "###" COLUMN 73, "Pag. ",pageno using "###"
@@ -259,7 +254,7 @@ REPORT cronologico(x)
SKIP 1 LINES SKIP 1 LINES
ON LAST ROW ON LAST ROW
PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<" PRINT COLUMN 2, "Total Registros Impresos = ", count(*) USING "<<<<"
PRINT COLUMN 2, ASCII 27, ASCII 80 PRINT COLUMN 2, "" # sin ESC P (codigo de impresora matricial)
PRINT COLUMN 1, "==================================================", PRINT COLUMN 1, "==================================================",
"=============================" "============================="
END REPORT END REPORT
PROYECTO/codir/coprrp007.4gl
+3 -7
View File
@@ -164,13 +164,8 @@ LET idx = 1
END IF END IF
IF idx = 1 THEN IF idx = 1 THEN
-- La API de configuracion de reportes (fgl_report_*) no esta CALL seleccionarsalida() RETURNING r_output
-- disponible en este FGL; seleccionarsalida()/configureoutput() CALL configureoutput(r_output) RETURNING handler
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp007_organiza.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT organiza TO XML HANDLER handler START REPORT organiza TO XML HANDLER handler
END IF END IF
@@ -221,6 +216,7 @@ LET idx = 1
DEFINE hora CHAR(5) DEFINE hora CHAR(5)
OUTPUT OUTPUT
RIGHT MARGIN 148
TOP MARGIN 0 TOP MARGIN 0
LEFT MARGIN 0 LEFT MARGIN 0
PROYECTO/codir/coprrp019.4gl
+13 -16
View File
@@ -105,13 +105,8 @@ FUNCTION coprrp019()
DECLARE ent_curs SCROLL CURSOR FOR busca_entrega DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
OPEN ent_curs OPEN ent_curs
-- La API de configuracion de reportes (fgl_report_*) no esta CALL seleccionarsalida() RETURNING r_output
-- disponible en este FGL; seleccionarsalida()/configureoutput() CALL configureoutput(r_output) RETURNING handler
-- tampoco estan definidas en este programa. Se escribe el XML
-- directo a un archivo en FGLSPOOL en lugar de usar la plantilla
-- .4rp con vista previa.
LET r_filename = FGL_GETENV("FGLSPOOL"), "/coprrp019_documento.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT documento TO XML HANDLER handler START REPORT documento TO XML HANDLER handler
@@ -249,6 +244,7 @@ FUNCTION coprrp019()
DEFINE valor DECIMAL(12,2) DEFINE valor DECIMAL(12,2)
DEFINE p_base DECIMAL(10,2) DEFINE p_base DECIMAL(10,2)
OUTPUT OUTPUT
RIGHT MARGIN 165
TOP MARGIN 0 TOP MARGIN 0
LEFT MARGIN 0 LEFT MARGIN 0
BOTTOM MARGIN 2 BOTTOM MARGIN 2
@@ -256,15 +252,15 @@ FUNCTION coprrp019()
ORDER BY x.tipo,x.num_oc,z.codigo ORDER BY x.tipo,x.num_oc,z.codigo
FORMAT FORMAT
PAGE HEADER PAGE HEADER
LET doble_on = ASCII 14 LET doble_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET doble_off = ASCII 20 LET doble_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET negrillas_on = ASCII 27, ASCII 69 LET negrillas_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET negrillas_off = ASCII 27, ASCII 70 LET negrillas_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comp_on = ASCII 15 LET comp_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comp_off = ASCII 18 LET comp_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET imp = "T" LET imp = "T"
LET doce = ASCII 27, ASCII 77 LET doce = NULL -- sin codigos de impresora (salida PDF/Excel)
LET normal = ASCII 27, ASCII 80 LET normal = NULL -- sin codigos de impresora (salida PDF/Excel)
LET hora = time LET hora = time
LET l = (162 - LENGTH(p_companias.nombre CLIPPED))/2 LET l = (162 - LENGTH(p_companias.nombre CLIPPED))/2
@@ -357,7 +353,7 @@ FUNCTION coprrp019()
PRINT COLUMN 2,negrillas_on, PRINT COLUMN 2,negrillas_on,
"Puerto: ",negrillas_off, "Puerto: ",negrillas_off,
" ","(",x.cod_pt clipped,")"," ",x.nom_pt, " ","(",x.cod_pt clipped,")"," ",x.nom_pt CLIPPED,
COLUMN 48, negrillas_on,"Flete: ",negrillas_off, COLUMN 48, negrillas_on,"Flete: ",negrillas_off,
x.c_flete using "##,###,###.##", x.c_flete using "##,###,###.##",
COLUMN 80, negrillas_on,"Gastos: ",negrillas_off, COLUMN 80, negrillas_on,"Gastos: ",negrillas_off,
@@ -391,6 +387,7 @@ FUNCTION coprrp019()
COLUMN 101, valor using "##,###,###.##"; COLUMN 101, valor using "##,###,###.##";
AFTER GROUP OF x.num_oc AFTER GROUP OF x.num_oc
PRINT -- cierra la ultima linea de detalle (termina en ";")
PRINT COLUMN 1, "__________________________________________________", PRINT COLUMN 1, "__________________________________________________",
"__________________________________________________", "__________________________________________________",
"__________________________________________________", "__________________________________________________",
PROYECTO/cpdir/cpprrp001.4gl
+14 -16
View File
@@ -94,12 +94,9 @@ END MAIN
RETURN RETURN
END IF END IF
CALL defecto(usuarios,clave,impresor) RETURNING imprime,negrilla_on,negrillas_of, CALL seleccionarsalida() RETURNING r_output
doble_on,doble_off,comp_on,comp_off, CALL configureoutput(r_output) RETURNING handler
doce,normal,archivo,copia START REPORT impreso_mvto TO XML HANDLER handler
START REPORT impreso_mvto TO archivo
LET selec = "SELECT a.tipo_doc,a.num_doc,a.cod_sp,a.cod_sp_sec, ", LET selec = "SELECT a.tipo_doc,a.num_doc,a.cod_sp,a.cod_sp_sec, ",
"b.nom_sp,a.fecha_orig,a.aplica_a,a.detalle,a.valor ", "b.nom_sp,a.fecha_orig,a.aplica_a,a.detalle,a.valor ",
@@ -145,7 +142,7 @@ END MAIN
OUTPUT TO REPORT impreso_mvto(prt_mvto.*,mvto.fecha_in,mvto.fecha_fi) OUTPUT TO REPORT impreso_mvto(prt_mvto.*,mvto.fecha_in,mvto.fecha_fi)
END WHILE END WHILE
FINISH REPORT impreso_mvto FINISH REPORT impreso_mvto
RUN imprime -- RUN imprime: era para la impresora matricial; ahora sale por PDF/Excel/pantalla
END FUNCTION END FUNCTION
REPORT impreso_mvto(x,fecha1,fecha2) REPORT impreso_mvto(x,fecha1,fecha2)
@@ -174,7 +171,8 @@ END MAIN
negrillas_off CHAR(6), negrillas_off CHAR(6),
hora CHAR(5) hora CHAR(5)
OUTPUT OUTPUT
RIGHT MARGIN 138
LEFT MARGIN 0 LEFT MARGIN 0
TOP MARGIN 1 TOP MARGIN 1
BOTTOM MARGIN 4 BOTTOM MARGIN 4
@@ -182,14 +180,14 @@ END MAIN
ORDER BY x.num_doc ORDER BY x.num_doc
FORMAT FORMAT
PAGE HEADER PAGE HEADER
LET negrillas_on = ASCII 27, ASCII 69 LET negrillas_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET negrillas_off = ASCII 27, ASCII 70 LET negrillas_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET doble_on = ASCII 14 LET doble_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET doble_off = ASCII 20 LET doble_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comprimido_on = ASCII 15 LET comprimido_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comprimido_off = ASCII 18 LET comprimido_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comprimido_12_on = ASCII 27, ASCII 77 LET comprimido_12_on = NULL -- sin codigos de impresora (salida PDF/Excel)
LET comprimido_12_off = ASCII 27, ASCII 80 LET comprimido_12_off = NULL -- sin codigos de impresora (salida PDF/Excel)
LET hora = time LET hora = time
LET lj = (131 - LENGTH(p_companias.nombre CLIPPED))/2 LET lj = (131 - LENGTH(p_companias.nombre CLIPPED))/2
PRINT COLUMN 1,comprimido_on,negrillas_on PRINT COLUMN 1,comprimido_on,negrillas_on