Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -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
|
||||
Reference in New Issue
Block a user