Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

This commit is contained in:
2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
+21
View File
@@ -0,0 +1,21 @@
{
FUNCION: ipControlOrden
FECHA: Junio 05, 2025
DESARROLLADO: Ing. Juan Soto
}
FUNCTION controlOrden(pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cantidad)
DEFINE pcodn,pcodgrupo,pcodtipo,pcodsec,orden,requisicion,cod_msg INT,
cantidadConduce,cantidad DEC(12,4)
#CONTROL REQUISICION
SELECT SUM(a.cantidad) INTO cantidadConduce
FROM cctb00026 a
WHERE a.cod_n = pcodn AND
a.cod_grupo = pcodgrupo AND
a.cod_tipo = pcodtipo AND
a.cod_sec = pcodsec AND
a.num_req = requisicion
END FUNCTION