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