Abel LópezandClaude Sonnet 5
a37d0336b5
- Registrar coprrp001/cofmrp001 en mbsERP.4pw - Sustituir API fgl_report_* no disponible por XmlWriter en coprrp001.4gl - Ampliar cs_ordena.codigo a CHAR(20) en coprgb000.4gl - Corregir mascaras PICTURE de codigo en coprcs009.4gl - Ampliar campo c1 en cofmcs009.per para igualar el ancho de codigo - Corregir typo de base de datos en cofmwd016.per Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
456 lines
15 KiB
Plaintext
456 lines
15 KiB
Plaintext
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
DEFINE desc1,desc2,desc3,desc4,desc5 CHAR(20)
|
|
DEFINE unidad CHAR(3)
|
|
DEFINE clasifica CHAR(1)
|
|
DEFINE p_fechas DATE
|
|
DEFINE lj,l,numero_orden,programa,regi,requi, dia_aduana INTEGER
|
|
DEFINE valor_total DECIMAL(12,2),
|
|
p_programa CHAR(2),
|
|
nombre_m CHAR(20),
|
|
Toemail,vendedorEmail,cuerpo_correo, subject, procedimiento STRING
|
|
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3),opt,cero,tipo_venta CHAR(10),
|
|
usuarios,clave CHAR(80),
|
|
HANDLER om.SaxDocumentHandler,
|
|
salida VARCHAR(4),
|
|
m_articulos RECORD LIKE iptb00002.*
|
|
DEFINE p_companias RECORD LIKE companias.*,
|
|
r_output STRING
|
|
|
|
DEFINE rango RECORD
|
|
fech_in date,
|
|
fech_fi date
|
|
END RECORD
|
|
|
|
DEFINE cs_ordena ARRAY [20] OF RECORD
|
|
num_req INTEGER,
|
|
codigo CHAR(20),
|
|
cantidad CHAR(14),
|
|
precio CHAR(13),
|
|
valor CHAR(14)
|
|
END RECORD
|
|
|
|
DEFINE detalle1 RECORD
|
|
num_req INTEGER,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad DECIMAL(10,3),
|
|
precio DECIMAL(10,2),
|
|
base DECIMAL(10,2)
|
|
END RECORD
|
|
|
|
DEFINE fecha_inicial_py,fecha_final_py DATE
|
|
|
|
DEFINE embarques RECORD LIKE cotb00027.*
|
|
|
|
DEFINE arr_plan_prod ARRAY[100] OF RECORD
|
|
fecha_ini CHAR(10),
|
|
fecha_fin CHAR(10),
|
|
mes CHAR(10),
|
|
cantidad DECIMAL(12,3)
|
|
END RECORD
|
|
|
|
DEFINE arr1_plan_prod ARRAY[100] OF RECORD
|
|
fecha_ini CHAR(10),
|
|
fecha_fin CHAR(10),
|
|
mes CHAR(10),
|
|
cantidad DECIMAL(12,3)
|
|
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 intb00002.bodega,
|
|
fech_in LIKE iptb00006.fecha,
|
|
fech_fi LIKE iptb00006.fecha
|
|
END RECORD
|
|
|
|
DEFINE dbnombre CHAR(18),
|
|
bandera, existe, verdad CHAR(1),
|
|
opc CHAR(3),
|
|
cantidad_total DECIMAL(10,3),
|
|
criterio CHAR(1000),
|
|
selec1 STRING,
|
|
selec4,selec,selec2,selec3 CHAR(1500),
|
|
opcion, manual, p_status,decide,p_param,identifica,modifica CHAR(1),
|
|
descrip1,descrip2 CHAR(60),
|
|
descrip3,descrip4,descrip_esp1 CHAR(30),
|
|
descrip5 CHAR(43),
|
|
tipo_papel,cuenta,p_act,idx,curr1,curr,fila,linea,scr_l SMALLINT,
|
|
dcmd,cmd,imprime,copia CHAR(150),archivo CHAR(80),impresor,progreso SMALLINT
|
|
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
DEFINE anterior ARRAY[20] OF RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
fech_emb DATE
|
|
END RECORD
|
|
|
|
DEFINE puerto_wd ARRAY[200] OF RECORD
|
|
cod_pt LIKE cotb00019.cod_pt,
|
|
nom_pt LIKE cotb00019.nom_pt
|
|
END RECORD
|
|
|
|
DEFINE monedas_wd ARRAY[200] OF RECORD
|
|
cod_mon LIKE cotb00031.cod_mon,
|
|
nombre_mon CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE puertos_wd ARRAY[200] OF RECORD
|
|
cod_pt LIKE cotb00019.cod_pt,
|
|
nom_pt LIKE cotb00019.nom_pt
|
|
END RECORD
|
|
|
|
DEFINE nombre_p, nom_p CHAR(45)
|
|
|
|
DEFINE flete RECORD
|
|
valor LIKE cotb00014.c_flete,
|
|
ot_valor LIKE cotb00014.otros_g,
|
|
descripcion LIke cotb00014.detalle
|
|
END RECORD
|
|
|
|
DEFINE flete1 RECORD
|
|
total_b DECIMAL(12,2),
|
|
valor DECIMAL(12,2),
|
|
ot_valor DECIMAL(12,2),
|
|
total_1 DECIMAL(12,2),
|
|
descu_valor DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE fob DECIMAL(12,2)
|
|
DEFINE requisi RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
fech_req LIKE cotb00006.fech_req,
|
|
departamento LIKE adtb00001.departamento,
|
|
cod_emp_sec LIKE cotb00006.cod_emp_sec,
|
|
uso LIKE cotb00006.uso,
|
|
prioridad LIKE cotb00006.prioridad
|
|
END RECORD
|
|
|
|
DEFINE arr_requisi DYNAMIC ARRAY OF RECORD
|
|
tipo_inv VARCHAR(20),
|
|
cod_n LIKE cotb00008.cod_n,
|
|
cod_grupo LIKE cotb00008.cod_grupo,
|
|
cod_tipo LIKE cotb00008.cod_tipo,
|
|
cod_sec LIKE cotb00008.cod_sec,
|
|
cantidad DECIMAL(12,3),
|
|
cod_sp LIKE cotb00001.cod_sp,
|
|
cod_sp_sec LIKE cotb00001.cod_sp_sec,
|
|
precio LIKE cotb00008.precio,
|
|
total_p DECIMAL(12,2),
|
|
procesada LIKE cotb00008.procesada
|
|
END RECORD
|
|
|
|
DEFINE requisi2 RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
fech_req LIKE cotb00006.fech_req,
|
|
departamento LIKE adtb00001.departamento,
|
|
cod_emp_sec LIKE cotb00006.cod_emp_sec,
|
|
estado VARCHAR(60),
|
|
uso LIKE cotb00006.uso,
|
|
prioridad LIKE cotb00006.prioridad,
|
|
num_oc INT,
|
|
observacion VARCHAR(100)
|
|
END RECORD
|
|
|
|
DEFINE arr_requisi2 DYNAMIC ARRAY OF RECORD
|
|
tipo_inv VARCHAR(20),
|
|
cod_n LIKE cotb00008.cod_n,
|
|
cod_grupo LIKE cotb00008.cod_grupo,
|
|
cod_tipo LIKE cotb00008.cod_tipo,
|
|
cod_sec SMALLINT,
|
|
descrip_esp CHAR(180),
|
|
unidad_med CHAR(3),
|
|
cantidad DECIMAL(12,3),
|
|
ruta_file VARCHAR(100),
|
|
foto BYTE
|
|
END RECORD
|
|
|
|
DEFINE ant_req RECORD
|
|
num_req LIKE cotb00006.num_req
|
|
END RECORD
|
|
|
|
DEFINE busca_su2 DYNAMIC ARRAY OF RECORD
|
|
cod_sp LIKE cotb00001.cod_sp,
|
|
cod_sp_sec LIKE cotb00001.cod_sp_sec,
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
END RECORD
|
|
|
|
DEFINE busca_su ARRAY [400] OF RECORD
|
|
cod_sp LIKE cotb00001.cod_sp,
|
|
cod_sp_sec LIKE cotb00001.cod_sp_sec,
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
END RECORD
|
|
|
|
DEFINE busca_priori ARRAY [400] OF RECORD
|
|
priori_req LIKE cotb00036.priori_req,
|
|
desc_priori LIKE cotb00036.desc_priori
|
|
END RECORD
|
|
|
|
DEFINE busca_su1 DYNAMIC ARRAY OF RECORD
|
|
codigo_1 CHAR(7),
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
END RECORD
|
|
|
|
DEFINE busca_ma DYNAMIC ARRAY 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,
|
|
unidad_med LIKE intb00001.unidad_med
|
|
END RECORD
|
|
|
|
DEFINE busca_pt1 DYNAMIC ARRAY OF RECORD
|
|
codigo CHAR(20),
|
|
descrip_esp LIKE intb00001.descrip_esp
|
|
END RECORD
|
|
|
|
DEFINE busca_mt1 DYNAMIC ARRAY OF RECORD
|
|
codigo CHAR(40),
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
unidad_med LIKE intb00001.unidad_med
|
|
END RECORD
|
|
|
|
DEFINE desp_wd DYNAMIC ARRAY OF RECORD
|
|
codigo CHAR(7),
|
|
nom_emp CHAR(60)
|
|
END RECORD
|
|
|
|
DEFINE busca_wd DYNAMIC ARRAY OF RECORD
|
|
cod_emp_sec LIKE adtb00003.num_emp,
|
|
nom1_emp LIKE adtb00003.nom1_emp,
|
|
apell1_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE busca_wd1 DYNAMIC ARRAY OF RECORD
|
|
codigo LIKE adtb00001.departamento,
|
|
nom_dpto LIKE adtb00001.nom_dpto
|
|
END RECORD
|
|
|
|
|
|
DEFINE ant_art RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT ,
|
|
cod_sec SMALLINT
|
|
END RECORD
|
|
|
|
DEFINE num_req_a SMALLINT
|
|
DEFINE codigo1,codigo CHAR(10)
|
|
|
|
DEFINE busca_parte ARRAY[100] OF RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
cod_n LIKE cotb00008.cod_n,
|
|
cod_grupo LIKE cotb00008.cod_grupo,
|
|
cod_tipo LIKE cotb00008.cod_tipo,
|
|
cod_sec LIKE cotb00008.cod_sec,
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio
|
|
END RECORD
|
|
|
|
DEFINE despl_wd ARRAY[200] OF RECORD
|
|
codigo CHAR(7),
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
END RECORD
|
|
|
|
DEFINE buscar_wd ARRAY[200] OF RECORD
|
|
cod_sp LIKE cotb00001.cod_sp,
|
|
cod_sp_sec LIKE cotb00001.cod_sp_sec,
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
END RECORD
|
|
|
|
DEFINE mostrar_wd ARRAY[200] OF RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio
|
|
END RECORD
|
|
|
|
DEFINE localiza_wd DYNAMIC ARRAY OF RECORD
|
|
num_orden INT,
|
|
cod_n LIKE cotb00008.cod_n,
|
|
cod_grupo LIKE cotb00008.cod_grupo,
|
|
cod_tipo LIKE cotb00008.cod_tipo,
|
|
cod_sec LIKE cotb00008.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio,
|
|
dia_llegada SMALLINT
|
|
END RECORD
|
|
|
|
DEFINE term_pago_wd ARRAY[200] OF RECORD
|
|
term_sp LIKE cotb00024.term_sp,
|
|
descrip_term LIKE cotb00024.descrip_term
|
|
END RECORD
|
|
|
|
DEFINE termino_wd ARRAY[200] OF RECORD
|
|
term_sp LIKE cotb00024.term_sp,
|
|
descrip_term LIKE cotb00024.descrip_term
|
|
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(50)
|
|
# costo_mp LIKE cotb00002.costo_mp,
|
|
# fecha_act LIKE cotb00002.fecha_act
|
|
END RECORD
|
|
|
|
DEFINE mps ARRAY[300] OF RECORD
|
|
cod_sp LIKE cotb00001.cod_sp,
|
|
cod_sp_sec LIKE cotb00001.cod_sp_sec,
|
|
descrip_term LIKE cotb00024.descrip_term,
|
|
precio LIKE cotb00015.precio,
|
|
nom_sp LIKE cotb00001.nom_sp
|
|
|
|
END RECORD
|
|
|
|
DEFINE nab ARRAY[200] OF RECORD
|
|
cod_nab LIKE cotb00005.cod_nab,
|
|
descrip_esp LIKE cotb00005.descrip_esp,
|
|
descrip_ing LIKE cotb00005.descrip_ing
|
|
END RECORD
|
|
|
|
DEFINE furgon ARRAY[200] OF RECORD
|
|
cod_furg LIKE cotb00003.cod_furg,
|
|
descrip_esp LIKE cotb00003.descrip_furg
|
|
END RECORD
|
|
|
|
DEFINE fmp ARRAY[200] OF RECORD
|
|
cod_n LIKE cotb00004.cod_n,
|
|
cod_grupo LIKE cotb00004.cod_grupo,
|
|
cod_tipo LIKE cotb00004.cod_tipo,
|
|
cod_sec LIKE cotb00004.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
cantidad DECIMAL(12,3),
|
|
cod_furg LIKE cotb00004.cod_furg,
|
|
descrip6 CHAR(50)
|
|
END RECORD
|
|
|
|
DEFINE smp DYNAMIC ARRAY 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 CHAR(43),
|
|
precio LIKE cotb00015.precio
|
|
END RECORD
|
|
|
|
|
|
DEFINE embarque CHAR(24)
|
|
DEFINE notificar CHAR(24)
|
|
|
|
DEFINE ordenes RECORD
|
|
num_oc INTEGER,
|
|
tipo LIKE cotb00014.tipo,
|
|
fech_oc LIKE cotb00014.fech_oc,
|
|
num_pr LIKE cotb00014.num_pr,
|
|
cod_sp LIKE cotb00014.cod_sp,
|
|
cod_sp_sec LIKE cotb00014.cod_sp_sec,
|
|
term_sp LIKE cotb00014.term_sp,
|
|
via LIKE cotb00014.via,
|
|
enviada LIKE cotb00014.enviada,
|
|
fech_enviada LIKE cotb00014.fech_enviada,
|
|
pago LIKE cotb00014.pago,
|
|
fech_pago LIKE cotb00014.fech_pago,
|
|
cierre LIKE cotb00014.cierre,
|
|
cod_pt CHAR(4),
|
|
bodega INTEGER
|
|
END RECORD
|
|
|
|
DEFINE arr_ordenes DYNAMIC ARRAY OF RECORD
|
|
num_orden INT,
|
|
num_req LIKE cotb00006.num_req,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descripcion CHAR(180),
|
|
unidad CHAR(4),
|
|
cantidad DECIMAL(12,3),
|
|
tipo_costo CHAR(10),
|
|
precio DECIMAL(18,5),
|
|
porc_desc DEC(12,2),
|
|
monto_desc DEC(12,2),
|
|
valor DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_ordenes2 DYNAMIC ARRAY OF RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio,
|
|
valor DECIMAL(12,2),
|
|
recibido DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_ordenes21 DYNAMIC ARRAY OF RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio,
|
|
valor DECIMAL(11,2)
|
|
END RECORD
|
|
DEFINE arr_orden20 DYNAMIC ARRAY OF RECORD
|
|
cantidad DECIMAL(12,3),
|
|
unidad CHAR(10),
|
|
descripcion CHAR(30),
|
|
valor1 DECIMAL(11,2)
|
|
END RECORD
|
|
DEFINE ordenes1 RECORD
|
|
num_req LIKE cotb00006.num_req,
|
|
codigo CHAR(10),
|
|
cantidad DECIMAL(12,3),
|
|
precio LIKE cotb00008.precio,
|
|
valor DECIMAL(11,2)
|
|
END RECORD
|
|
|
|
DEFINE pais_wd ARRAY [200] OF RECORD
|
|
cod_pais LIKE cotb00018.cod_pais,
|
|
nom_pais LIKE cotb00018.nom_pais
|
|
END RECORD
|
|
DEFINE suplidor RECORD LIKE cotb00001.*
|
|
DEFINE supliart RECORD LIKE cotb00002.*
|
|
DEFINE furgones RECORD LIKE cotb00003.*
|
|
DEFINE furgonart RECORD LIKE cotb00004.*
|
|
DEFINE arancel RECORD LIKE cotb00005.*
|
|
DEFINE articulos RECORD LIKE intb00001.*
|
|
|
|
DEFINE det_requi RECORD LIKE cotb00008.*
|
|
DEFINE polizas RECORD LIKE cotb00017.*
|
|
DEFINE paises RECORD LIKE cotb00018.*
|
|
DEFINE puertos RECORD LIKE cotb00019.*
|
|
DEFINE seguros RECORD LIKE cotb00022.*
|
|
DEFINE pagos RECORD LIKE cotb00024.*
|
|
DEFINE departamento RECORD LIKE adtb00001.*
|
|
DEFINE notas RECORD LIKE cotb00029.*
|
|
DEFINE monedas RECORD LIKE cotb00031.*
|
|
END GLOBALS
|
|
|