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>
30 lines
812 B
Plaintext
30 lines
812 B
Plaintext
FUNCTION actualizareqtrx(pnumdoc)
|
|
DEFINE pnumdoc INT,
|
|
cantidad_trx,cantidad_req_trx DEC(12,5),
|
|
cerrar BOOLEAN
|
|
|
|
|
|
#SUMA LA CANTIDAD EN LA TABLA DE TRANSACCIONES INVENTARIOS
|
|
|
|
SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_trx FROM iptb00006 a
|
|
WHERE a.numero_Doc = pnumdoc AND a.status_t IS NULL
|
|
|
|
IF cantidad_trx < 0 THEN
|
|
LET cantidad_trx = cantidad_trx * -1
|
|
END IF
|
|
#SUMA LA CANTIDAD EN LAS REQUISICIONES
|
|
|
|
SELECT ISNULL(SUM(a.cantidad_2),0) INTO cantidad_req_trx FROM iptb00058 a
|
|
WHERE a.numero_Doc = pnumdoc
|
|
|
|
DISPLAY "cantidades ",cantidad_trx," ",cantidad_req_trx
|
|
IF cantidad_trx >= cantidad_req_trx THEN
|
|
LET cerrar = TRUE
|
|
ELSE
|
|
LET cerrar = FALSE
|
|
END IF
|
|
|
|
RETURN cerrar
|
|
|
|
|
|
END FUNCTION |