џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABCџўџ0џўџ%%%%%$$$$&&ABCџўџ%%%%%$$$$&&ABC XџўџBMPџўџџўџџўџџўџ џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџFZџўџџўџ{Ext("Filters")}0Ј№№№џўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ 0f37c3a4e014b900d5a9a0857c3f0721џўџџўџџўџџўџРРРœ(9xx%%Ючї џўџ џўџџўџѓџМ џўџArialьщиџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџРРР •FŸxx%%Ючї џўџ џўџџўџѓџМ џўџArialьщиџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџРРР •9xx%%Ючї џўџ џўџџўџѓџМ џўџArialьщиџџџъџўџ%%%%%$$$$&&ABCџўџџўџџўџџўџ›с‡ \\РРР џўџџўџџўџџўџџўџњ џўџOnOK() $Close("AlarmFilters")џўџ0OnOK() Call StFunction1__(34, 1, "AlarmFilters")џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ џўџџўџOKѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџœ)E_‡РРР џўџџўџџўџџўџџўџ џўџAlrYearЌџўџYearџўџ AlrDayFrom­џўџDayџўџAlrDayToЎџўџDayџўџAlrMonthЏџўџMonthџўџAlrChoosenOptionAАџўџ"Actual Month"""џўActual MonthџўџAlrOutputCheckБџўџ0 џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџAlrIndexOfReferenceAДџўџ џўџџўџTodayѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџ">Wd1€РРР џўџџўџџўџFrom:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ.>mz%—ЄРРР џўџџўџџўџTo:ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABCџџџџўџџўџџўџџўџ/=JA_fsРРР џўџџўџџўџ Days ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABC№№№џўџџўџџўџџўџ, A]6CРРР џўџџўџџўџ Year ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABC№№№џўџџўџџўџџўџЃЧ <`ЯмРРР џўџџўџџўџ Month ѕџ"џўџTahomaџўџ%%%%%$$$$&&ABC№№№џўџџўџџўџџўџф*‡ \\РРР џўџџўџџўџџўџџўџњ џўџ$Close("AlarmFilters")џўџ)Call StFunction1__(34, 1, "AlarmFilters")џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ џўџџўџCancelѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ь&џўџ'џўџџўџџўџ „—џўџ&5151170283q44099-2518239‰‹žРРР џўџџўџџўџџўџџўџњ џўџџўџџўџџўџџўџAlrOutputCheckБџўџnot AlrOutputCheckБƒџўџ AlrDayFrom­џўџIf(AlrOutputCheck,1)БџўџAlrDayToЎџўџAlrDayToЎџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ&5151170283q44099-2518239 џўџџўџAll Days of Monthѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџџўџ1џўџAlrOutputCheckџўџџўџ2џўџ Б џўџџўџџўџџўџџўџdz0џўџ&49311-33283q29899448239dz0РРР -џўџ&49311-33283q29899448239џўџdz0џўџџўџџўџџўџџўџdz0џўџ&49311-33283q29899448239dz0РРР џўџџўџџўџџўџџўџњ џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџAlrYearЌџўџIf(AlrYear>1970,AlrYear-1)44ЌВ>Ќ-џўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ&џўџ&49311-33283q29899448239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџkt$+џўџ&48711-38283q30299358239kt$+РРР 'џўџ&48711-38283q30299358239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџџўџџўџџўџџўџ{‘0џўџ&51611-33283q34499678239{‘0РРР .џўџ&51611-33283q34499678239џўџ{‘0џўџџўџџўџџўџџўџ{‘0џўџ&51611-33283q34499678239{‘0РРР џўџџўџџўџџўџџўџњ џўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџAlrYearЌџўџIf(AlrYear<2035,AlrYear+1)44Ќѓ<Ќ+џўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџаmpаpџўџџўџpпа pаџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџЦџўџџўџџўџџўџџўџџўџџўџџўџPџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџџўџ)џўџ&51611-33283q34499678239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!ЬџўџџўџџўџџўџŠ")џўџ&50911-40283q34299618239Š")РРР *џўџ&50911-40283q34299618239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџџўџџўџџўџџўџzSgџўџ&5151122283q45299-448239zSgРРР 7џўџ&5151122283q45299-448239џўџzSgџўџџўџџўџџўџџўџzSgџўџ&5151122283q45299-448239zSgРРР џўџџўџџўџџўџџўџњ џўџt("Aџўџџўџtiveџўџџўџ)}шџўџџўџРаџўџџўџЦ ёџўџџўџЋCM1џўџџўџ68].џўџџўџSG5}џўџџўџ{Extџўџџўџ"Alaџўџџўџёr"Вџўџџўџ1 {Eџўџџўџ AlrDayFrom­џўџ9If(AlrDayFrom<31 AND AlrDayFrom+1<=AlrDayTo,AlrDayFrom+1)XX­<­+Ў„­+џўџAlrOutputCheckБџўџ0 џўџ)}љџўџџўџШёџўџџўџ€Йџўџџўџ{CM1џўџџўџ68].џўџџўџSG7}џўџџўџ{ExtџўџџўџёŠёlџўџџўџm")}џўџџўџ1 {Eџўџџўџt("Aџўџџўџtiveџўџџўџ)}њџўџџўџЧаџўџџўџ/џўџџўџ{CM1џўџџўџ68].џўџџўџSG7}џўџџўџ{у ёtџўџџўџЮAlaџўџџўџm")}џўџџўџ1 {Eџўџџўџџўџџўџџўџџўџџўџџўџ3џўџ&5151122283q45299-448239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџ€‰Y`џўџ&5081115283q45099-508239€‰Y`РРР 4џўџ&5081115283q45099-508239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџџўџџўџџўџџўџcySgџўџ&4921122283q40699-678239cySgРРР 8џўџ&4921122283q40699-678239џўџcSygџўџџўџџўџџўџџўџcySgџўџ&4921122283q40699-678239cySgРРР џўџџўџџўџџўџџўџњ џўџ{CMџўџџўџ[55]џўџџўџMSGŒџўџџўџ ѕxџўџџўџ("Alџўџџўџrm")џўџџўџ 2 {џўџџўџxt("џўџџўџcЕёvџўџџўџќ)}џўџџўџrџўџџўџ//џўџџўџ AlrDayFrom­џўџIf(AlrDayFrom>1,AlrDayFrom-1)44­>­-џўџAlrOutputCheckБџўџ0 џўџёrSџўџџўџ {Exџўџџўџ("Alџўџџўџrm")џўџџўџ 2 {џўџџўџxtЇёџўџџўџ€ ivџўџџўџ")}џўџџўџr$џўџџўџ//џўџџўџ{CMџўџџўџ –ё5џўџџўџMSG2џўџџўџ {Exџўџџўџ("Alџўџџўџrm")џўџџўџ 2 Љџўџџўџx"џўџџўџctivџўџџўџ")}џўџџўџr3џўџџўџ//џўџџўџџўџџўџџўџџўџџўџџўџ1џўџ&4921122283q40699-678239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџjs[bџўџ&4861117283q41099-768239js[bРРР 2џўџ&4861117283q41099-768239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџџўџџўџџўџџўџykџўџ&5141146283q49899-938239ykРРР ?џўџ&5141146283q49899-938239џўџykџўџџўџџўџџўџџўџykџўџ&5141146283q49899-938239ykРРР џўџџўџџўџџўџџўџњ џўџ1[31џўџџўџ.MSGџўџџўџёr lџўџџўџt("Aџўџџўџarm"џўџџўџ} 1 џўџџўџExt(џўџџўџAcёџўџџўџ€s )}џўџџўџ<ёџўџџўџаm//џўџџўџ{CџўџџўџAlrDayToЎџўџIf(AlrDayTo<31,AlrDayTo+1)44Ў<Ў+џўџAlrOutputCheckБџўџ0 џўџ} {Eџўџџўџt("Aџўџџўџarm"џўџџўџ} 1 џўџџўџExt0џўџџўџAiџўџџўџe")}џўџџўџ ёPџўџџўџаm//џўџџўџ{Cџўџџўџ19ё1џўџџўџˆ MSGџўџџўџ} {Eџўџџўџt("Aџўџџўџarm"џўџџўџ} 1 џўџџўџёrxџўџџўџActiџўџџўџe")}џўџџўџёџўџџўџаm//џўџџўџ+ёџўџџўџџўџџўџџўџџўџџўџџўџ;џўџ&5141146283q49899-938239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџˆqxџўџ&5071139283q49699-998239ˆqxРРР <џўџ&5071139283q49699-998239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџџўџџўџџўџџўџcykџўџ&4921146283q45499-1158239cykРРР @џўџ&4921146283q45499-1158239џўџckyџўџџўџџўџџўџџўџcykџўџ&4921146283q45499-1158239cykРРР џўџџўџџўџџўџџўџњ џўџ/џўџџўџ{CM1џўџџўџ11]SџўџџўџS}џўџџўџ{Extџўџџўџ"Alaџўџџўџm")}џўџџўџ1 {Eџўџџўџt\ёAџўџџўџ%iveџўџџўџ)}iџўџџўџ?аџўџџўџAlrDayToЎџўџ1If(AlrDayTo>1 AND AlrDayTo>AlrDayFrom,AlrDayTo-1)PPЎ>Ў­>„Ў-џўџAlrOutputCheckБџўџ0 џўџёr1,џўџџўџSG2}џўџџўџ{Extџўџџўџ"Alaџўџџўџm")}џўџџўџ1 Nёџўџџўџ€3"Aџўџџўџtiveџўџџўџ)}zџўџџўџNаџўџџўџ/џўџџўџwёMџўџџўџ11].џўџџўџSG2}џўџџўџ{Extџўџџўџ"Alaџўџџўџm")pџўџџўџ1AEџўџџўџt("Aџўџџўџtiveџўџџўџ)}KџўџџўџPк]аџўџџўџџўџџўџџўџџўџџўџџўџ=џўџ&4921146283q45499-1158239 џўџџўџѕџ"џўџTahomaРРРџџџъџўџ%%%%%$$$$&&ABCџўџЬ!Ьџўџџўџџўџџўџjsszџўџ&4861141283q45899-1248239jsszРРР >џўџ&4861141283q45899-1248239џўџџўџ  ЦЦЦ(  lФФЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦЦџўџџўџ%џўџ$џўџџўџџўџЂ"0‰нѕРРР џўџџўџџџџџўџѕџ"џўџTahomaџўџџўџAlrMonthџўџAlrChoosenOptionAџўџAlrArrayOfOptionsA[0]џўџAlrQtdOfOptionsAџўџџўџџўџџўџџўџ(џўџ)џўџџўџџўџ1a„c/џўџ&47011-34283q18899-428239Ш 1Ючї Aџўџ&47011-34283q18899-428239џўџџџџџўџѕџ"џўџTahomaџўџAlrYearЌџўџџўџ1970џўџ 1970.000000џўџ2035џўџ 2035.000000џўџџўџ(џўџ)џўџџўџџўџ1a„@aSgШ 1Ючї BџўџџўџџџџџўџAlrOutputCheckБѕџ џўџTahomaџўџ AlrDayFrom­џўџџўџ1џўџ1.000000џўџAlrDayToЎџўџџўџ(џўџ)џўџџўџџўџ1a„@akШ 1Ючї CџўџџўџџџџџўџAlrOutputCheckБѕџ џўџTahomaџўџAlrDayToЎџўџџўџ AlrDayFrom­џўџ AlrDayToMaxLџўџџўџџўџџўџ0.000000џўџVBScript;џўџџs'Variables available on this screen can be declared and initialized here. 'Procedures available on this screen can be implemented here Function GetFormatedDate(myday, mymonth, myyear) GetFormatedDate = $Format("%02d", $Num(mymonth)) + "/" + $Format("%02d", $Num(myday)) + "/" + $Format("%04d", $Num(myyear)) End Function Sub OnOK() $StartAlarmTime = GetFormatedDate($AlrDayFrom, $if($AlrMonth=0,1,$AlrMonth), $AlrYear) $EndAlarmTime = GetFormatedDate($AlrDayTo, $if($AlrMonth=0,12,$AlrMonth), $AlrYear) End Sub 'This procedure is executed just once when this screen is open. Sub Screen_OnOpen() Dim mstart, mend Dim dstart, dend $AlrYear = $NCopy($StartAlarmTime, 6,4) mstart = $NCopy($StartAlarmTime, 0, 2) dstart = $NCopy($StartAlarmTime, 3, 2) mend = $NCopy($EndAlarmTime, 0, 2) dend = $NCopy($EndAlarmTime, 3, 2) //We only allow start and end to be different //when the user selects all months If mstart <> mend Then $AlrMonth = 0 //all months Else $AlrMonth = $Num(mstart) End If $AlrDayFrom = $Num(dstart) If $AlrOutputCheck = 1 Then $AlrDayTo = Day(DateSerial( $AlrYear, $AlrMonth+ 1, 0)) Else $AlrDayTo = $Num(dend) End If $AlrDayToMax =Day(DateSerial( $AlrYear, $AlrMonth+ 1, 0)) End Sub 'This procedure is executed continuously while this screen is open. Sub Screen_WhileOpen() $AlrDayToMax = Day(DateSerial( $AlrYear, $AlrMonth+ 1, 0)) If $AlrOutputCheck = 1 Then $AlrDayTo = Day(DateSerial( $AlrYear, $AlrMonth+ 1, 0)) End If End Sub 'This procedure is executed just once when this screen is closed. Sub Screen_OnClose() End Subџўџџ Function GetFormatedDate(myday, mymonth, myyear) GetFormatedDate = StFunction1__(43, 2, "%02d", StFunction1__(26, 1, mymonth)) + "/" + StFunction1__(43, 2, "%02d", StFunction1__(26, 1, myday)) + "/" + StFunction1__(43, 2, "%04d", StFunction1__(26, 1, myyear)) End Function Sub OnOK() Call StSetMnTagVal__(452, 0, 0, 0, 0, 1, 11, "", GetFormatedDate(StGetMnTagVal__(173, 0, 0, 0, 0, "") , StFunction1__(0, 3, StGetMnTagVal__(175, 0, 0, 0, 0, "") =0, 1, StGetMnTagVal__(175, 0, 0, 0, 0, "") ), StGetMnTagVal__(172, 0, 0, 0, 0, "") )) Call StSetMnTagVal__(453, 0, 0, 0, 0, 1, 12, "", GetFormatedDate(StGetMnTagVal__(174, 0, 0, 0, 0, "") , StFunction1__(0, 3, StGetMnTagVal__(175, 0, 0, 0, 0, "") =0, 12, StGetMnTagVal__(175, 0, 0, 0, 0, "") ), StGetMnTagVal__(172, 0, 0, 0, 0, "") ) ) End Sub Sub Screen_OnOpen() Dim mstart, mend Dim dstart, dend Call StSetMnTagVal__(172, 0, 0, 0, 0, 1, 20, "", StFunction1__(36, 3, StGetMnTagVal__(452, 0, 0, 0, 0, "") , 6, 4)) mstart = StFunction1__(36, 3, StGetMnTagVal__(452, 0, 0, 0, 0, "") , 0, 2) dstart = StFunction1__(36, 3, StGetMnTagVal__(452, 0, 0, 0, 0, "") , 3, 2) mend = StFunction1__(36, 3, StGetMnTagVal__(453, 0, 0, 0, 0, "") , 0, 2) dend = StFunction1__(36, 3, StGetMnTagVal__(453, 0, 0, 0, 0, "") , 3, 2) If mstart <> mend Then Call StSetMnTagVal__(175, 0, 0, 0, 0, 1, 29, "", 0 ) Else Call StSetMnTagVal__(175, 0, 0, 0, 0, 1, 31, "", StFunction1__(26, 1, mstart)) End If Call StSetMnTagVal__(173, 0, 0, 0, 0, 1, 33, "", StFunction1__(26, 1, dstart)) If StGetMnTagVal__(177, 0, 0, 0, 0, "") = 1 Then Call StSetMnTagVal__(174, 0, 0, 0, 0, 1, 36, "", Day(DateSerial( StGetMnTagVal__(172, 0, 0, 0, 0, "") , StGetMnTagVal__(175, 0, 0, 0, 0, "") + 1, 0))) Else Call StSetMnTagVal__(174, 0, 0, 0, 0, 1, 38, "", StFunction1__(26, 1, dend)) End If Call StSetMnTagVal__(588, 0, 0, 0, 0, 1, 40, "", Day(DateSerial( StGetMnTagVal__(172, 0, 0, 0, 0, "") , StGetMnTagVal__(175, 0, 0, 0, 0, "") + 1, 0))) End Sub Sub Screen_WhileOpen() Call StSetMnTagVal__(588, 0, 0, 0, 0, 1, 49, "", Day(DateSerial( StGetMnTagVal__(172, 0, 0, 0, 0, "") , StGetMnTagVal__(175, 0, 0, 0, 0, "") + 1, 0))) If StGetMnTagVal__(177, 0, 0, 0, 0, "") = 1 Then Call StSetMnTagVal__(174, 0, 0, 0, 0, 1, 51, "", Day(DateSerial( StGetMnTagVal__(172, 0, 0, 0, 0, "") , StGetMnTagVal__(175, 0, 0, 0, 0, "") + 1, 0))) End If End Sub Sub Screen_OnClose() End Subџўџ А­ЎДЏБЌЕйLџўџALRCHOOSENOPTIONAџўџ ALRDAYFROMџўџALRDAYTOџўџALRINDEXOFREFERENCEAџўџALRMONTHџўџALROUTPUTCHECKџўџALRYEARџўџDAYџўџMONTHџўџYEARџўџALRARRAYOFOPTIONSA[0]џўџALRQTDOFOPTIONSAџўџ ALRDAYTOMAX