114 lines
3.8 KiB
Plaintext
114 lines
3.8 KiB
Plaintext
{
|
|
==============================================================================
|
|
PROGRAMA : PRGBRP000
|
|
SISTEMA : SISTEMA DE PRODUCCION
|
|
PROCESO : DEFINICION DE VARIABLES GLOBALES
|
|
AUTOR : ING. JUAN SOTO
|
|
FECHA : SEPT. 14, 1994.
|
|
==============================================================================
|
|
}
|
|
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
|
|
|
|
DEFINE cttb01 RECORD LIKE cttb00001.*,
|
|
p_compania RECORD LIKE companias.*
|
|
DEFINE prtb02 RECORD LIKE prtb00002.*
|
|
DEFINE prtb03 RECORD LIKE prtb00003.*
|
|
DEFINE prtb05 RECORD LIKE prtb00005.*
|
|
DEFINE prtb06 RECORD LIKE prtb00006.*
|
|
DEFINE prtb07 RECORD LIKE prtb00007.*
|
|
DEFINE prtb08 RECORD LIKE prtb00012.*,
|
|
historico CHAR(1),
|
|
actualiza_log_produccion,actualiza_produccion VARCHAR(10)
|
|
DEFINE kprtb12 RECORD LIKE prtb00012.*
|
|
|
|
DEFINE handler om.SaxDocumentHandler, -- return value from fgl_report_commitCurrentSettings()
|
|
r_filename STRING, -- filename of Report Design Document including .4rp extension
|
|
r_output STRING, -- output format option
|
|
preview INTEGER -- TRUE/FALSE, to set preview option
|
|
|
|
DEFINE prtb09 RECORD
|
|
num_oc INT,
|
|
fecha CHAR(10),
|
|
fecha_fabricacion CHAR(10),
|
|
pendiente char(1),
|
|
detalle char(300),
|
|
status_t CHAR(1),
|
|
us_crea CHAR(50),
|
|
fech_crea DATETIME YEAR TO MINUTE,
|
|
us_mod CHAR(50),
|
|
fech_mod DATETIME YEAR TO MINUTE,
|
|
cotizacion_no INT
|
|
END RECORD
|
|
DEFINE prtb16 RECORD LIKE prtb00016.*,
|
|
pcosto_labor ARRAY[50] OF DEC(12,5),pcosto_gasto ARRAY[50] OF DEC(12,5),
|
|
cmd,imprime,copia,copia1 CHAR(150),archivo1,archivo CHAR(80),
|
|
impresor SMALLINT,
|
|
copiacorreo DYNAMIC ARRAY OF CHAR(1000),
|
|
copiaemail CHAR(1000)
|
|
|
|
DEFINE cliente_dir RECORD LIKE vetb00005.*,
|
|
usuarios,clave CHAR(50)
|
|
DEFINE arr_clientes DYNAMIC ARRAY OF RECORD
|
|
tipo_cliente LIKE vetb00004.tipo_cliente,
|
|
sec_cliente LIKE vetb00004.sec_cliente,
|
|
nombre LIKE vetb00004.nombre
|
|
END RECORD
|
|
|
|
|
|
DEFINE nombre_dia DYNAMIC ARRAY OF char(10)
|
|
|
|
DEFINE empleados DYNAMIC ARRAY OF RECORD
|
|
cod_emp_sec LIKE adtb00003.num_emp,
|
|
descrip6 CHAR(65)
|
|
END RECORD
|
|
DEFINE arr_hora DYNAMIC ARRAY OF RECORD
|
|
fecha DATE,
|
|
hn_ind DECIMAL(5,2),
|
|
he_ind DECIMAL(5,2)
|
|
END RECORD
|
|
|
|
DEFINE arr_empleados DYNAMIC ARRAY OF RECORD
|
|
num_emp LIKE adtb00003.num_emp,
|
|
nom1_emp LIKE adtb00003.nom1_emp,
|
|
apell1_emp LIKE adtb00003.apell1_emp
|
|
END RECORD
|
|
|
|
DEFINE pilas 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
|
|
END RECORD
|
|
|
|
DEFINE nom_dpto,nom_emp CHAR(30)
|
|
DEFINE nom1_emp,apell1_emp CHAR(14)
|
|
DEFINE tipo_papel,curr,curr1,fila,scr_l,idx,idx1,idx2,j,k INTEGER
|
|
DEFINE salir,salir1,salir2,sali3 CHAR(1),
|
|
opt,opt1 CHAR(3)
|
|
|
|
DEFINE opcion,respuesta CHAR(3)
|
|
DEFINE opcion1,impresion,verdad,identifica,existe CHAR(1)
|
|
DEFINE criterio,selec1,selec2,selec3,selec STRING
|
|
|
|
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3)
|
|
|
|
DEFINE hora CHAR(5),
|
|
l SMALLINT
|
|
|
|
DEFINE numero_msg INT #LIKE msgtable.cod_msg
|
|
DEFINE bandera,otrab SMALLINT
|
|
DEFINE p_fechas,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)
|
|
DEFINE p_user CHAR(9)
|
|
|
|
END GLOBALS
|
|
|