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

Corregir ipprcs004/ipprcs004_1 (Consulta Existencias): crashes al probar botones migrados

Browse Source 
- mercancia_transito.4gl y funciones_ip.4gl: quitar CONVERT(...,103) al
  traer fechas de SQL Server, causaba "Invalid month in date" (-1205) en
  ambiente de pruebas por ambiguedad de formato dd/mm/yyyy vs mm/dd/yyyy.
- ipprcs004_1: agregar dependencia faltante FUNCIONES_PR (no linkeaba,
  llamaba mercancia_transito/fechas_llegadas sin tener el modulo).
- Registrar en el proyecto tres formularios que existian en el repo pero
  nunca se agregaron a mbsERP.4pw (ipfmwd017.4fd, almacenes.4fd,
  cofmfu009.4fd), causaban "Form file not found" en los botones
  Ordenes/Almacenes/Fecha Llegada.

Verificado botón por botón contra produccion (Genero 3.20, .40.8) con el
mismo codigo de producto: Foto, Ordenes, Reservados, Ubicacion, Almacenes
y Reporte (PDF/pantalla/Excel) dan resultados consistentes.

Pendiente aparte: el patron CONVERT(...,103) aparece en ~132 archivos del
proyecto, riesgo sistemico a evaluar por separado.

Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
jpeguero
2026-09-21 12:56:39 -04:00
co-authored by Claude Sonnet 5
parent 64f5e612d9
commit 5f1c3b6e3b
3 changed files with 8 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files
PROYECTO/otrodir/mercancia_transito.4gl
+2 -2
View File
@@ -20,12 +20,12 @@ FUNCTION mercancia_transito(pcodn,pcodgrupo,pcodtipo,pcodsec,fecha_transito,cod_
(a.fecha <= fecha_transito) AND a.cod_mov IN (10) and
a.status_t IS NULL
LET transito = cantidad_ordenada - cantidad_recibida
SELECT CONVERT(CHAR(10),MAX(b.fech_oc),103) INTO fecha_ordenada FROM cotb00014 b,cotb00015 a
SELECT MAX(b.fech_oc) INTO fecha_ordenada FROM cotb00014 b,cotb00015 a
WHERE (a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND a.cod_tipo = pcodtipo AND a.cod_Sec = pcodsec) AND
(a.num_oc = b.num_oc) AND (b.fech_oc <= fecha_transito) AND
a.status_t IS NULL
SELECT CONVERT(CHAR(10),MAX(a.fecha),103) INTO fecha_recibida
SELECT MAX(a.fecha) INTO fecha_recibida
FROM iptb00006 a
WHERE (a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND a.cod_tipo = pcodtipo AND a.cod_Sec = pcodsec) AND
(a.fecha <= fecha_transito) AND a.cod_mov IN (10) and