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,99 @@
+{
+----------------------------------------------------------------------------
+PROGRAMA    : CGPRMT019
+OBJETIVO    : MANTENIMIENTO CODIGOS ESTADOS FINANCIEROS
+PROGRAMADOR : JUAN F. SOTO
+FECHA       : NOVIEMBRE 12, 2009
+----------------------------------------------------------------------------
+}
+GLOBALS 
+"cgprgb000.4gl"
+DEFINE estados DYNAMIC ARRAY OF RECORD
+         codigo_estado CHAR(10),
+         descripcion   CHAR(30)
+  END RECORD,
+       aestado RECORD
+       codigo_est CHAR(10),
+       descripcion_est CHAR(30)
+  END RECORD
+  
+  
+MAIN
+ DEFER INTERRUPT
+ CALL ARG_VAL(1) RETURNING usuarios
+ CALL ARG_VAL(2) RETURNING clave
+ 
+ 
+  CONNECT to "smarmotech"  USER  usuarios USING clave
+ SELECT a.* INTO p_compania.* FROM companias a
+
+ CALL cgprmt019()
+END MAIN
+
+
+FUNCTION cgprmt019()
+  OPEN WINDOW w1 AT 8,4 WITH FORM "cgfmmt019" ATTRIBUTE (BORDER,FORM LINE
+  FIRST + 1,PROMPT LINE LAST)
+  MENU
+   ON ACTION nuevo
+     CALL adiciona()
+   ON ACTION busca
+     CALL modifica()
+   ON ACTION salir
+    EXIT PROGRAM
+  END MENU     
+END FUNCTION
+
+FUNCTION modifica()
+
+  DECLARE busca CURSOR FOR
+      SELECT a.codigo_Estado,a.descripcion FROM cgtb00035
+      LET idx = 1
+   FOREACH busca INTO estados[idx].*
+    LET idx = idx + 1
+   END FOREACH
+   CALL SET_COUNT(idx-1)
+   
+  DIALOG
+  
+    INPUT ARRAY estados  FROM sestado.* ATTRIBUTE (WITHOUT DEFAULTS=true)
+    AFTER INPUT
+     LET curr = arr_curr()
+     LET aestado.codigo_est = estados[curr].codigo_estado
+     LET aestado.descripcion_est = estados[curr].descripcion
+    END INPUT
+   
+    INPUT BY NAME aestado.* ATTRIBUTE(WITHOUT DEFAULTS=TRUE)
+     AFTER FIELD codigo_est
+      SELECT a.descripcion INTO aestado.descripcion_est
+      FROM cgtb00035 a
+      WHERE a.codigo_estado = aestado.codigo_est
+      
+      IF STATUS = NOTFOUND THEN
+         LET numero_msg = 3
+         CALL msg(numero_msg)
+         NEXT FIELD codigo_est
+      END IF
+    END INPUT
+    ON ACTION salvar
+      CALL inserta()
+    ON ACTION cancel
+     LET int_flag = FALSE
+     EXIT DIALOG 
+  END DIALOG
+  
+CLOSE WINDOW w1
+END FUNCTION
+
+FUNCTION adiciona()
+
+END FUNCTION
+FUNCTION inserta()
+ SELECT * FROM cgtb00035 WHERE codigo_estado = aestado.codigo_est
+ IF STATUS = NOTFOUND THEN
+    INSERT INTO cgtb00035 VALUES (aestado.*)
+ ELSE
+    UPDATE cgtb00035 SET descripcion = aestado.descripcion_est
+    WHERE codigo_estado = aestado.codigo_est
+ END IF
+END FUNCTION