Linha Microsiga Protheus

Árvore de páginas

01. DADOS GERAIS

Produto:

TOTVS Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Serviços

Módulo:

TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)

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.


IMPORTANTE!

A utilização do ponto de entrada é de total autoria de quem o utiliza e os efeitos resultantes dele são de responsabilidade do cliente.

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. 


Contextualização PE

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



Exemplo de PE 
#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



05. ASSUNTOS RELACIONADOS

  • Não há.