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