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 / DNG-2256. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
País(es): | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Banco(s) de Dados: | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
Sistema(s) Operacional(is): | Todos. | ||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
| Pode lhe interessar: | http://tdn.totvs.com/x/YqG1F |
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() | ||||||||||||||||||||||||||||||||||||||||||||||||||||
Parametros: |
| ||||||||||||||||||||||||||||||||||||||||||||||||||||
| Retorno: |
|
Exemplo:
#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 := "Variação dia é superior à do bem"
If nVarDCal > nVarBem
lRet := .F.
If lSaida
MsgInfo(cMsg)
Else
// A mensagem só será utilizada no ExecAuto do MNTA735 - Retorno CheckList e MNTA851 - Parte Diária
aChkVar := { lRet, cMsg, nVARDCAL }
EndIf
EndIf
Return IIf( lSaida, lRet, aChkVar )