REM "*** Upozornenie na meniny ***"; REM "*** Modul spolupracuje s databázov mien, ktorej konfigurácia je určená nižšie uvedenými parametrami"; REM "*** Miro Uhlár, 1999"; todayCode:=@Text(@Today;"D2S0"); tomorrowCode:=@Text(@Tomorrow;"D2S0"); REM "Zobrazenie iba raz za deň"; @If(@Environment("ShowCalendar")=todayCode; @Return("");""); ENVIRONMENT ShowCalendar:=todayCode; REM "Parametre databázy mien - server+cesta"; tmpServer:=""; tmpPath:="KALENDAR.NSF"; tmpView:="viewCalendarLookup"; REM "Vyhľadanie mien"; tmpToday:=@DbLookup("":"";tmpServer:tmpPath; tmpView;todayCode;2); tmpTomorrow:=@DbLookup("":"";tmpServer:tmpPath; tmpView;tomorrowCode;2); REM "Zobrazenie mien"; @Prompt([OK];"Meniny - "+todayCode; @Repeat("*";30)+@Char(13)+"Dnes:"+@Char(9)+@Subset(tmpToday;1)+" (sk)"+@Char(13)+@Char(9)+@Subset(tmpToday;-1)+" (cz)"+@Char(13)+ @Repeat("*";30)+@Char(13)+ "Zajtra:"+@Char(9)+@Subset(tmpTomorrow;1)+" (sk)"+@Char(13)+@Char(9)+@Subset(tmpTomorrow;-1)+" (cz)"+@Char(13)+ @Repeat("*";30)+ @Char(13)+@Char(13)+ "Nezabudnite blahoželať!!")