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,122 @@
+{
+==============================================================================
+  PROGRAMA      :  PRGBRP000
+  SISTEMA       :  SISTEMA DE PRODUCCION
+  PROCESO       :  DEFINICION DE VARIABLES GLOBALES
+  AUTOR         :  ING. JUAN SOTO
+  FECHA         :  SEPT. 14, 1994.
+==============================================================================
+}
+SCHEMA  smarmotech
+
+GLOBALS
+
+
+  DEFINE cttb01 RECORD LIKE cttb00001.*,
+         p_compania RECORD LIKE companias.*
+  DEFINE prtb02 RECORD LIKE prtb00002.*
+  DEFINE prtb03 RECORD LIKE prtb00003.*
+  DEFINE prtb05 RECORD LIKE prtb00005.*
+  DEFINE prtb06 RECORD LIKE prtb00006.*
+  DEFINE prtb07 RECORD LIKE prtb00007.*
+  DEFINE prtb08 RECORD LIKE prtb00012.*,
+         historico CHAR(1),
+         actualiza_log_produccion,actualiza_produccion VARCHAR(10)
+  DEFINE kprtb12 RECORD LIKE prtb00012.*
+  
+ DEFINE handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
+         r_filename STRING,              -- filename of Report Design Document including .4rp extension
+          r_output   STRING,             -- output format option
+          preview    INTEGER             -- TRUE/FALSE, to set preview option         
+
+  DEFINE prtb09 RECORD 
+         num_oc     INT,
+         fecha      CHAR(10),
+         fecha_fabricacion CHAR(10),
+         pendiente  char(1),
+         detalle    char(300),
+         status_t   CHAR(1),
+         us_crea    CHAR(50),
+         fech_crea  DATETIME YEAR TO MINUTE,
+         us_mod     CHAR(50),
+         fech_mod   DATETIME YEAR TO MINUTE,
+         cotizacion_no INT
+  END RECORD
+  DEFINE prtb16 RECORD LIKE prtb00016.*,
+         pcosto_labor ARRAY[50] OF DEC(12,5),pcosto_gasto ARRAY[50] OF DEC(12,5),
+         cmd,imprime,copia,copia1 CHAR(150),archivo1,archivo CHAR(80),
+         impresor SMALLINT,
+        copiacorreo DYNAMIC ARRAY OF CHAR(1000),
+        copiaemail CHAR(1000)
+
+  DEFINE cliente_dir RECORD LIKE vetb00005.*,
+         usuarios,clave CHAR(50)
+ DEFINE arr_clientes DYNAMIC ARRAY  OF RECORD 
+        tipo_cliente LIKE vetb00004.tipo_cliente,
+        sec_cliente  LIKE vetb00004.sec_cliente, 
+        nombre       LIKE vetb00004.nombre  
+ END RECORD 
+
+  DEFINE arrprtb08 DYNAMIC ARRAY OF RECORD
+         cod_n_c     LIKE prtb00008.cod_n,
+         cod_grupo_c LIKE prtb00008.cod_grupo,
+         cod_tipo_c  LIKE prtb00008.cod_tipo,
+         cod_sec_c   LIKE prtb00008.cod_sec,
+         cantidad_c LIKE prtb00008.cantidad ,
+         descrip_esp_c LIKE intb00001.descrip_esp,
+         unidad_c    LIKE intb00001.unidad_med
+ END RECORD
+
+  DEFINE nombre_dia DYNAMIC ARRAY OF char(10)
+
+  DEFINE empleados DYNAMIC ARRAY OF RECORD 
+         cod_emp_sec LIKE adtb00003.num_emp, 
+         descrip6    CHAR(65)  
+  END RECORD 
+  DEFINE arr_hora DYNAMIC ARRAY OF RECORD
+     fecha          DATE,
+     hn_ind         DECIMAL(5,2),
+     he_ind         DECIMAL(5,2)
+  END RECORD
+
+  DEFINE arr_empleados DYNAMIC ARRAY OF RECORD 
+      num_emp     LIKE adtb00003.num_emp, 
+      nom1_emp    LIKE adtb00003.nom1_emp,
+      apell1_emp  LIKE adtb00003.apell1_emp 
+  END RECORD 
+
+  DEFINE pilas DYNAMIC ARRAY OF RECORD
+         cod_n       LIKE intb00001.cod_n,
+         cod_grupo   LIKE intb00001.cod_grupo,
+         cod_tipo    LIKE intb00001.cod_tipo,
+         cod_sec     LIKE intb00001.cod_sec,
+         descrip_esp LIKE intb00001.descrip_esp 
+  END RECORD
+
+  DEFINE nom_dpto,nom_emp CHAR(30)
+  DEFINE nom1_emp,apell1_emp CHAR(14)
+  DEFINE tipo_papel,curr,curr1,fila,scr_l,idx,idx1,idx2,j,k INTEGER
+  DEFINE salir,salir1,salir2,sali3 CHAR(1),
+         opt,opt1 CHAR(3)
+  
+  DEFINE opcion,respuesta CHAR(3) 
+  DEFINE opcion1,impresion,verdad,identifica,existe CHAR(1) 
+  DEFINE criterio,selec1,selec2,selec3,selec STRING
+
+  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
+         CHAR(3)
+         
+  DEFINE hora CHAR(5),
+         l SMALLINT
+
+  DEFINE numero_msg INT #LIKE msgtable.cod_msg
+  DEFINE bandera,otrab   SMALLINT
+  DEFINE p_fechas,comp_fech,comp_fech1 DATE
+  DEFINE mes_control CHAR(2)
+  DEFINE mes_calc,dia SMALLINT
+  DEFINE fecha_c DATE    
+  DEFINE c_ano,a_ano CHAR(4)
+  DEFINE p_user CHAR(9)
+      
+END GLOBALS
+