19 lines
553 B
Plaintext
19 lines
553 B
Plaintext
MAIN
|
|
|
|
CONNECT TO 'smarmotech' USER 'jsoto' USING 'lmmjvsd2014'
|
|
CALL actualiza()
|
|
END MAIN
|
|
|
|
FUNCTION actualiza()
|
|
DEFINE numoc INT
|
|
|
|
DECLARE buscar CURSOR FOR SELECT DISTINCT a.num_oc FROM prtb00012 a,prtb00013 b
|
|
WHERE a.cerrada = 'N' AND a.status_t IS NULL AND a.num_oc = b.num_oc AND b.cod_n NOT IN ( 12 )AND
|
|
a.orden_instalacion IS NULL
|
|
|
|
FOREACH buscar INTO numoc
|
|
UPDATE prtb00012 SET orden_instalacion = "SI" WHERE num_oc = numoc
|
|
DISPLAY "ACTUALICE ORDEN ",numoc
|
|
END FOREACH
|
|
DISPLAY "TERMINE"
|
|
END FUNCTION |