01. CNESTAPR - Realizar operações ao final do estorno de documentos de contratos
| 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 |
| Ponto de Entrada: | CNESTAPR |
02. DETALHES
| Descrição: | 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 | |||||||||
|---|---|---|---|---|---|---|---|---|---|---|
| Eventos: | Executado uma vez ao fim do estorno ainda dentro da transação | |||||||||
| Programa Fonte: | CNTXFUN.PRW | |||||||||
| Função: | GCTEstApr | |||||||||
| Parâmetros: |
| |||||||||
| Retorno: |
|
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
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas