39 lines
1.4 KiB
Plaintext
39 lines
1.4 KiB
Plaintext
DEFINE usuarios,clave VARCHAR(50),
|
|
numeroOrden,codn,i INT
|
|
MAIN
|
|
|
|
CALL ARG_VAL(1) RETURNING usuarios
|
|
CALL ARG_VAL(2) RETURNING clave
|
|
|
|
CONNECT to "smarmotech" USER usuarios USING clave
|
|
CALL busca_ordenes()
|
|
END MAIN
|
|
|
|
FUNCTION busca_ordenes()
|
|
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT DISTINCT a.num_oc FROM prtb00012 a,prtb00013 b WHERE a.num_oc = b.num_oc AND b.cod_n IN (25,20,12) AND
|
|
a.fecha_oc BETWEEN '01/01/2020' AND '03/30/2020' AND
|
|
a.status_t IS NULL
|
|
LET i = 0
|
|
DISPLAY "PROCESO INICIADO..."
|
|
FOREACH buscar INTO numeroOrden
|
|
DISPLAY "BUSCANDO ORDEN ",numeroOrden
|
|
SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =25
|
|
IF STATUS = NOTFOUND THEN
|
|
CONTINUE FOREACH
|
|
END IF
|
|
SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =12
|
|
IF STATUS = NOTFOUND THEN
|
|
CONTINUE FOREACH
|
|
END IF
|
|
SELECT DISTINCT a.cod_n FROM prtb00013 a WHERE a.num_oc = numeroORden AND a.cod_n =20
|
|
IF STATUS = NOTFOUND THEN
|
|
CONTINUE FOREACH
|
|
END IF
|
|
|
|
LET i = i + 1
|
|
DISPLAY "CONTE LA ORDEN ",i
|
|
END FOREACH
|
|
DISPLAY "TOTAL ORDENES ",i
|
|
END FUNCTION |