×
Linguagem de Programação ADVPL
Perguntas PE CTB102MB
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
8 anos 5 dias atrás #31424
por diegoo_martins
PE CTB102MB foi criado por diegoo_martins
Pessoal, bom dia.
Preciso fazer um filtro no Browse da rotina CTBA102, com o objetivo de alguns usuários não visualizarem algumas contas no browse da rotina.
Pensei em utilizar o PE CTB102MB.
Alguém tem algum exemplo deste PE?
Att.
Preciso fazer um filtro no Browse da rotina CTBA102, com o objetivo de alguns usuários não visualizarem algumas contas no browse da rotina.
Pensei em utilizar o PE CTB102MB.
Alguém tem algum exemplo deste PE?
Att.
Por favor Acessar ou Registrar para participar da conversa.
- diegoo_martins
- Autor do Tópico
- Desconectado
- Membro Dourado
-
Menos
Mais
- Postagens: 175
- Obrigados Recebidos: 0
8 anos 5 dias atrás #31425
por diegoo_martins
Respondido por diegoo_martins no tópico PE CTB102MB
Consegui fazer desta forma. Porém são várias contas e o filtro somente permite incluir em uma linha.
Como consigo deixar o filtro mais limpo ou continuar em outra linha?
User Function CTB102MB()
Local cFiltro := ""
#IFDEF TOP
If __cUserId $ '000074'
cFiltro := "CT2_DEBITO<>'21701321'AND CT2_CREDIT<>'21701321' AND CT2_DEBITO<>'21701332'AND CT2_CREDIT<>'21701332' AND CT2_DEBITO<>'21701331'AND CT2_CREDIT<>'21701331' AND CT2_DEBITO<>'21701327'AND CT2_CREDIT<>'21701327'"
Endif
#ENDIF
Return(cFiltro)
Como consigo deixar o filtro mais limpo ou continuar em outra linha?
User Function CTB102MB()
Local cFiltro := ""
#IFDEF TOP
If __cUserId $ '000074'
cFiltro := "CT2_DEBITO<>'21701321'AND CT2_CREDIT<>'21701321' AND CT2_DEBITO<>'21701332'AND CT2_CREDIT<>'21701332' AND CT2_DEBITO<>'21701331'AND CT2_CREDIT<>'21701331' AND CT2_DEBITO<>'21701327'AND CT2_CREDIT<>'21701327'"
Endif
#ENDIF
Return(cFiltro)
Por favor Acessar ou Registrar para participar da conversa.
Tempo para a criação da página:0.078 segundos