- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro na Consulta Padrão
×
Linguagem de Programação ADVPL
Perguntas Filtro na Consulta Padrão
- inocenciojr
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 114
- Obrigados Recebidos: 1
10 anos 2 meses atrás #25139
por inocenciojr
Filtro na Consulta Padrão foi criado 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
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.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
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
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.
- inocenciojr
- Autor do Tópico
- Desconectado
- Membro Especialista
Menos
Mais
- Postagens: 114
- Obrigados Recebidos: 1
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.
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.
- admin
- Desconectado
- Administrador
Menos
Mais
- Postagens: 216
- Obrigados Recebidos: 0
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.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Filtro na Consulta Padrão
Tempo para a criação da página:0.111 segundos