@==============================================================================@
@ REGRA PARA VERIFICAR SE HÁ RELACIONAMENTO ENTRE USUÁRIO X PLANO DE COTNAS    @
@ CASO HOUVER, AS TABELAS E091PLF, E045PLA, E044CCU SERÃO FILTRADAS PELO       @
@ RELACIONAMENTO. DESSA FORMA OS USUÁRIOS VERÃO APENAS AS CONTAS LIGADAS À ELE @
@==============================================================================@

DEFINIR NUMERO XEMP;
DEFINIR NUMERO XFIL;
DEFINIR NUMERO XUSU;
DEFINIR ALFA   XFILTRO;

DEFINIR CURSOR CUR_E099UXF;

XEMP=CODEMP;
XFIL=CODFIL;
XUSU=CODUSU;
XFILTRO="";

CUR_E099UXF.SQL"SELECT CTAFIN FROM E099UXF WHERE CODEMP=:XEMP AND CODUSU=:XUSU AND SITUXF='A'";

CUR_E099UXF.AbrirCursor();

SE(CUR_E099UXF.Achou)
{
  XFILTRO="SELECT CTAFIN FROM E099UXF WHERE CODEMP=:XEMP AND CODUSU=:XUSU AND SITUXF='A'";
  SetarFiltroSql("E091PLF", "CTAFIN", XFILTRO);
}

CUR_E099UXF.FecharCursor();
  

 

@==============================================================================@