21 lines
994 B
Plaintext
21 lines
994 B
Plaintext
MAIN
|
|
CONNECT TO "smarmotech" USER 'jsoto' USING 'lmmjvsd2014'
|
|
CALL actualizacion()
|
|
END MAIN
|
|
FUNCTION actualizacion()
|
|
DEFINE pnumdoc,pcodmov,IDX INT,
|
|
uscrea VARCHAR(50)
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT DISTINCT a.num_doc,a.cod_mov,a.us_crea FROM iptb00006 a WHERE a.fecha <= '09/30/2021' AND
|
|
a.cod_n = 6
|
|
ORDER BY a.cod_mov,a.num_doc
|
|
|
|
LET idx = 1
|
|
FOREACH buscar INTO pnumdoc,pcodmov,uscrea
|
|
UPDATE iptb00006 SET bodega = 23,us_mod='JSOTO',fech_mod=getdate()
|
|
WHERE num_Doc = pnumdoc AND cod_mov=pcodmov AND
|
|
us_crea = uscrea
|
|
DISPLAY "ACTUALIZANDO ",pnumdoc," cod mov ",pcodmov," usuario ",uscrea," no registro ",idx
|
|
LET idx = idx +1
|
|
END FOREACH
|
|
END FUNCTION |