#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 )