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

2026-08-18 20:59:52 -04:00
commit 454973e269
5978 changed files with 2664094 additions and 0 deletions
@@ -0,0 +1,52 @@
+GLOBALS
+   DEFINE criterio_cta,selec_cta STRING,
+          idx_cta,curr1_cta INT
+   
+   DEFINE cuentas1 DYNAMIC ARRAY OF RECORD 
+          cuenta_no   VARCHAR(14),
+          descripcion VARCHAR(14),
+          nivel       SMALLINT
+END RECORD       
+END GLOBALS
+FUNCTION busca_cuenta()
+OPEN WINDOW cons_cuenta AT 10,5 WITH FORM "cgfmwd004" ATTRIBUTE
+(BORDER,FORM LINE FIRST + 1,COMMENT LINE LAST)
+
+ CONSTRUCT BY NAME criterio_cta ON descripcion
+  IF int_flag THEN
+     CALL msg(2)
+     RETURN
+  END IF
+  LET selec_cta =
+      "SELECT cuenta_no,descripcion,nivel FROM cgtb00001 ",
+      "WHERE ",criterio_cta clipped," AND status_t is null ORDER BY 1"
+
+     PREPARE comando FROM selec_cta
+     DECLARE busca2 CURSOR FOR comando
+     OPEN busca2
+
+     LET idx_cta = 1
+     WHILE STATUS != NOTFOUND
+     FETCH busca2 INTO cuentas1[idx_cta].*
+     IF status = notfound THEN
+        EXIT WHILE
+     END IF
+
+    LET idx_cta = idx_cta + 1
+    END WHILE
+  IF int_flag THEN
+     CALL msg(2)
+     RETURN 
+  END IF
+
+  CALL set_count (idx_cta - 1)
+  DISPLAY ARRAY cuentas1 TO s_cuentas.*
+  LET curr1_cta = arr_curr()
+  IF int_flag THEN
+     
+     CALL msg(2)
+     RETURN
+  END IF
+
+ CLOSE WINDOW cons_cuenta
+ END FUNCTION