schema smarmotech

GLOBALS
  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
         CHAR(3),
         cmd,copia CHAR(150)
 DEFINE vendedorzp RECORD LIKE vetb00010.*,
   p_compania RECORD LIKE companias.*
   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 deposito RECORD
    num_doc INT,
    cuenta_no CHAR(8),
    cta_banco CHAR(8),
    procedencia INT,
    fecha DATE,
    monto DEC(12,2),
    status_t CHAR(1),
    us_crea CHAR(50),
    fech_crea DATE,
    us_mod CHAR(50),
    fech_mod DATE,
    sucursal INT,
    monto_efectivo,monto_ck,monto_link,monto_tarjeta DECIMAL(12,2)
 END RECORD

    DEFINE documentos DYNAMIC ARRAY OF RECORD
        fecha DATE,
        documento INT,
        tipodocumento CHAR(2),
        tipo_cliente INT,
        sec_cliente INT,
        cliente     CHAR(200),
        valor  DEC(12,2),
        moneda VARCHAR(60),
        ventas CHAR(1)
    END record
 
 DEFINE b_procedencias DYNAMIC ARRAY OF RECORD
    procedencia3 INT,
    descripcion3 CHAR(100)
 END record
 DEFINE procedencias RECORD
    procedencia INT,
    descripcion CHAR(100),
    status_t CHAR(1),
    us_crea CHAR(50),
    fech_crea DATE,
    us_mod CHAR(50),
    fech_mod date
 END record
 DEFINE p_tetb03 RECORD LIKE tetb00003.*
 DEFINE p_tetb04 RECORD
    codigo INT ,
    ano INT,
    mes INT,
    valor DECIMAL(14,2),
    status_t CHAR(1),
    us_crea CHAR(50),
    fech_crea DATE,
    us_mod CHAR(50)
 END RECORD

 DEFINE p_tetb003 dynamic ARRAY OF RECORD
    codigo2 INT,
    descripcion1 CHAR(50),
    ano2 int
 END record
 #DEFINE p_tetb05 RECORD LIKE tetb00005.*
 #DEFINE p_tetb06 RECORD LIKE tetb00006.*
 #DEFINE p_tetb07 RECORD LIKE tetb00007.*
 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)
 DEFINE excede ARRAY[200] OF CHAR(1)
 DEFINE p_bonifica,cant_pend ARRAY[20] OF INTEGER,
        regi INTEGER,
        p_param CHAR(1),
        usuarios,clave CHAR(80)
       
  
  DEFINE p_fechas  DATE
  DEFINE opt4,opt3,impresion,verdad,identifica,existe,tiene_facturas,  
         detalle,status_reg CHAR(1), 
         criterio CHAR(1000), 
         selec CHAR(1000), 
         selec2 CHAR(500), 
         selec3 CHAR(1000), 
         tipo2,opcion CHAR(2),
         valor_letras CHAR(90),
         luz CHAR(5),
         p_act,p_cantidad_1,tipo1,longitud,p_fact_no,bandera,p_existencia 
         INTEGER,
         p_cantidad_2,p_cedula,p_serie INTEGER,
         compania  CHAR(50),
         parametro1 CHAR(10),
         medida CHAR(3),
         descventa CHAR(11),
         nombre_desc,descrip2,nombre_pt,nom_cliente CHAR(30),
         descrip1 CHAR(46),
         descrip3 CHAR(30),
         descrip4 CHAR(30),
         descrip5 CHAR(65),
         descrip6 CHAR(45),
         zona_p   CHAR(30),
         provincia_p CHAR(30), 
         tipo_papel,idx, curr2,curr, curr1, fila, scr_l SMALLINT,
         ano1,ano_c CHAR(4),
         desc_valor CHAR(10),
         sub_total CHAR(14),
         itbi      CHAR(14),
         total_fact CHAR(14),
         p_fecha_ven DATE,
         p_costos,p_precio DECIMAL (12,2),
         p_costos1 DECIMAL (8,3),
         p_costos2 DECIMAL (12,2),
         p_costos3 DECIMAL (12,2),
         valor_orig DECIMAL (12,2),
         t_costos DECIMAL (12,2),
         p_cantidad INTEGER,
         unidades INTEGER,
         dias_v ,h SMALLINT,
         p_desc DECIMAL(10,3),
         p_user CHAR(9)

  DEFINE numero_msg LIKE msgtable.cod_msg
  DEFINE zona RECORD LIKE vetb00008.* 
  DEFINE datos RECORD LIKE vetb00019.*
  DEFINE zonap RECORD LIKE vetb00009.* 
  DEFINE pago RECORD LIKE vetb00012.* 
  DEFINE medidas RECORD LIKE vetb00014.* 
  DEFINE pterminado RECORD LIKE iptb00002.* 
  DEFINE descuento RECORD LIKE vetb00013.* 
  DEFINE descuentoh RECORD LIKE vetb00027.* 
  DEFINE transportista RECORD LIKE vetb00015.* 
  DEFINE comisiones RECORD LIKE cctb00008.* 
  DEFINE cliente_bas RECORD LIKE vetb00004.* 
  DEFINE cliente_dir RECORD LIKE vetb00005.* 
  DEFINE cliente_eco RECORD LIKE vetb00006.* 
  DEFINE cliente_des RECORD LIKE vetb00007.* 
#  DEFINE presupuesto RECORD LIKE vetb00017.*
  DEFINE controles RECORD LIKE vetb00018.*
  DEFINE paises RECORD LIKE cotb00018.*
  DEFINE tarifa RECORD LIKE vetb00023.*
  DEFINE visitas RECORD LIKE vetb00024.*
  DEFINE pre_pila RECORD LIKE vetb00025.*,
         archivo CHAR(20),
         imprime CHAR(80),
         imprime1 CHAR(80),
         impresor SMALLINT,
         parametro CHAR(2),
         orden CHAR(1),
         destino CHAR(1)

  DEFINE letras RECORD  
       negrillas_on  CHAR(6),
       negrillas_off CHAR(6),
       doble_on      CHAR(6),
       doble_off     CHAR(6),
       comp_on       CHAR(6),
       comp_off      CHAR(6),
       doce          CHAR(6),
       normal        CHAR(6)
  END RECORD

  DEFINE rango RECORD
    fech_in DATE,
    fech_fi DATE
  END RECORD

  DEFINE datos_empleados RECORD 
         cod_emp     LIKE adtb00003.num_emp,
         nom_emp     LIKE adtb00003.nom1_emp,
         apell_emp   LIKE adtb00003.apell1_emp 
  END RECORD 

  DEFINE descuenta DYNAMIC ARRAY OF RECORD
    codigo  INTEGER,
    porc    DECIMAL(10,2),
    valor   DECIMAL(10,2)
  END RECORD

  DEFINE arr_tetb04 DYNAMIC ARRAY OF RECORD
    mes     INTEGER,
    descrip CHAR(30),
    valor   DECIMAL(10,2)
  END RECORD
  DEFINE arr_tetb05 DYNAMIC ARRAY OF RECORD
    mes     INTEGER,
    descrip CHAR(30),
    valor   DECIMAL(10,2)
  END RECORD
  DEFINE mes1 DYNAMIC ARRAY OF CHAR (11)
  DEFINE dias DYNAMIC ARRAY OF CHAR(11)

  DEFINE cli_vend DYNAMIC ARRAY OF RECORD
         cod_vend    LIKE adtb00003.num_emp,
         nombre_v     CHAR(60)
  END RECORD

  DEFINE arr_empleados DYNAMIC ARRAY OF RECORD 
         cod_emp     LIKE adtb00003.num_emp,
         nom_emp     LIKE adtb00003.nom1_emp,
         apell_emp   LIKE adtb00003.apell1_emp 
  END RECORD 

  DEFINE empleados DYNAMIC ARRAY OF RECORD 
         cod_emp     LIKE adtb00003.num_emp,
         descrip6    CHAR(65)  
  END RECORD 

  DEFINE arr_procedencia DYNAMIC ARRAY OF RECORD
         procedencia int,
         descripcion CHAR(100)
  END RECORD

  DEFINE zonas DYNAMIC ARRAY OF RECORD
         cod_zona    LIKE vetb00008.cod_zona,
         descrip     LIKE vetb00008.descrip 
  END RECORD

  DEFINE provincias DYNAMIC ARRAY OF RECORD
         cod_provincia    LIKE vetb00020.cod_provincia, 
         nombre_provincia LIKE vetb00020.nombre_provincia 
  END RECORD
  
  DEFINE porc_zona DYNAMIC ARRAY OF RECORD
     ventas   CHAR(1),  
     zona      CHAR(3),
     descrip   CHAR(30),
     cod_n     SMALLINT,
     cod_grupo SMALLINT,
     cod_tipo  SMALLINT,
     cod_sec   SMALLINT,
     mes       CHAR(4), 
     desc_mes  CHAR(30),
     porciento DECIMAL(7,3) 
  END RECORD

  DEFINE porc_prov DYNAMIC ARRAY OF RECORD
     ventas   CHAR(1),  
     zona      CHAR(3),
     provincia SMALLINT,
     cod_n     SMALLINT,
     cod_grupo SMALLINT,
     cod_tipo  SMALLINT,
     cod_sec   SMALLINT,
     descrip   CHAR(30),
     mes       CHAR(4), 
     desc_mes  CHAR(30),
     porciento DECIMAL(7,3) 
  END RECORD

  DEFINE porc_clie DYNAMIC ARRAY OF RECORD
     ventas      CHAR(1),  
     zona         CHAR(3),
     provincia    SMALLINT,
     tipo_cliente SMALLINT,
     sec_cliente  SMALLINT,
     cod_n        SMALLINT,
     cod_grupo    SMALLINT,
     cod_tipo     SMALLINT,
     cod_sec      SMALLINT,
     mes       CHAR(4), 
     desc_mes  CHAR(30),
     porciento    DECIMAL(7,3) 
  END RECORD

  DEFINE pres_venta DYNAMIC ARRAY OF RECORD
      ventas      CHAR(1), 
      descrip1    CHAR(15),
      cod_n       SMALLINT,
      cod_grupo   SMALLINT,
      cod_tipo    SMALLINT,
      cod_sec     SMALLINT,
      mes         SMALLINT,
      descrip_mes CHAR(11),
      cantidad    INTEGER,
      valor       DECIMAL(12,2)
 END RECORD

 DEFINE reg_ventas RECORD
        cod_n1      SMALLINT,
        cod_grupo1  SMALLINT,
        cod_tipo1   SMALLINT,
        cod_sec1    SMALLINT,
        descrip1    CHAR(30),
        unidades1   INTEGER,
        valor1      DECIMAL(14,2)
 END RECORD

 DEFINE reg_ventas2 RECORD
        zona2       CHAR(3), 
        cod_n2      SMALLINT,
        cod_grupo2  SMALLINT,
        cod_tipo2   SMALLINT,
        cod_sec2    SMALLINT,
        descrip2    CHAR(30),
        unidades2   INTEGER,
        valor2      DECIMAL(14,2)
 END RECORD

 DEFINE arr_ventas DYNAMIC ARRAY OF RECORD
        codigo1     CHAR(10),
        descrip1    CHAR(30),
        unidades1   CHAR(14), 
        valor1      CHAR(17) 
 END RECORD

 DEFINE reg_clientes RECORD
        tipo1       SMALLINT,
        sec1        SMALLINT,
        descrip1    CHAR(30), 
        unidades1   INTEGER 
 END RECORD

 DEFINE arr_cajas DYNAMIC ARRAY OF RECORD
        cod_n1      SMALLINT,
        cod_grupo1  SMALLINT,
        cod_tipo1   SMALLINT,
        cod_sec1    SMALLINT,
        descrip1    CHAR(30),
        cajas1      INTEGER 
 END RECORD

 DEFINE arr_ventas3 DYNAMIC ARRAY OF RECORD
        codigo1     CHAR(7),
        descrip1    CHAR(30),
        unidades1   CHAR(14)  
 END RECORD

  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 pais_wd DYNAMIC ARRAY OF RECORD
        cod_pais LIKE cotb00018.cod_pais,
        nom_pais LIKE cotb00018.nom_pais
 END RECORD

 DEFINE arr_transp DYNAMIC ARRAY OF RECORD
      cod_transp   SMALLINT,
      sec_transp   SMALLINT,
      nombre       CHAR(30)
  END RECORD

  DEFINE arr_tarifa DYNAMIC ARRAY OF RECORD
     cod_tarifa   SMALLINT,
     descrip      CHAR(30)
  END RECORD

  DEFINE arr_condicion DYNAMIC ARRAY OF RECORD
     cond_pago    SMALLINT,
     descrip      CHAR(30)
  END RECORD

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