Hi,
I have an agent that i would like to schedule but its coming up with a type mismatch error on the following line :
Pdoc.YearWeek = GetCalendarWeek(Now)
If i run it manually, it works just fine…but not when scheduled!
I have tried :
Pdoc.YearWeek(0) = GetCalendarWeek(Now)
But it still doesn’t work. The field on the form is a Computed Text field.
Any ideas anyone - Thanks
F1H
Subject: Type Mismatch - Only When Scheduled
Can we see all of the code? we don’t know what objects your function Get Calendar week implements, nor do we know how you get the Pdoc object.
brandt
Subject: RE: Type Mismatch - Only When Scheduled
Date/time format on server (where scheduled agent runs) is different from the one on local machine…
Subject: Type Mismatch - Only When Scheduled
2 things to consider:
1: Backend VS Frontend: Your manual triggered agent (normally) run on the frontend, whereas scheduled agents run on the backend
2: Client - Server: Your manual triggered agent will (normally) run on client, whereas scheduled agents (normally) run on the server
HTH
Jens
Subject: RE: Type Mismatch - Only When Scheduled
Thank you for all the replies - however, i’m still having the problem :
Here is my Code :
Sub Initialize
Dim session As New NotesSession
Dim database As NotesDatabase
Dim view As NotesView
Dim doc As NotesDocument
Dim db As NotesDatabase
Dim kpidoc As NotesDocument
Set db = session.CurrentDatabase
Set view = db.GetView("KPIDailyStatsVW")
Call view.Refresh
Msgbox "Here"
Set kpidoc = db.CreateDocument
Msgbox "Create Document - OK"
kpidoc.Form = "KPIWeeklyStatsFRM"
Msgbox "Set Form - OK"
'Problem with the line below - Type Mismatch when sheduled
kpidoc.YearWeekTX = GetCalendarWeek(Now)
Msgbox "All OK"
'Initialising Variables
dayofweek = Weekday(Now)
std = 0 'Standard Input Actuals
eng = 0 'Engineered Input Actuals
erimo = 0
erind = 0
ermar = 0
eroil = 0
eroilp = 0
erpwr = 0
erwtr = 0
ereng = 0
erstd = 0
ertot = 0
qsimo = 0
qsind = 0
qsmar = 0
qsoil = 0
qsoilp = 0
qspwr = 0
qswtr = 0
qseng = 0
qsstd = 0
qstot = 0
bdeng = 0
bdstd = 0
bdtot = 0
engot = 0
englt = 0
engtot = 0
engotval = 0
engltval = 0
engtotval = 0
engop = 0
stdot = 0
stdlt = 0
stdtot = 0
stdotval = 0
stdltval = 0
stdtotval = 0
stdop = 0
If dayofweek < 7 Then
kpidate = Now - dayofweek
query$ = "FIELD DateDT >= " & Format$(kpidate, "dd/mm/yyyy") & " And FIELD DateDT <= " & Format$(Now, "dd/mm/yyyy")
j = view.FTSearch( query$, maxDocs% )
Set doc = view.GetFirstDocument
Do While Not (doc Is Nothing)
Call CalculateTotals(doc)
Set doc = view.GetNextDocument(doc)
Loop
Call SetFormTotals(kpidoc, Cint(j))
Call view.clear
Else
query$ = "FIELD DateDT = " & Format$(Now, "dd/mm/yyyy")
j = view.FTSearch( query$, maxDocs% )
Set doc = view.GetFirstDocument
Do While Not (doc Is Nothing)
Call CalculateTotals(doc)
Set doc = view.GetNextDocument(doc)
Loop
Call view.clear
Call SetFormTotals(kpidoc, Cint(j))
End If
End Sub
GET CALENDAR WEEK FUNCTION (LOCATED IN THE SCRIPT LIBRARY) :
Function GetCalendarWeek( Byval inputdate As Variant ) As String
%REM
This function calculates the calendar week number
(ISO standard) for a given date value. The format
function of LotusScript (parameter “ww”) does not solve
this problem.
Monday is the first day of the week. Week #1 is the week
that contains the 4th of January (ISO 8601). The week at the
end/beginning of the year belongs to the next/previous year,
if there are 3 days or less of that week in the year in question.
Christian Meis, 4.2.2000
%END REM
Dim InputDateOffset As Integer
Dim YearInQuestion As Integer
Dim January4 As Variant
Dim January4Offset As Integer
Dim FirstMondayOfYear As Variant
Dim January1Offset As Integer
Dim December31Offset As Integer
Dim weeknum As Integer
'Add 2 to inputdate as Weir Week Starts on a Saturday not Monday like ISO Week
inputdate = inputdate + 2
’ The year value is preset with that of the input date
YearInQuestion = Year( inputdate )
’ Calculate offset to monday from the input date
InputDateOffset = CalculateIsoWeekday( inputdate )
’ Calculate offsets for the first/last day of the year
January1Offset = CalculateIsoWeekday( Cdat( "01/01/" & Cstr( YearInQuestion ) ) )
December31Offset = CalculateIsoWeekday( Cdat( "31/12/" & Cstr( YearInQuestion ) ) )
’ If the input date is before the 4th of January and the year starts with
’ a friday, saturday or sunday, the week belongs to the previous year
’ if the entered date is not a monday or tuesday
If Month( inputdate ) = 1 And Day( inputdate ) < 4 And January1Offset> 3 And InputDateOffset > 1 Then
YearInQuestion = YearInQuestion - 1
End If
’ If the input date is after the 28th of December and the year ends with
’ a monday, tuesday or wednesday, then the week belongs to the following year
’ if the entered date is not a saturday or sunday
If Month( inputdate ) = 12 And Day( inputdate ) > 28 And December31Offset < 3 And InputDateOffset < 5 Then
YearInQuestion = YearInQuestion + 1
End If
’ The 4th of January defines week #1
January4 = Cdat( "04/01/" & Cstr( YearInQuestion ) )
’ Offset to the monday of week #1
FirstMondayOfYear = Cdat( January4 - CalculateIsoWeekday( January4 ) )
’ The time range between the monday of week #1 and the monday
’ of the week in question is divided by 7, plus 1 for the first week
weeknum = ( inputdate - InputDateOffset - FirstMondayOfYear ) \ 7 + 1
’ The return value is a string with the week number and the year
If Len(Cstr( weeknum )) = 1 Then
GetCalendarWeek = Cstr( YearInQuestion ) & "W0" & Cstr( weeknum )
Else
GetCalendarWeek = Cstr( YearInQuestion ) & "W" & Cstr( weeknum )
End If
End Function
Thanks for any suggestions.
F1H
Subject: RE: Type Mismatch - Only When Scheduled
Hmm just a thought: What about the Byval statement of your GetCalendarWeek function? Maybe you also should try to just call the function without putting its return value directly to a field. You might then narrow your problem down. Also try to use an error handler that prints you out the line of code the type mismatch occurs when scheduling the agent.
HTH
Jens
Subject: RE: Type Mismatch - Only When Scheduled
F1H,
when you run the script through the debugger it works, right? Are you sure the type mismatch is being thrown on that line and not in tine GetCalendarWeek function itself?
Have you had the chance to run this through the remote debugger? It would allow you to debug a scheduled agent…
brandt