× Linguagem de Programação ADVPL

Perguntas Filtro na Consulta Padrão

Mais
10 anos 2 meses atrás #25139 por inocenciojr
Boa Tarde Povo,

Estou tentando fazer um filtro na consulta padrão para que quando for emitir um relatório só apareça as Ordens de Serviço incluídas por quem está emitindo, mas não consigo o resultado de jeito nenhum.
Da forma como está hoje qualquer um pode visualizar as Ordens de Serviço incluídas por outras pessoas.

Já tentei colocar isso no filtro:

If(__cUserID<>'000000',SZC->ZC_CODTEC=Posicione('SZA',4,xFilial('SZA')+__cUserID,'ZA_CODTEC'),.T.)

E já tentei essa função também:

User Function FilConsul()

Local aArea := GetArea()
Local cFiltro := ""

If(__cUserID<>'000000')
cFiltro += "@#"
cFiltro += "SZC->ZC_CODTEC='"
cFiltro += Posicione("SZA",4,xFilial("SZA")+__cUserID,"ZA_CODTEC")
cFiltro += "'@#"
Else
cFiltro := .T.
EndIf
RestArea(aArea)

Return (cFiltro)

Sem sucesso. Alguém pode me dar uma luz do que estou fazendo errado?
Obrigado

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #25140 por admin
Respondido por admin no tópico Filtro na Consulta Padrão
Troca isso:
If(__cUserID<>'000000',SZC->ZC_CODTEC=Posicione('SZA',4,xFilial('SZA')+__cUserID,'ZA_CODTEC'),.T.)
Por Isso
U_FilConsul()


User Function FilConsul()
Local aArea := GetArea()
Local lRet := .t.

If !__cUserId$'000000'
If SZA->(dbSetOrder(4), dbSeek(xFilial("SZA")+__cUserID))
If SZC->ZC_CODTEC == SZA->ZA_CODTEC
lRet := .t.
Else
lRet := .f.
Endif
Else
lRet := .f.
Endif
Endif

RestArea(aArea)
Return lRet

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #25159 por inocenciojr
Respondido por inocenciojr no tópico Filtro na Consulta Padrão
Adminsitrator,

Obrigado pela ajuda, mas esse também não funcionou. Está trazendo a consulta em branco.

Por favor Acessar ou Registrar para participar da conversa.

Mais
10 anos 2 meses atrás #25167 por admin
Respondido por admin no tópico Filtro na Consulta Padrão
Brother verifique se os dados constam destas tabelas mesmo, se esta localizando o registro corretamente, precisa debugar, é quase certeza que funcionaria esta função.

:oops:

Por favor Acessar ou Registrar para participar da conversa.

Tempo para a criação da página:0.111 segundos
Joomla templates by a4joomla