Beiträge von DAU-in

  • @findfreetime/@findfreeresource

    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);})