Kebabmeister
Programmer
Getting "inconsistent data error" with oracle database. I'm very new on Actuate. Any ideas?
Function ObtainSelectStatement( ) As String
Dim SQLlower, SQLupper As Date
Dim Mnth, Yr As Integer
Dim StrDate As String
' SP*** Calculate lower month value
Mnth = Month(RunDate) - 7
Yr = Year(RunDate)
If Mnth <= 0 Then
Mnth = 12 + Mnth
Yr = Yr - 1
End If
' SP*** Build lower date string and assign to SQLlower
StrDate = Cstr(01) + "/" + Cstr(Mnth) + "/" + Cstr(Yr)
SQLlower = Cdate(StrDate)
' SP*** Calculate upper month value
Mnth = Month(RunDate) - 1
Yr = Year(RunDate)
If Mnth <= 0 Then
Mnth = 12 + Mnth
Yr = Yr - 1
End If
' SP*** Build upper date string and assign to SQLupper
StrDate = Cstr(01) + "/" + Cstr(Mnth) + "/" + Cstr(Yr)
SQLupper = Cdate(StrDate)
WhereClause = WhereClause & " AND workorder.actfinish >= " & SQLlower & " AND workorder.actfinish <= " & SQLupper
ObtainSelectStatement = Super::ObtainSelectStatement( )
End Function
Function ObtainSelectStatement( ) As String
Dim SQLlower, SQLupper As Date
Dim Mnth, Yr As Integer
Dim StrDate As String
' SP*** Calculate lower month value
Mnth = Month(RunDate) - 7
Yr = Year(RunDate)
If Mnth <= 0 Then
Mnth = 12 + Mnth
Yr = Yr - 1
End If
' SP*** Build lower date string and assign to SQLlower
StrDate = Cstr(01) + "/" + Cstr(Mnth) + "/" + Cstr(Yr)
SQLlower = Cdate(StrDate)
' SP*** Calculate upper month value
Mnth = Month(RunDate) - 1
Yr = Year(RunDate)
If Mnth <= 0 Then
Mnth = 12 + Mnth
Yr = Yr - 1
End If
' SP*** Build upper date string and assign to SQLupper
StrDate = Cstr(01) + "/" + Cstr(Mnth) + "/" + Cstr(Yr)
SQLupper = Cdate(StrDate)
WhereClause = WhereClause & " AND workorder.actfinish >= " & SQLlower & " AND workorder.actfinish <= " & SQLupper
ObtainSelectStatement = Super::ObtainSelectStatement( )
End Function