#INCLUDE "Protheus.ch"

/*{Protheus.doc} CN121ESTCN121ENC()
	Possibilita ao desenvolvedor realizar operações após o estornoencerramento da medição que tenha ocorrido com sucesso.
*/
User Function CN121ESTCN121ENC()
	Local aDocumentslInTrans:= PARAMIXB[1] //Listagem de documentos estornados pela medição.Verdadeiro caso seja dentro da transação, Falso fora da transação
	Local lInTranslResult 	:= PARAMIXB[2] //Verdadeiro caso sejaencerramento tenha dentroocorrido dacom transaçãosucesso, Falsofalso foracaso da transação
	Local nX		:= 0
	Local cTipo		:= ""
	Local cIdDoc	:= ""
	Local xTemp		:= Nil
	Local cMensagem	:= ""tenha falhado por algum motivo.	

	If lInTrans
		MsgInfo("Chamada dentro da transação."	,"U_CN121ESTCN121ENC")
	Else
		MsgInfo("Chamada fora da transação."	,"U_CN121ESTCN121ENC")
	EndIf

	for nX := 1 to Len(aDocuments)
		cMensagem := ""
		cTipo := aDocuments[nX, 1]
		cIdDoc:= aDocuments[nX, 2]
		xTemp := aDocuments[nX, 3]//Para pedidos, guarda a filial da medição. Para títulos, o RecNo da CND.

		Do Case
			Case(cTipo == "1")//Pedido de Compra
				cMensagem += "Pedido de Compra:"+cIdDoc
				cMensagem += ". Filial Medicao := "+ xTemp
			Case(cTipo == "2")//Pedido de Venda
				cMensagem += "Pedido de Venda:"+cIdDoc
				cMensagem += ". Filial Medicao := "+ xTemp
			Case(cTipo == "3")//Titulo a Pagar - SE2
				cMensagem += "Titulo a Pagar:"+cIdDoc
				cMensagem += ". RecNo Medicao := "+ cValToChar(xTemp)
			Case(cTipo == "4")//Titulo a Receber - SE1
				cMensagem += "Titulo a Receber:"+cIdDoc
				cMensagem += ". RecNo Medicao := "+ cValToChar(xTemp)
		EndCase

		MsgInfo(cMensagem , "U_CN121EST")
	next nX
Return

If lResult
		MsgInfo("Encerramento OK."		,"U_CN121ENC")
	Else
		MsgInfo("Encerramento Falhou."	,"U_CN121ENC")
	EndIf

Return