#include 'protheus.ch'
User Function NGCHECVAR()
	
	    Local lRet     := .T.
	    Local lSaida   := ParamIXB[1]  //Verificar Define se a mensagem deve éser mostradaapresentada 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 nVarDChk := ParamIXB[10] // Variação anterior do bem
    Local cMsg     := "Variação dia é superior à do bem"
	
	    If nVarDCal > nVarBem
		MsgStop("Variação do dia invalido.")
		        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 )