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

lsoto prueba de programas

Browse Source
This commit is contained in:
Luis
2026-10-20 21:52:20 -04:00
parent 4c9a841473
commit 16ef05828e
14 changed files with 8126 additions and 1822 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/bin/ccprrp054.4rp
BIN
View File
Binary file not shown.
PROYECTO/ccdir/CCPRRP053.4gl
+4 -3
View File
@@ -99,7 +99,8 @@ FUNCTION VariacionPrecios()
LET estados.cond_pago = '' LET estados.cond_pago = ''
LET estados.estilo = 0 LET estados.estilo = 0
DELETE FROM tmpcxccompara # tmpcxccompara no existe en el .250 y nadie la lee (el reporte sale de memoria)
# DELETE FROM tmpcxccompara
FOREACH variaciones INTO balancesCE.* FOREACH variaciones INTO balancesCE.*
@@ -176,8 +177,8 @@ FUNCTION VariacionPrecios()
END IF END IF
INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2) # INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2)
VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente, balancesCE.valor,balancesCE.valor2) # VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente, balancesCE.valor,balancesCE.valor2)
OUTPUT TO REPORT balancesCE_prod_rpt(balancesCE.*, datos.fecha_final,estados.*) OUTPUT TO REPORT balancesCE_prod_rpt(balancesCE.*, datos.fecha_final,estados.*)
END IF END IF
PROYECTO/ccdir/ccprmt010.4gl
+2 -1
View File
@@ -386,7 +386,8 @@ FUNCTION imprime_req(xnumreq)
c.id_kit,x3.observacion,d.celular1,d.contacto c.id_kit,x3.observacion,d.celular1,d.contacto
ORDER BY b.num_req, c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec ORDER BY b.num_req, c.cod_n,c.cod_grupo,c.cod_tipo,c.cod_sec
LET r_output="SVG" # antes fijo SVG (en web no se ve): se deja elegir PDF/Excel/pantalla
CALL seleccionarSalida() RETURNING r_output
LET r_filename = "ccprmt010.4rp" LET r_filename = "ccprmt010.4rp"
LET preview = 1 LET preview = 1
PROYECTO/ccdir/ccprrp027.4gl
+2 -1
View File
@@ -64,7 +64,8 @@ FUNCTION ccprrp027()
LET tipo_papel = 1 LET tipo_papel = 1
CALL msgrp000(tipo_papel) CALL msgrp000(tipo_papel)
DELETE FROM tmpccprrp027 # tmpccprrp027 ya no se usa (el INSERT esta comentado) y no existe en el .250
# DELETE FROM tmpccprrp027
LET pflag = "N" LET pflag = "N"
# LET tiposaldo='TODOS' # LET tiposaldo='TODOS'
PROYECTO/ccdir/ccprrp034.4gl
+2 -1
View File
@@ -180,7 +180,8 @@ OPEN c_vende USING fecha_inicial,fecha_final
FINISH REPORT reporte34 FINISH REPORT reporte34
LET puede = NULL LET puede = NULL
DISPLAY BY NAME valor_total # el formulario ccfmrp034 no tiene campo valor_total (error -1102); el total sale en el reporte
# DISPLAY BY NAME valor_total
{ {
LET opt = fgl_winquestion("Atencion","Desea Imprimir Reporte?", LET opt = fgl_winquestion("Atencion","Desea Imprimir Reporte?",
"yes","yes|no","question",0) "yes","yes|no","question",0)
PROYECTO/mbsERP.4pw
+50 -48
View File
@@ -556,7 +556,7 @@
<Configuration id="-1802529863" label="Configuration"/> <Configuration id="-1802529863" label="Configuration"/>
<File filePath="ccdir/ccprmt009.4gl"/> <File filePath="ccdir/ccprmt009.4gl"/>
</Application> </Application>
<Application binaryName="ccprmt010" dependencies="-764824792,-1766170440,-1026233879,579381494" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="1482215326" label="ccprmt010"> <Application binaryName="ccprmt010" dependencies="-764824792,-1766170440,-1423229125,-1026233879,579381494" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="1482215326" label="ccprmt010">
<Configuration id="-705490897" label="Configuration"/> <Configuration id="-705490897" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ccdir/ccprmt010.4gl"/> <File compilerOptions="--build-rdd" filePath="ccdir/ccprmt010.4gl"/>
<File filePath="bin/ccprmt010.4rp"/> <File filePath="bin/ccprmt010.4rp"/>
@@ -565,10 +565,9 @@
<Configuration id="316591444" label="Configuration"/> <Configuration id="316591444" label="Configuration"/>
<File filePath="ccdir/ccprmt016.4gl"/> <File filePath="ccdir/ccprmt016.4gl"/>
</Application> </Application>
<Application binaryName="ccprmt031" dependencies="-764824792,-1766170440,-1026233879,579381494" id="358137845" label="ccprmt031"> <Application binaryName="ccprmt031" dependencies="-764824792,-1766170440,-1026233879,579381494,-2079122474" id="358137845" label="ccprmt031">
<Configuration id="938104774" label="Configuration"/> <Configuration id="938104774" label="Configuration"/>
<File filePath="ccdir/ccprmt031.4gl"/> <File filePath="ccdir/ccprmt031.4gl"/>
<File filePath="irdir/irbuscaprod.4gl"/>
</Application> </Application>
<Application binaryName="ccprcs001" dependencies="-764824792,-1766170440,-1026233879,579381494" id="-743876402" label="ccprcs001"> <Application binaryName="ccprcs001" dependencies="-764824792,-1766170440,-1026233879,579381494" id="-743876402" label="ccprcs001">
<Configuration id="-843723130" label="Configuration"/> <Configuration id="-843723130" label="Configuration"/>
@@ -1307,7 +1306,6 @@
<Application binaryName="irprmt020" dependencies="-1026233879,-764824792,-2079122474,18908927" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="-1112777595" label="irprmt020"> <Application binaryName="irprmt020" dependencies="-1026233879,-764824792,-2079122474,18908927" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="-1112777595" label="irprmt020">
<Configuration id="-1484413397" label="Configuration"/> <Configuration id="-1484413397" label="Configuration"/>
<File filePath="irdir/irprmt020.4gl"/> <File filePath="irdir/irprmt020.4gl"/>
<File filePath="irdir/irbuscaprod.4gl"/>
</Application> </Application>
<Application binaryName="irprmt021" dependencies="-1026233879,-2079122474,-764824792,18908927" externalDependencies="libgre.42x" id="-1356987098" label="irprmt021"> <Application binaryName="irprmt021" dependencies="-1026233879,-2079122474,-764824792,18908927" externalDependencies="libgre.42x" id="-1356987098" label="irprmt021">
<Configuration id="-1650667887" label="Configuration"/> <Configuration id="-1650667887" label="Configuration"/>
@@ -1414,6 +1412,7 @@
<File filePath="irdir/irfmrp009.4fd"/> <File filePath="irdir/irfmrp009.4fd"/>
</Library> </Library>
<Library binaryName="FUNCIONES_IR" dependencies="-1026233879" id="-2079122474" label="FUNCIONES_IR"> <Library binaryName="FUNCIONES_IR" dependencies="-1026233879" id="-2079122474" label="FUNCIONES_IR">
<File filePath="irdir/irbuscaprod.4gl"/>
<File filePath="irdir/irprgb000.4gl"/> <File filePath="irdir/irprgb000.4gl"/>
<File filePath="irdir/imprequisicion.4gl"/> <File filePath="irdir/imprequisicion.4gl"/>
<File filePath="ipdir/estadosprocesos_1.4gl"/> <File filePath="ipdir/estadosprocesos_1.4gl"/>
@@ -1472,6 +1471,15 @@
<File filePath="vedir/vefmrp015.4fd"/> <File filePath="vedir/vefmrp015.4fd"/>
<File filePath="vedir/vefmrp048.4fd"/> <File filePath="vedir/vefmrp048.4fd"/>
<File filePath="vedir/vefmrp050.4fd"/> <File filePath="vedir/vefmrp050.4fd"/>
<File filePath="vedir/vefmwd012.per"/>
<File filePath="vedir/vefmwd101.per"/>
<File filePath="vedir/vefmmt113.4fd"/>
<File filePath="vedir/vefmrp053.4fd"/>
<File filePath="vedir/vefmrp054.4fd"/>
<File filePath="vedir/vefmrp055.4fd"/>
<File filePath="vedir/vefmrp057.4fd"/>
<File filePath="vedir/vefmrp058.4fd"/>
<File filePath="vedir/vefmrp059.4fd"/>
<File filePath="vedir/vefmrp061.4fd"/> <File filePath="vedir/vefmrp061.4fd"/>
<File filePath="vedir/vefmrp062.per"/> <File filePath="vedir/vefmrp062.per"/>
<File filePath="vedir/vefmwd001.per"/> <File filePath="vedir/vefmwd001.per"/>
@@ -1479,7 +1487,6 @@
<File filePath="vedir/vefmwd007.per"/> <File filePath="vedir/vefmwd007.per"/>
<File filePath="vedir/vefmwd013.4fd"/> <File filePath="vedir/vefmwd013.4fd"/>
<File filePath="vedir/vefmwd014.per"/> <File filePath="vedir/vefmwd014.per"/>
<File filePath="vedir/vefmwd017.per"/>
<File filePath="vedir/vefmwd018.per"/> <File filePath="vedir/vefmwd018.per"/>
<File filePath="vedir/vefmwd019.per"/> <File filePath="vedir/vefmwd019.per"/>
<File filePath="vedir/vefmwd020.4fd"/> <File filePath="vedir/vefmwd020.4fd"/>
@@ -1496,23 +1503,23 @@
<File filePath="vedir/vefumt001.4gl"/> <File filePath="vedir/vefumt001.4gl"/>
<File filePath="vedir/veprgb000.4gl"/> <File filePath="vedir/veprgb000.4gl"/>
</Library> </Library>
<Application binaryName="veprmt004" dependencies="-1093277845,-1026233879,-764824792" id="657833718" label="veprmt004"> <Application binaryName="veprmt004" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="657833718" label="veprmt004">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="86284586" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="86284586" label="Configuration"/>
<File filePath="vedir/veprmt004.4gl"/> <File filePath="vedir/veprmt004.4gl"/>
</Application> </Application>
<Application binaryName="veprmt101" dependencies="-1093277845,-1026233879,-764824792,493047263" id="-519209967" label="veprmt101"> <Application binaryName="veprmt101" dependencies="-1093277845,-1026233879,-764824792,493047263,-1377937444" id="-519209967" label="veprmt101">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="955022326" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="955022326" label="Configuration"/>
<File filePath="vedir/veprmt101.4gl"/> <File filePath="vedir/veprmt101.4gl"/>
</Application> </Application>
<Application binaryName="veprmt102" dependencies="-1093277845,-1026233879,-764824792" id="1032432257" label="veprmt102"> <Application binaryName="veprmt102" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1032432257" label="veprmt102">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1676531577" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1676531577" label="Configuration"/>
<File filePath="vedir/veprmt102.4gl"/> <File filePath="vedir/veprmt102.4gl"/>
</Application> </Application>
<Application binaryName="veprmt025" dependencies="-1093277845,-1026233879,-764824792" id="343431354" label="veprmt025"> <Application binaryName="veprmt025" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="343431354" label="veprmt025">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="684926648" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="684926648" label="Configuration"/>
<File filePath="vedir/veprmt025.4gl"/> <File filePath="vedir/veprmt025.4gl"/>
</Application> </Application>
<Application binaryName="veprmt001" compilerOptions="--build-rdd" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="200550882" label="veprmt001"> <Application binaryName="veprmt001" compilerOptions="--build-rdd" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="200550882" label="veprmt001">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1427917002" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1427917002" label="Configuration"/>
<File filePath="vedir/veprmt001.4gl"/> <File filePath="vedir/veprmt001.4gl"/>
<File filePath="otrodir/buscarnc.4gl"/> <File filePath="otrodir/buscarnc.4gl"/>
@@ -1525,150 +1532,145 @@
<File filePath="vedir/veprfu002.4gl"/> <File filePath="vedir/veprfu002.4gl"/>
<File filePath="vedir/veinformacion.4gl"/> <File filePath="vedir/veinformacion.4gl"/>
</Application> </Application>
<Application binaryName="veprmt024" dependencies="-1093277845,-1026233879,-764824792" id="773751002" label="veprmt024"> <Application binaryName="veprmt024" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="773751002" label="veprmt024">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1651668050" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1651668050" label="Configuration"/>
<File filePath="vedir/veprmt024.4gl"/> <File filePath="vedir/veprmt024.4gl"/>
</Application> </Application>
<Application binaryName="veprmt113" dependencies="-1093277845,-1026233879,-764824792" id="826750739" label="veprmt113"> <Application binaryName="veprmt113" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="826750739" label="veprmt113">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="937663516" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="937663516" label="Configuration"/>
<File filePath="vedir/veprmt113.4gl"/> <File filePath="vedir/veprmt113.4gl"/>
<File filePath="otrodir/email_factura.4gl"/> <File filePath="otrodir/email_factura.4gl"/>
</Application> </Application>
<Application binaryName="veprmt031" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="974547322" label="veprmt031"> <Application binaryName="veprmt031" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="974547322" label="veprmt031">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="799605520" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="799605520" label="Configuration"/>
<File filePath="vedir/veprmt031.4gl"/> <File filePath="vedir/veprmt031.4gl"/>
</Application> </Application>
<Application binaryName="veprmt049" dependencies="-1093277845,-1026233879,-764824792,-1423229125,493047263" externalDependencies="libgre.42x" id="320289604" label="veprmt049"> <Application binaryName="veprmt049" dependencies="-1093277845,-1026233879,-764824792,-1423229125,493047263,-1377937444" externalDependencies="libgre.42x" id="320289604" label="veprmt049">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1240586355" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1240586355" label="Configuration"/>
<File filePath="vedir/veprmt049.4gl"/> <File filePath="vedir/veprmt049.4gl"/>
<File filePath="otrodir/apiclient.4gl"/>
<File filePath="otrodir/precios.4gl"/> <File filePath="otrodir/precios.4gl"/>
<File filePath="otrodir/repite_registro.4gl"/> <File filePath="otrodir/repite_registro.4gl"/>
<File filePath="vedir/vereservas_cotizacion.4gl"/> <File filePath="vedir/vereservas_cotizacion.4gl"/>
<File filePath="bin/veprmt049.4rp"/> <File filePath="bin/veprmt049.4rp"/>
</Application> </Application>
<Application binaryName="veprmt040" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="1253460167" label="veprmt040"> <Application binaryName="veprmt040" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="1253460167" label="veprmt040">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="169175954" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="169175954" label="Configuration"/>
<File filePath="vedir/veprmt040.4gl"/> <File filePath="vedir/veprmt040.4gl"/>
</Application> </Application>
<Application binaryName="veprmt032" dependencies="-1093277845,-1026233879,-764824792" id="333553480" label="veprmt032"> <Application binaryName="veprmt032" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="333553480" label="veprmt032">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="781472232" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="781472232" label="Configuration"/>
<File filePath="vedir/veprmt032.4gl"/> <File filePath="vedir/veprmt032.4gl"/>
</Application> </Application>
<Application binaryName="veprmt038" dependencies="-1093277845,-1026233879,-764824792" id="1114536044" label="veprmt038"> <Application binaryName="veprmt038" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1114536044" label="veprmt038">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="711965241" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="711965241" label="Configuration"/>
<File filePath="vedir/veprmt038.4gl"/> <File filePath="vedir/veprmt038.4gl"/>
</Application> </Application>
<Application binaryName="veprmt023" dependencies="-1093277845,-1026233879,-764824792" id="250302650" label="veprmt023"> <Application binaryName="veprmt023" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="250302650" label="veprmt023">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="637983218" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="637983218" label="Configuration"/>
<File filePath="vedir/veprmt023.4gl"/> <File filePath="vedir/veprmt023.4gl"/>
</Application> </Application>
<Application binaryName="veprmt013" dependencies="-1093277845,-1026233879,-764824792" id="1929893875" label="veprmt013"> <Application binaryName="veprmt013" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1929893875" label="veprmt013">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1258625593" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1258625593" label="Configuration"/>
<File filePath="vedir/veprmt013.4gl"/> <File filePath="vedir/veprmt013.4gl"/>
</Application> </Application>
<Application binaryName="veprmt009" dependencies="-1093277845,-1026233879,-764824792" id="158580342" label="veprmt009"> <Application binaryName="veprmt009" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="158580342" label="veprmt009">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="616580711" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="616580711" label="Configuration"/>
<File filePath="vedir/veprmt009.4gl"/> <File filePath="vedir/veprmt009.4gl"/>
</Application> </Application>
<Application binaryName="veprmt002" dependencies="-1093277845,-1026233879,-764824792" id="1020255763" label="veprmt002"> <Application binaryName="veprmt002" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1020255763" label="veprmt002">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1553667325" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1553667325" label="Configuration"/>
<File filePath="vedir/veprmt002.4gl"/> <File filePath="vedir/veprmt002.4gl"/>
</Application> </Application>
<Application binaryName="veprmt007" dependencies="-1093277845,-1026233879,-764824792" externalDependencies="libgre.42x" id="1377728990" label="veprmt007"> <Application binaryName="veprmt007" dependencies="-1093277845,-1026233879,-764824792,-1377937444" externalDependencies="libgre.42x" id="1377728990" label="veprmt007">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="988043155" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="988043155" label="Configuration"/>
<File filePath="vedir/veprmt007.4gl"/> <File filePath="vedir/veprmt007.4gl"/>
<File filePath="vedir/vecarnet.4gl"/> <File filePath="vedir/vecarnet.4gl"/>
<File filePath="otrodir/tiporegistro.4gl"/> <File filePath="otrodir/tiporegistro.4gl"/>
</Application> </Application>
<Application binaryName="veprmt005" dependencies="-1093277845,-1026233879,-764824792" id="1527528867" label="veprmt005"> <Application binaryName="veprmt005" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1527528867" label="veprmt005">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1080963272" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1080963272" label="Configuration"/>
<File filePath="vedir/veprmt005.4gl"/> <File filePath="vedir/veprmt005.4gl"/>
</Application> </Application>
<Application binaryName="veprmt020" dependencies="-1093277845,-1026233879,-764824792" id="1588222966" label="veprmt020"> <Application binaryName="veprmt020" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1588222966" label="veprmt020">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="490938342" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="490938342" label="Configuration"/>
<File filePath="vedir/veprmt020.4gl"/> <File filePath="vedir/veprmt020.4gl"/>
</Application> </Application>
<Application binaryName="veprmtact" dependencies="-1093277845,-1026233879,-764824792" id="1945961956" label="veprmtact"> <Application binaryName="veprmtact" dependencies="-1093277845,-1026233879,-764824792,-1377937444" id="1945961956" label="veprmtact">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="372375523" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="372375523" label="Configuration"/>
<File filePath="vedir/veprmtact.4gl"/> <File filePath="vedir/veprmtact.4gl"/>
</Application> </Application>
<Application binaryName="veprrp049" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="1231029190" label="veprrp049"> <Application binaryName="veprrp049" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="1231029190" label="veprrp049">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1002401974" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1002401974" label="Configuration"/>
<File filePath="vedir/veprrp049.4gl"/> <File filePath="vedir/veprrp049.4gl"/>
</Application> </Application>
<Application binaryName="veprrp001" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="788445849" label="veprrp001"> <Application binaryName="veprrp001" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="788445849" label="veprrp001">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="579166574" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="579166574" label="Configuration"/>
<File filePath="vedir/veprrp001.4gl"/> <File filePath="vedir/veprrp001.4gl"/>
</Application> </Application>
<Application binaryName="veprrp001_1" dependencies="-1093277845,-1026233879,-764824792,-1423229125" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="-1198804791" label="veprrp001_1"> <Application binaryName="veprrp001_1" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" environment="dir:FGLSPOOL=$(ProjectDir)/spool" externalDependencies="libgre.42x" id="-1198804791" label="veprrp001_1">
<Configuration id="1537706415" label="Configuration"/> <Configuration id="1537706415" label="Configuration"/>
<File filePath="bin/veprrp001.4rp"/> <File filePath="bin/veprrp001.4rp"/>
<File compilerOptions="--build-rdd" filePath="vedir/veprrp001_1.4gl"/> <File compilerOptions="--build-rdd" filePath="vedir/veprrp001_1.4gl"/>
<File filePath="bin/veprrp001_1.4rp"/> <File filePath="bin/veprrp001_1.4rp"/>
</Application> </Application>
<Application binaryName="veprrp015" dependencies="-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="771111293" label="veprrp015"> <Application binaryName="veprrp015" dependencies="-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="771111293" label="veprrp015">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1186448062" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1186448062" label="Configuration"/>
<File filePath="vedir/veprrp015.4gl"/> <File filePath="vedir/veprrp015.4gl"/>
<File filePath="otrodir/cbclase.4gl"/> <File filePath="otrodir/cbclase.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</Application> </Application>
<Application binaryName="veprrp015_1" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="921881305" label="veprrp015_1"> <Application binaryName="veprrp015_1" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="921881305" label="veprrp015_1">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1498121477" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1498121477" label="Configuration"/>
<File filePath="vedir/veprrp015_1.4gl"/> <File filePath="vedir/veprrp015_1.4gl"/>
</Application> </Application>
<Application binaryName="veprrp058" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="740848017" label="veprrp058"> <Application binaryName="veprrp058" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="740848017" label="veprrp058">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1813875361" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1813875361" label="Configuration"/>
<File filePath="vedir/veprrp058.4gl"/> <File filePath="vedir/veprrp058.4gl"/>
</Application> </Application>
<Application binaryName="veprrp057" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="1199779221" label="veprrp057"> <Application binaryName="veprrp057" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="1199779221" label="veprrp057">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="923273555" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="923273555" label="Configuration"/>
<File filePath="vedir/veprrp057.4gl"/> <File filePath="vedir/veprrp057.4gl"/>
</Application> </Application>
<Application binaryName="veprrp059" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="1425550662" label="veprrp059"> <Application binaryName="veprrp059" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="1425550662" label="veprrp059">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="906673138" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="906673138" label="Configuration"/>
<File filePath="vedir/veprrp059.4gl"/> <File filePath="vedir/veprrp059.4gl"/>
</Application> </Application>
<Application binaryName="veprrp060" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="1698205712" label="veprrp060"> <Application binaryName="veprrp060" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="1698205712" label="veprrp060">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="836349756" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="836349756" label="Configuration"/>
<File filePath="vedir/veprrp060.4gl"/> <File filePath="vedir/veprrp060.4gl"/>
</Application> </Application>
<Application binaryName="veprrp050" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="965130327" label="veprrp050"> <Application binaryName="veprrp050" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="965130327" label="veprrp050">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="221952065" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="221952065" label="Configuration"/>
<File filePath="vedir/veprrp050.4gl"/> <File filePath="vedir/veprrp050.4gl"/>
</Application> </Application>
<Application binaryName="veprrp053" dependencies="-1026233879,-764824792,-1423229125" id="1461378326" label="veprrp053"> <Application binaryName="veprrp053" dependencies="-1026233879,-764824792,-1423229125,-1377937444" id="1461378326" label="veprrp053">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1387157236" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1387157236" label="Configuration"/>
<File filePath="vedir/veprrp053.4gl"/> <File filePath="vedir/veprrp053.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</Application> </Application>
<Application binaryName="veprrp054" dependencies="-1026233879,-764824792,-1423229125" id="1783906192" label="veprrp054"> <Application binaryName="veprrp054" dependencies="-1026233879,-764824792,-1423229125,-1377937444" id="1783906192" label="veprrp054">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="449667496" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="449667496" label="Configuration"/>
<File filePath="vedir/veprrp054.4gl"/> <File filePath="vedir/veprrp054.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</Application> </Application>
<Application binaryName="veprrp055" dependencies="-1026233879,-764824792,-1423229125" id="1292794946" label="veprrp055"> <Application binaryName="veprrp055" dependencies="-1026233879,-764824792,-1423229125,-1377937444" id="1292794946" label="veprrp055">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1560813650" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1560813650" label="Configuration"/>
<File filePath="vedir/veprrp055.4gl"/> <File filePath="vedir/veprrp055.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</Application> </Application>
<Application binaryName="veprrp048" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="1264363809" label="veprrp048"> <Application binaryName="veprrp048" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="1264363809" label="veprrp048">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1596145290" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1596145290" label="Configuration"/>
<File filePath="vedir/veprrp048.4gl"/> <File filePath="vedir/veprrp048.4gl"/>
</Application> </Application>
<Application binaryName="veprrp011" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="514325617" label="veprrp011"> <Application binaryName="veprrp011" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="514325617" label="veprrp011">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1564727545" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1564727545" label="Configuration"/>
<File filePath="vedir/veprrp011.4gl"/> <File filePath="vedir/veprrp011.4gl"/>
</Application> </Application>
<Application binaryName="veprrp061" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="847073737" label="veprrp061"> <Application binaryName="veprrp061" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="847073737" label="veprrp061">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="414852076" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="414852076" label="Configuration"/>
<File filePath="vedir/veprrp061.4gl"/> <File filePath="vedir/veprrp061.4gl"/>
</Application> </Application>
<Application binaryName="veprrp062" dependencies="-1093277845,-1026233879,-764824792,-1423229125" id="508780726" label="veprrp062"> <Application binaryName="veprrp062" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" id="508780726" label="veprrp062">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="1318548109" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="1318548109" label="Configuration"/>
<File filePath="vedir/veprrp062.4gl"/> <File filePath="vedir/veprrp062.4gl"/>
</Application> </Application>
<Application binaryName="veprcs001" dependencies="-1093277845,-1026233879,-764824792,-1423229125" externalDependencies="libgre.42x" id="608540973" label="veprcs001"> <Application binaryName="veprcs001" dependencies="-1093277845,-1026233879,-764824792,-1423229125,-1377937444" externalDependencies="libgre.42x" id="608540973" label="veprcs001">
<Configuration commandLineArguments="jsoto lmmjvsd2014" id="383033232" label="Configuration"/> <Configuration commandLineArguments="jsoto lmmjvsd2014" id="383033232" label="Configuration"/>
<File filePath="vedir/veprcs001.4gl"/> <File filePath="vedir/veprcs001.4gl"/>
<File filePath="vedir/impresion_factura.4gl"/> <File filePath="vedir/impresion_factura.4gl"/>
PROYECTO/vedir/impresion_factura.4gl
+5 -1
View File
@@ -58,6 +58,7 @@ FUNCTION impresion_fact(x,z)
unidad_med CHAR(3), unidad_med CHAR(3),
cantidad LIKE vetb00003.cantidad, cantidad LIKE vetb00003.cantidad,
precio LIKE vetb00003.precio, precio LIKE vetb00003.precio,
cantidad_2 DEC(12,2), -- igual que arr_disp de veprcs001 (si no, error -1260)
monto_fact DECIMAl(10,2) monto_fact DECIMAl(10,2)
END RECORD, END RECORD,
HANDLER om.SaxDocumentHandler, HANDLER om.SaxDocumentHandler,
@@ -67,7 +68,10 @@ FUNCTION impresion_fact(x,z)
START REPORT factura TO XML HANDLER HANDLER START REPORT factura TO XML HANDLER HANDLER
FOR idx = 1 TO z.getLength() FOR idx = 1 TO z.getLength()
OUTPUT TO REPORT factura(x.*,z[idx].*) -- el reporte no lleva cantidad_2: se pasan los campos uno a uno
OUTPUT TO REPORT factura(x.*,z[idx].cod_n,z[idx].cod_grupo,z[idx].cod_tipo,z[idx].cod_sec,
z[idx].descrip_esp,z[idx].unidad_med,z[idx].cantidad,z[idx].precio,
z[idx].monto_fact)
END FOR END FOR
FINISH REPORT factura FINISH REPORT factura
END FUNCTION END FUNCTION
PROYECTO/vedir/marmotech.sch
+6278
View File
File diff suppressed because it is too large Load Diff
PROYECTO/vedir/vefmmt002.per
+4
View File
@@ -13,6 +13,8 @@ Condicion de Pago [f0]
Descripcion [f001 ] Descripcion [f001 ]
Dias para Pagar [f02] Dias para Pagar [f02]
Defecto [df ] Defecto [df ]
Codigo DGII [fcod]
Titulo DGII [ftit ]
[a] [a]
@@ -35,6 +37,8 @@ f003 = vetb00012.us_crea, noentry;
f004 = vetb00012.fech_crea, noentry; f004 = vetb00012.fech_crea, noentry;
f005 = vetb00012.us_mod, noentry; f005 = vetb00012.us_mod, noentry;
f006 = vetb00012.fech_mod, noentry; f006 = vetb00012.fech_mod, noentry;
fcod = vetb00012.codigo_dgii,autonext;
ftit = vetb00012.titulo_dgii,upshift;
end end
INSTRUCTIONS INSTRUCTIONS
PROYECTO/vedir/vefmmt009.per
+2
View File
@@ -11,6 +11,7 @@ GRID
{ {
Codigo Ciudad [f9 ] Codigo Ciudad [f9 ]
Descripcion [f001 ] Descripcion [f001 ]
Municipio DGII [fmun ]
[a] [a]
@@ -31,6 +32,7 @@ f002 = vetb00016.us_crea, noentry;
f003 = vetb00016.fech_crea, noentry; f003 = vetb00016.fech_crea, noentry;
f004 = vetb00016.us_mod, noentry; f004 = vetb00016.us_mod, noentry;
f005 = vetb00016.fech_mod, noentry; f005 = vetb00016.fech_mod, noentry;
fmun = vetb00016.idmunicipio;
end end
INSTRUCTIONS INSTRUCTIONS
PROYECTO/vedir/veprmt009.4gl
+8 -1
View File
@@ -52,7 +52,14 @@ FUNCTION vepcad013()
LET int_flag = false LET int_flag = false
INPUT BY NAME ciudades.* INPUT BY NAME ciudades.*
BEFORE INPUT NEXT FIELD descripcion BEFORE INPUT
# id_ciudad es NOT NULL en el form: se propone aqui (antes se calculaba
# solo en AFTER INPUT y el OK se rechazaba con "field requires a value")
SELECT MAX(a.id_ciudad) INTO ciudades.id_ciudad
FROM vetb00016 a WHERE a.id_ciudad < 1000
LET ciudades.id_ciudad = NVL(ciudades.id_ciudad, 0) + 1
DISPLAY BY NAME ciudades.id_ciudad
NEXT FIELD descripcion
## Verifica que el codigo no exista en el catalogo de ciudades. Si existe, ## Verifica que el codigo no exista en el catalogo de ciudades. Si existe,
## entonces despliega los datos del registro existente. ## entonces despliega los datos del registro existente.
PROYECTO/vedir/veprmt038.4gl
+1 -1
View File
@@ -13,7 +13,7 @@ MAIN
CALL ARG_VAL(1) RETURNING usuarios CALL ARG_VAL(1) RETURNING usuarios
CALL ARG_VAL(2) RETURNING clave CALL ARG_VAL(2) RETURNING clave
CALL ARG_VAL(4) RETURNING impresor CALL ARG_VAL(4) RETURNING impresor
CONNECT to "marmotech" AS "IFMX" CONNECT to "marmotech" AS "IFMX" USER usuarios USING clave
CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave CONNECT TO "smarmotech" AS "MSSQL" USER usuarios USING clave
OPEN WINDOW vefmmt038 WITH FORM "vefmmt038" OPEN WINDOW vefmmt038 WITH FORM "vefmmt038"
PROYECTO/vedir/veprrp015_1.4gl
+21 -19
View File
@@ -128,7 +128,8 @@ DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCu
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API -- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
LET r_filename = salida LET r_filename = salida
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
LET r_output='SVG' # antes fijo 'SVG' (en web no se ve): se deja elegir PDF/Excel/pantalla como en veprrp015
CALL seleccionarSalida() RETURNING r_output
LET preview=1 LET preview=1
CALL fgl_report_selectDevice(r_output) -- changing default CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default CALL fgl_report_selectPreview(preview) -- changing default
@@ -137,7 +138,8 @@ DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCu
### Loop para igualar tipo de venta a la variable ventas.ventas ### Loop para igualar tipo de venta a la variable ventas.ventas
IF handler IS NOT NULL THEN -- report engine was configured ok IF handler IS NOT NULL THEN -- report engine was configured ok
START REPORT plan TO "f:\\master\\dummy" # antes iba a un archivo fijo del server viejo (f:\master\dummy, error -1322): va al motor de reportes
START REPORT plan TO XML HANDLER handler
FOREACH act2 INTO ventas.ventas,ventas.cod_n,ventas.cod_grupo,ventas.cod_tipo, FOREACH act2 INTO ventas.ventas,ventas.cod_n,ventas.cod_grupo,ventas.cod_tipo,
ventas.cod_sec,ventas.unidad_acum,ventas.valor_acum, ventas.cod_sec,ventas.unidad_acum,ventas.valor_acum,
ventas.descripcion_v,ventas.descrip_esp,ventas.descripcion_p, ventas.descripcion_v,ventas.descrip_esp,ventas.descripcion_p,
@@ -150,23 +152,23 @@ IF handler IS NOT NULL THEN -- report engine was configured ok
#DEVOLUCIONES #DEVOLUCIONES
LET ventas.valor_dev = 0 LET ventas.valor_dev = 0
LET ventas.cantidad_dev = 0 LET ventas.cantidad_dev = 0
SELECT SUM(a.cantidad_2),SUM(a.cantidad_2*b.precio) # num_cheque (texto) y fact_no (texto) se comparaban con columnas INT: SQL Server
INTO ventas.cantidad_dev,ventas.valor_dev # fallaba (-245) con valores no numericos. TRY_CONVERT devuelve NULL en vez de fallar.
FROM iptb00006 a,vetb00003 b,cctb0001 c SQL
WHERE a.cod_n = ventas.cod_n AND SELECT SUM(a.cantidad_2), SUM(a.cantidad_2 * b.precio)
a.cod_Grupo = ventas.cod_Grupo AND INTO $ventas.cantidad_dev, $ventas.valor_dev
a.cod_tipo = ventas.cod_tipo AND FROM iptb00006 a, vetb00003 b, cctb00001 c
a.cod_Sec = ventas.cod_Sec AND WHERE a.cod_n = $ventas.cod_n AND a.cod_grupo = $ventas.cod_grupo
a.cod_n = b.cod_n AND AND a.cod_tipo = $ventas.cod_tipo AND a.cod_sec = $ventas.cod_sec
a.cod_Grupo = b.cod_Grupo AND AND a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo
a.cod_tipo = b.cod_tipo AND AND a.cod_tipo = b.cod_tipo AND a.cod_sec = b.cod_sec
a.cod_Sec = b.cod_Sec AND AND c.fecha_orig BETWEEN $fecha_inicial AND $fecha_final
c.fecha_orig between fecha_inicial and fecha_final AND AND TRY_CONVERT(INT, a.fact_no) = b.factura
a.fact_no = b.factura AND AND c.banco = a.cod_mov
c.banco = a.cod_mov AND AND a.num_doc = TRY_CONVERT(INT, c.num_cheque)
a.num_doc = c.num_cheque AND AND c.tipo_doc = 'NC'
c.tipo_doc = 'NC' AND AND a.status_t IS NULL
a.status_t IS NULL END SQL
IF ventas.cantidad_dev IS NULL THEN IF ventas.cantidad_dev IS NULL THEN
LET ventas.cantidad_Dev = 0 LET ventas.cantidad_Dev = 0
END IF END IF
PROYECTO/vedir/veprrp050.4gl
+2 -1
View File
@@ -221,7 +221,8 @@ DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCu
-- configure report engine; the functions prefixed fgl that are called here are part of the GRW API -- configure report engine; the functions prefixed fgl that are called here are part of the GRW API
LET r_filename = salida LET r_filename = salida
IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file IF fgl_report_loadCurrentSettings(r_filename) THEN -- load the .4rp file
LET r_output='SVG' # antes fijo 'SVG' (en web no se ve): se deja elegir PDF/Excel/pantalla
CALL seleccionarSalida() RETURNING r_output
LET preview=1 LET preview=1
CALL fgl_report_selectDevice(r_output) -- changing default CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default CALL fgl_report_selectPreview(preview) -- changing default