Histórico da Página

#Include 'Totvs.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNT280EXEC
 ExecAuto MNTA280
/*/
//-------------------------------------------------------------------
User Function MNT280EXEC()

	//------------------------------------------
	// Processo de Inclusão
	//------------------------------------------  	

	Local aSolic := {}
 	Private lMSHelpAuto := .t. // Não apresenta erro em tela
	Private lMSErroAuto := .f. // Caso a variável torne-se .T. após MsExecAuto, apresenta erro em tela 

	aSolic	:= 	{	{"TQB_CODBEM", "BEM MNT 010"	,Nil},;	// Código do Bem a ser relacionado na Solicitação de Serviço
					{"TQB_CCUSTO", "MNT000003"    	,Nil},; // Código do Centro de Custo
					{"TQB_CDSERV", "MNT004"    		,Nil},; // Código do CentroTipo de Custo Serviço          
					{"TQB_RAMAL" , "0001"    		,Nil},; // Ramal do funcionário que abriu a Solicitação de Serviço
					{"TQB_DESCSS", "Serviço no bem.",Nil},; // Descrição da Solicitação
					{"TQB_TPSERV",  "2" 			,Nil};	// Tipo Solicitação 1 - Incidente / 2 - Melhoria
				}

	MSExecAuto( {|x,z,y,w| MNTA280(x,z,y,w)}, , , aSolic, 3 )

	If lMsErroAuto
  		If !IsBlind() //Apresentará mensagem com o MostraErro se não utilizar RPCSetEnv. 
			MostraErro()
		Else		  //Não apresentará mensagem, pois utiliza a função RPCSetEnv.
			cError := MostraErro(GetSrvProfString("Startpath", ""), "MNTA280EXEC_"+DTOS(DATE())+"_"+;
					  Left(Time(),2)+SubStr(Time(),4,2)+".LOG") // Armazena mensagem de erro na raiz (StartPath).
			ConOut( cError)
		EndIf
	Endif

Return