SCHEMA smarmotech   

GLOBALS

  DEFINE comisiones RECORD LIKE cctb00008.*,
         pventas ui.combobox,
         nombre_sucursal CHAR(60),
         codigo_sucursal SMALLINT,
         vendedorEmail,subject CHAR(150),
         cuerpo_correo VARCHAR(1000),
         copiacorreo DYNAMIC ARRAY OF CHAR(80),
         copiaemail VARCHAR(160),
         pperfil SMALLINT,
         acceso,aplicacion_antiguas CHAR(2),
         pflag CHAR(1),
         HANDLER om.SaxDocumentHandler,
         strconect VARCHAR(20),
         r_output VARCHAR(20),
         grafico STRING,numero_ck,numero_cr VARCHAR(50),
         r_filename STRING,
         HANDLER om.SaxDocumentHandler,
         preview BOOLEAN,
         p_nombre_tipo CHAR(30),
         condicionPago STRING,
         xdireccion,xnombre_proyecto,xnombre_provincia CHAR(60),
         afecta_ex VARCHAR(3)
     

  DEFINE p_fechas,comp_fech,comp_fech1,fecha_c,fecha_vencimiento,fecha_proximo DATE,   
         respuesta CHAR(3) ,
         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,salida STRING, 
         procedimiento STRING,
         selec2 CHAR(500), 
         selec3,selec1, selec4 STRING, 
         descrip1,descrip2,descrip3,descrip4 CHAR(30),
         nombre_tipo,nombre_emp,nom_cli CHAR(100), 
         descrip5 CHAR(65), 
         descrip6 CHAR(45),
         desc_p,valor_fac,pagada,monto,pendiente,valor1,monto_efectivo,monto_ck,monto_cr DECIMAL(12,2), 
         k,tipo_papel, curr, curr1, fila,scr_l,bandera,otrab,mes_calc,
         dia SMALLINT,
         cmd,imprime,copia CHAR(150),archivo, file CHAR(80),impresor,progreso,p_ano,p_mes SMALLINT
  DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
         CHAR(3),opt,opt1,cero CHAR(10), 
         usuarios,clave CHAR(80),tipo_venta CHAR(30),
         chmensaje STRING,
         idx INT
  

  DEFINE rango RECORD
         fecha_ini  DATE,
         fecha_fin  DATE
  END RECORD

  DEFINE numero_msg LIKE msgtable.cod_msg
  
  DEFINE requisicion RECORD 
     num_req            INT,
     fecha_requisicion  DATE,
     sec_vend           SMALLINT,
     nombre_vendedor    CHAR(30),
     busca_orden        INT,
     sec_vend_a         INT,
     nombre_a           CHAR(60),
     estado             CHAR(20)
  END RECORD
  DEFINE arr_requisicion DYNAMIC ARRAY OF RECORD
         procesa      CHAR(3),
         num_oc       INT,
         fecha        CHAR(10),
         cotizacion_no INT,
         tipo_cliente SMALLINT,
         sec_cliente  INT,
         nombre       CHAR(30),
         cantidad_1   DEC(12,5),
         cantidad     DEC(12,5),
         area         SMALLINT,
         cod_n        SMALLINT,
         cod_grupo    SMALLINT,
         cod_tipo     SMALLINT,
         cod_sec      SMALLINT,
         descripcion  CHAR(30),
         unidad_med   CHAR(3),
         cantidad_ord1 DEC(12,5),
         cantidad_ord DEC(12,5),
         cantidad_pendiente DEC(12,5),
         precio       DEC(12,4),
         descuento    DEC(12,2),
         descvalor    DEC(12,2),
         valor        DEC(12,2),
         kit          INT
  END RECORD
  
                             
  DEFINE arr_autoriza DYNAMIC ARRAY OF RECORD
     inserta         CHAR(2),
     estado          CHAR(20),
     estado_despacho CHAR(20),
     vendedor        CHAR(60),
     sec_vend_sp     VARCHAR(60),
     num_req         INT,
     fecha           DATE,
     cotizacion_no    INT,
     num_oc          INT,
     tipo_venta      CHAR(60),
     cliente         CHAR(60),
     valor_cotizacion DEC(12,2),
     valor_autorizar  DEC(12,2),
     sec_vend         SMALLINT,
   {  cod_n            SMALLINT,
     cod_grupo            SMALLINT,
     cod_tipo            SMALLINT,
     cod_sec            SMALLINT,}
     tipo_cliente       INT,
     sec_cliente        INT,
     balance          DEC(12,2),
     balance_restante DEC(12,2)
  END RECORD   
  
  
  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,
     cuenta_no    LIKE cctb00001.cuenta_no,
     fecha_orig   LIKE cctb00001.fecha_orig ,
     comentario   CHAR(60)
  END RECORD

  DEFINE arr_recibo DYNAMIC ARRAY OF RECORD
       num_nc      INTEGER, 
       cotizacion_no INT,
       tipo_doc_aplica CHAR(2),
       aplica_a    LIKE cctb00001.aplica_a,
       valor_pen   DECIMAL(12,2),
       num_cheque  INT,
       tipo_doc_recibo VARCHAR(2),
       valor_cheque DEC(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 DYNAMIC ARRAY OF RECORD
       aplica_a    LIKE cctb00001.aplica_a,
       pendiente   DECIMAL(12,2),
       fecha       CHAR(10),
       cotizacion_no INT,
       num_oc        INT,
       factura_e     INT,
       tipo_doc    CHAR(2)
  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,
         nombre_proyecto CHAR(30)
  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 cliente_bas RECORD LIKE vetb00004.*
  DEFINE p_companias RECORD LIKE companias.*
  DEFINE cliente_dir RECORD LIKE vetb00005.*
  DEFINE transportista RECORD LIKE vetb00015.*
  DEFINE lj INTEGER
      
END GLOBALS