#INCLUDE "Protheus.ch"

/*{Protheus.doc} CN121ENCGCTPEDCPO()
	Possibilita ao desenvolvedor realizar operações após o encerramento da medição determinar quais campos podem ser modificados pelo usuário quando um pedido de venda é oriundo do SIGAGCT.
*/
User Function CN121ENCGCTPEDCPO()
	Local lInTrans:= PARAMIXB[1] //Verdadeiro caso seja dentro da transação, Falso fora da transação
	Local lResult := PARAMIXB[2] //Verdadeiro caso encerramento tenha ocorrido com sucesso, falso caso tenha falhado por algum motivo.	

	If lInTrans
		MsgInfo("Chamada dentro da transação."	,"U_CN121ENC")
	Else
		MsgInfo("Chamada fora da transação."	,"U_CN121ENC")
	EndIf
	
	If lResult
		MsgInfo("Encerramento OK."		,"U_CN121ENC")
	Else
		MsgInfo("Encerramento Falhou."	,"U_CN121ENC")
	EndIf

Return    Local aResult := Array(2)

    If (FindFunction('GCTPVCpos'))
        aResult := GCTPVCpos() //Função retorna os campos liberados pelo padrão(incluindo os campos de usuário)
    Else
        /*Também é possível inicializar o vetor inteiramente:*/
        aResult[1] := {"C5_NATUREZ", "C5_CONDPAG"}
        aResult[2] := {"C6_ENTREG"}
    EndIf

    aAdd(aResult[1], "C5_TRANSP")//Adiciona campo a ser liberado no cabeçalho(SC5)
    aAdd(aResult[2], "C6_TES")//Adiciona campo a ser liberado nos detalhes(SC6)

Return aResult