SCHEMA smarmotech

GLOBALS

 DEFINE arr_prod DYNAMIC ARRAY OF RECORD
   cod_n          INTEGER,
   cod_grupo      INTEGER,
   cod_tipo       INTEGER,
   cod_sec        INTEGER,
   descrip_esp    CHAR(30),
   unidad_med     CHAR(5),
   existencia     FLOAT
 END RECORD,
   p_irtb57 RECORD
      numero_doc            INT,
      cod_mov               SMALLINT,
       fecha                DATE,
       num_oc               INT,
       orden_trabajo        INT,
       observacion          VARCHAR(200),
       tipo_cliente         SMALLINT,
       sec_cliente          INT,
       cliente              VARCHAR(100),
       bodega               SMALLINT,
       bodega_destino      SMALLINT,
       estado              VARCHAR(50),
       ruta_documento      ,
       url_file            STRING,
       idstado      VARCHAR(60)
    END RECORD,
          arr_irtb58 DYNAMIC ARRAY OF RECORD
             area        INT,
             cod_n,cod_grupo,cod_tipo,cod_sec INT,
             descripcion VARCHAR(100),
             unidad_med VARCHAR(4),
             cantidad_1,cantidad,cantidad_o1,cantidad1,factor_conv DEC(12,5)       
          END RECORD,
 arr_busqueda DYNAMIC ARRAY OF RECORD
           estadp1        VARCHAR(50),
           estado_proceso1 VARCHAR(100),
           tipo_documento VARCHAR(100),
           numeroid        INT,
           fechadoc           DATE,
           nombre             VARCHAR(100),
           observacion        VARCHAR(200),
           bodega_origen     VARCHAR(100),
           bodega_destino    VARCHAR(100),
           cod_mov            INT,
           bodega1            SMALLINT,
           bodega2            SMALLINT
         END RECORD,
         secuencia INT,
         nombreUsuario,email,nombreBodega,nombreBodegaDestino,nombreMov STRING,
         cbmovimiento ui.ComboBox 

         DEFINE 
                tieneDetalle,requiere VARCHAR(2),
                ordenPedidos,existe BOOLEAN,
                xestado VARCHAR(50),xtiene VARCHAR(3),tienedespiece BOOLEAN,
                total_cantidad,total_medida DEC(12,5),
     xtiene VARCHAR(3),
     cuentaimp INT
    
   DEFINE consulta,pflag CHAR(1),
     USUARIOS, CLAVE CHAR(50),
     progreso SMALLINT
     DEFINE  cmd,imprime,copia CHAR(150),archivo CHAR(80),i,impresor SMALLINT
     DEFINE doce,normal,doble,doble_of,negras,negras_off CHAR(3)
     DEFINE negrilla_on,negrillas_of,comp_on,comp_off,doble_on,doble_off
         CHAR(3),
         pprograma CHAR(12),
         handler om.SaxDocumentHandler,   -- return value from fgl_report_commitCurrentSettings()
          r_filename,inventario STRING,              -- filename of Report Design Document including .4rp extension
          r_output,selec_pt,TOEmail,subject,ccemail,PCCEMAIL,cuerpo_correo,procedimiento   STRING
          
  DEFINE regi,p_ultimo,curr1 INTEGER
  DEFINE p_param,ya,existe CHAR(1),
         formulario        CHAR(100) ,
         lj SMALLINT,
         p_companias RECORD LIKE companias.*,
         nombre_d CHAR(50)

  DEFINE chequea RECORD
    existe           LIKE   irtb00002.existencia,
    pto              LIKE   irtb00002.existencia
  END RECORD,
  preview smallint

  DEFINE movimientos RECORD
    num_doc          LIKE   intb00006.num_doc,
    cod_mov          LIKE   intb00006.cod_mov,
    fecha            LIKE   intb00006.fecha,
    tipo             LIKE   cotb00014.tipo,
    orden_compra     LIKE   intb00006.orden_compra,
    cod_sp           LIKE   intb00006.cod_sp,
    cod_sp_sec       LIKE   intb00006.cod_sp_sec,
    fact_no          LIKE   intb00006.fact_no,
    conduce_no       LIKE   intb00006.conduce_no,
    sec_de           LIKE   intb00006.depto_de,
    sec_a            LIKE   intb00006.depto_a
END RECORD

DEFINE ultimo    RECORD
    cond_recep    LIKE intb00006.cond_recep,
    uso_tiempo    LIKE intb00006.uso_tiempo
END RECORD

DEFINE busca_wd1 ARRAY [100] OF RECORD
    codigo       LIKE adtb00001.departamento,
    nom_dpto     LIKE adtb00001.nom_dpto
END RECORD

DEFINE busca_wd2 ARRAY [500] OF RECORD
    codigo       LIKE irtb00009.codigo,
    nombre       LIKE irtb00009.nombre
END RECORD

DEFINE datos1 RECORD
    cod_mov       LIKE irtb00006.cod_mov,
    descrip_mov   LIKE irtb00005.descrip_mov,
    num_doc       LIKE intb00006.num_doc,
    tipo          LIKE irtb00006.tipo,
    orden_compra  LIKE irtb00006.orden_compra,
    cod_sp        SMALLINT,     
    cod_sp_sec    SMALLINT,
    fecha         DATE,
    conduce_no    VARCHAR(50),
    departamento  INT,      
    nom_sp        CHAR(30)
END RECORD

DEFINE p_conteo RECORD
    fecha         LIKE intb00006.fecha,   
    bodega        LIKE intb00006.bodega,
    cod_n         LIKE intb00006.cod_n,      
    cod_grupo     LIKE intb00006.cod_grupo,
    cod_tipo      LIKE intb00006.cod_tipo,   
    cod_sec       LIKE intb00006.cod_sec,    
    cantidad      LIKE intb00006.cantidad_2
END RECORD


DEFINE costos RECORD
    mes_ini       LIKE intb00013.mes_ini, 
    mes_fin       LIKE intb00013.mes_fin,
    ano           LIKE intb00013.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 intb00013.costo_st,  
    us_crea       LIKE intb00013.us_crea,   
    fech_crea     LIKE intb00013.fech_crea, 
    us_mod        LIKE intb00013.us_mod,    
    fech_mod      LIKE intb00013.fech_mod   
END RECORD

DEFINE datos RECORD   
    num_doc       LIKE intb00006.num_doc,
    fecha         LIKE intb00006.fecha,
    depto_de      LIKE intb00006.depto_de,
    depto_a       LIKE intb00006.depto_a,
    nom_dpto      LIKE adtb00001.nom_dpto,
    nom_dpto1     LIKE adtb00001.nom_dpto,
    bodega        LIKE intb00006.bodega
END RECORD

DEFINE datos_gen RECORD
    cod_mov       LIKE irtb00006.cod_mov,
    num_doc       LIKE irtb00006.num_doc,
    tipo          SMALLINT,
    orden_compra  LIKE irtb00006.orden_compra,
    cod_sp        LIKE irtb00006.cod_sp,
    cod_sp_sec    LIKE irtb00006.cod_sp_sec,
    conduce_no    LIKE irtb00006.conduce_no,
    fact_no       LIKE irtb00006.fact_no,
    fecha         DATE,
    sec_a         LIKE irtb00006.sec_a,
    nom_sp        LIKE cotb00001.nom_sp,
    descrip_mov   LIKE irtb00005.descrip_mov 
END RECORD

DEFINE otros_mov RECORD
    num_doc       LIKE intb00006.num_doc,
    cod_mov       LIKE intb00006.cod_mov,
    fecha         LIKE intb00006.fecha,
    descrip_mov   LIKE intb00005.descrip_mov,
    bodega        LIKE intb00006.bodega
END RECORD

DEFINE dm_rep RECORD 
    departamento  LIKE irtb00029.departamento,
    maquina       LIKE irtb00029.maquina
END RECORD

  DEFINE p_fechas DATE
  DEFINE bandera smallint
  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 mq_rep RECORD LIKE irtb00008.*
  DEFINE depto RECORD LIKE adtb00001.* 
  DEFINE maquinaria RECORD LIKE irtb00009.*
  DEFINE motor_e RECORD LIKE irtb00007.*
  DEFINE arancel RECORD LIKE cotb00005.*
  DEFINE motores RECORD LIKE irtb00005.*
  DEFINE especifica RECORD LIKE irtb00006.*
  DEFINE maquinas RECORD LIKE irtb00006.*
  DEFINE status_m char(1)
  DEFINE decide char(1)
  DEFINE cant DECIMAL(10,2)
  DEFINE tipo_papel smallint
  DEFINE balance,existen DECIMAL(12,2)
  DEFINE cod_mov_ant LIKE intb00006.cod_mov
  DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000)
  DEFINE opc,opt CHAR(3)
  DEFINE optc CHAR(2)
  DEFINE medida CHAR (3)
  DEFINE fila smallint
  DEFINE m_articulos RECORD LIKE irtb00002.*
  DEFINE numero_msg LIKE msgtable.cod_msg 
  DEFINE articulos RECORD LIKE intb00001.*
  DEFINE suplidor  RECORD LIKE intb00008.*

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 despiece DYNAMIC ARRAY OF RECORD
        id_etiqueta   SMALLINT,
        cod_n         SMALLINT,
        cod_grupo     SMALLINT,
        cod_tipo      SMALLINT,
        cod_sec       SMALLINT,
        lado_1        DEC(12,5),
        lado_2        DEC(12,5),
        lado_3        DEC(12,5),
        cantidad      DEC(12,5),
        medida       DEC(12,5),
        secuencia,id_despiece     INT,
        bodega       SMALLINT 
        END RECORD 

DEFINE transacc RECORD LIKE irtb00005.*
  DEFINE medidas RECORD LIKE intb00007.*  
  DEFINE descrip_esp,descrip_ing,descrip1,descrip2,descrip3,descrip4 CHAR(30)
  DEFINE c_sustituto  RECORD LIKE intb00003.*
  DEFINE c_equivalente RECORD LIKE intb00004.*
  DEFINE criterio CHAR(1000)
  DEFINE selec1,selec CHAR(3000)
  DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
  DEFINE p_act,idx,scr_l,curr SMALLINT
  DEFINE opcion CHAR(1) 

DEFINE movi2 DYNAMIC ARRAY OF RECORD
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_2   LIKE intb00006.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,
    existencia     like irtb00002.existencia,
    dia_llegada    like irtb00002.dia_llegada ,
    precio         LIKE cotb00015.precio,   
    descrip_esp2   CHAR(30),
    valor          decimal(10,2) 
END RECORD

DEFINE csmov1 DYNAMIC ARRAY OF RECORD
    num_doc      integer,
    fecha_2      LIKE intb00006.fecha,   
    descrip_mov  char(70),
    entrada      DECIMAL(8,2),
    salida       DECIMAL(8,2),
    balance      DECIMAL(8,2)
END RECORD

DEFINE csmov RECORD
    num_doc      LIKE intb00006.num_doc,   
    fecha_1      LIKE intb00006.fecha,   
    cantidad_1   LIKE intb00006.cantidad_1, 
    cantidad_2   LIKE intb00006.cantidad_2, 
    cod_mov      LIKE intb00005.cod_mov,     
    descrip_mov  LIKE irtb00005.descrip_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,     
    fech_in      LIKE intb00006.fecha,       
    fech_fi      LIKE intb00006.fecha 
END RECORD

DEFINE movi4 ARRAY[100] OF RECORD
    codigo       CHAR(10),  
    cantidad_2   LIKE intb00006.cantidad_2,
    unidad_med   LIKE intb00001.unidad_med , 
    descrip_esp  LIKE intb00001.descrip_esp,
    maquina      LIKE irtb00006.maquina
END RECORD

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

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

DEFINE movi8_ant DYNAMIC ARRAY OF RECORD
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cant_ant1    LIKE irtb00006.cantidad_2
END RECORD

DEFINE movi9 ARRAY[100] OF RECORD
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_1   LIKE intb00006.cantidad_1,
    cantidad_2   LIKE intb00006.cantidad_2,
    unidad_med   LIKE intb00001.unidad_med,      
    descrip_esp  LIKE intb00001.descrip_esp,
    maquina      LIKE irtb00006.maquina
END RECORD

DEFINE movi8 DYNAMIC ARRAY OF RECORD
    cod_n         LIKE intb00003.cod_n,
    cod_grupo     LIKE intb00003.cod_grupo,
    cod_tipo      LIKE intb00003.cod_tipo,
    cod_sec       LIKE intb00003.cod_sec,
    cantidad_2    LIKE irtb00006.cantidad_2,
    unidad_med    LIKE intb00001.unidad_med,
    descrip_esp   LIKE intb00001.descrip_esp,
    codigo        LIKE irtb00009.codigo,
    orden_trabajo INT,
    existencia    FLOAT,
    num_emp       SMALLINT    
END RECORD

DEFINE movi1 ARRAY[100] OF RECORD
    cod_n        LIKE intb00003.cod_n,
    cod_grupo    LIKE intb00003.cod_grupo,
    cod_tipo     LIKE intb00003.cod_tipo,
    cod_sec      LIKE intb00003.cod_sec,
    cantidad_2   LIKE intb00006.cantidad_2,
    unidad_med   LIKE intb00001.unidad_med,      
    descrip_esp  LIKE intb00001.descrip_esp ,
    maquina      LIKE irtb00006.maquina
END RECORD

DEFINE movi DYNAMIC ARRAY OF RECORD
    cod_n        LIKE irtb00006.cod_n,
    cod_grupo    LIKE irtb00006.cod_grupo,
    cod_tipo     LIKE irtb00006.cod_tipo,
    cod_sec      LIKE irtb00006.cod_sec,
    descrip_esp  LIKE intb00001.descrip_esp,
    unidad_med   LIKE intb00001.unidad_med,
    cantidad_1   LIKE irtb00006.cantidad_1,
    cantidad_2   LIKE irtb00006.cantidad_2,
    maquina      LIKE irtb00006.maquina
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 ,
         maquina       SMALLINT
END RECORD 

DEFINE c_articulos ARRAY[100] OF 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,
         descripcion   CHAR(30) 
#        costo_mp      LIKE cotb00002.costo_mp,
#        fecha_act     LIKE cotb00002.fecha_act
END RECORD 

DEFINE consulta_mv ARRAY[200] OF RECORD
    num_doc      LIKE intb00006.num_doc,
    fecha        LIKE intb00006.fecha,
    nombre       char(7),
    cantidad_1   LIKE intb00006.cantidad_1,
    cantidad_2   LIKE intb00006.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 irtb00002.existencia  
#   costo_mp     LIKE cotb00002.costo_mp,
#   valor        DECIMAL(12,2)  
END RECORD

DEFINE datos_cs RECORD
    cod_n        LIKE intb00006.cod_n,
    cod_grupo    LIKE intb00006.cod_grupo,
    cod_tipo     LIKE intb00006.cod_tipo,
    cod_sec      LIKE intb00006.cod_sec,
    descrip_esp  LIKE intb00001.descrip_esp,
    fecha_in     LIKE intb00006.fecha,
    fecha_fi     LIKE intb00006.fecha
END RECORD

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

DEFINE otrab   SMALLINT
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