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

Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs

Browse Source
This commit is contained in:
jpeguero
2026-09-21 17:03:01 -04:00
parent e33dad06b8 12bb4e837b
commit 7bda7659a6
2 changed files with 24 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/mbsERP.4pw
+10
View File
@@ -476,6 +476,8 @@
<File filePath="nodir/nofmmt008.4fd"/>
<File filePath="nodir/nofmmt108.per"/>
<File filePath="nodir/nofmmt208.per"/>
<File filePath="nodir/nofmmt011.4fd"/>
<File filePath="nodir/nofmmt016.per"/>
</Library>
<Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
<File filePath="nodir/noprgb000.4gl"/>
@@ -502,6 +504,14 @@
<Configuration commandLineArguments="alopez Lopez2023" id="-700000054" label="Configuration"/>
<File filePath="nodir/noprmt008.4gl"/>
</Application>
<Application binaryName="noprmt011" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000055" label="noprmt011">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000056" label="Configuration"/>
<File filePath="nodir/noprmt011.4gl"/>
</Application>
<Application binaryName="noprmt016" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000057" label="noprmt016">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000058" label="Configuration"/>
<File filePath="nodir/noprmt016.4gl"/>
</Application>
</Group>
<Group id="1667448785" label="PRODUCTOS TERMINADOS">
<Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
PROYECTO/nodir/noprmt011.4gl
+12 -2
View File
@@ -238,6 +238,7 @@ GOTO entrada
END FUNCTION
FUNCTION nopcmf011()
DEFINE cnt_activos INTEGER
## Aqui se prepara para la captura del criterio de seleccion
LET monto2 = 0
DISPLAY BY NAME monto2
@@ -255,7 +256,7 @@ FUNCTION nopcmf011()
LET SELEC =
"SELECT a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto,",
"num_doc,a.cod_mov,CONVERT(CHAR(10),a.fecha,103),a.monto,a.porciento,a.status_t,a.us_crea,",
"num_doc,a.cod_mov,a.fecha,a.monto,a.porciento,a.status_t,a.us_crea,",
" a.fech_crea,a.us_mod,a.fech_mod FROM notb00011 a WHERE a.status_t is null and ",
criterio clipped," ORDER BY a.cod_mov,a.num_emp,a.fecha"
@@ -449,7 +450,16 @@ END INPUT
notb00008.cod_mov = presta.cod_mov AND
notb00008.clase_mov = 'F'
DELETE FROM notb00003 WHERE cod_mov = presta.cod_mov AND num_emp = presta.num_emp
-- Solo se elimina la cuota compartida si no quedan otros
-- documentos activos del mismo empleado+movimiento; de lo
-- contrario esos otros documentos se quedarian sin cuota.
SELECT COUNT(*) INTO cnt_activos FROM notb00011
WHERE num_emp = presta.num_emp AND cod_mov = presta.cod_mov
AND status_t IS NULL
IF cnt_activos = 0 THEN
DELETE FROM notb00003 WHERE cod_mov = presta.cod_mov AND num_emp = presta.num_emp
END IF
COMMIT WORK
LET numero_msg = 39