Histórico da Página

A seguir a lista de variáveis que podem ser utilizadas na configuração do Lançamento Padrão 597 (Compensação Contas a pagar) para contabilização online da Compensação a pagar (FINA340):

VALOR - Armazena o valor compensado
VALOR2 - Valor de Acréscimo
VALOR3 - Valor de Decréscimo
VALOR4 - Variação da correção monetária
VLRINSTR - Armazena o valor compensado
nSldReal - Armazena o valor compensado na moeda correspondente do título
ABATIMENTO - Valores de abatimentos
REGVALOR - Recno do registro atual
STRLCTPAD - Chave do título principal+número do documento

Essas variáveis são alimentadas com os dados do registro posicionado de onde partiu a compensação. Enquanto que para os registros selecionados para compensar, é feita a contabilização pela SE5. 

Na contabilização on-line, não é possível alterar a filial de contabilização, sendo contabilizado na filial do processo de compensação (filial do título de partida da compensação).

Exemplo:

Selecionar a NF1 e clicado em Compensar.

Na tela de seleção dos títulos a compensar, selecionar a PA1 e PA2.

Ao contabilizar on-line, as informações da NF1 estarão nas variáveis de contabilização. Já as informações da compensação de cada PA, terão seus respectivos registros da SE5 posicionados.

Variáveis Estorno:

VALOR - Armazena o valor compensado
VLRINSTR - Armazena o valor compensado

Ao forçarmos o posicionamento dos títulos a serem compensados, a contabilização trará os dois títulos (ex: NF x PA), contabilizando o valor dos dois títulos, podendo gerar duplicidade na contabilização.

As variáveis disponíveis para a contabilização off-line (CTBAFIN):

VALOR - Armazena o valor compensado
VALOR2 - Valor de Acréscimo
VALOR3 - Valor de Decréscimo
REGVALOR - RECNO do registro atual
STRLCTPAD - Chave do título principal+número do documento

Obs.: Estas variaveis estão disponiveis tanto para a compensação quanto para o estorno.

Essas variáveis são alimentadas com os dados do registro posicionado de onde partiu a compensação. Enquanto que para os registros selecionados para compensar, é feita a contabilização pela SE5.

Exemplo: LP597

Preencher no campo CT5_HIST: U_HIST597()

Criar a seguinte função:

User function HIST597()
    Local aSaveSE5 := SE5->(GetArea())
    Local aSaveSE2 := SE2->(GetArea())
    Local xRet := Nil

    If REGVALOR <> 0
        SE2->(dbGoto(REGVALOR))
        xRet:= "TESTE TIPO: "+ SE2->E2_TIPO + " RECNO: "+ ALLTRIM(STR(SE2->(RECNO())))
    Else
        xRet:= "TESTE TIPO: "+ SE5->E5_TIPO + " TIPODOC: "+SE5->E5_TIPODOC + " RECNO: "+ ALLTRIM(STR(SE5->(RECNO())))
    Endif

    RestArea(aSaveSE2)
    RestArea(aSaveSE5)
Return(xRet)