Linha Microsiga Protheus

Árvore de páginas


01. DADOS GERAIS

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

O 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 

Disponibilizado o ponto de entrada CNESTAPR, que é acionado ao final da operação de estorno dos documentos do GCT. 

04. DEMAIS INFORMAÇÕES


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

05. ASSUNTOS RELACIONADOS