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,94 @@
+DATABASE marmotech   
+
+GLOBALS
+
+  DEFINE p_fechas,comp_fech,comp_fech1,fecha_c DATE,    
+         opt,impresion,verdad,identifica,existe,status_reg CHAR(1), 
+         mes_control,opcion CHAR(2),
+         localidad,direccion CHAR(80),
+         c_ano,a_ano CHAR(4),
+         criterio CHAR(1000), 
+         selec CHAR(500), 
+         selec2 CHAR(500), 
+         selec3 CHAR(1000), 
+         selec4 CHAR(1000), 
+         descrip1 CHAR(30),
+         descrip2 CHAR(30),
+         descrip3 CHAR(30),
+         descrip4 CHAR(30),
+         nombre_tipo,nombre_emp,nom_cli CHAR(60), 
+         descrip5 CHAR(65), 
+         descrip6 CHAR(45),
+         desc_p,valor_fac,pagada,monto,pendiente,valor1 DECIMAL(12,2), 
+         k,tipo_papel,idx, curr, curr1, fila,scr_l,bandera,otrab,mes_calc,
+         dia SMALLINT
+
+  DEFINE rango RECORD
+         fecha_ini  DATE,
+         fecha_fin  DATE
+  END RECORD
+
+  DEFINE numero_msg LIKE msgtable.cod_msg
+
+  DEFINE recibo RECORD
+     #cuenta_no    LIKE cgtb00001.cuenta_no,
+     #deposito     LIKE cctb00001.banco, 
+     tipo_doc     LIKE cctb00001.tipo_doc,
+     num_doc      LIKE cctb00001.num_doc,
+     tipo_cliente LIKE cctb00001.tipo_cliente,
+     sec_cliente  LIKE cctb00001.sec_cliente,
+     cod_emp_sec  LIKE cctb00001.cod_emp_sec,
+     fecha_orig   LIKE cctb00001.fecha_orig 
+  END RECORD
+
+  DEFINE arr_recibo ARRAY [200] OF RECORD
+       num_nc      INTEGER, 
+       aplica_a    LIKE cctb00001.aplica_a,
+       valor_pen   DECIMAL(12,2),
+       desc_p      LIKE cctb00001.monto_desc,
+       valor_pag   DECIMAL(12,2)
+  END RECORD
+
+  DEFINE arr_recibo4 ARRAY [200] OF RECORD
+       aplica_a    LIKE cctb00001.aplica_a,
+       valor_pen   DECIMAL(12,2),
+       desc_p      LIKE cctb00001.monto_desc,
+       valor_pag   DECIMAL(12,2)
+  END RECORD
+
+  DEFINE cobrar ARRAY [200] OF RECORD
+     aplica_a     LIKE cctb00001.aplica_a,
+     valor        LIKE cctb00001.valor
+  END RECORD
+
+  DEFINE aplica_wd ARRAY [200] OF RECORD
+       aplica_a    LIKE cctb00001.aplica_a,
+       pendiente   DECIMAL(12,2),
+       tipo_doc    CHAR(2)
+  END RECORD
+
+  DEFINE arr_clientes ARRAY [700] OF RECORD 
+         tipo_cliente LIKE vetb00004.tipo_cliente,
+         sec_cliente  LIKE vetb00004.sec_cliente, 
+         nombre       LIKE vetb00004.nombre  
+  END RECORD 
+
+  DEFINE arr_empleados ARRAY [200] OF RECORD
+         num_emp     LIKE adtb00003.num_emp,
+         nom1_emp     LIKE adtb00003.nom1_emp,
+         apell1_emp   LIKE adtb00003.apell1_emp 
+  END RECORD 
+
+  DEFINE empleados ARRAY [200] OF RECORD 
+         num_emp     LIKE adtb00003.num_emp,
+         descrip6    CHAR(65)  
+  END RECORD 
+
+  DEFINE relacion RECORD LIKE cctb00002.*
+  DEFINE rec_pago RECORD LIKE cctb00001.*
+  DEFINE p_companias RECORD LIKE companias.*
+  DEFINE cliente_bas RECORD LIKE vetb00004.*
+  DEFINE cliente_dir RECORD LIKE vetb00005.*
+  DEFINE transportista RECORD LIKE vetb00015.*
+      
+END GLOBALS