SCHEMA smarmotech

GLOBALS
  DEFINE p_compania RECORD LIKE companias.*
  DEFINE unidades1 ARRAY[19] OF CHAR(10)
  DEFINE decenas  ARRAY[81] OF CHAR(20)
  DEFINE centenas ARRAY[10] OF CHAR(20)
  DEFINE miles ARRAY[9] OF CHAR(2),
         p_descrip CHAR(30),
         anula_seguro CHAR(1),
         presupa RECORD LIKE cgtb00023.*,
         nombre_m LIKE mestable.descrip,
         usuarios,clave CHAR(80),
         progreso SMALLINT,
         HANDLER om.SaxDocumentHandler,
         r_output,afecta STRING,
         pventas ui.combobox,
         ventas VARCHAR(2),
         fecha_inicial,fecha_final,p_fecha DATE,
         entrada,entra1,entra VARCHAR(25),
         nom_cli,detalle1 VARCHAR(30),
         fecha1,fecha2  DATE,
          
         tasa DEC(10,2),
        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 opt4,opt3,impresion,verdad,identifica,existe,tiene_facturas,  
         p_param,opt,control,detalle,status_reg CHAR(3), 
         criterio,selec,selec1,selec2,selec4,selec3 STRING, 
    
         tipo2,opcion CHAR(3),
         valor_letras CHAR(90),
         compania  CHAR(50),
         parametro CHAR(10),
         bandera,scr_l,curr1,curr,idx,numero_msg INTEGER,
         nombre_bco,descrip,p_descripcion,nombre CHAR(30),
         regi,tipo_papel,l SMALLINT,
         impresor SMALLINT

  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 arr_bancos ARRAY[50] OF RECORD
          cuenta_no   LIKE cgtb00012.cuenta_no,
          nombre_bco  LIKE cgtb00012.nombre_bco
   END RECORD
   DEFINE ws ARRAY[100] OF RECORD
          departamento   SMALLINT,
          nombre         CHAR(30)
   END RECORD
   DEFINE datos_cons RECORD
      fech_in    DATE,
      fech_fi    DATE
   END RECORD
   DEFINE arr_cuenta ARRAY[200] OF RECORD
      cuenta_no      LIKE cgtb00009.cuenta_no,
      descripcion    LIKE cgtb00001.descripcion
   END RECORD

DEFINE numero1 CHAR(7)
DEFINE usuario CHAR(9)
DEFINE fecha_crea LIKE cgtb00004.fech_crea
DEFINE datos_ck RECORD LIKE cgtb00012.*
DEFINE cronologico RECORD LIKE cgtb00031.*
DEFINE entrega RECORD LIKE cgtb00032.*
DEFINE entrega1 RECORD LIKE cgtb00033.*

DEFINE estado_c CHAR(1)
DEFINE selec_p CHAR(1000)
DEFINE cuenta_a,cuenta_b CHAR(8)
DEFINE ins_cp,m,i,p_nivel,codigo INTEGER
DEFINE meses ARRAY [12] OF CHAR(10)
DEFINE referencia1 CHAR(9)
DEFINE tipo_doc1 CHAR(2)
DEFINE depto,cxp,numero,aplicar INTEGER
DEFINE cuenta_cxp,cuenta_cta,cod1_sp,cod1_sp_sec,p_orden SMALLINT
DEFINE chequea,sale_arr,p_cata,tipo_d,p_ref,acept_dpto,opc,opc1,
        limpia,tiene_cta,ctrl_cxp,p_origen CHAR(3)
DEFINE p_tipo CHAR(2)
DEFINE remanente,monto,valor_f,valor_fac,val_pen,valor_fac1,valor_cxp,
       valor2,valor DECIMAL(12,2)
DEFINE nombre_emp,apellido_emp,nom_tipo CHAR(15)
DEFINE nombre_dpto,nombre_cata CHAR(30)
DEFINE facturas,ordenes,nom_cuenta CHAR(70)
DEFINE orden1 CHAR(6)
DEFINE factura1 CHAR(10)
DEFINE refe DYNAMIC ARRAY OF CHAR(12)

DEFINE cuentas DYNAMIC ARRAY  OF RECORD
       cuenta_no   LIKE cgtb00001.cuenta_no,
       descripcion LIKE cgtb00001.descripcion,
       nivel       LIKE cgtb00001.nivel
END RECORD

DEFINE aplica_wd DYNAMIC ARRAY  OF RECORD
       aplica_a    LIKE cptb00001.aplica_a,
       pendiente   DECIMAL(12,2)
END RECORD

DEFINE arr_recibo DYNAMIC ARRAY  OF RECORD
       tipo        LIKE cptb00001.tipo,
       orden_no    LIKE cptb00001.orden_no,
       aplica_a    LIKE cptb00001.aplica_a,
       valor_pen   DECIMAL(12,2),
       valor_pag   DECIMAL(12,2)
END RECORD

DEFINE arr_cuenta1 DYNAMIC ARRAY OF RECORD
       cuenta_no     LIKE cgtb00004.cuenta_no,
       departamento  LIKE cgtb00004.departamento,
       cod_aux       LIKE cgtb00004.cod_aux,
       cod_sec       LIKE cgtb00004.cod_sec,
       num_doc       LIKE cgtb00004.num_doc,
       nom_cuenta    CHAR(30),
       debito        LIKE cgtb00004.debito,
       credito       LIKE cgtb00004.credito
END RECORD

DEFINE recibo RECORD
       tipo_doc     LIKE cptb00001.tipo_doc,
       cuenta_p     LIKE cgtb00004.cuenta_no,
       numero       INTEGER,                   
       cod_sp       LIKE cptb00001.cod_sp,      
       cod_sp_sec   LIKE cptb00001.cod_sp_sec,      
       nom_sup      CHAR(44),
       fecha        DATE,
       tasa         LIKE cgtb00005.tasa,
       monto        DECIMAL(12,2),
       codigo       LIKE tetb00003.codigo
END RECORD,
       detalle_1    CHAR(40),                  
       detalle_2    CHAR(40),
       detalle_3    CHAR(40),
       detalle_4    CHAR(40),
       detalle_5    CHAR(40),
       valor_1      DECIMAL(12,2),
       valor_2      DECIMAL(12,2),
       valor_3      DECIMAL(12,2),
       valor_4      DECIMAL(12,2),
       valor_5      DECIMAL(12,2)

DEFINE porc_p DECIMAL(10,2)
DEFINE emp SMALLINT
DEFINE hoy DATE
   DEFINE entradas RECORD LIKE cgtb00011.*
   DEFINE catalogo RECORD LIKE cgtb00001.*
   DEFINE p_departa RECORD LIKE cgtb00002.*
   DEFINE p_tipos RECORD LIKE cgtb00003.*
   DEFINE mov_cuenta RECORD LIKE cgtb00009.*
   DEFINE movi_cuenta RECORD LIKE cgtb00010.*
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)
      
END GLOBALS