61 lines
1.6 KiB
Plaintext
61 lines
1.6 KiB
Plaintext
SCHEMA smarmotech
|
|
|
|
GLOBALS
|
|
|
|
DEFINE activo RECORD
|
|
codigo SMALLINT,
|
|
descripcion CHAR(30),
|
|
cuenta_no CHAR(8),
|
|
cta_depr CHAR(8),
|
|
cta_gasto CHAR(8),
|
|
departamento SMALLINT,
|
|
tasa_cambio DECIMAL(8,2),
|
|
fech_compra DATE,
|
|
dcto_compra CHAR(10),
|
|
duracion INTEGER,
|
|
valor_compra DECIMAL(12,2)
|
|
END RECORD,
|
|
usuarios,clave CHAR(50),
|
|
p_companias RECORD LIKE companias.*,
|
|
HANDLER om.SaxDocumentHandler,
|
|
r_output STRING
|
|
|
|
|
|
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),
|
|
impresor SMALLINT
|
|
|
|
|
|
DEFINE activ RECORD LIKE actb00001.*
|
|
#DEFINE activ5 RECORD LIKE actb00005.*
|
|
DEFINE categ RECORD LIKE actb00002.*
|
|
#DEFINE categ1 RECORD LIKE actb00003.*
|
|
DEFINE trans RECORD LIKE actb00004.*
|
|
|
|
DEFINE busca_dpto DYNAMIC ARRAY OF RECORD
|
|
departamento SMALLINT,
|
|
nom_dpto CHAR(30)
|
|
END RECORD
|
|
|
|
DEFINE estado RECORD
|
|
status_t CHAR(1),
|
|
us_crea CHAR(9),
|
|
fech_crea LIKE actb00001.fech_crea,
|
|
us_mod CHAR(9),
|
|
fech_mod LIKE actb00001.fech_mod
|
|
END RECORD
|
|
|
|
DEFINE descripcion CHAR(30)
|
|
DEFINE fecha_corte,fecha1 DATE
|
|
DEFINE opcion CHAR(2)
|
|
DEFINE opt CHAR(3)
|
|
DEFINE l,tipo_papel,bandera,numero_msg SMALLINT
|
|
DEFINE criterio,selec,selec1 STRING
|
|
DEFINE p_ano1,p_mes1,idx,idx1,curr,fila,scr_l INTEGER
|
|
|
|
DEFINE doble_on,doble_off,comp_off,comp_on,negrillas_on,negrillas_off,
|
|
doce,normal CHAR(3)
|
|
DEFINE p_compania RECORD LIKE companias.*
|
|
END GLOBALS
|