param action: string var value1: string var value2: string var value3: string var value4: string var value5: string var pocet_pracovnikov: table -- vytvor tabulku pocet_pracovnikov Workerpool.getcreationtable(pocet_pracovnikov) -- dostan tabulku creationtable z workerpool switch action case "Open" ------------------------------------------------- ------------------------------------------------- case "Apply" ------------------------------------------------- --Nastavenie vyrobneho planu ------------------------------------------------- value1:= ?.getvalue("Vyrob_plan") -- zisti nastavenu hodnotu v textovom poli Vyrobny_plan[3,1]:= str_to_num(value1) -- nastavi tuto hodnotu v tablefie s nazvom "Vyrobny plan" ------------------------------------------------- --Nastavenie Aktivácie/Deaktivácie strojov ------------------------------------------------- value2:= ?.getvalue("Stroj1") -- zisti ci je checkbox aktivny alebo neaktivny if str_to_bool(value2)= true -- ak je chcekbox aktivny tak vstup Stroja 1 bude otvoreny Stroj1.entrancelocked:= false else Stroj1.entrancelocked:= true -- ak je checkbox neaktivny tak vstup Stroja 2 bude zatvoreny end value3:= ?.getvalue("Stroj2") if str_to_bool(value3)= true Stroj2.entrancelocked:= false else Stroj2.entrancelocked:= true end value4:= ?.getvalue("Stroj3") if str_to_bool(value4)= true Stroj3.entrancelocked:= false else Stroj3.entrancelocked:= true end ------------------------------------------------- --Nastavenie počet pracovníkov ------------------------------------------------- value5:= ?.getvalue("Pocet_prac_roll") -- zisti hodnotu Drop-Down list box if value5 = "1" -- ak bude hodnota 1 pocet_pracovnikov[2,1]:= 1 workerpool.setcreationTable(pocet_pracovnikov) -- nastav pocet pracovnikov na 1 elseif value5 = "2" pocet_pracovnikov[2,1]:= 2 workerpool.setcreationTable(pocet_pracovnikov) -- nastav pocet pracovnikov na 2 else pocet_pracovnikov[2,1]:= 3 workerpool.setcreationTable(pocet_pracovnikov) -- nastav pocet pracovnikov na 3 end ------------------------------------------------- ------------------------------------------------- case "Close" end