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>
14 lines
349 B
Plaintext
14 lines
349 B
Plaintext
FUNCTION verificaRequisicion(pnum_req)
|
|
DEFINE pnum_req INT,
|
|
estado_req VARCHAR(100)
|
|
|
|
SELECT ISNULL(RTRIM(a.estado),'NO AUTORIZADA') INTO estado_req FROM cctb00025 a
|
|
WHERE a.num_req=pnum_req AND a.status_t IS NULL
|
|
|
|
IF estado_req = 'NO AUTORIZADA' THEN
|
|
RETURN FALSE
|
|
ELSE
|
|
RETURN TRUE
|
|
END IF
|
|
|
|
END FUNCTION |