Commit inicial: fuentes MBS ERP (Genero 6) + .gitignore + docs/SETUP_PC_MBS.md
This commit is contained in:
@@ -0,0 +1,457 @@
|
||||
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
|
||||
Reference in New Issue
Block a user