jsoto/MBS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
a3e88776a9b17aeeadbccd5832ddbb17b8366ecf
MBS/PROYECTO/indir/inprgb000.4gl
T
jpeguero efdf8953dd Reorganiza MATERIA PRIMA a PROYECTO y avanza inprmt002/005/013/046 
- Mueve todo el contenido de PROYECTOS/indir y varias funciones
  compartidas de PROYECTOS/otrodir hacia PROYECTO, siguiendo
  instruccion de Johnny (PROYECTOS se va a eliminar).
- inprmt002: agrega campo Desglose faltante, corrige typo "eLiminar".
- inprmt005: agrega formulario y 3 campos faltantes (Consumo,
  Requiere Autorizacion, Requisiciones), corrige typo "eLiminar".
- inprmt013: agrega formulario, titulo, corrige typo "eLiminar".
- inprmt046: agrega formulario y varias funciones/dependencias
  faltantes (cincodmov, clasf_bloque, medidas, defecto,
  buscaEmp, consultaTransportista, busca_departamento);
  corrige nombres de campo desalineados con el codigo
  (depto_a, bodega) y los convierte a ComboBox donde el
  codigo lo requiere.
- Corrige dependencia faltante de FORMULARIOS_IN a la libreria
  Database (bloqueaba todo el modulo de MATERIA PRIMA).
2026-08-26 13:31:09 -04:00

418 lines
14 KiB
Plaintext
Raw Blame History

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
Reference in New Issue View Git Blame Copy Permalink