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:CTBA102
País:Brasil
Ticket:Interno
Requisito/Story/IssueDSERCTR1-46829

02. DESCRIÇÃO

Ponto de entrada utilizado após a gravação dos dados da tabela de lançamento.

No exemplo abaixo, o ponto de entrada DPCTB102GR é utilizado para aplicar uma validação/ajuste adicional após a gravação de um lançamento contábil. Caso a operação seja de estorno (indicada pelo parâmetro nOpc == 6), o ponto de entrada pode ajustar um campo específico do lançamento recém gravado, conforme uma lógica de negócios definida pelo usuário.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If nOpc == 6
	ExecBlock("DPCTB102GR",.F.,.F.,{ nOpc,dDataEst,cLoteEst,cSubLtEst,cDocEst } )
Else
	ExecBlock("DPCTB102GR",.F.,.F.,{ nOpc,dDataAux,cLoteAux,cSubLtAux,cDocAux } )											
EndIf
Exemplo de PE
User Function DPCTB102GR()

	Local nOpc      := PARAMIXB[1] 
	Local dDataEst  := PARAMIXB[2] 
	Local cLoteEst  := PARAMIXB[3] 
	Local cSubLtEst := PARAMIXB[4]  
	Local cDocEst   := PARAMIXB[5] 

    // Checa se a operação é de estorno
    If nOpc == 6
        // Define uma lógica para ajuste de campo após o estorno
        DbSelectArea("CT2")
        DbSetOrder(1)
        
        If MsSeek(xFilial("CT2") + DTOS(dDataEst) + cLoteEst + cSubLtEst + cDocEst)
			//VAIDACAO DO CLIENTE
        EndIf
    EndIf

Return

Importante !!

  • Observa-se que a utilização do PE e os impactos dele no sistema são de responsabilidade do cliente.
  • Os exemplos utilizados nessa documentação são apenas para fins de demonstração, cada cliente deve verificar qual comportamento deseja realizar de acordo com o escopo do ponto de entrada.

04. ASSUNTOS RELACIONADOS

  • Não se aplica.