105 lines
3.3 KiB
Plaintext
105 lines
3.3 KiB
Plaintext
SCHEMA marmotech
|
|
# EN ESTE SISTEMA PARA LA FUNCION TERMOMETRO LA VARIABLE SELEC1 SE CAMBIO A
|
|
# SELEC11
|
|
GLOBALS
|
|
|
|
DEFINE p_compania RECORD LIKE companias.*
|
|
DEFINE costos RECORD LIKE cttb00013.*
|
|
# DEFINE costos_p RECORD LIKE cttb00035.*
|
|
DEFINE mes2,curr,bandera smallint
|
|
DEFINE p_fechas DATE ,
|
|
salida CHAR(3),
|
|
HANDLER om.SaxDocumentHandler
|
|
DEFINE nombre_dia ARRAY[7] OF char(10)
|
|
DEFINE nombre_mes ARRAY[12] OF char(10)
|
|
DEFINE general decimal(12,2)
|
|
DEFINE l,p_bodega SMALLINT,
|
|
regi INTEGER
|
|
DEFINE arancel RECORD LIKE cotb00005.*
|
|
DEFINE status_m char(1)
|
|
DEFINE p_param,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 CHAR (3),
|
|
p_ano1 CHAR(4)
|
|
DEFINE fila smallint
|
|
DEFINE m_articulos RECORD LIKE intb00002.*
|
|
DEFINE numero_msg LIKE msgtable.cod_msg
|
|
DEFINE articulos RECORD LIKE intb00001.*
|
|
DEFINE suplidor RECORD LIKE intb00008.*
|
|
DEFINE produccion RECORD LIKE cttb00001.*
|
|
# DEFINE costo_stand RECORD LIKE cttb00038.*
|
|
DEFINE medidas RECORD LIKE cttb00007.*
|
|
DEFINE nombre,descrip1,descrip2,descrip3,descrip4 CHAR(30)
|
|
DEFINE criterio CHAR(1000)
|
|
DEFINE selec11,selec CHAR(500)
|
|
DEFINE cod_n_a,cod_grupo_a,cod_tipo_a,cod_sec_a SMALLINT
|
|
DEFINE p_act,idx,scr_l SMALLINT
|
|
DEFINE opcion CHAR(2) ,
|
|
usuario_c,usuario_m CHAR(9),
|
|
fecha_c,fecha_m DATETIME YEAR TO MINUTE,
|
|
usuarios,clave CHAR(80),
|
|
impresor,progreso SMALLINT,
|
|
cmd,imprime,copia CHAR(150),archivo CHAR(80),
|
|
normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3),
|
|
r_output STRING,
|
|
HANDLER om.SaxDocumentHandler
|
|
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
|
|
DEFINE datos1 RECORD
|
|
cod_n SMALLINT,
|
|
cod_grupo SMALLINT,
|
|
cod_tipo SMALLINT,
|
|
cod_sec SMALLINT,
|
|
descrip_esp CHAR(30),
|
|
unidad_med CHAR(3),
|
|
inv_inicial DECIMAL(12,2),
|
|
inv_final DECIMAL(12,2),
|
|
mat_proceso DECIMAL(12,2),
|
|
cons_real DECIMAL(12,2),
|
|
cons_std DECIMAL(12,2),
|
|
cant_env DECIMAL(12,2),
|
|
cant_env1 DECIMAL(12,2),
|
|
costo DECIMAL(12,2)
|
|
END RECORD
|
|
|
|
DEFINE datos_c RECORD
|
|
num_doc INTEGER,
|
|
fecha DATE,
|
|
Departamento SMALLINT
|
|
END RECORD
|
|
|
|
|
|
DEFINE arr_proyecta ARRAY[200] OF RECORD
|
|
cod_n_mp LIKE intb00002.cod_n,
|
|
cod_grupo_mp LIKE intb00002.cod_grupo,
|
|
cod_tipo_mp LIKE intb00002.cod_tipo,
|
|
cod_sec_mp LIKE intb00002.cod_sec,
|
|
descrip_esp LIKE intb00001.descrip_esp,
|
|
unidad_med LIKE intb00001.unidad_med,
|
|
cantidad LIKE intb00006.cantidad_2
|
|
END RECORD
|
|
|
|
DEFINE proyecta RECORD
|
|
cod_prod LIKE cttb00011.cod_prod
|
|
END RECORD
|
|
DEFINE arr_anterior ARRAY [100] OF RECORD
|
|
cod_n_mp SMALLINT,
|
|
cod_grupo_mp SMALLINT,
|
|
cod_tipo_mp SMALLINT,
|
|
cod_sec_mp SMALLINT
|
|
END RECORD
|
|
|
|
DEFINE datos_cons RECORD
|
|
fech_in DATE,
|
|
fech_fi DATE
|
|
END RECORD
|
|
|
|
END GLOBALS
|