SCHEMA smarmotech    

GLOBALS

  DEFINE movimientos RECORD
    cod_mov          LIKE   istb00006.cod_mov,
    num_doc          LIKE   istb00006.num_doc,
    fecha            LIKE   istb00006.fecha,
    conduce_no       LIKE   istb00006.conduce_no,
    fact_no          LIKE   istb00006.fact_no,
    tipo             LIKE   istb00006.tipo,
    orden_compra     LIKE   istb00006.orden_compra,
    cod_sp           LIKE   istb00006.cod_sp,
    cod_sp_sec       LIKE   istb00006.cod_sp_sec,
    depto_de         LIKE   istb00006.depto_de,
    bodega           LIKE   istb00006.bodega
END RECORD,
 usuarios,clave VARCHAR(50)

DEFINE letras RECORD
     negrillas_on      ,
     negrillas_off     ,
     doble_on          ,
     doble_off         ,
     comp_on           ,
     comp_off          ,
     doce              ,
     normal            CHAR(6)
END RECORD
 DEFINE   impresor              SMALLINT,
          imprime               CHAR(80),
          archivo               CHAR(20)

DEFINE ultimo    RECORD
    cond_recep    LIKE istb00006.cond_recep,
    uso_tiempo    LIKE istb00006.uso_tiempo
END RECORD
{
DEFINE datos1 RECORD
    cod_mov       LIKE istb00005.cod_mov,
    descrip_mov   LIKE istb00005.descrip_mov,
    num_doc       LIKE istb00006.num_doc,
    fecha         LIKE istb00006.fecha,
    depto_a       LIKE istb00006.depto_a,
    nom_dpto      LIKE adtb00001.nom_dpto,
    bodega        LIKE istb00006.bodega
END RECORD
}
DEFINE p_conteo RECORD
    fecha         LIKE istb00006.fecha,   
    bodega        LIKE istb00006.bodega,
    cod_n         LIKE istb00006.cod_n,      
    cod_grupo     LIKE istb00006.cod_grupo,
    cod_tipo      LIKE istb00006.cod_tipo,   
    cod_sec       LIKE istb00006.cod_sec,    
    cantidad      LIKE istb00006.cantidad_2
END RECORD

{
DEFINE costos RECORD
    mes_ini       LIKE istb00013.mes_ini, 
    mes_fin       LIKE istb00013.mes_fin,
    ano           LIKE istb00013.ano,        
    cod_n         LIKE intb00001.cod_N,
    cod_grupo     LIKE intb00001.cod_grupo,
    cod_tipo      LIKE intb00001.cod_tipo,   
    cod_sec       LIKE intb00001.cod_sec,    
    costo_st      LIKE istb00013.costo_st,  
    us_crea       LIKE istb00013.us_crea,   
    fech_crea     LIKE istb00013.fech_crea, 
    us_mod        LIKE istb00013.us_mod,    
    fech_mod      LIKE istb00013.fech_mod   
END RECORD
}
DEFINE datos RECORD   
    num_doc       LIKE istb00006.num_doc,
    fecha         LIKE istb00006.fecha,
    depto_de      LIKE istb00006.depto_de,
    depto_a       LIKE istb00006.depto_a,
    nom_dpto      LIKE adtb00001.nom_dpto,
    nom_dpto1     LIKE adtb00001.nom_dpto,
    bodega        LIKE istb00006.bodega
END RECORD

DEFINE datos_gen RECORD
    cod_mov       LIKE istb00006.cod_mov,
    num_doc       LIKE istb00006.num_doc,
    tipo          LIKE istb00006.tipo,
    orden_compra  LIKE istb00006.orden_compra,
    cod_sp        LIKE istb00006.cod_sp,
    cod_sp_sec    LIKE istb00006.cod_sp_sec,
    conduce_no    LIKE istb00006.conduce_no,
    fact_no       LIKE istb00006.fact_no,
    fecha         LIKE istb00006.fecha,
    bodega        LIKE istb00006.bodega,
    nom_sp        LIKE cotb00001.nom_sp,
    descrip_mov   VARCHAR(60),
    depto_de      LIKE istb00006.depto_de,
    depto_a       LIKE istb00006.depto_a
END RECORD
{
DEFINE otros_mov RECORD
    num_doc       LIKE istb00006.num_doc,
    cod_mov       LIKE istb00006.cod_mov,
    fecha         LIKE istb00006.fecha,
    descrip_mov   LIKE istb00005.descrip_mov,
    bodega        LIKE istb00006.bodega
END RECORD
}
DEFINE chequea RECORD
    pto       LIKE istb00002.pto_reorden,
    existe    LIKE istb00002.existencia
END RECORD

  DEFINE bandera smallint
  DEFINE p_fechas DATE   
  DEFINE nombre_dia ARRAY[7] OF char(10)
  DEFINE nombre_mes ARRAY[12] OF char(10)
  DEFINE general decimal(12,2)
  DEFINE p_bodega SMALLINT
  DEFINE arancel RECORD LIKE cotb00005.*
  DEFINE status_m char(1)
  DEFINE decide char(1)
  DEFINE cant DECIMAL(10,2)
  DEFINE tipo_papel smallint
  DEFINE balance DECIMAL(12,2)
  DEFINE cod_mov_ant LIKE istb00006.cod_mov
  DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000)
  DEFINE opc ,opt2,existe,ya ,opera1,cambio CHAR(1)
  DEFINE medida CHAR (3)
  DEFINE fila smallint
  DEFINE m_articulos RECORD LIKE istb00002.*
  DEFINE numero_msg LIKE msgtable.cod_msg 
  DEFINE articulos RECORD LIKE intb00001.*

DEFINE mensajes RECORD {LIKE msgtable.* }
     cod_msg   smallint,
     desc_msg  char(60),
     us_crea   char(9),
     fech_crea char(16),
     us_mod    char(9),
     fech_mod  char(16)
END RECORD    

#DEFINE transacc RECORD LIKE istb00005.* 
   {  cod_mov      smallint,
     descrip_mov  char (40),
     status_mov   char (1),
     cuenta_1     char (4),
     cuenta_2     char (4),
     cuenta_3     char (4),
     us_crea      char(9),
     fech_crea    char(16),
     us_mod       char(9),
     fech_mod     char(16)    
END RECORD   }

  DEFINE medidas RECORD LIKE intb00007.*  
  DEFINE descrip3,descrip4 CHAR(30),
         descrip1,descrip2 CHAR(60)
  DEFINE criterio CHAR(1000)
  DEFINE selec CHAR(1000)
  DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
  DEFINE p_act,idx,scr_l SMALLINT
  DEFINE opcion CHAR(1) 

DEFINE movi2 ARRAY[100] OF RECORD
    cod_n        LIKE istb00002.cod_n,
    cod_grupo    LIKE istb00002.cod_grupo,
    cod_tipo     LIKE istb00002.cod_tipo,
    cod_sec      LIKE istb00002.cod_sec,
    cantidad_2   LIKE istb00006.cantidad_2,
    unidad_med   LIKE intb00001.unidad_med,      
    descrip_esp  LIKE intb00001.descrip_esp
END RECORD

DEFINE art ARRAY[200] OF RECORD
    cod_n1         SMALLINT,
    cod_grupo1     SMALLINT,
    cod_tipo1      SMALLINT,
    cod_sec1       SMALLINT,
    descrip_esp1   CHAR(30),
    unidad_med     LIKE intb00001.unidad_med,
    bodega         LIKE istb00002.bodega,
    existencia     like istb00002.existencia,
    pto_reorden    LIKE istb00002.pto_reorden,
    dia_llegada    LIKE istb00002.dia_llegada,
    precio         LIKE cotb00015.precio,   
    valor          decimal(10,2)
END RECORD

DEFINE csmov1 ARRAY[300] OF RECORD
    num_doc      CHAR(11),
    fecha_2      LIKE istb00006.fecha,   
    entrada      char(14),
    salida       char(14),
    balance      char(14)
END RECORD

DEFINE csmov RECORD
    num_doc      LIKE istb00006.num_doc,   
    fecha_1      LIKE istb00006.fecha,   
    cantidad_2   LIKE istb00006.cantidad_2 ,
    cod_mov      LIKE istb00006.cod_mov
END RECORD
   
DEFINE datos_cons RECORD
    cod_n        LIKE intb00001.cod_n,  
    cod_grupo    LIKE intb00001.cod_grupo,
    cod_tipo     LIKE intb00001.cod_tipo,  
    cod_sec      LIKE intb00001.cod_sec,     
    descrip_esp  LIKE intb00001.descrip_esp,    
    unidad_med   LIKE intb00001.unidad_med,     
    bodega       LIKE istb00006.bodega,
    fech_in      LIKE istb00006.fecha,       
    fech_fi      LIKE istb00006.fecha 
END RECORD

DEFINE movi3 ARRAY[100] OF RECORD
    codigo       CHAR(10),  
    cantidad_1   LIKE istb00006.cantidad_1,
    cantidad_2   LIKE istb00006.cantidad_2,
    diferencia   DECIMAL(10,2), 
    descrip_esp  LIKE intb00001.descrip_esp, 
    unidad_med   LIKE intb00001.unidad_med      
END RECORD

DEFINE movi_ant ARRAY[100] OF RECORD
    cod_n        LIKE istb00006.cod_n,
    cod_grupo    LIKE istb00006.cod_grupo,
    cod_tipo     LIKE istb00006.cod_tipo,
    cod_sec      LIKE istb00006.cod_sec,
    cant_ant     LIKE istb00006.cantidad_2
END RECORD

DEFINE movi ARRAY[100] OF RECORD
    cod_n        LIKE istb00006.cod_n,
    cod_grupo    LIKE istb00006.cod_grupo,
    cod_tipo     LIKE istb00006.cod_tipo,
    cod_sec      LIKE istb00006.cod_sec,
    cantidad_1   LIKE istb00006.cantidad_1,
    cantidad_2   LIKE istb00006.cantidad_2,
    unidad_med   LIKE intb00001.unidad_med,      
    descrip_esp  LIKE intb00001.descrip_esp 
END RECORD

DEFINE ant_art RECORD 
         cod_n         LIKE cotb00002.cod_n,
         cod_grupo     LIKE cotb00002.cod_grupo,
         cod_tipo      LIKE cotb00002.cod_tipo,
         cod_sec       LIKE cotb00002.cod_sec 
END RECORD 

DEFINE consulta_mv ARRAY[200] OF RECORD
    num_doc      LIKE istb00006.num_doc,
    fecha        LIKE istb00006.fecha,
    nombre       char(7),
    cantidad_1   LIKE istb00006.cantidad_1,
    cantidad_2   LIKE istb00006.cantidad_1,
    balance      decimal(12,2)         
END RECORD
{
DEFINE c_det_inv ARRAY[200] OF RECORD
    cod_n        LIKE intb00001.cod_n,
    cod_grupo    LIKE intb00001.cod_grupo,
    cod_tipo     LIKE intb00001.cod_tipo,
    cod_sec      LIKE intb00001.cod_sec,
    descrip_esp  LIKE intb00001.descrip_esp,
    existencia   LIKE istb00002.existencia, 
    costo        LIKE istb00013.costo_st,
    valor        DECIMAL(12,2)  
END RECORD
}
DEFINE datos_cs RECORD
    cod_n        LIKE istb00006.cod_n,
    cod_grupo    LIKE istb00006.cod_grupo,
    cod_tipo     LIKE istb00006.cod_tipo,
    cod_sec      LIKE istb00006.cod_sec,
    descrip_esp  LIKE intb00001.descrip_esp,
    fecha_in     LIKE istb00006.fecha,
    fecha_fi     LIKE istb00006.fecha
END RECORD

  DEFINE furgon    RECORD LIKE cotb00003.*
  DEFINE furgonart RECORD LIKE cotb00004.*
  DEFINE arancelart RECORD LIKE cotb00006.*
END GLOBALS