MODIFICACIONES DE LA POLITICA PERIODICA BÁSICO LQ001

*   Febrero 27 de 2002.     Por: Lorena Fuentes.     Para: Jorge Ivan Restrepo
     - Se creo la variable TBC:TipAgrEmp      String(1) 
     - Se leyo la variable TBC:TipAgrEmp del concepto utilizando o_VarCpt
     - Después de Do BuscarOGR se agregaron las siguientes lineas.
        CASE UPPER(Tbc:TipAgrEmp) ! 27/02/2002 LF Sim Desde aqui para agrupaciones que  
                 OF 'I'                              ! excluya o incluya
                      If ~ExiOGR#  then Return.
                 OF 'E'
                      If Error#    then Return.
        end