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

Merge branch 'main' of http://192.168.40.251:3000/jsoto/MBS

Browse Source
This commit is contained in:
jpeguero
2026-08-31 16:46:34 -04:00
parent 7f789181cf 26961ddd81
commit cda8053d90
3 changed files with 22 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/codir/cofmrp019.per
+1 -1
View File
@@ -1,4 +1,4 @@
database marmotech database smarmotech
screen size 24 by 80 screen size 24 by 80
{ {
Fecha [f1 ] Fecha [f1 ]
PROYECTO/codir/coprrp019.4gl
+15 -2
View File
@@ -10,12 +10,20 @@ DIRECTOR PROYECTO : JOSE ALFREDO PAULINO ALEJO
GLOBALS "coprgb000.4gl" GLOBALS "coprgb000.4gl"
MAIN MAIN
DEFER INTERRUPT DEFER INTERRUPT
CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(3) RETURNING impresor
CONNECT TO "smarmotech" USER usuarios USING clave
SELECT a.* INTO p_companias.* FROM companias a
CALL coprrp019() CALL coprrp019()
END MAIN END MAIN
FUNCTION coprrp019() FUNCTION coprrp019()
DEFINE select_fech,select_movi,select_ent CHAR(1000) DEFINE select_fech,select_movi,select_ent CHAR(1000)
DEFINE r_filename STRING
DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT DEFINE idx_o,idx_e,idx_p,idx_m SMALLINT
DEFINE esta,encontre,salir2,salir1,salir CHAR(1) DEFINE esta,encontre,salir2,salir1,salir CHAR(1)
DEFINE recibida,pendiente DECIMAL(12,2) DEFINE recibida,pendiente DECIMAL(12,2)
@@ -97,8 +105,13 @@ FUNCTION coprrp019()
DECLARE ent_curs SCROLL CURSOR FOR busca_entrega DECLARE ent_curs SCROLL CURSOR FOR busca_entrega
OPEN ent_curs OPEN ent_curs
CALL seleccionarsalida() RETURNING r_output -- La API de configuracion de reportes (fgl_report_*) no esta
CALL configureoutput(r_output) RETURNING HANDLER -- disponible en este FGL; seleccionarsalida()/configureoutput()
-- 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
PROYECTO/mbsERP.4pw
+5
View File
@@ -195,6 +195,7 @@
<File filePath="codir/cofmwd016.per"/> <File filePath="codir/cofmwd016.per"/>
<File filePath="codir/cofmrp001.per"/> <File filePath="codir/cofmrp001.per"/>
<File filePath="codir/cofmrp004.4fd"/> <File filePath="codir/cofmrp004.4fd"/>
<File filePath="codir/cofmrp019.per"/>
</Library> </Library>
<Application binaryName="coprmt001" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000017" label="coprmt001"> <Application binaryName="coprmt001" dependencies="-1026233879,-764824792,-700000015,-700000016" id="-700000017" label="coprmt001">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/> <Configuration commandLineArguments="alopez Lopez2023" id="-700000018" label="Configuration"/>
@@ -243,6 +244,10 @@
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000038" label="Configuration"/> <Configuration commandLineArguments="alopez Lopez2023 70" id="-700000038" label="Configuration"/>
<File filePath="codir/coprrp004.4gl"/> <File filePath="codir/coprrp004.4gl"/>
</Application> </Application>
<Application binaryName="coprrp019" dependencies="-1026233879,-764824792,-700000015,-700000016,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" id="-700000039" label="coprrp019">
<Configuration commandLineArguments="alopez Lopez2023 70" id="-700000040" label="Configuration"/>
<File filePath="codir/coprrp019.4gl"/>
</Application>
</Group> </Group>
<Group id="-1298100213" label="CONTABILIDAD GENERAL"> <Group id="-1298100213" label="CONTABILIDAD GENERAL">
<Application binaryName="cgprmt001" dependencies="2055924299,-1026233879" id="-1385997751" label="cgprmt001"> <Application binaryName="cgprmt001" dependencies="2055924299,-1026233879" id="-1385997751" label="cgprmt001">