...
Product | Produto: |
| ||||||||||||
| Linha de Produto: |
| |||||||||||||
|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
| Segmento: |
| |||||||||||||
Product Line: | Protheus Line | |||||||||||||
Segment: | Services | |||||||||||||
Module: | TOTVS Backoffice (Protheus Line) - Managerial Accounting (SIGAFIS | Módulo: |
ModulosCrossSegmentos | TOTVS Backoffice (Linha Protheus) - Contabilidade Gerencial (SIGACTB)
| ||||||||||
Function: | CTBA060 | |||||||||||||
Country: | BrasilBrazil | |||||||||||||
Ticket: | InternoInternal | |||||||||||||
Requisite/ | StoryStory/Issue | DSERCTR1-46829 |
...
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.
...
The entry point CTA60DEL is executed after the deletion of an accounting value class. It is triggered at the moment the routine responsible for the deletion of the accounting value class successfully completes the deletion, allowing for the execution of additional procedures after this process.
This entry point is useful for performing complementary actions, such as updating related records, validations, or any other processing that needs to occur after the deletion of the accounting value class.
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
If ExistBlock("CTA60DEL")
If ExecBlock("CTA60DEL",.F.,.F.,nOpc)
Return .F.
EndIf
EndIf |
| Bloco de código | ||||||
|---|---|---|---|---|---|---|
| ||||||
User Function CTA60DEL()
// VariáveisControl de controlevariables
Local cAlias := "CTH" // Alias daof tabelathe deAccounting ClasseValue deClass Valor Contábiltable
Local nReg := CTH->(Recno()) // NúmeroCurrent dorecord registronumber atualof dathe classeclass
Local nOpc := PARAMIXBARAMIXB[1] // NúmeroSelected daoption opção selecionadanumber, exemplogeneric genéricoexample.
If CTH->CTH_CLASSE == "1" // SinteticaSynthetic
If !Eof() .And. CTH->CTH_FILIAL == xFilial("CTH") .AND. Alltrim(M->CTH_CLVL) == ALLTRIM(CTH->CTH_CLSUP)
Help(" ",1,"CLVLSINT")
EndIf
EndIf
Return |
| Aviso | ||
|---|---|---|
| ||
|
|