#INCLUDE "Protheus.ch"

/*{Protheus.doc} A300MLDR()
	Possibilita ao desenvolvedor alterar a configuração das tabelas e campos durante uma revisão
*/
User Function A300MLDR()
	Local cTipRev	:= PARAMIXB[1]//Tipo de Revisão
	Local oModel	:= PARAMIXB[2]//Instância da classe MPFormModel do modelo do CNTA300/301
	Local oModelCNU	:= Nil
	Local oStruCNU	:= Nil


	if oModel:GetValue("CN9MASTER" ,"CN9_ESPCTR") == "1"//Contrato de venda		
		Do Case
			Case(cTipRev == "1")//Aditivo
				oModelCNU  := oModel:GetModel('CNUDETAIL')
				oStruCNU   := oModelCNU:GetStruct()

				oStruCNU:SetProperty('*',MODEL_FIELD_WHEN,{||.T.})//Permite alterar todos os campos

				oModelCNU:SetNoDeleteLine(.F.)
				oModelCNU:SetNoInsertLine(.F.)
				oModelCNU:SetNoUpdateLine(.F.)

			Case(cTipRev == "2")//Reajuste
			Case(cTipRev == "3")//Realinhamento
			Case(cTipRev == "4")//Readequação
			Case(cTipRev == "5")//Paralisação
			Case(cTipRev == "6")//Reinicio
			Case(cTipRev == "7")//Clausulas
			Case(cTipRev == "8")//Contabil
			Case(cTipRev == "9")//Indice
			Case(cTipRev == "A")//Fornecedor/Cliente
			Case(cTipRev == "B")//Grupo de Aprovação
			Case(cTipRev == "C")//Renovação
			Case(cTipRev == "D")//Multa/Bonificação
			Case(cTipRev == "E")//Caução
			Case(cTipRev == "F")//Orçamento de Serviços GS
			Case(cTipRev == "G")//Aberta		

		EndCase
	endif
	
Return Nil