Linha Microsiga Protheus

Árvore de páginas

Versões comparadas

Versão antiga 1

changes.mady.by.user Philipe dos Santos Pompeu

Gravado em

comparado com

Nova versão 2

changes.mady.by.user Philipe dos Santos Pompeu

Gravado em

Chave

  • Esta linha foi adicionada.
  • Esta linha foi removida.
  • A formatação mudou.

...

Produto:

Totvs Backoffice

Linha de Produto:

Linha Protheus

Segmento:

Backoffice

Módulo:

Gestão de Contratos

Função:

CNTXFUN - Funções genéricas de Contratos

País:Brasil
Ticket:

17102378

Requisito/Story/Issue:DTEXPRO-702


02. SITUAÇÃO/REQUISITO

A rotina de medições automáticas - CNTA260 não acionava o evento 041 caso o mesmo fosse cadastrado via Event Viewer - CFGA040O sistema não disponibiliza um ponto de entrada ao final do estorno de documentos oriundos do GCT(IC, CT, IR, RV, IM e MD), criando uma divergência em relação aos demais documentos que acionam o ponto de entrada MT097EST.

03. SOLUÇÃO 

O sistema foi corrigido para utilizar o evento cadastrado no Event Viewer - CFGA040, caso contrário utilizar o existente no Messenger - MATA045Disponibilizado o ponto de entrada CNESTAPR, que é acionado ao final da operação de estorno dos documentos do GCT. 

04. DEMAIS INFORMAÇÕES


Bloco de código
firstline1
titleExemplo
linenumberstrue
#INCLUDE "Protheus.ch"
 
/*{Protheus.doc} CNESTAPR()  
    Possibilita ao desenvolvedor realizar operações após o estorno de documentos oriundos do SIGAGCT, ou seja, tipos: IC, CT, IR, RV, IM e MD
 */
User Function CNESTAPR()
    Local aAreas    := {SCR->(GetArea()) , GetArea()}
    Local nRecSCR   := PARAMIXB[1] //RecNo do documento sendo estornado
    Local lEstornou := PARAMIXB[2] //Indica se a operação de estorno ocorreu com sucesso.
 
    SCR->(DbGoTo(nRecSCR)) //Garante o posicionamento na SCR sendo estornada
    If lEstornou
        FWAlertSuccess( I18N("Documento estornado do tipo #1",{SCR->CR_TIPO})           , 'CNESTAPR')
    Else
        FWAlertWarning( I18N("Não foi possível estornar documento #1 ",{SCR->CR_NUM})   , 'CNESTAPR')
    EndIf
 
    aEval(aAreas, {|x| RestArea(x) })
    FwFreeArray(aAreas)
Return Nil

...

HTML
<style>
div.theme-default .ia-splitter #main {
    margin-left: 0px;
}
.ia-fixed-sidebar, .ia-splitter-left {
    display: none;
}
#main {
    padding-left: 10px;
    padding-right: 10px;
    overflow-x: hidden;
}

.aui-header-primary .aui-nav,  .aui-page-panel {
    margin-left: 0px !important;
}
.aui-header-primary .aui-nav {
    margin-left: 0px !important;
}

.aui-tabs.horizontal-tabs>.tabs-menu>.menu-item.active-tab a::after { 
	background: #FF9900; !important 
}

.menu-item.active-tab { 
	border-bottom: none !important; 
}

</style>

...