SCHEMA decomarmol    

GLOBALS
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 opt,impresion,verdad,identifica,existe CHAR(1), 
         status_reg CHAR(1), 
         criterio CHAR(1000), 
         selec CHAR(1000), 
         selec2 CHAR(500), 
         selec3 CHAR(1000), 
         selec4 CHAR(1000), 
         opcion CHAR(2),
         descrip1 CHAR(30),
         descrip2 CHAR(30),
         descrip3 CHAR(30),
         descrip4 CHAR(30),
         nom_sp_tipo,nombre_emp,nom_sup CHAR(60), 
         descrip5 CHAR(65), 
         descrip6 CHAR(45),
         nom_cuenta CHAR(15),
         desc_p,valor_fac,pagada,monto,pendiente,valor1 DECIMAL(12,2), 
         lj,k,tipo_papel,idx, curr, curr1, fila, scr_l INTEGER,
         usuarios,clave CHAR(80),
         impresor SMALLINT,
         HANDLER om.SaxDocumentHandler,
         tipo_ncf,conteo SMALLINT,
         ncf    CHAR(19),
         descripcion_ncf char(50)

  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
         CHAR(3),
         cmd,imprime,copia CHAR(150),archivo CHAR(80)

  DEFINE rango RECORD
         fecha_ini  DATE,
         fecha_fin  DATE
  END RECORD

  DEFINE numero_msg LIKE msgtable.cod_msg

  DEFINE factura RECORD
    cod_sp      SMALLINT,
    cod_sp_sec  SMALLINT,
    num_doc     CHAR(13),
    fecha_orig  DATE,
    fecha_proc  DATE,
    valor_fac   DECIMAL(12,2),
    tipo_oc     CHAR(2),
    orden_no    INTEGER,
    detalle     CHAR(30)
  END RECORD
  DEFINE recibo RECORD
     tipo_doc     LIKE cptb00001.tipo_doc,
     num_doc      LIKE cptb00001.num_doc,
     cta_ctble    LIKE cptb00001.cta_ctble,
     cod_sp       LIKE cptb00001.cod_sp,      
     cod_sp_sec   LIKE cptb00001.cod_sp_sec,      
     fecha_orig   DATE,
     detalle      LIKE cptb00001.detalle    ,
     monto        DECIMAL(12,2)
  END RECORD

  DEFINE arr_recibo DYNAMIC ARRAY  OF RECORD
       aplica_a    VARCHAR(15),
       valor_pen   DECIMAL(12,2),
       valor_pag   DECIMAL(12,2)
  END RECORD

  DEFINE pagar ARRAY [200] OF RECORD
     aplica_a     LIKE cptb00001.aplica_a,
     valor        LIKE cptb00001.valor
  END RECORD

  DEFINE aplica_wd ARRAY [100] OF RECORD
       aplica_a   VARCHAR(11),
       pendiente   DECIMAL(12,2)
  END RECORD

  DEFINE arr_suplid ARRAY [200] OF RECORD 
         cod_sp      LIKE cotb00001.cod_sp,
         cod_sp_sec  LIKE cotb00001.cod_sp_sec, 
         nom_sp      LIKE cotb00001.nom_sp  
  END RECORD 

  DEFINE relacion RECORD LIKE cptb00002.*
  DEFINE rec_pago RECORD LIKE cptb00001.*
  DEFINE suplid_bas RECORD LIKE cotb00001.*
  DEFINE suplid_dir RECORD LIKE cotb00001.*
  DEFINE p_companias RECORD LIKE companias.*

DEFINE bandera SMALLINT
DEFINE otrab   SMALLINT
DEFINE p_fechas DATE    
DEFINE 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 cuentas1 ARRAY[300] OF RECORD 
   cuenta_no   LIKE cgtb00001.cuenta_no,
   descripcion LIKE cgtb00001.descripcion,
   nivel       LIKE cgtb00001.nivel
END RECORD
END GLOBALS