Perguntas FA060Qry - Filtro na geração do Borderô

Boa tarde. Tudo bem?

Primeiramente, gostaria de informar que sou iniciante no mundo ADVPL rsrs.

Eu preciso que na tela do Contas a Receber - Borderô (Borderô de Cobranças) apareçam os títulos com base em uma condição.

Os títulos que podem aparecer, devem respeitas a condicional de uma campo do Pedido de Vendas [C5_ZZCCRE]. Ou seja, caso esse campo esteja preenchido com o valor 1, deverá aparecer no Borderô, caso contrário não.

Fiz algumas tentativas sem sucesso. Inclusive até achei uma situação parecida aqui no Forum, que, no caso estava verificando o SA1, peguei esse exemplo e mudei as variáveis, porém não obtive sucesso também.

Segue o código abaixo que estou utilizando:

User Function FA060Qry()

Local cRet := ""
Local cCliente := ""

cConsulta := " SELECT " + CRLF
cConsulta += " C5_ZZCCRE, C5_CLIENTE, C5_LOJACLI " + CRLF
cConsulta += " FROM " + RetSqlName("SC5") + CRLF
cConsulta += " WHERE " + CRLF
cConsulta += " D_E_L_E_T_ = ' ' " + CRLF
cConsulta += " AND C5_ZZCCRE = '1' " + CRLF
cConsulta += " AND C5_FILIAL = '0101' " + CRLF
cConsulta += " AND C5_NUM >= '200790' " + CRLF

TcQuery cConsulta New Alias _cQRY

Do While !_cQRY->(Eof())
cCliente += "'" + _cQRY->C5_CLIENTE+_cQRY->C5_LOJACLI + "',"
_cQRY->(dbSkip())

EndDo

_cQRY->(dbCloseArea())

If !Empty(cCliente)
cCliente := SubString(cCliente,1,LEN(cCliente) - 1)
cRet := " E1_CLIENTE NOT IN ("+ cCliente+ ")"

EndIf

Return cRet


Caso alguém consiga me ajudar, agradeço.

Atenciosamente,
Raphael

Meu Amigo, muito obrigado! Funcionou!