Files
MBS/PROYECTO/gedir/geprgb000.4gl
T

42 lines
1.2 KiB
Plaintext

SCHEMA smarmotech
GLOBALS
DEFINE unidad CHAR(3),
regi SMALLINT,
p_param CHAR(1)
DEFINE fecha_inicial_py,fecha_final_py,p_fechas DATE,
p_companias RECORD LIKE companias.*
DEFINE normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
CHAR(3),
cmd,imprime,copia CHAR(150),archivo CHAR(80)
DEFINE cantidad_total DECIMAL(10,2),
criterio CHAR(1000),
selec4,selec,selec1,selec2,selec3 CHAR(1500),
manual,p_status,decide,identifica,modifica,opc,bandera,existe,
verdad,clasifica CHAR(1),
opcion,opt CHAR(2),
descrip1,descrip2 CHAR(60),
usuarios,clave CHAR(50),
descrip3,descrip4,descrip_esp1,nombre_p,nom_p CHAR(30),
tipo_papel,cuenta,p_act,idx,curr1,curr,fila,linea,scr_l,
dia_aduana,num_req_a SMALLINT
DEFINE numero_msg LIKE msgtable.cod_msg,
impresor SMALLINT
DEFINE letras RECORD
negrillas_on CHAR(6),
negrillas_off CHAR(6),
doble_on CHAR(6),
doble_off CHAR(6),
comp_on CHAR(6),
comp_off CHAR(6),
doce CHAR(6),
normal CHAR(6)
END RECORD
END GLOBALS