#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 nVarDChk := ParamIXB[10] // Variação anterior do bem
    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 )