Histórico da Página

#Include 'Totvs.ch'

//-------------------------------------------------------------------
/*/{Protheus.doc} MNT655EXEC
ExecAuto MNTA655
/*/
//-------------------------------------------------------------------
User Function MNT655EXEC()

	//------------------------------------------
	// Processo de Inclusão
	//------------------------------------------
	Local aAbast := {}

	//Abre empresa/filial/modulo/arquivosmódulo/arquivos - deve ser comentada a função RPCSetEnv se quiser verificar as mensagens de erro em tela
	RPCSetEnv('Código da empresa','Código da filial','','','Código do módulo')

	// Itens obrigatórios para inclusão do abastecimento para posto interno
	aAbast := { {'TQN_PLACA' , PadR( 'CGZ-1500'		  , TAMSX3("TQN_PLACA")[1] ) , Nil },;
             ,  Nil },;
				{'TQN_FROTA' , PadR( 'CG150'  		  , TAMSX3("TQN_FROTA")[1] ) , Nil },;
       '       , Nil },;
				{'TQN_CNPJ'  , PadR( '47467235000151' , TAMSX3("TQN_CNPJ")[1] )   , Nil },;
				                {'TQN_CODCOM', PadR( 'GAS'			  , TAMSX3("TQN_CODCOM")[1] ), Nil },;
              , Nil },;
				{'TQN_DTABAS', StoD( '20191210' )     							 , Nil },;
				                {'TQN_HRABAS', '15:05'                							 , Nil },;
				                {'TQN_TANQUE', PadR( '01'			  , TAMSX3("TQN_TANQUE")[1] ), Nil '},;
              , Nil },;
				{'TQN_BOMBA' , PadR( '01'			  '     , TAMSX3("TQN_BOMBA")[1] ) , Nil },;
            ,   Nil },;
				{'TQN_QUANT' , 10                     							 , Nil },;
				                {'TQN_VALUNI', 43.57                   							  , Nil },;
				                {'TQN_VALTOT', 4035.70                   							 , Nil },;
				                {'TQN_HODOM' , 130                   							 , Nil },;
				                {'TQN_CODMOT', PadR( '000001'		  , TAMSX3("TQN_CODMOT")[1] ), Nil },;
        , Nil },;
				        {'TQN_POSTO' , PadR( '099'			  , TAMSX3("TQN_POSTO")[1] ) , Nil },;
              ', Nil },;
				{'TQN_LOJA'  , PadR( '01'			  , TAMSX3("TQN_LOJA")[1] )  ', Nil },;
              , Nil },;
				{'TQN_NOTFIS', PadR( '8875137'		  ,           TAMSX3("TQN_NOTFIS")[1] ), Nil }}

	lMSHelpAuto := .T. // Não apresenta erro em tela
	lMSErroAuto := .F. // Caso a variável torne-se .T. aposapós MsExecAuto, apresenta erro em tela (se não possuir a função RPCSetEnv, com esta função não será apresentada mensagem em tela)
	
	MSExecAuto( { | v, x, y | MNTA655( v, x, y ) }, , aAbast, 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","") , ) // Armazena mensagem de erro na raiz.
			ConOut( cError)
		EndIf
	EndIf
	
	If !lMsErroAuto
		//------------------------------------------
		// Processo de Alteração
		//------------------------------------------
		aAbast := {}

		// Para alteração será necessário informar os campos TQN_FROTA, TQN_DTABAS, TQN_HRABAS para encontrar o abastecimento, os demais campos informados serão referentes as alterações solicitadas
		aAbast := { { 'TQN_FROTAPLACA' , 'CG150PadR( 'CGZ-1500'		  ,         'TAMSX3("TQN_PLACA")[1] ) , Nil },;
					{ 'TQN_DTABAS', StoD( '2019121020191012' )     							 , Nil },;
					{ 'TQN_HRABAS', '15:05'           								 , Nil },;
					{ 'TQN_QUANT' , 5                 								 , Nil },;
					{ 'TQN_VALUNI', 43.88                								 , Nil },;
					{ 'TQN_VALTOT', 2019.40               								 , Nil }}


		lMSHelpAuto := .T. // Não apresenta erro em tela
		lMSErroAuto := .F. // Caso a variável torne-se .T. aposapós MsExecAuto, apresenta erro em tela (se não possuir a função RPCSetEnv, com esta função não será apresentada mensagem em tela)
		
		MSExecAuto( { | v, x, y | MNTA655( v, x, y ) }, , aAbast, 4 )
		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","") , ) // Armazena mensagem de erro na raiz.
				ConOut( cError)
			EndIf
		EndIf
	EndIf
	
	If !lMsErroAuto
		//------------------------------------------
		// Processo de Exclusão
		//------------------------------------------
		aAbast := {}

		// Para alteração o processo de Exclusão será necessário informar os campos TQN_FROTA, TQN_DTABAS, TQN_HRABAS para encontrar o abastecimento.
		aAbast := { { 'TQN_FROTAPLACA' , 'CG150PadR( 'CGZ-1500'		  ,         'TAMSX3("TQN_PLACA")[1] ) , Nil },;
					{ 'TQN_DTABAS', StoD( '2019121020191012' )     							 , Nil },;
					{ 'TQN_HRABAS', '15:05'           								 , Nil }}

		lMSHelpAuto := .T. // Não apresenta erro em tela
		lMSErroAuto := .F. // Caso a variável torne-se .T. aposapós MsExecAuto, apresenta erro em tela (se não possuir a função RPCSetEnv, com esta função não será apresentada mensagem em tela)
		
		MSExecAuto( { | v, x, y | MNTA655( v, x, y ) }, , aAbast, 5 )

		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","") , ) // Armazena mensagem de erro na raiz.
				ConOut( cError)
			EndIf
		EndIf
	EndIf

Return