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>
91 lines
2.9 KiB
Plaintext
91 lines
2.9 KiB
Plaintext
GLOBALS "ipprgb000.4gl"
|
|
DEFINE
|
|
porden INTEGER,
|
|
acod_n SMALLINT,
|
|
acod_grupo SMALLINT,
|
|
acod_tipo SMALLINT,
|
|
acod_sec SMALLINT,
|
|
pdescrip_esp2 CHAR
|
|
|
|
|
|
MAIN
|
|
DEFER INTERRUPT
|
|
SELECT * INTO p_companias.* FROM companias
|
|
CALL ipprmt074()
|
|
END MAIN
|
|
|
|
FUNCTION ipprmt074()
|
|
OPEN WINDOW actorden AT 8, 4 WITH FORM "actorden"
|
|
ATTRIBUTE (BORDER)
|
|
INPUT BY NAME p_iptb01.cod_n,p_iptb01.cod_grupo,p_iptb01.cod_tipo,
|
|
p_iptb01.cod_sec,porden,acod_n,acod_grupo,acod_tipo,acod_Sec
|
|
|
|
|
|
AFTER FIELD porden
|
|
SELECT UNIQUE a.num_oc FROM prtb00013 a
|
|
WHERE a.num_oc = porden and
|
|
a.cod_n = p_iptb01.cod_n AND
|
|
a.cod_grupo = p_iptb01.cod_grupo AND
|
|
a.cod_tipo = p_iptb01.cod_tipo AND
|
|
a.cod_sec = p_iptb01.cod_sec
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD porden
|
|
END IF
|
|
AFTER FIELD cod_sec
|
|
SELECT a.descrip_esp INTO p_iptb02.descrip_esp FROM iptb00002 a
|
|
WHERE a.cod_n = p_iptb01.cod_n AND
|
|
a.cod_grupo = p_iptb01.cod_grupo AND
|
|
a.cod_tipo = p_iptb01.cod_tipo AND
|
|
a.cod_sec = p_iptb01.cod_sec AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD COD_N
|
|
END IF
|
|
DISPLAY BY NAME p_iptb02.descrip_esp
|
|
AFTER FIELD acod_sec
|
|
SELECT a.descrip_esp INTO pdescrip_esp2 FROM iptb00002 a
|
|
WHERE a.cod_n = acod_n AND
|
|
a.cod_grupo = acod_grupo AND
|
|
a.cod_tipo = acod_tipo AND
|
|
a.cod_sec = acod_sec AND
|
|
a.status_t IS NULL
|
|
|
|
IF STATUS = NOTFOUND THEN
|
|
LET numero_msg = 3
|
|
CALL msg(numero_msg)
|
|
NEXT FIELD acod_n
|
|
END IF
|
|
DISPLAY BY NAME pdescrip_esp2
|
|
AFTER INPUT
|
|
IF int_flag THEN
|
|
LET numero_msg = 2
|
|
CALL msg(numero_msg)
|
|
EXIT INPUT
|
|
ELSE
|
|
UPDATE prtb00013 SET cod_n = acod_n,
|
|
cod_grupo = acod_grupo,
|
|
cod_tipo = acod_tipo,
|
|
cod_sec = acod_sec,
|
|
us_mod = user,
|
|
fech_mod = current
|
|
WHERE num_oc = porden and
|
|
cod_n = p_iptb01.cod_n AND
|
|
cod_grupo = p_iptb01.cod_grupo AND
|
|
cod_tipo = p_iptb01.cod_tipo AND
|
|
cod_sec = p_iptb01.cod_sec
|
|
LET numero_msg = 13
|
|
CALL msg(numero_msg)
|
|
|
|
|
|
END IF
|
|
EXIT INPUT
|
|
END INPUT
|
|
CLOSE WINDOW actorden
|
|
END FUNCTION
|