Histórico da Página
Impressão de O.S.
Características do Requisito
Linha de Produto: | Microsiga Protheus | ||||||||
Segmento: | Manufatura | ||||||||
Módulo: | SIGAMNT - Manutenção de Ativos e Gestão de Frotas | ||||||||
Rotina: |
| ||||||||
Issues Relacionadas | DNG-1385 | ||||||||
País(es): | Todos | ||||||||
Banco(s) de Dados: | Todos | ||||||||
Sistema(s) Operacional(is): | Todos |
Ponto de Entrada
Descrição: | Ponto de Entrada executado para cada inconsistência do abastecimento. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Localização: | SIGAMNT: Atualizações/Controle de Oficina/Plano de Manutenção/Alteração de O.S. | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Eventos: | Consistência de Abastecimento (MNTA635) | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTA635.prx | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | MNTA6356() | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Parâmetros: |
| |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno: |
|
Bloco de código | ||||||||
---|---|---|---|---|---|---|---|---|
| ||||||||
#Include 'Totvs.ch'
//-------------------------------------------------------------------
/*/{Protheus.doc} MNTA6356
Valida gravação da inconsistência do abastecimento
@author NG Informática
@since 27/02/19
@version P12
/*/
//-------------------------------------------------------------------
User Function MNTA6356()
Local lRecord := .T. // Define se grava erro encontrado.
Local aSupplyDat := PARAMIXB[1] // Dados do abastecimento.
Local cCodError := PARAMIXB[2] // Código da inconsistência encontrada pelo sistema.
If AllTrim( cCodError ) == '05' // Veiculo nao cadastrado
MsgInfo('Desconsiderado Código de inconsistência: ' + cCodError + CRLF + 'Placa: ' + aSupplyDat[ 2 ] + CRLF + ;
'Data e Hora: ' + cValToChar( aSupplyDat[ 10 ] ) + ' ' + aSupplyDat[ 11 ], 'Atenção!' )
lRecord := .F. //Não grava o erro
EndIf
Return lRecord |
Visão Geral
Import HTML Content
Conteúdo das Ferramentas
Tarefas