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

Corregir ipprcs042 (Hoja Vida Producto): form no registrado y crash de fecha

Browse Source 
- Registrar ipfmcs042.4fd en el proyecto, no estaba agregado a mbsERP.4pw
  y el runtime daba "Form file not found" al abrir el programa.
- Quitar CONVERT(CHAR(10),b.fech_oc,103) en la busqueda de ordenes de
  compra a proveedores, causaba "Invalid month in date" (-1205) igual
  que en mercancia_transito.4gl/funciones_ip.4gl.

Verificado con producto 1-119-2-56 (272 ordenes de compra 2008-2026):
grilla de proveedores, inventarios y precios cargan correctamente.

Nota aparte (sin corregir): los campos "Almacen" y "Rank" del formulario
existen mas nunca se usan en el codigo, no filtran nada.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-09-21 15:15:37 -04:00
co-authored by Claude Sonnet 5
parent 5f1c3b6e3b
commit 1647848fec
2 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/ipdir/ipprcs042.4gl
+1 -1
View File
@@ -153,7 +153,7 @@ GLOBALS
SELECT CAST(a.cod_sp AS CHAR(2))+' '+ SELECT CAST(a.cod_sp AS CHAR(2))+' '+
CAST(a.cod_sp_Sec AS CHAR(8))+' '+a.nom_sp,c.nom_pais,b.num_oc, CAST(a.cod_sp_Sec AS CHAR(8))+' '+a.nom_sp,c.nom_pais,b.num_oc,
CONVERT(CHAR(10),b.fech_oc,103),f.descrip_mon,d.precio,' ', b.fech_oc,f.descrip_mon,d.precio,' ',
d.cantidad d.cantidad
FROM cotb00001 a,cotb00014 b,cotb00031 f,cotb00015 d, OUTER cotb00018 c FROM cotb00001 a,cotb00014 b,cotb00031 f,cotb00015 d, OUTER cotb00018 c
WHERE a.cod_sp = b.cod_sp AND WHERE a.cod_sp = b.cod_sp AND
PROYECTO/mbsERP.4pw
+1
View File
@@ -615,6 +615,7 @@
<Application binaryName="ipprcs042" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000016" label="ipprcs042"> <Application binaryName="ipprcs042" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000016" label="ipprcs042">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000016" label="Configuration"/> <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000016" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs042.4gl"/> <File compilerOptions="--build-rdd" filePath="ipdir/ipprcs042.4gl"/>
<File filePath="ipdir/ipfmcs042.4fd"/>
</Application> </Application>
<Application binaryName="ipprrp002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000017" label="ipprrp002"> <Application binaryName="ipprrp002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000017" label="ipprrp002">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000017" label="Configuration"/> <Configuration commandLineArguments="jpeguero Peguero2023" id="-961000017" label="Configuration"/>