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 posicionada.

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

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 :=

If REGVALOR <> 0

 Nil

    If REGVALOR <> 0
        SE2->(dbGoto(REGVALOR))

        xRet:= "TESTE TIPO: "+ SE2->E2_TIPO + " RECNO: "+ ALLTRIM(STR(SE2->(RECNO())))

Else

    Else
        xRet:= "TESTE TIPO: "+ SE5->E5_TIPO + " TIPODOC: "+SE5->E5_TIPODOC + " RECNO: "+ ALLTRIM(STR(SE5->(RECNO())))

Endif

    Endif

    RestArea(aSaveSE2)

    RestArea(aSaveSE5)

Return(xRet)