Type Mismatch

[jerry-sc]

Pessoal, bom dia!

Tenho esse código abaixo, que faz gerar um relatório.

Acontece que, quando eu passo os parâmetro de data (data inicial, data final) com o ano de 2012 ele retorna type mismatch.

Quando eu passo o mesmo parâmetro com o intervalo de 2011 funciona normal.

Alguém têm idéia do que pode ser? Vou deixar em negrito e sublinhado em qual linha ele reclama a incompatibilidade de dados.

----

Dim QPARCELAS As Object
Dim TOTAL As Currency
Dim VALOR As Currency
Dim SALDOMOEDA As Currency
Dim MORA As Currency
Dim MULTA As Integer
Dim VALORMOEDA As Currency
Dim VALCOT As Currency
Dim DATAMULTA As Date
Dim DATAVENCIMENTO As Date
Dim VALORESBAIXADOS As Currency
Dim CODMOEDA As Integer
Dim DESCONTO As Currency
Dim ABATIMENTOS As Currency
Dim ACRESCIMOS As Currency
Dim TOTALACRESCIMOS As Currency
Dim TOTALDESCONTOS As Currency
Dim OBJ As Object
Dim DATAINICIAL As Date
Dim DATAFINAL As Date
Dim DATAPOSICAO As Date
Dim EPOSICAO As Boolean
Dim I As Integer
Dim D As String

Public Sub REPORT_BeforePrint(PrintReport As Boolean)

    Set QPARCELAS = REPORT.QueryByName("FN_PARCELAS")
    Set OBJ = CreateBennerObject("CorpComum.Generico")

End Sub

Public Sub REPORT_DestroyData()

    Set QPARCELAS = Nothing
    Set OBJ = Nothing
    TOTAL = 0
    TOTALACRESCIMOS = 0
    TOTALDESCONTOS = 0
    
End Sub
Dim DataForm As String

Public Sub REPORT_OnMacroValue(ByVal Name As String, ResultValue As Variant)

    Select Case Name

        Case "VALORATUAL"

              If QPARCELAS.FieldByName("VALORMOEDA").IsNull Or QPARCELAS.FieldByName("VALORMOEDA").AsFloat = 0 Then
                 VALOR = QPARCELAS.FieldByName("VALOR").AsFloat
                 VALORESBAIXADOS = QPARCELAS.FieldByName("VALORESBAIXADOS").AsFloat
                 VALCOT = 1
                 SALDOMOEDA = VALOR - VALORESBAIXADOS
              Else
                 VALORMOEDA = QPARCELAS.FieldByName("VALORMOEDA").AsFloat
                 VALOR = VALORMOEDA
                 VALORESBAIXADOS = QPARCELAS.FieldByName("VALORESBAIXADOSMOEDA").AsFloat
                 CODMOEDA = QPARCELAS.FieldByName("MOEDAHANDLE").AsInteger
                 VALCOT = OBJ.CotacaoMoeda(CurrentSystem,CODMOEDA,Date)
                 SALDOMOEDA = VALOR - VALORESBAIXADOS
              End If


              SALDOMOEDA = SALDOMOEDA * VALCOT
              TOTAL = SALDOMOEDA
            

              If QPARCELAS.FieldByName("DATAVENCIMENTO").IsNull Then
                 DATAVENCIMENTO = 0
              Else
                 DATAVENCIMENTO = QPARCELAS.FieldByName("DATAVENCIMENTO").Value
              End If


              If QPARCELAS.FieldByName("DATALIMITEDESCONTOCONDICIONAL").IsNull Then
                 DESCONTO = 0
              Else
                 datadesconto = QPARCELAS.FieldByName("DATALIMITEDESCONTOCONDICIONAL").Value
                 If DateDiff("d",datadesconto,Date) > 0 Then
                    DESCONTO = 0
                 Else
                    DESCONTO = QPARCELAS.FieldByName("DESCONTOCONDICIONAL").Value
                 End If
              End If


              If QPARCELAS.FieldByName("DATALIMITEMULTA").IsNull Then
                 DATAMULTA = 0
              Else
                 DATAMULTA = QPARCELAS.FieldByName("DATALIMITEMULTA").Value
              End If


                 MULTA = QPARCELAS.FieldByName("PERCENTUALMULTA").AsInteger
                 MORA = QPARCELAS.FieldByName("MORADIARIA").AsFloat
        

              If DateDiff("d",DATAVENCIMENTO,Date) > 0 Then
                 If DateDiff("d",DATAMULTA,Date) > 0 Then
                    TOTAL = TOTAL + (DateDiff("d",DATAVENCIMENTO,Date)*MORA)+(TOTAL*(MULTA/100)) 
                 Else
                    TOTAL = TOTAL + (DateDiff("d",DATAVENCIMENTO,Date)*MORA) 
                 End If
              End If
        

              If QPARCELAS.FieldByName("ACRESCIMOS").IsNull Then
                 ACRESCIMOS = 0
              Else
                 ACRESCIMOS = QPARCELAS.FieldByName("ACRESCIMOS").Value
              End If
        

              If QPARCELAS.FieldByName("ABATIMENTOS").IsNull Then
                 ABATIMENTOS = 0
              Else
                 ABATIMENTOS = QPARCELAS.FieldByName("ABATIMENTOS").Value
              End If

              TOTAL = TOTAL + ACRESCIMOS

              TOTALACRESCIMOS = TOTAL - SALDOMOEDA

              TOTAL = TOTAL - DESCONTO - ABATIMENTOS

              TOTALDESCONTOS = DESCONTO + ABATIMENTOS

                ResultValue = SALDOMOEDA


              Case "ACRESCIMOS"
                    ResultValue = TOTALACRESCIMOS


               Case "DESCONTOS"
                    ResultValue = TOTALDESCONTOS


              Case "TOTALGERAL"
                    ResultValue = TOTAL


                Case "DATAINICIAL"
                    If EPOSICAO = True Then
                       ResultValue = ""
                    Else
                          ResultValue = "Data Inicial: "+CStr(Format(DATAINICIAL,"dd/mm/yyyy"))
                    End If


              Case "DATAFINAL"
                    If EPOSICAO = True Then
                         ResultValue = "Data Posição: "+CStr(Format(DATAPOSICAO,"dd/mm/yyyy"))
                    Else
                         ResultValue = "Dafa Final: "+CStr(Format(DATAFINAL,"dd/mm/yyyy"))
                    End If

        End Select

End Sub
Public Sub REPORT_OnPrepareReport(CanPrint As Boolean)

    REPORT.ShowFilter = False

End Sub

Public Sub REPORT_SetParams(ByVal aParams As String)

    EPOSICAO = False

    If Mid(ShortHint(aParams),1,8) = "Database" Then
       EPOSICAO = True
       D = ShortHint(aParams)
       I = StrPos("=",D)
       DATAPOSICAO = CDate(Mid(D,I+1,Len(D)-I))
    Else
       EPOSICAO = False
       D = ShortHint(aParams)
       I = StrPos("=",D)
       DATAINICIAL = CDate(Mid(D,I+1,Len(D)-I))

       I = StrPos("DataFinal=",aParams)
      [u][b] DATAFINAL = CDate(Mid(aParams,I+10,10))[/b][/u]
    End If

End Sub