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

Compare commits

base: jsoto/MBS:66a57b4b3c864116d9590a3bb6093b7fe9cf1767
Branches Tags
jsoto/MBS:main
...
compare: jsoto/MBS:c1719d4b6e37e1d9b6c30a7fded78fa94ee73a07
Branches Tags
jsoto/MBS:main
2 Commits
66a57b4b3c ... c1719d4b6e
Author SHA1 Message Date
Abel LópezandClaude Sonnet 5 c1719d4b6e Registra noprcs006 (Consulta Balance Por Empleado) 
Se agrega noprcs006 al proyecto usando nofmcs006.4fd, mas
FUNCIONESREPORT (seleccionarsalida.4gl) y externalDependencies
libgre.42x, requeridos para las funciones del motor de reportes
(fgl_report_loadCurrentSettings, etc) que usa la opcion Imprimir.

Probada consulta inicial, Ver (balance acumulado por movimiento) e
Imprimir (vista previa de reporte), verificado contra BD sobre
empleado 110, cod_mov=12 (PRESTAMO COOPMAR).

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-26 10:36:47 -04:00
Abel LópezandClaude Sonnet 5 c296da0151 Registra noprcs004 (Consulta Acumulado por Empleado) 
Se agrega noprcs004 al proyecto usando nofmcs004.4fd. Se agrega
addir/adfunciones.4gl al Application ya que el programa llama a
calcula_salarios() definida ahi (no en noprrp037.4gl, que tiene una
funcion del mismo nombre pero con firma incompatible/uso de
variables de otro programa).

Se corrige conversion CONVERT(CHAR,fech_efec,103) hacia variable DATE
en la consulta principal, mismo patron de error -1205 "Invalid month
in date" ya visto en otros programas.

Probada consulta principal (datos del empleado, fecha de entrada,
salario promedio diario) y Ver (acumulado por movimiento), verificado
contra BD sobre empleado 110.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
 2026-09-26 09:45:52 -04:00
2 changed files with 13 additions and 1 deletions
Expand all files Collapse all files
PROYECTO/mbsERP.4pw
+12
View File
@@ -484,6 +484,8 @@
<File filePath="nodir/nofmmt024.per"/>
<File filePath="nodir/nofmmt025.4fd"/>
<File filePath="nodir/nofmcs002.per"/>
<File filePath="nodir/nofmcs004.4fd"/>
<File filePath="nodir/nofmcs006.4fd"/>
</Library>
<Library binaryName="FUNCIONES_NO" id="-306412216" label="FUNCIONES_NO">
<File filePath="nodir/noprgb000.4gl"/>
@@ -542,6 +544,16 @@
<Configuration commandLineArguments="alopez Lopez2023" id="-700000070" label="Configuration"/>
<File filePath="nodir/noprcs002.4gl"/>
</Application>
<Application binaryName="noprcs004" dependencies="-1026233879,-764824792,-306412216,-335228674" id="-700000071" label="noprcs004">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000072" label="Configuration"/>
<File filePath="nodir/noprcs004.4gl"/>
<File filePath="addir/adfunciones.4gl"/>
</Application>
<Application binaryName="noprcs006" dependencies="-1026233879,-764824792,-306412216,-335228674,-1423229125" externalDependencies="libgre.42x" id="-700000073" label="noprcs006">
<Configuration commandLineArguments="alopez Lopez2023" id="-700000074" label="Configuration"/>
<File filePath="nodir/noprcs006.4gl"/>
<File filePath="bin/noprcs006.4rp"/>
</Application>
</Group>
<Group id="1667448785" label="PRODUCTOS TERMINADOS">
<Library binaryName="FORMULARIOS_IP" dependencies="-1026233879" id="-1826025351" label="FORMULARIOS_IP">
PROYECTO/nodir/noprcs004.4gl
+1 -1
View File
@@ -97,7 +97,7 @@ FUNCTION consulta4()
LET selec =
"SELECT DISTINCT a.tipo_emp,a.num_emp,a.departamento,a.nivel_emp,a.cod_puesto, ",
" b.nom1_emp,b.apell1_emp,c.nom_dpto,CONVERT(CHAR(10),b.fech_efec,103) ",
" b.nom1_emp,b.apell1_emp,c.nom_dpto,b.fech_efec ",
"FROM notb00008 a,adtb00003 b,adtb00001 c ",
"WHERE a.num_emp = b.num_emp ",
"AND a.departamento = c.departamento ",