Árvore de páginas

Versões comparadas

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...


While !Eof() .And. xFilial("RDN") == RDN->RDN_FILIAL
    If Empty(cDescProj ) .Or. AllTrim(cDescProj ) == SubStr(RDN->RDN_DESC, 1, LEN( AllTrim(cDescProjetocDescProj) ))
        If Empty(cCodCli) .Or. cCodcli == RDN->RDN_CODCLI    //Filtrar projetos pelo cliente informado
             aadd(oProjects ,WsClassNew('Projects'))
            nX++

...