60 lines
1.8 KiB
Plaintext
60 lines
1.8 KiB
Plaintext
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
|
|
DEFINE opt4,opt3,impresion,verdad,identifica,existe,tiene_facturas,
|
|
opt,control,detalle,status_reg CHAR(1),
|
|
chstd char(3),
|
|
criterio CHAR(1000),
|
|
selec CHAR(1000),
|
|
selec2 CHAR(500),
|
|
selec3 CHAR(1000),
|
|
tipo2,opcion CHAR(2),
|
|
valor_letras CHAR(90),
|
|
compania CHAR(50),
|
|
parametro CHAR(10),
|
|
numero_msg,bandera,scr_l,curr1,curr,idx INTEGER,
|
|
descrip,p_descripcion,nombre CHAR(30),
|
|
l,tipo_papel SMALLINT,
|
|
p_compania RECORD LIKE companias.*,
|
|
respuesta CHAR(3),
|
|
tipo_inventario VARCHAR(1)
|
|
|
|
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 normal,negrilla_on,negrillas_of,comp_on,comp_off,doce,doble_on,doble_off
|
|
CHAR(3)
|
|
|
|
DEFINE cmd,imprime,copia CHAR(150),archivo CHAR(80),impresor SMALLINT
|
|
|
|
DEFINE catalogo RECORD LIKE cgtb00001.*
|
|
|
|
DEFINE usuarios, clave CHAR(50),
|
|
progreso SMALLINT,
|
|
descripcion CHAR(70),
|
|
impresor SMALLINT
|
|
|
|
DEFINE p_companias RECORD LIKE companias.*
|
|
|
|
DEFINE p_fechas DATE
|
|
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)
|
|
|
|
DEFINE entrada27 ARRAY [500] OF RECORD
|
|
cuenta_no CHAR(8),
|
|
depto SMALLINT,
|
|
cod_aux SMALLINT,
|
|
cod_sec SMALLINT,
|
|
num_doc INTEGER,
|
|
valor DECIMAL(12,2)
|
|
END RECORD
|
|
END GLOBALS
|