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,62 @@
+database marmotech@demo_se
+screen size 24 by 80
+{
+\g----------------------------------------------------------------------------\g
+               MANTENIMIENTO CUENTAS Y DEPARTAMENTO ESTADO Q
+\g----------------------------------------------------------------------------\g
+
+  DEPARTAMENTO       [f000  ]   [a                                   ]
+  ESTADO M           [f001]
+  CUENTA CONTABLE    [f004    ] [b                                   ]
+  ESTADO Q           [f007]
+
+  USUARIO CREADOR    [f005     ]
+  FECHA CREACION     [f006            ]
+
+
+
+       <Esc> Adiciona Registro y/o         <Ctrl-C> Cancela Operacion
+             Modifica Registro
+}
+end
+tables
+adtb00037,
+adtb00001,
+cgtb00001
+attributes
+
+f000 = adtb00037.departamento, comments =
+"1-GENERAL 2-FINANCIERA 3-PERSONAL 4-VENTAS 5-MATERIALES 6-PLANTA 7-INFORMATICA";
+a = displayonly type char;
+f001 = adtb00037.estado_m,comments =
+"Digite Punto de Referencia Del Estado";
+f004 = adtb00037.cuenta_no, lookup b = cgtb00001.descripcion
+                            joining cgtb00001.cuenta_no,required;
+f007 = adtb00037.estado_q,required;
+f005 = adtb00037.us_crea,noupdate,noentry,default = "usgfi01";
+f006 = adtb00037.fech_crea,noupdate,noentry,default=current;
+instructions
+
+after add update query of adtb00037
+if f000 = 1 then
+   let a = "GERENCIA GENERAL"
+else
+   if f000 = 2 then
+      let a = "GERENCIA FINANCIERA"
+   else
+      if f000 = 3 then
+         let a = "GERENCIA PERSONAL"
+      else
+         if f000 = 4 then
+            let a = "GERENCIA DE VENTAS"
+         else
+            if f000 = 5 then
+               let a = "GERENCIA MATERIALES"
+            else
+               if f000 = 6 then
+                  let a = "GERENCIA PLANTA"
+               else
+                  if f000 = 7 then
+                     let a = "GERENCIA INFORMATICA"
+                      
+end