Linha Microsiga Protheus

Árvore de páginas

Ponto de entrada que permite incluir ação após a inclusão/alteração de um abastecimento

Características do Requisito

Linha de Produto:

Microsiga Protheus

Segmento:

Manufatura

Módulo:

SIGAGFR - Gestão de Frotas

Rotina:

RotinaNome Técnico
MNTA681Controle de Abastecimento e Lubrificação

Ponto de Entrada

Descrição:

Ponto de Entrada que permite incluir ação após a inclusão de um abastecimento.

Programa Fonte:

MNTA681.PRW

Parâmetros

TipoDescrição
string

Código do veículo abastecido.

string

Data do abastecimento.

string

Hora do abastecimento.

boolean

Se verdadeiro, indica que o processo é uma inclusão.

Exemplo do P.E. MNTA6810
#include 'totvs.ch'   

User Function MNTA6810()

    Local cCodVei := ParamIXB[1]
    Local dDtAbas := ParamIXB[2]
    Local cHrAbas := ParamIXB[3]
	Local lInclui := ParamIXB[4]
	
	If lInclui

    	dbSelectArea( 'TQN' )
    	dbSetOrder( 1 ) // TQN_FILIAL + TQN_FROTA + TQN_DTABAS + TQN_HRABAS
    	If msSeek( FWxFilial( 'TQN' ) + cCodVei +  DToS( dDtAbas ) +  cHrAbas )
 
        	MsgInfo( 'Abastecimento encontrado!' )

    	EndIf
	
	Else // Alteração do Abastecimento

	 	dbSelectArea( 'TQN' )
    	dbSetOrder( 1 ) // TQN_FILIAL + TQN_FROTA + TQN_DTABAS + TQN_HRABAS
    	If msSeek( FWxFilial( 'TQN' ) + cCodVei +  DToS( dDtAbas ) +  cHrAbas )
 
        	MsgInfo( 'Abastecimento encontrado no processo de alteração!' )

    	EndIf

	EndIf

Return