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

Merge branch 'main' of https://git.fulldetord.com/jsoto/mbs

Browse Source
This commit is contained in:
Abel López
2026-09-21 16:56:47 -04:00
parent fc49b30714 1647848fec
commit 12bb4e837b
4 changed files with 10 additions and 6 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))+' '+
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
PROYECTO/mbsERP.4pw
+5 -1
View File
@@ -542,6 +542,8 @@
<File filePath="ipdir/buscarequisicion.4gl"/>
<File compilerOptions="--build-rdd" filePath="ipdir/imprequisiciones.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 compilerOptions="--build-rdd" filePath="ipdir/ipautorizareq.4gl"/>
<File filePath="otrodir/codigoModificacion.4gl"/>
@@ -616,13 +618,14 @@
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000014" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004.4gl"/>
</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"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs004_1.4gl"/>
</Application>
<Application binaryName="ipprcs042" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000016" label="ipprcs042">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000016" label="Configuration"/>
<File compilerOptions="--build-rdd" filePath="ipdir/ipprcs042.4gl"/>
<File filePath="ipdir/ipfmcs042.4fd"/>
</Application>
<Application binaryName="ipprrp002" dependencies="1763548104,-1026233879,-764824792" externalDependencies="libgre.42x" id="-960000017" label="ipprrp002">
<Configuration commandLineArguments="jpeguero Peguero2023" id="-961000017" label="Configuration"/>
@@ -760,6 +763,7 @@
<File filePath="PRDIR/prprgb000.4gl"/>
<File filePath="PRDIR/transaccionesInventario.4gl"/>
<File filePath="otrodir/mercancia_transito.4gl"/>
<File filePath="codir/cofmfu009.4fd"/>
<File filePath="PRDIR/prBuscaRequisicion.4gl"/>
<File filePath="otrodir/existenciaalmacenes.4gl"/>
<File filePath="PRDIR/prprmt011c.4gl"/>
PROYECTO/otrodir/funciones_ip.4gl
+2 -2
View File
@@ -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'
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