celldata = "";
RecordList = "";
RecordIDList = "";
RecordNameList = "";
RecordListCount = 0;
eventID = "";
eventData = StructNew();
eventQry = QueryNew('tmp');
eventTitle = "";
i=1;
//test = StructNew();
// Set cell value to record list
RecordList = request.datasheet.currentColumnValue;
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="RecordList",logData=RecordList,addBreak=true);
if ( LEN(TRIM(RecordList)) )
RecordListCount = ListLen(RecordList,",");
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="RecordList",logData=RecordList,addBreak=true);
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="RecordListCount",logData=RecordListCount,addBreak=true);
if ( RecordListCount EQ 0 )
RecordNameList = "[NONE SELECTED]";
else
{
eventID = '';
RecordNameList = '';
for ( i=1; i LTE RecordListCount; i++ )
{
eventID = ListGetAt(RecordList,i,",");
eventQry = application.ptCalendar.calEventsDAO.getEventsByEventID(eventID=eventID);
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="eventID",logData=eventID,addBreak=true);
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="eventQry",logData=eventQry,addBreak=true);
eventTitle = "";
if ( eventQry.RecordCount )
{
eventTitle = eventQry.title[1];
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="eventTitle",logData=eventTitle,addBreak=true);
if ( ListFindNoCase(RecordNameList,eventTitle,",") EQ 0 )
RecordNameList = ListAppend(RecordNameList,eventTitle,",");
//test[eventID] = eventData;
}
}
//application.ADF.log.doTextLogging(methodName="calendar",processName="convert",appName="JAN",logMsg="RecordNameList",logData=RecordNameList,addBreak=true);
if ( ListLen(RecordNameList,",") EQ 0 )
{
if ( RecordListCount GT 1 )
RecordNameList = "[SELECTED EVENTS DO NOT EXIST]";
else
RecordNameList = "[SELECTED EVENT DOES NOT EXIST]";
}
RecordNameList= REREPLACE(RecordNameList,",","
","all");
}
RecordNameList = REREPLACE(RecordNameList,"[\s]"," ","all");
#RecordNameList#