418 lines
14 KiB
Plaintext
418 lines
14 KiB
Plaintext
schema smarmotech
|
|
|
|
GLOBALS
|
|
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3),
|
|
pcodid,pnum_emp INT
|
|
|
|
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
|
|
r_filename,inventario STRING, -- filename of Report Design Document including .4rp extension
|
|
r_output STRING, -- output format option
|
|
preview INTEGER -- TRUE/FALSE, to set preview option
|
|
|
|
DEFINE dcmd,cmd,imprime,copia CHAR(150),archivo CHAR(80),impresor SMALLINT
|
|
|
|
DEFINE p_companias RECORD LIKE companias.*,
|
|
l SMALLINT
|
|
|
|
DEFINE usuarios, clave CHAR(50),
|
|
progreso SMALLINT,
|
|
descripcion CHAR(70),
|
|
impresor SMALLINT,
|
|
nombre_d CHAR(50),
|
|
pprograma VARCHAR(20),
|
|
r_output STRING,
|
|
HANDLER om.SaxDocumentHandler,
|
|
departamento INT
|
|
|
|
DEFINE datos_mt DYNAMIC ARRAY OF RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip_esp CHAR(30),
|
|
unidad_med CHAR(3)
|
|
END RECORD
|
|
DEFINE movimientos RECORD
|
|
cod_mov LIKE intb00006.cod_mov,
|
|
num_doc LIKE intb00006.num_doc,
|
|
fecha LIKE intb00006.fecha,
|
|
conduce_no LIKE intb00006.conduce_no,
|
|
fact_no LIKE intb00006.fact_no,
|
|
tipo LIKE intb00006.tipo,
|
|
orden_compra LIKE intb00006.orden_compra,
|
|
cod_sp LIKE intb00006.cod_sp,
|
|
cod_sp_sec LIKE intb00006.cod_sp_sec,
|
|
depto_de LIKE intb00006.depto_de,
|
|
depto_a LIKE intb00006.depto_a,
|
|
#cod_seccion LIKE intb00006.cod_seccion,
|
|
bodega LIKE intb00006.bodega
|
|
END RECORD
|
|
|
|
DEFINE ultimo RECORD
|
|
cond_recep LIKE intb00006.cond_recep,
|
|
uso_tiempo LIKE intb00006.uso_tiempo
|
|
END RECORD
|
|
|
|
DEFINE datos1 RECORD
|
|
num_doc LIKE intb00006.num_doc,
|
|
fecha DATE,
|
|
#cod_seccion LIKE adtb00002.cod_seccion,
|
|
depto_a LIKE intb00006.depto_a,
|
|
nom_dpto LIKE adtb00001.nom_dpto,
|
|
#departamento SMALLINT,
|
|
bodega LIKE intb00006.bodega
|
|
END RECORD
|
|
|
|
DEFINE p_conteo RECORD
|
|
fecha DATE,
|
|
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 intb00006.cod_mov,
|
|
num_doc LIKE intb00006.num_doc,
|
|
tipo LIKE intb00006.tipo,
|
|
orden_compra LIKE intb00006.orden_compra,
|
|
cod_sp LIKE intb00006.cod_sp,
|
|
cod_sp_sec LIKE intb00006.cod_sp_sec,
|
|
conduce_no LIKE intb00006.conduce_no,
|
|
fact_no LIKE intb00006.fact_no,
|
|
fecha LIKE intb00006.fecha,
|
|
bodega LIKE intb00006.bodega,
|
|
nom_sp LIKE cotb00001.nom_sp,
|
|
descrip_mov LIKE intb00005.descrip_mov,
|
|
depto_de LIKE intb00006.depto_de,
|
|
depto_a LIKE intb00006.depto_a
|
|
END RECORD
|
|
|
|
DEFINE otros_mov RECORD
|
|
num_doc LIKE intb00006.num_doc,
|
|
cod_mov LIKE intb00006.cod_mov,
|
|
fecha DATE,
|
|
bodega LIKE intb00006.bodega,
|
|
conduce CHAR(10),
|
|
cod_transp LIKE intb00006.cod_transp,
|
|
sec_transp INT,
|
|
ficha_vehiculo VARCHAR(50),
|
|
placa VARCHAR(50)
|
|
|
|
END RECORD
|
|
|
|
DEFINE chequea RECORD
|
|
pto LIKE intb00002.pto_reorden,
|
|
existe LIKE intb00002.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 intb00006.cod_mov
|
|
DEFINE existe_comp,suplidor1,doc_existe,actual,mat_prima CHAR (1000)
|
|
DEFINE opc ,opt2,existe,ya ,opera1,cambio CHAR(1)
|
|
DEFINE medida,opt1 CHAR (3)
|
|
DEFINE fila smallint
|
|
DEFINE m_articulos RECORD LIKE intb00002.*
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
DEFINE articulos RECORD LIKE intb00001.*
|
|
DEFINE articulo9 RECORD LIKE intb00022.*
|
|
DEFINE suplidor RECORD LIKE intb00008.*,
|
|
p_formulario,formulario CHAR(70)
|
|
|
|
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 intb00005.*
|
|
|
|
DEFINE medidas RECORD LIKE intb00007.*
|
|
DEFINE descrip1,descrip2,descrip3,descrip4 CHAR(60)
|
|
DEFINE c_sustituto RECORD LIKE intb00003.*
|
|
DEFINE c_equivalente RECORD LIKE intb00004.*
|
|
DEFINE criterio CHAR(1000)
|
|
DEFINE selec1,selec STRING
|
|
DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
|
|
DEFINE regi,p_act,idx,scr_l SMALLINT
|
|
DEFINE p_param,opcion CHAR(1)
|
|
|
|
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_intb57 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_intb58 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 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
|
|
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 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_1 LIKE intb00006.cantidad_1,
|
|
cantidad_2 DEC(12,5),
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
existencia FLOAT,
|
|
maquina INT,
|
|
clasf_bloque INT
|
|
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 intb00006.cantidad_2,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
maquina INT
|
|
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 intb00002.bodega,
|
|
existencia DECIMAL(12,2),
|
|
pto_reorden DECIMAL(12,2),
|
|
dia_llegada LIKE intb00002.dia_llegada,
|
|
precio DECIMAL(12,2),
|
|
valor DECIMAL(14,2)
|
|
END RECORD
|
|
|
|
DEFINE csmov1 DYNAMIC ARRAY OF RECORD
|
|
num_doc CHAR(11),
|
|
fecha_2 char(10),
|
|
entrada char(14),
|
|
salida char(14),
|
|
bodega1 VARCHAR(100),
|
|
balance char(14)
|
|
END RECORD
|
|
|
|
DEFINE csmov2 DYNAMIC ARRAY OF RECORD
|
|
num_doc CHAR(11),
|
|
fecha_2 char(10),
|
|
entrada char(14),
|
|
salida char(14),
|
|
bodega1 VARCHAR(100),
|
|
balance char(14),
|
|
parent_id,chield_id VARCHAR(20)
|
|
END RECORD
|
|
|
|
DEFINE csmov RECORD
|
|
num_doc LIKE intb00006.num_doc,
|
|
fecha_1 CHAR(10),
|
|
cantidad_2 LIKE intb00006.cantidad_2 ,
|
|
cod_mov LIKE intb00006.cod_mov,
|
|
bodega1 VARCHAR(100)
|
|
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 DATE,
|
|
fech_fi DATE,
|
|
bodega SMALLINT
|
|
END RECORD
|
|
|
|
DEFINE movi3 DYNAMIC ARRAY 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 movi_ant DYNAMIC ARRAY OF 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,
|
|
cant_ant LIKE intb00006.cantidad_2
|
|
END RECORD
|
|
|
|
DEFINE movi DYNAMIC ARRAY OF 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,
|
|
cantidad_1 LIKE intb00006.cantidad_1,
|
|
cantidad_2 LIKE intb00006.cantidad_2,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
existencia FLOAT
|
|
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 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 intb00002.existencia,
|
|
costo LIKE intb00013.costo_st,
|
|
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 lj,otrab INTEGER
|
|
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
|
|
|
|
|