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,101 @@
+{
+--------------------------------------------------------------------------------
+PROGRAMA       : CGPRRP011
+OBJETIVO       : VALIDAR LAS CUENTAS QUE TIENEN ESTADO Q
+PROGRAMADOR    : JUAN F. SOTO
+FECHA          : OCTUBRE 30, 1996
+-------------------------------------------------------------------------------
+}
+GLOBALS
+ "cgprgb000.4gl"
+
+FUNCTION cgprrp011()
+  DEFINE valida RECORD
+         departamento   LIKE adtb00037.departamento,
+         estado_q       LIKE adtb00037.estado_q,
+         estado_m       LIKE adtb00037.estado_m,
+         cuenta_no      LIKE adtb00037.cuenta_no,
+         descripcion    CHAR(30)
+  END RECORD
+
+  OPTIONS
+       ERROR LINE 24,
+       FORM LINE 8
+
+  CALL pantalla()
+  OPEN FORM cgfmrp011 FROM "cgfmrp011"
+  DISPLAY FORM cgfmrp011
+
+  DISPLAY "cgprrp011" AT 4,3
+  DISPLAY "Validacion Cuentas Estado Q" AT 6,15
+  LET tipo_papel = 1
+  CALL msgrp000(tipo_papel)
+  
+  CONSTRUCT BY NAME criterio ON a.cuenta_no,a.estado_m,a.estado_q
+  IF int_flag THEN
+     LET numero_msg = 2
+     CALL msg(numero_msg)
+     LET int_flag = false
+     RETURN
+  END IF
+  LET selec1 =
+  "SELECT ",
+	"a.departamento, ",
+	"a.estado_q, ",
+	"a.estado_m, ",
+	"a.cuenta_no, ",
+        "b.descripcion[1,30] ",
+"FROM adtb00037 a,cgtb00001 b ",
+"WHERE a.cuenta_no = b.cuenta_no AND   ",criterio clipped,
+" ORDER BY 1,2  " 
+PREPARE comando1 FROM selec1
+DECLARE busca CURSOR FOR comando1
+
+START REPORT estadoq TO "C:\\archivo"
+
+FOREACH busca INTO valida.*
+  OUTPUT TO REPORT estadoq(valida.*)
+END FOREACH
+FINISH REPORT estadoq
+RUN "type C:\\archivo > %USPRINT%" END FUNCTION
+
+REPORT estadoq(x)
+  DEFINE x RECORD
+         departamento   LIKE adtb00037.departamento,
+         estado_q       LIKE adtb00037.estado_q,
+         estado_m       LIKE adtb00037.estado_m,
+         cuenta_no      LIKE adtb00037.cuenta_no,
+         descripcion    CHAR(30)
+  END RECORD
+OUTPUT
+  LEFT MARGIN 0
+FORMAT 
+PAGE HEADER
+  PRINT COLUMN 1, "cgprrp011",
+        COLUMN 14, "R A .O. V A C   D O M I N I C A N A, S. A.",
+        COLUMN 60, "PAG.  ",PAGENO USING "###"
+  PRINT COLUMN 14, "     SISTEMA DE CONTABILIDAD GENERAL",
+        COLUMN 60, TODAY USING "DD/MM/YY"
+  PRINT COLUMN 14, "  VALIDACION RELACION CUENTAS - ESTADO Q",
+        COLUMN 60, TIME
+  SKIP 1 LINE
+PRINT COLUMN 1,
+"====================================================================="
+PRINT COLUMN 1, "DEPARTAMENTO",
+      COLUMN 20, "CUENTA NO.",
+      COLUMN 53, "ESTADO M",
+      COLUMN 65, "ESTADO "
+PRINT COLUMN 1,
+"====================================================================="
+SKIP 1 LINE
+
+ON EVERY ROW
+PRINT COLUMN 1, x.departamento using "&",
+      COLUMN 20, x.cuenta_no," ",x.descripcion,
+      COLUMN 53, x.estado_m,
+      COLUMN 65, x.estado_q
+
+AFTER GROUP OF x.departamento
+PRINT COLUMN 1,
+"------------------------------------------------------------------------"
+END REPORT