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

Agregar coprrp001 (Catalogo Suplidores) y corregir bugs en coprcs009

Browse Source 
- Registrar coprrp001/cofmrp001 en mbsERP.4pw
- Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl
- Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl
- Corregir mascaras PICTURE de codigo en coprcs009.4gl
- Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo
- Corregir typo de base de datos en cofmwd016.per

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
Abel López
2026-08-28 11:38:43 -04:00
co-authored by Claude Sonnet 5
parent b7877d7c07
commit a37d0336b5
6 changed files with 32 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/codir/cofmcs009.per
+5 -5
View File
@@ -1,4 +1,4 @@
database marmotech
database smarmotech
screen size 24 by 80
{
@@ -9,10 +9,10 @@ screen size 24 by 80
\g-----------------------------------------------------------------------------\g
Requi. Codigo Cantidad Precio Valor
\g-----------------------------------------------------------------------------\g
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
[r1 ][c1 ][c2 ] [p1 ][v1 ]
Descripcion [d1 ]
}
end
PROYECTO/codir/cofmwd016.per
+1 -1
View File
@@ -1,4 +1,4 @@
DATABASE marmotech
DATABASE smarmotech
screen
{
Ship To [st ]
PROYECTO/codir/coprcs009.4gl
+4 -4
View File
@@ -243,10 +243,10 @@ LET idx = 1
FOREACH buscate INTO detalle1.*
LET cs_ordena[idx].num_req = detalle1.num_req
LET cs_ordena[idx].codigo = detalle1.cod_n using "&","-",
detalle1.cod_grupo using "&","-",
detalle1.cod_tipo using "&&","-",
detalle1.cod_sec using "&&&"
LET cs_ordena[idx].codigo = detalle1.cod_n using "##","-",
detalle1.cod_grupo using "####","-",
detalle1.cod_tipo using "####","-",
detalle1.cod_sec using "#####"
LET cs_ordena[idx].cantidad = detalle1.cantidad using "##########.##"
LET cs_ordena[idx].precio = detalle1.precio using "##########.##"
PROYECTO/codir/coprgb000.4gl
+1 -1
View File
@@ -27,7 +27,7 @@ GLOBALS
DEFINE cs_ordena ARRAY [20] OF RECORD
num_req INTEGER,
codigo CHAR(10),
codigo CHAR(20),
cantidad CHAR(14),
precio CHAR(13),
valor CHAR(14)
PROYECTO/codir/coprrp001.4gl
+5 -13
View File
@@ -144,19 +144,11 @@ FUNCTION coprrp001()
archivo,
copia
LET r_filename = 'coprrp001.4rp'
CALL seleccionarSalida() RETURNING r_output
LET preview = 1
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
-- La API de configuracion de reportes (fgl_report_*) no esta
-- disponible en este FGL; 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"), "/coprrp001_catalogo.xml"
LET handler = om.XmlWriter.createFileWriter(r_filename)
START REPORT catalogo2 TO XML HANDLER handler
#### Enviando la informacion al registro del reporte