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

02. DESCRIÇÃO

O ponto de entrada CTA60DEL é executado após a exclusão de uma classe de valor contábil. Ele é acionado no momento em que a rotina responsável pela exclusão da classe de valor contábil completa a exclusão de forma bem-sucedida, permitindo a execução de procedimentos adicionais após esse processo.

Este ponto de entrada é útil para realizar ações complementares, como atualizações de registros relacionados, validações, ou qualquer outro processamento que precise ocorrer após a exclusão da classe de valor contábil.

03. DEMAIS INFORMAÇÕES


Manipulação de PE no sistema
If ExistBlock("CTA60DEL")
	If ExecBlock("CTA60DEL",.F.,.F.,nOpc)
		Return .F.
	EndIf
EndIf
Exemplo de PE
User Function CTA60DEL()

    // Variáveis de controle
    Local cAlias := "CTH"         // Alias da tabela de Classe de Valor Contábil
    Local nReg   := CTH->(Recno())  // Número do registro atual da classe
    Local nOpc   := PARAMIXB[1]               // Número da opção selecionada, exemplo genérico

	If CTH->CTH_CLASSE == "1"			// Sintetica
		If !Eof() .And. CTH->CTH_FILIAL == xFilial("CTH") .AND. Alltrim(M->CTH_CLVL) == ALLTRIM(CTH->CTH_CLSUP)
			Help(" ",1,"CLVLSINT")
		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.