Histórico da Página
01. DADOS GERAIS
Produto: |
| ||||
---|---|---|---|---|---|
Linha de Produto: |
| ||||
Segmento: |
| ||||
Módulo: | Financeiro (SIGAFIN) | ||||
Função: | Baixa Automática a Receber (FINA110) | ||||
País: | Brasil |
02. VISÃO GERAL
O ponto de entrada FA110ATCP está na rotina Baixa Automática a Receber (FINA110), e sua chamada ocorre após a gravação da tabela temporária responsável por exibir os dados na tela de seleção de títulos;
Ele permite manipular os dados já gravados nos campos da tabela temporária e/ou dos títulos a receber (tabela SE1)
Os dados nele manipulados serão considerados no processamento de baixa de cada título selecionado.
03. PARÂMETROS
Nome | Tipo | Descrição | Conteúdo | ||||||
paramIXB[1] | Array | Alias da tabela temporária |
|
04. RETORNO
Não se aplica.
05. EXEMPLO
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
User Function FA110ATCP()
Local aSaveSE1 := |
Ponto de Entrada
...
Descrição:
...
O Ponto de Entrada FA110ATCP permite atribuir acréscimo, decréscimo, juros ou desconto na rotina de baixa automática a receber.
...
Programa Fonte:
...
FINA110
...
Parâmetro:
Nome | Tipo | Descrição | Obrigatório |
---|---|---|---|
cAliasTmp | caracter | Vairável cAliasTmp | Não |
...
Retorno:
Nenhum
Exemplos:
// Para decréscimo
#Include 'Protheus.ch'
User Function FA110ATCP()
...
SE1->(GetArea()) |
...
Local cAliasTRB := PARAMIXB[1] |
...
//Atualiza tabela temporária (cAliasTRB)->E1_DECRESC := |
...
20 // Para decréscimo (cAliasTRB)->E1_SDDECRE := 20 // Para decréscimo (cAliasTRB)->E1_VALJUR := 10 // Para Juros (cAliasTRB)->E1_DESCFIN := 20 // Para Desconto //Posiciona no registro do título (tabela SE1) SE1->(dbGoto( |
...
(cAliasTRB)->RECNO )) |
...
//Atualiza tabela SE1 Reclock("SE1",.F.) |
...
SE1->E1_DECRESC |
...
:= (cAliasTRB)->E1_DECRESC // Para decréscimo SE1->E1_SDDECRE := |
...
( |
...
Return
//Para Juros
#Include 'Protheus.ch'
User Function FA110ATCP()
Local aSaveSE1 := SE1->(GetArea())
Local cAliasTRB := PARAMIXB[1]
QRYSE1->E1_VALJUR := 10
SE1->(dbGoto(TMP->RECNO))
Reclock("SE1",.F.)
SE1->E1_VALJUR:= 10
MsUnlock()
...
Return
//Para Desconto
#Include 'Protheus.ch'
User Function FA110ATCP()
Local aSaveSE1 := SE1->(GetArea())
Local cAliasTRB := PARAMIXB[1]
QRYSE1->E1_DESCFIN := 20
SE1->(dbGoto(TMP->RECNO))
cAliasTRB)->E1_SDDECRE // Para decréscimo
SE1->E1_VALJUR := (cAliasTRB)->E1_VALJUR // Para Juros
SE1->E1_DESCFIN := (cAliasTRB)->E1_DESCFIN // Para Desconto
MsUnlock()
RestArea(aSaveSE1)
Return |
Templatedocumentos |
---|
Reclock("SE1",.F.)
SE1->E1_DESCFIN := 20
MsUnlock()
RestArea(aSaveSE1)
Return