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