Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md

PROYECTO/TEST/generafacturas.4gl

@@ -0,0 +1,30 @@
+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