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