Histórico da Página
Ponto de Entrada
Descrição: | O ponto de entrada FA080POS é chamado apos carregar os dados do titulo a ser baixado, antes da visualização de informações na tela. |
Localização: | Atualizações > Contas à Pagar> Baixas a Pagar manual |
Eventos: | Após clicar no botão baixar |
Programa Fonte: | FINA080 |
Função: | FA080TIT |
Retorno: | Nil
|
Exemplo:
#Include 'Protheus.ch'
User Function FA080POS()
Local _nOpc
Local _nRecSA6 := SA6->(Recno())
_nOpc:=
Aviso("PE.FA080POS","Deseja
Alterar
informações de memória antes da Baixa do Títuloinformações para o Caixa Geral",{"SIM","NAO"})
If
_nOpc
==
1 cBanco := "111"cAgencia := "1111"
cConta := "11111"
cCheque := "22222"
cBenef := "ALTERADO PE FA080POS"
1
DbSelectArea("SA6")
SA6->(DbGotop())
SA6->(DbSeek(xFilial("SA6")+"CX1"))
cBanco := SA6->A6_COD
cAgencia := SA6->A6_AGENCIA
cConta := SA6->A6_NUMCON
cCheque := "22222"
SA6->(DbGoto(_nRecSA6))
Endif
Return
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas