30 lines
740 B
Plaintext
30 lines
740 B
Plaintext
DEFINE usuario,clave VARCHAR(100),
|
|
fecha1,fecha2 DATE
|
|
MAIN
|
|
|
|
DEFER INTERRUPT
|
|
|
|
CALL arg_val(1) RETURNING usuario
|
|
CALL arg_val(2) RETURNING clave
|
|
|
|
CONNECT to "marmotech" USER usuario USING clave
|
|
|
|
CALL generacion()
|
|
END MAIN
|
|
|
|
FUNCTION generacion()
|
|
OPEN WINDOW w1 WITH FORM "genera"
|
|
|
|
INPUT BY NAME fecha1,fecha2
|
|
AFTER INPUT
|
|
EXIT INPUT
|
|
IF int_flag THEN
|
|
EXIT PROGRAM
|
|
END IF
|
|
END INPUT
|
|
DECLARE buscar CURSOR FOR
|
|
SELECT a.factura FROM vetb00002 a,vetb00004 b
|
|
WHERE a.tipo_cliente = b.tipo_cliente AND a.sec_cliente = b.sec_cliente AND
|
|
a.fecha_factura BETWEEN fecha1 AND fecha2
|
|
CLOSE WINDOW w1
|
|
END FUNCTION |