01. DADOS GERAIS

Produto:

Linha de Produto:

Segmento:

Módulo:

Função:Efetivação (CTBA350)
País:Brasil
Ticket:19125366
Requisito/Story/Issue :DSERCTR1-44381


02. SITUAÇÃO/REQUISITO

Alterar a efetivação de lançamento após as validações.

03. SOLUÇÃO

Nesse ponto de entrada EFELANC o registro está posicionado logo após a efetivação ou não, sendo possível alterar o resultado.


04. DEMAIS INFORMAÇÕES

O ponto de entrada estará posicionado logo após a efetivação. 

Neste exemplo está sendo alterado o tipo de saldo. 


EFELANC – Manipula o registro após a efetivação ou não.


Características do Requisito

Descrição:

O ponto de entrada EFELANC permite manipular o registro logo após a efetivação ou não na rotina CTBA350-Efetivação de Pré-Lançamento.

Eventos:

ExistBlock("EFELANC")

Programa Fonte:

CTBA350.PRW

Função (PE) :

EFELANC() – Permite manipular o registro de efetivado ou não da rotina CTBA350-Efetivação de Pré-lançamento.

Parâmetros:

Não há.

Retorno:

Não há.



#Include "Protheus.ch"

// ajusta o registro na CT2 após a efetivação. Rotina ctba350 - Efetivação de pré-lançamento
User Function EFELANC()
 
    Local aArea := GetArea()
 
    IF EMPTY(CT2->CT2_ITEMD) 
        RECLOCK( 'CT2', .F. )
            CONOUT("registro : " +  STR(CT2->(RECNO()))  + " posicionado ")
            CT2->CT2_TPSALD := "9"
        CT2->(MSUNLOCK())
    ENDIF
    
    RestArea(aArea)
 
Return

Este Ponto de Entrada é acionado exclusivamente para os lançamentos contábeis que não apresentam inconsistências, ou seja, aqueles que são efetivados diretamente. Já os lançamentos com inconsistências não são gravados, e, quando exibidos em tela (Pergunta "Mostra Lanc Contab ?" = Sim), devem ser corrigidos pelo usuário, sendo nesse caso processados por outro fluxo do sistema.



05. ASSUNTOS RELACIONADOS