Histórico da Página

01. DADOS GERAIS

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

04. RETORNO

Não se aplica.

05. EXEMPLO

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:

...

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

Reclock("SE1",.F.)
SE1->E1_DESCFIN := 20
MsUnlock()

RestArea(aSaveSE1)

Return