Histórico da Página
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: |
|
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 |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#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 |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas