SCHEMA marmotech
# EN ESTE SISTEMA PARA LA FUNCION TERMOMETRO LA VARIABLE SELEC1 SE CAMBIO A
# SELEC11
GLOBALS

  DEFINE p_compania RECORD LIKE companias.*
  DEFINE costos  RECORD LIKE cttb00013.*
 # DEFINE costos_p  RECORD LIKE cttb00035.*
  DEFINE mes2,curr,bandera smallint
  DEFINE p_fechas DATE ,
         salida CHAR(3),
         HANDLER om.SaxDocumentHandler  
  DEFINE nombre_dia ARRAY[7] OF char(10)
  DEFINE nombre_mes ARRAY[12] OF char(10)
  DEFINE general decimal(12,2)
  DEFINE l,p_bodega SMALLINT,
         regi  INTEGER
  DEFINE arancel RECORD LIKE cotb00005.*
  DEFINE status_m char(1)
  DEFINE p_param,decide CHAR(1)
  DEFINE cant DECIMAL(10,2)
  DEFINE tipo_papel smallint
  DEFINE balance DECIMAL(12,2)
  DEFINE cod_mov_ant LIKE intb00006.cod_mov
  DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000)
  DEFINE opc ,opt2,existe,ya ,opera1,cambio CHAR(1)
  DEFINE medida CHAR (3),
         p_ano1 CHAR(4)
  DEFINE fila smallint
  DEFINE m_articulos RECORD LIKE intb00002.*
  DEFINE numero_msg LIKE msgtable.cod_msg 
  DEFINE articulos RECORD LIKE intb00001.*
  DEFINE suplidor  RECORD LIKE intb00008.*
  DEFINE produccion RECORD LIKE cttb00001.*
 # DEFINE costo_stand RECORD LIKE cttb00038.* 
  DEFINE medidas RECORD LIKE cttb00007.*  
  DEFINE nombre,descrip1,descrip2,descrip3,descrip4 CHAR(30)
  DEFINE criterio CHAR(1000)
  DEFINE selec11,selec CHAR(500)  
  DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
  DEFINE p_act,idx,scr_l SMALLINT
  DEFINE opcion CHAR(2) ,
         usuario_c,usuario_m CHAR(9),
         fecha_c,fecha_m DATETIME YEAR TO MINUTE,
         usuarios,clave CHAR(80),
         impresor,progreso SMALLINT,
         cmd,imprime,copia CHAR(150),archivo CHAR(80),
         normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
         CHAR(3),
         r_output STRING,
         HANDLER om.SaxDocumentHandler
         
  DEFINE p_companias RECORD LIKE companias.* 

  DEFINE datos1  RECORD
       cod_n        SMALLINT,
       cod_grupo    SMALLINT,
       cod_tipo     SMALLINT,
       cod_sec      SMALLINT,
       descrip_esp  CHAR(30),
       unidad_med   CHAR(3),
       inv_inicial  DECIMAL(12,2),
       inv_final    DECIMAL(12,2),
       mat_proceso  DECIMAL(12,2),
       cons_real    DECIMAL(12,2),
       cons_std     DECIMAL(12,2),
       cant_env     DECIMAL(12,2),
       cant_env1    DECIMAL(12,2),
       costo        DECIMAL(12,2)
  END RECORD

  DEFINE datos_c RECORD
         num_doc         INTEGER,
         fecha           DATE,
         Departamento    SMALLINT
  END RECORD

 
  DEFINE arr_proyecta ARRAY[200] OF RECORD
         cod_n_mp        LIKE intb00002.cod_n,
         cod_grupo_mp    LIKE intb00002.cod_grupo,
         cod_tipo_mp     LIKE intb00002.cod_tipo,
         cod_sec_mp      LIKE intb00002.cod_sec,
         descrip_esp     LIKE intb00001.descrip_esp,
         unidad_med      LIKE intb00001.unidad_med,
         cantidad        LIKE intb00006.cantidad_2
  END RECORD
 
  DEFINE proyecta RECORD 
         cod_prod       LIKE cttb00011.cod_prod
 END RECORD 
 DEFINE arr_anterior ARRAY [100] OF RECORD
        cod_n_mp     SMALLINT,
        cod_grupo_mp SMALLINT,
        cod_tipo_mp  SMALLINT,
        cod_sec_mp   SMALLINT
 END RECORD

 DEFINE datos_cons RECORD
        fech_in   DATE,
        fech_fi   DATE
 END RECORD

END GLOBALS