× Linguagem de Programação ADVPL

Perguntas Ponto de entrada para filtro na liberação de Pagto.

Mais
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

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás - 11 anos 8 meses atrás #10926 por kanaamlrr
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.
Ultima edição: 11 anos 8 meses atrás por kanaamlrr.

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #10938 por Marcelo Evangelista
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?

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #10941 por lalberto
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)

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.

Mais
11 anos 8 meses atrás #10957 por Marcelo Evangelista
Valeu Luiz e Kanaãm deu certo obrigado pela ajuda!!!!

Por favor Acessar ou Registrar para participar da conversa.

Mais
11 anos 8 meses atrás #10962 por kanaamlrr
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.

Por favor Acessar ou Registrar para participar da conversa.

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