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