- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada para filtro na liberação de Pagto.
×
Linguagem de Programação ADVPL
Perguntas Ponto de entrada para filtro na liberação de Pagto.
- Marcelo Evangelista
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
11 anos 8 meses atrás #10924
por Marcelo Evangelista
Bom dia pessoal, estou precisando encontrar um ponto de entrada na rotina do financeiro FINA750, liberação para Pagto, onde gostaria que o usuário ao entrar na rotina aparece-se apenas os títulos pertinentes a ele, o qual filtraria pelo controle de alçadas, ou seja no controle de alçadas já fiz um execbloc que ao preencher o valor ele já preenche o campo Cod. Aprovador.
Portanto gostaria de achar um execbloc para filtrar esses titulos.
Encontrei esse FINA580.PRW mas não entendi a sintaxe, o que devo preencher ou como devo criar a regra ja que o retorno é (NIL)
Atenciosamente.
Marcelo Vieira Evangelista
Portanto gostaria de achar um execbloc para filtrar esses titulos.
Encontrei esse FINA580.PRW mas não entendi a sintaxe, o que devo preencher ou como devo criar a regra ja que o retorno é (NIL)
Atenciosamente.
Marcelo Vieira Evangelista
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 8 meses atrás - 11 anos 8 meses atrás #10926
por kanaamlrr
Respondido por kanaamlrr no tópico Ponto de entrada para filtro na liberação de Pagto.
você pode usar o "F750BROW" se quiser filtrar direto na rotina Funções Ctas a pagar.
Caso contrário usa o "F580BROW".
você pode utilizar o comando SET FILTER TO ...
e fazer a trativa do seu filtro nesses PE's.
Testa ai e diz pra gente se deu certo e como ficou.
Caso contrário usa o "F580BROW".
você pode utilizar o comando SET FILTER TO ...
e fazer a trativa do seu filtro nesses PE's.
Testa ai e diz pra gente se deu certo e como ficou.
Ultima edição: 11 anos 8 meses atrás por kanaamlrr.
Por favor Acessar ou Registrar para participar da conversa.
- Marcelo Evangelista
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
11 anos 8 meses atrás #10938
por Marcelo Evangelista
Respondido por Marcelo Evangelista no tópico Ponto de entrada para filtro na liberação de Pagto.
Então Kanaãm estou fazendo da seguinte maneira:
User Function F580BROW()
Private _cUser := RetCodUsr()//Retorna o código do Usuário
FRP->(DbSelectArea("FRP"))
FRP->(DbSetOrder(2))
FRP->(DbSeek(xFilial("FRP") + _cUser) )
cCodAprov := FRP->FRP_COD
SET FILTER TO 'E2_FILIAL' = xFilial("SE2") .and. 'E2_CODAPRO' = 'cCodAprov'
Return(NIL)
Estou com duvida no retorno, se ele é NIL, como entente o que quero que seja filtrado?
User Function F580BROW()
Private _cUser := RetCodUsr()//Retorna o código do Usuário
FRP->(DbSelectArea("FRP"))
FRP->(DbSetOrder(2))
FRP->(DbSeek(xFilial("FRP") + _cUser) )
cCodAprov := FRP->FRP_COD
SET FILTER TO 'E2_FILIAL' = xFilial("SE2") .and. 'E2_CODAPRO' = 'cCodAprov'
Return(NIL)
Estou com duvida no retorno, se ele é NIL, como entente o que quero que seja filtrado?
Por favor Acessar ou Registrar para participar da conversa.
- lalberto
- Desconectado
- Administrador
Menos
Mais
- Postagens: 3676
- Obrigados Recebidos: 6
11 anos 8 meses atrás #10941
por lalberto
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Respondido por lalberto no tópico Ponto de entrada para filtro na liberação de Pagto.
User Function F580BROW()
Private _cUser := RetCodUsr()//Retorna o código do Usuário
FRP->(DbSelectArea("FRP"))
FRP->(DbSetOrder(2))
FRP->(DbSeek(xFilial("FRP") + _cUser) )
cCodAprov := FRP->FRP_COD
dbSelectArea("SE2")
SET FILTER TO E2_FILIAL = xFilial("SE2") .and. E2_CODAPRO = cCodAprov
SE2->(dbGoTop())
// Tira as aspas simples que colocou ok
Return(NIL)
Private _cUser := RetCodUsr()//Retorna o código do Usuário
FRP->(DbSelectArea("FRP"))
FRP->(DbSetOrder(2))
FRP->(DbSeek(xFilial("FRP") + _cUser) )
cCodAprov := FRP->FRP_COD
dbSelectArea("SE2")
SET FILTER TO E2_FILIAL = xFilial("SE2") .and. E2_CODAPRO = cCodAprov
SE2->(dbGoTop())
// Tira as aspas simples que colocou ok
Return(NIL)
Luiz Alberto Vieira Alves
Proprietário
55 (12) 9 8256-5905 (Vivo)
www.3lsystems.com.br
www.masteradvpl.com.br
Por favor Acessar ou Registrar para participar da conversa.
- Marcelo Evangelista
- Autor do Tópico
- Desconectado
- Membro Sénior
Menos
Mais
- Postagens: 61
- Obrigados Recebidos: 0
11 anos 8 meses atrás #10957
por Marcelo Evangelista
Respondido por Marcelo Evangelista no tópico Ponto de entrada para filtro na liberação de Pagto.
Valeu Luiz e Kanaãm deu certo obrigado pela ajuda!!!!
Por favor Acessar ou Registrar para participar da conversa.
- kanaamlrr
- Desconectado
- Membro Platina
Menos
Mais
- Postagens: 1576
- Obrigados Recebidos: 4
11 anos 8 meses atrás #10962
por kanaamlrr
Respondido por kanaamlrr no tópico Ponto de entrada para filtro na liberação de Pagto.
Então cara, o retorno pode ser NIL nesse caso, pois o execblock de chamada dessa função não trata o retorno.
Ele entende o que você está tentando filtrar pois na entrada do PE ele já está com a área setada para a SE2, e o "set filter to" aplica o filtro para o alias ativo, ou seja, SE2.
Ele entende o que você está tentando filtrar pois na entrada do PE ele já está com a área setada para a SE2, e o "set filter to" aplica o filtro para o alias ativo, ou seja, SE2.
Por favor Acessar ou Registrar para participar da conversa.
- Fórum
- Protheus/Microsiga/Totvs
- AdvPL (Advanced Protheus Language)
- Dúvidas Gerais
- Ponto de entrada para filtro na liberação de Pagto.
Tempo para a criação da página:0.115 segundos