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

Corrige compilacion de lqprrp004 y prprmt011 (modulos LIQUIDACION y PRODUCCION)

Browse Source 
lqprrp004:
- El .4gl tenia saltos de linea CR (Mac antiguo): en Genero 6 el comentario
  '######' de la linea 2 se tragaba todo el programa (modulo de 181 bytes,
  "main not defined"). Convertido a CRLF (el diff grande es solo eso).
- numero_ent se usaba en REPORT entrada271 sin definirse (solo existia en
  edprrp0271); definida y asignada = 27 como en la funcion hermana.
- Agrega dependencia FUNCIONESREPORT.

prprmt011 / prprmt021:
- primpresion.impresion(pnumoc) chocaba con impresion(...) de 5 parametros
  de FUNCIONESREPORT (veprrp049_1.4gl). Renombrada a impresion_oc y su unico
  llamador (prprmt021) actualizado. prprmt011 recibe FUNCIONESREPORT.

Verificado con gsmake: lqprrp004, lqprmt002, ipprmt005, prprmt011 y
prprmt021 compilan y enlazan. lqprrp004 consulta datos de 03/2024 pero el
reporte no se genera: bin/lqprrp004.4rp es un archivo binario (no XML) y no
existe version XML en el repo. Pendiente que Johnny lo entregue.

Co-Authored-By: Claude Sonnet 5.5 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-10-16 10:15:59 -04:00
co-authored by Claude Sonnet 5.5
parent ea88c93da3
commit 5dcc4adf2c
4 changed files with 825 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/PRDIR/primpresion.4gl
+1 -1
View File
@@ -11,7 +11,7 @@
END RECORD,
nombre_cia STRING
FUNCTION impresion(pnumoc)
FUNCTION impresion_oc(pnumoc)
DEFINE pnumoc,I INT
DECLARE busca_orden CURSOR FOR
PROYECTO/PRDIR/prprmt021.4gl
+1 -1
View File
@@ -177,7 +177,7 @@ END RECORD
" ORDEN ECOMMERCE ",orden_externa USING "&&&&&&&"
INPUT ARRAY detalle FROM sdetalle.* ATTRIBUTE(WITHOUT DEFAULTS)
ON ACTION impresion ATTRIBUTE(TEXT="Orden",IMAGE="printer")
CALL impresion(pnum_oc)
CALL impresion_oc(pnum_oc)
ON ACTION etiqueta ATTRIBUTE(TEXT="Label",IMAGE="fa-tag")
LET datos.celular = orden.celular
LET datos.cliente = orden.nombre_envio
PROYECTO/lqdir/lqprrp004.4gl
+821 -2
View File
File diff suppressed because one or more lines are too long
PROYECTO/mbsERP.4pw
+2 -2
View File
@@ -363,7 +363,7 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-554965098" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="lqdir/lqprmt002.4gl"/>
</Application>
<Application binaryName="lqprrp004" dependencies="2132467565,-1026233879,-764824792" externalDependencies="libgre.42x" id="-432861602" label="lqprrp004">
<Application binaryName="lqprrp004" dependencies="2132467565,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-432861602" label="lqprrp004">
<Configuration commandLineArguments="jpeguero Peguero2023" id="530364294" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="lqdir/lqprrp004.4gl"/>
</Application>
@@ -819,7 +819,7 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-211320415" label="Configuration"/>
<File filePath="PRDIR/prprmt010.4gl"/>
</Application>
<Application binaryName="prprmt011" dependencies="-837156229,-1026233879,-764824792" externalDependencies="libgre.42x" id="-284744691" label="prprmt011">
<Application binaryName="prprmt011" dependencies="-837156229,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="-284744691" label="prprmt011">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-569394285" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="PRDIR/prprmt011.4gl"/>
</Application>