From 1647848fec1032a6c90c7f76df464db2a2df1721 Mon Sep 17 00:00:00 2001 From: Jeilyn Peguero Date: Mon, 21 Sep 2026 15:15:37 -0400 Subject: [PATCH] Corregir ipprcs042 (Hoja Vida Producto): form no registrado y crash de fecha - 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 --- PROYECTO/ipdir/ipprcs042.4gl | 2 +- PROYECTO/mbsERP.4pw | 1 + 2 files changed, 2 insertions(+), 1 deletion(-) diff --git a/PROYECTO/ipdir/ipprcs042.4gl b/PROYECTO/ipdir/ipprcs042.4gl index 0746bdd..30cb5f6 100644 --- a/PROYECTO/ipdir/ipprcs042.4gl +++ b/PROYECTO/ipdir/ipprcs042.4gl @@ -153,7 +153,7 @@ GLOBALS 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, - CONVERT(CHAR(10),b.fech_oc,103),f.descrip_mon,d.precio,' ', + b.fech_oc,f.descrip_mon,d.precio,' ', d.cantidad FROM cotb00001 a,cotb00014 b,cotb00031 f,cotb00015 d, OUTER cotb00018 c WHERE a.cod_sp = b.cod_sp AND diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 3a97baa..60910ca 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -615,6 +615,7 @@ +