Corregir ipprcs004/ipprcs004_1 (Consulta Existencias): crashes al probar botones migrados
- 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:
+4
-1
@@ -532,6 +532,8 @@
|
|||||||
<File filePath="ipdir/buscarequisicion.4gl"/>
|
<File filePath="ipdir/buscarequisicion.4gl"/>
|
||||||
<File compilerOptions="--build-rdd" filePath="ipdir/imprequisiciones.4gl"/>
|
<File compilerOptions="--build-rdd" filePath="ipdir/imprequisiciones.4gl"/>
|
||||||
<File filePath="otrodir/funciones_ip.4gl"/>
|
<File filePath="otrodir/funciones_ip.4gl"/>
|
||||||
|
<File filePath="ipdir/ipfmwd017.4fd"/>
|
||||||
|
<File filePath="vedir/PUNTO VENTAS VER2/otrodir/almacenes.4fd"/>
|
||||||
<File filePath="ipdir/estadosprocesos.4gl"/>
|
<File filePath="ipdir/estadosprocesos.4gl"/>
|
||||||
<File compilerOptions="--build-rdd" filePath="ipdir/ipautorizareq.4gl"/>
|
<File compilerOptions="--build-rdd" filePath="ipdir/ipautorizareq.4gl"/>
|
||||||
<File filePath="otrodir/codigoModificacion.4gl"/>
|
<File filePath="otrodir/codigoModificacion.4gl"/>
|
||||||
@@ -606,7 +608,7 @@
|
|||||||
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000014" label="Configuration"/>
|
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000014" label="Configuration"/>
|
||||||
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004.4gl"/>
|
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004.4gl"/>
|
||||||
</Application>
|
</Application>
|
||||||
<Application binaryName="ipprcs004_1" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000015" label="ipprcs004_1">
|
<Application binaryName="ipprcs004_1" dependencies="1763548104,-1026233879,-764824792,-837156229" externalDependencies="libgre.42x" id="-960000015" label="ipprcs004_1">
|
||||||
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000015" label="Configuration"/>
|
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000015" label="Configuration"/>
|
||||||
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004_1.4gl"/>
|
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004_1.4gl"/>
|
||||||
</Application>
|
</Application>
|
||||||
@@ -750,6 +752,7 @@
|
|||||||
<File filePath="PRDIR/prprgb000.4gl"/>
|
<File filePath="PRDIR/prprgb000.4gl"/>
|
||||||
<File filePath="PRDIR/transaccionesInventario.4gl"/>
|
<File filePath="PRDIR/transaccionesInventario.4gl"/>
|
||||||
<File filePath="otrodir/mercancia_transito.4gl"/>
|
<File filePath="otrodir/mercancia_transito.4gl"/>
|
||||||
|
<File filePath="codir/cofmfu009.4fd"/>
|
||||||
<File filePath="PRDIR/prBuscaRequisicion.4gl"/>
|
<File filePath="PRDIR/prBuscaRequisicion.4gl"/>
|
||||||
<File filePath="otrodir/existenciaalmacenes.4gl"/>
|
<File filePath="otrodir/existenciaalmacenes.4gl"/>
|
||||||
<File filePath="PRDIR/prprmt011c.4gl"/>
|
<File filePath="PRDIR/prprmt011c.4gl"/>
|
||||||
|
|||||||
@@ -373,7 +373,7 @@ FUNCTION busca_ordenes_reservadas(pcodn, pcodgrupo, pcodtipo, pcodsec)
|
|||||||
|
|
||||||
DECLARE busca_orden CURSOR FOR
|
DECLARE busca_orden CURSOR FOR
|
||||||
SELECT a.num_oc,
|
SELECT a.num_oc,
|
||||||
CONVERT(char(10), b.fecha_oc, 103),
|
b.fecha_oc,
|
||||||
c.nom1_emp || ' ' || c.apell1_emp,
|
c.nom1_emp || ' ' || c.apell1_emp,
|
||||||
sum(a.cantidad),
|
sum(a.cantidad),
|
||||||
'0'
|
'0'
|
||||||
@@ -389,7 +389,7 @@ FUNCTION busca_ordenes_reservadas(pcodn, pcodgrupo, pcodtipo, pcodsec)
|
|||||||
group by a.num_oc,b.fecha_oc,c.nom1_emp,c.apell1_emp
|
group by a.num_oc,b.fecha_oc,c.nom1_emp,c.apell1_emp
|
||||||
|
|
||||||
UNION SELECT a.num_oc,
|
UNION SELECT a.num_oc,
|
||||||
CONVERT(char(10), b.fecha_oc, 103),
|
b.fecha_oc,
|
||||||
c.nom1_emp || ' ' || c.apell1_emp,
|
c.nom1_emp || ' ' || c.apell1_emp,
|
||||||
sum(a.cantidad),
|
sum(a.cantidad),
|
||||||
'0'
|
'0'
|
||||||
|
|||||||
@@ -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.fecha <= fecha_transito) AND a.cod_mov IN (10) and
|
||||||
a.status_t IS NULL
|
a.status_t IS NULL
|
||||||
LET transito = cantidad_ordenada - cantidad_recibida
|
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
|
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.num_oc = b.num_oc) AND (b.fech_oc <= fecha_transito) AND
|
||||||
a.status_t IS NULL
|
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
|
FROM iptb00006 a
|
||||||
WHERE (a.cod_n = pcodn AND a.cod_grupo = pcodgrupo AND a.cod_tipo = pcodtipo AND a.cod_Sec = pcodsec) AND
|
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
|
(a.fecha <= fecha_transito) AND a.cod_mov IN (10) and
|
||||||
|
|||||||
Reference in New Issue
Block a user