{
==============================================================================
  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