Hallo!
Ich versuche die Formeln @findfreeTime und @findfreeResource
in Lotus Script mit Hilfe von Evaluate auszuwerten.
mit @findfreeTime habe ich rumprobiert, da ich nichts in der Dokumentation gefunden habe; @findfreeResource läuft in einem Button in einer Maske und funktioniert dort als Formel.
Free und Free1 sind vom Typ Variant
Für Free erhalte ich einen leeren String, für Free1 komt gar nichts.
Was mache ich falsch?
ich fürchte, ich sehe gerade den Wald vor lauter Bäumen nicht mehr .......... :-?
Die verwendete Version ist 6.5.4
str_StartDate = uidoc_Current.FieldGetText("StartTime")
str_EndDate= uidoc_Current.FieldGettext("EndTime")
str_Date = uidoc_Current.FieldGetText("StartDate")
str_StartDate=str_Date+ " " + str_StartDate
str_EndDate= str_Date+ " "+ str_EndDate
Set dt_StartDate = session.CreateDateTime( str_StartDate )
Set dt_EndDate = session.CreateDateTime(str_EndDate)
Set dr_SearchWindow=session.CreateDateRange()
Set dr_SearchWindow.StartDateTime = dt_StartDate
Set dr_SearchWindow.EndDateTime = dt_EndDate
i_Duration = dt_EndDate.TimeDifference(dt_Startdate)
Set acl_DBCurrent = db_Current.ACL
str_AdministrationServer= acl_DBCurrent.AdministrationServer
Set doc_Current.SearchWindow=dr_SearchWindow
doc_Current.AdministrationServer=str_AdministrationServer
doc_Current.Roomstring="doc_Room.getitemvalue("ResourceName")
doc_Current.Duration= 20
Set doc_Current.start=dt_StartDate
Set doc_Current.end= dt_EndDate
str_Site ="CN=*/"+"O="+ str_Location
Free = Evaluate("@FindFreeTime(AdministrationServer;RoomString;SearchWindow;Duration;1);doc_Current")
Free1= Evaluate({@FindFreeResource(str_Site;"1";str_StartDate;str_EndDate;22;10)})
Free1= Evaluate({@FindFreeResource("CN=*/O=Campus";ResourceType;StartDateTime;EndDateTime;24;50);})