#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 nXIf lResult
MsgInfo("Encerramento OK." ,"U_CN121ENC")
Else
MsgInfo("Encerramento Falhou." ,"U_CN121ENC")
EndIf
Return
|