Histórico da Página
Realiza a validação da variação dia do contador.
Características do Requisito
Linha de Produto: | Microsiga Protheus. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Segmento: | Manufatura. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Módulo: | Manutenção de Ativos e Gestão de Frotas. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Rotina: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Tickets relacionados | 3209234. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Requisito/Story/Issue (informe o requisito relacionado): | DNG-1450 / DNG-2033. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos. |
Ponto de Entrada
Descrição: | Ponto de entrada acionado ao fim da validação de variação dia, permitindo a customização do retorno desta validação. | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Programa Fonte: | MNTUTIL_CONTADOR | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Função: | NGVALIVARD() | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Retorno: |
|
Exemplo:
Bloco de código | ||||||
---|---|---|---|---|---|---|
| ||||||
#include 'protheus.ch'
User Function NGCHECVAR()
Local lRet := .T.
Local lSaida := ParamIXB[1] // Define se a mensagem deve ser apresentada em tela
Local cBem := ParamIXB[2] // Código do bem
Local nPosCont := ParamIXB[3] // Posição do Contador
Local dDataLei := ParamIXB[4] // Data de leitura
Local cHoraLei := ParamIXB[5] // Hora da leitura
Local nTipCont := ParamIXB[6] // Tipo do contador 1 = Primeiro contador ;2 = Segundo contador
Local nVarDCal := ParamIXB[7] // Variação do dia calculada
Local nVarBem := ParamIXB[8] // Variação do dia do bem
Local aChkVar := ParamIXB[9] // ParamIXB[9][1] - validação do sistema, ParamIXB[9][2] - Mensagem a ser apresentada para o usuário, ParamIXB[9][3] - Valor da variação dia
Local cMsg := "Não houve alterações na varição dia"
lRet := .F.
If nVarDCal == nVarBem
If lSaida
MsgInfo(cMsg)
Else
// A mensagem só será utilizada no ExecAuto do MNTA735 - Retorno CheckList e MNTA851 - Parte Diária
// Caso queira informar o usuário mesmo assim, poderá seguir o exemplo acima. ( MsgInfo( cMsg ) )
aChkVar := { lRet, cMsg, nVARDCAL }
EndIf
EndIf
Return IIf( lSaida, lRet, aChkVar ) |