jpegueroandClaude Sonnet 5
b6085d4140
Instruccion de Johnny: todos los directorios de fuentes de inventario deben migrarse de la carpeta temporal PROYECTOS a la carpeta real PROYECTO, ya que PROYECTOS sera eliminada. Se elimino tambien un archivo suelto sin relacion llamado "ipdir" que existia en PROYECTO (del commit inicial) y bloqueaba el nombre de la carpeta. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
21 lines
647 B
Plaintext
21 lines
647 B
Plaintext
{
|
|
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 |