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.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.*
@@ -176,8 +177,8 @@ FUNCTION VariacionPrecios()
END IF
INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2)
VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente, balancesCE.valor,balancesCE.valor2)
# INSERT INTO tmpcxccompara (tipo_cliente,sec_cliente,balance1,balance2)
# VALUES (balancesCE.tipo_cliente,balancesCE.sec_cliente, balancesCE.valor,balancesCE.valor2)
OUTPUT TO REPORT balancesCE_prod_rpt(balancesCE.*, datos.fecha_final,estados.*)
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
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 preview = 1
PROYECTO/ccdir/ccprrp027.4gl
+2 -1
View File
@@ -64,7 +64,8 @@ FUNCTION ccprrp027()
LET tipo_papel = 1
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 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
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?",
"yes","yes|no","question",0)
PROYECTO/mbsERP.4pw
+50 -48
View File
@@ -556,7 +556,7 @@
<Configuration id="-1802529863" label="Configuration"/>
<File filePath="ccdir/ccprmt009.4gl"/>
</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"/>
<File compilerOptions="--build-rdd" filePath="ccdir/ccprmt010.4gl"/>
<File filePath="bin/ccprmt010.4rp"/>
@@ -565,10 +565,9 @@
<Configuration id="316591444" label="Configuration"/>
<File filePath="ccdir/ccprmt016.4gl"/>
</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"/>
<File filePath="ccdir/ccprmt031.4gl"/>
<File filePath="irdir/irbuscaprod.4gl"/>
</Application>
<Application binaryName="ccprcs001" dependencies="-764824792,-1766170440,-1026233879,579381494" id="-743876402" label="ccprcs001">
<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">
<Configuration id="-1484413397" label="Configuration"/>
<File filePath="irdir/irprmt020.4gl"/>
<File filePath="irdir/irbuscaprod.4gl"/>
</Application>
<Application binaryName="irprmt021" dependencies="-1026233879,-2079122474,-764824792,18908927" externalDependencies="libgre.42x" id="-1356987098" label="irprmt021">
<Configuration id="-1650667887" label="Configuration"/>
@@ -1414,6 +1412,7 @@
<File filePath="irdir/irfmrp009.4fd"/>
</Library>
<Library binaryName="FUNCIONES_IR" dependencies="-1026233879" id="-2079122474" label="FUNCIONES_IR">
<File filePath="irdir/irbuscaprod.4gl"/>
<File filePath="irdir/irprgb000.4gl"/>
<File filePath="irdir/imprequisicion.4gl"/>
<File filePath="ipdir/estadosprocesos_1.4gl"/>
@@ -1472,6 +1471,15 @@
<File filePath="vedir/vefmrp015.4fd"/>
<File filePath="vedir/vefmrp048.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/vefmrp062.per"/>
<File filePath="vedir/vefmwd001.per"/>
@@ -1479,7 +1487,6 @@
<File filePath="vedir/vefmwd007.per"/>
<File filePath="vedir/vefmwd013.4fd"/>
<File filePath="vedir/vefmwd014.per"/>
<File filePath="vedir/vefmwd017.per"/>
<File filePath="vedir/vefmwd018.per"/>
<File filePath="vedir/vefmwd019.per"/>
<File filePath="vedir/vefmwd020.4fd"/>
@@ -1496,23 +1503,23 @@
<File filePath="vedir/vefumt001.4gl"/>
<File filePath="vedir/veprgb000.4gl"/>
</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"/>
<File filePath="vedir/veprmt004.4gl"/>
</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"/>
<File filePath="vedir/veprmt101.4gl"/>
</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"/>
<File filePath="vedir/veprmt102.4gl"/>
</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"/>
<File filePath="vedir/veprmt025.4gl"/>
</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"/>
<File filePath="vedir/veprmt001.4gl"/>
<File filePath="otrodir/buscarnc.4gl"/>
@@ -1525,150 +1532,145 @@
<File filePath="vedir/veprfu002.4gl"/>
<File filePath="vedir/veinformacion.4gl"/>
</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"/>
<File filePath="vedir/veprmt024.4gl"/>
</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"/>
<File filePath="vedir/veprmt113.4gl"/>
<File filePath="otrodir/email_factura.4gl"/>
</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"/>
<File filePath="vedir/veprmt031.4gl"/>
</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"/>
<File filePath="vedir/veprmt049.4gl"/>
<File filePath="otrodir/apiclient.4gl"/>
<File filePath="otrodir/precios.4gl"/>
<File filePath="otrodir/repite_registro.4gl"/>
<File filePath="vedir/vereservas_cotizacion.4gl"/>
<File filePath="bin/veprmt049.4rp"/>
</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"/>
<File filePath="vedir/veprmt040.4gl"/>
</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"/>
<File filePath="vedir/veprmt032.4gl"/>
</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"/>
<File filePath="vedir/veprmt038.4gl"/>
</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"/>
<File filePath="vedir/veprmt023.4gl"/>
</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"/>
<File filePath="vedir/veprmt013.4gl"/>
</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"/>
<File filePath="vedir/veprmt009.4gl"/>
</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"/>
<File filePath="vedir/veprmt002.4gl"/>
</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"/>
<File filePath="vedir/veprmt007.4gl"/>
<File filePath="vedir/vecarnet.4gl"/>
<File filePath="otrodir/tiporegistro.4gl"/>
</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"/>
<File filePath="vedir/veprmt005.4gl"/>
</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"/>
<File filePath="vedir/veprmt020.4gl"/>
</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"/>
<File filePath="vedir/veprmtact.4gl"/>
</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"/>
<File filePath="vedir/veprrp049.4gl"/>
</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"/>
<File filePath="vedir/veprrp001.4gl"/>
</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"/>
<File filePath="bin/veprrp001.4rp"/>
<File compilerOptions="--build-rdd" filePath="vedir/veprrp001_1.4gl"/>
<File filePath="bin/veprrp001_1.4rp"/>
</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"/>
<File filePath="vedir/veprrp015.4gl"/>
<File filePath="otrodir/cbclase.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</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"/>
<File filePath="vedir/veprrp015_1.4gl"/>
</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"/>
<File filePath="vedir/veprrp058.4gl"/>
</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"/>
<File filePath="vedir/veprrp057.4gl"/>
</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"/>
<File filePath="vedir/veprrp059.4gl"/>
</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"/>
<File filePath="vedir/veprrp060.4gl"/>
</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"/>
<File filePath="vedir/veprrp050.4gl"/>
</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"/>
<File filePath="vedir/veprrp053.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</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"/>
<File filePath="vedir/veprrp054.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</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"/>
<File filePath="vedir/veprrp055.4gl"/>
<File filePath="otrodir/vendedores.4gl"/>
</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"/>
<File filePath="vedir/veprrp048.4gl"/>
</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"/>
<File filePath="vedir/veprrp011.4gl"/>
</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"/>
<File filePath="vedir/veprrp061.4gl"/>
</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"/>
<File filePath="vedir/veprrp062.4gl"/>
</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"/>
<File filePath="vedir/veprcs001.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),
cantidad LIKE vetb00003.cantidad,
precio LIKE vetb00003.precio,
cantidad_2 DEC(12,2), -- igual que arr_disp de veprcs001 (si no, error -1260)
monto_fact DECIMAl(10,2)
END RECORD,
HANDLER om.SaxDocumentHandler,
@@ -67,7 +68,10 @@ FUNCTION impresion_fact(x,z)
START REPORT factura TO XML HANDLER HANDLER
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
FINISH REPORT factura
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 ]
Dias para Pagar [f02]
Defecto [df ]
Codigo DGII [fcod]
Titulo DGII [ftit ]
[a]
@@ -35,6 +37,8 @@ f003 = vetb00012.us_crea, noentry;
f004 = vetb00012.fech_crea, noentry;
f005 = vetb00012.us_mod, noentry;
f006 = vetb00012.fech_mod, noentry;
fcod = vetb00012.codigo_dgii,autonext;
ftit = vetb00012.titulo_dgii,upshift;
end
INSTRUCTIONS
PROYECTO/vedir/vefmmt009.per
+2
View File
@@ -11,6 +11,7 @@ GRID
{
Codigo Ciudad [f9 ]
Descripcion [f001 ]
Municipio DGII [fmun ]
[a]
@@ -31,6 +32,7 @@ f002 = vetb00016.us_crea, noentry;
f003 = vetb00016.fech_crea, noentry;
f004 = vetb00016.us_mod, noentry;
f005 = vetb00016.fech_mod, noentry;
fmun = vetb00016.idmunicipio;
end
INSTRUCTIONS
PROYECTO/vedir/veprmt009.4gl
+8 -1
View File
@@ -52,7 +52,14 @@ FUNCTION vepcad013()
LET int_flag = false
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,
## 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(2) RETURNING clave
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
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
LET r_filename = salida
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
CALL fgl_report_selectDevice(r_output) -- 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
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,
ventas.cod_sec,ventas.unidad_acum,ventas.valor_acum,
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
LET ventas.valor_dev = 0
LET ventas.cantidad_dev = 0
SELECT SUM(a.cantidad_2),SUM(a.cantidad_2*b.precio)
INTO ventas.cantidad_dev,ventas.valor_dev
FROM iptb00006 a,vetb00003 b,cctb0001 c
WHERE a.cod_n = ventas.cod_n AND
a.cod_Grupo = ventas.cod_Grupo AND
a.cod_tipo = ventas.cod_tipo AND
a.cod_Sec = ventas.cod_Sec AND
a.cod_n = b.cod_n AND
a.cod_Grupo = b.cod_Grupo AND
a.cod_tipo = b.cod_tipo AND
a.cod_Sec = b.cod_Sec AND
c.fecha_orig between fecha_inicial and fecha_final AND
a.fact_no = b.factura AND
c.banco = a.cod_mov AND
a.num_doc = c.num_cheque AND
c.tipo_doc = 'NC' AND
a.status_t IS NULL
# num_cheque (texto) y fact_no (texto) se comparaban con columnas INT: SQL Server
# fallaba (-245) con valores no numericos. TRY_CONVERT devuelve NULL en vez de fallar.
SQL
SELECT SUM(a.cantidad_2), SUM(a.cantidad_2 * b.precio)
INTO $ventas.cantidad_dev, $ventas.valor_dev
FROM iptb00006 a, vetb00003 b, cctb00001 c
WHERE a.cod_n = $ventas.cod_n AND a.cod_grupo = $ventas.cod_grupo
AND a.cod_tipo = $ventas.cod_tipo AND a.cod_sec = $ventas.cod_sec
AND a.cod_n = b.cod_n AND a.cod_grupo = b.cod_grupo
AND a.cod_tipo = b.cod_tipo AND a.cod_sec = b.cod_sec
AND c.fecha_orig BETWEEN $fecha_inicial AND $fecha_final
AND TRY_CONVERT(INT, a.fact_no) = b.factura
AND c.banco = a.cod_mov
AND a.num_doc = TRY_CONVERT(INT, c.num_cheque)
AND c.tipo_doc = 'NC'
AND a.status_t IS NULL
END SQL
IF ventas.cantidad_dev IS NULL THEN
LET ventas.cantidad_Dev = 0
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
LET r_filename = salida
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
CALL fgl_report_selectDevice(r_output) -- changing default
CALL fgl_report_selectPreview(preview) -- changing default