Histórico da Página

...

Produto:	Manutenção de Ativos e Gestão de Frotas (SIGAMNT).
Versões:	Todas
Ocorrência:	Desenvolvimento de função para execução automática(ExecAuto) e inclusão de registros na rotina de Abastecimento Manual.
Ambiente:	Todos
Passo a passo:	Para desenvolvimento da rotina de execução automática, para inclusão de dados na rotina de Abastecimento Manual, favor utilizar o exemplo abaixo.

Nota

title	Atenção

A funcionalidade ExecAuto estará presente nas versões do fonte MNTA655 com a data a partir de XX/12/2019.

Bloco de código

language	java
theme	Eclipse
title	Exemplo fonte ExecAuto
linenumbers	true

#Include 'Totvs.ch'

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


	// Inclusão
	Local aItem := {}
	
	// Itens obrgitórios para inclusão do abastecimento
	aItem := {  {"TQN_PLACA" , 'CGZ-1500'        , Nil },;
				{"TQN_FROTA" , 'CG150           ', Nil },;
				{"TQN_CNPJ"  , '47467235000151'  , Nil },;
				{"TQN_CODCOM", 'GAS'             , Nil },;
				{"TQN_DTABAS", StoD( '20191210' ), Nil },;
				{"TQN_HRABAS", '15:05'           , Nil },;
				{"TQN_QUANT" , 10                , Nil },;
				{"TQN_VALUNI", 4                 , Nil },;
				{"TQN_VALTOT", 40                , Nil },;
				{"TQN_HODOM" , 130               , Nil },;
				{"TQN_CODMOT", '000001'          , Nil },;
				{"TQN_POSTO" , '099                 ', Nil },;
				{"TQN_LOJA"  , '01  '                , Nil },;
				{"TQN_NOTFIS", '8875137'             , Nil }}

	lMSHelpAuto := .T. // Não apresenta erro em tela
	lMSErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela
	
	MSExecAuto( { | v, x, y, z | MNTA655( v, x, y, z ) }, , aItem, 3 )
	If lMsErroAuto
		MostraErro()
	EndIf

	// Alteração
	aItem := {}

	// 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
	aItem := {  { 'TQN_FROTA' , 'CG150           ', Nil },;
				{ 'TQN_DTABAS', StoD( '20191210' ), Nil },;
				{ 'TQN_HRABAS', '15:05'           , Nil },;
				{ 'TQN_QUANT' , 5                 , Nil },;
				{ 'TQN_VALUNI', 4                 , Nil },;
				{ 'TQN_VALTOT', 20                , Nil }}


	lMSHelpAuto := .T. // Não apresenta erro em tela
	lMSErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela
	
	MSExecAuto( { | v, x, y, z | MNTA655( v, x, y, z ) }, , aItem, 4 )
	If lMsErroAuto
		MostraErro()
	EndIf

	// Exclusão
	aItem := {}

	// Para alteração será necessário informar os campos TQN_FROTA, TQN_DTABAS, TQN_HRABAS para encontrar o abastecimento.
	aItem := {  { 'TQN_FROTA' , 'CG150           ', Nil },;
				{ 'TQN_DTABAS', StoD( '20191210' ), Nil },;
				{ 'TQN_HRABAS', '15:05'           , Nil }}

	lMSHelpAuto := .T. // Não apresenta erro em tela
	lMSErroAuto := .F. // Caso a variável torne-se .T. apos MsExecAuto, apresenta erro em tela
	
	MSExecAuto( { | v, x, y, z | MNTA655( v, x, y, z ) }, , aItem, 5 )

	If lMsErroAuto
		MostraErro()
	EndIf

Return

Árvore de páginas

Versões comparadas

Versão antiga 1

Nova versão 2

Chave