diff --git a/PROYECTO/mbsERP.4pw b/PROYECTO/mbsERP.4pw index 8599ca3..3a97baa 100644 --- a/PROYECTO/mbsERP.4pw +++ b/PROYECTO/mbsERP.4pw @@ -532,6 +532,8 @@ + + @@ -606,7 +608,7 @@ - + @@ -750,6 +752,7 @@ + diff --git a/PROYECTO/otrodir/funciones_ip.4gl b/PROYECTO/otrodir/funciones_ip.4gl index 40eb353..9ae362d 100644 --- a/PROYECTO/otrodir/funciones_ip.4gl +++ b/PROYECTO/otrodir/funciones_ip.4gl @@ -373,7 +373,7 @@ FUNCTION busca_ordenes_reservadas(pcodn, pcodgrupo, pcodtipo, pcodsec) DECLARE busca_orden CURSOR FOR SELECT a.num_oc, - CONVERT(char(10), b.fecha_oc, 103), + b.fecha_oc, c.nom1_emp || ' ' || c.apell1_emp, sum(a.cantidad), '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 UNION SELECT a.num_oc, - CONVERT(char(10), b.fecha_oc, 103), + b.fecha_oc, c.nom1_emp || ' ' || c.apell1_emp, sum(a.cantidad), '0' diff --git a/PROYECTO/otrodir/mercancia_transito.4gl b/PROYECTO/otrodir/mercancia_transito.4gl index 0cdbbdf..c1fe9a6 100644 --- a/PROYECTO/otrodir/mercancia_transito.4gl +++ b/PROYECTO/otrodir/mercancia_transito.4gl @@ -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