Pakovanje profila rucno
math
0|0
16
EupaliPakovanjeProfilaR
Th	Efor(7,18,1)
TPaketaProizvod[h].Lager	Eif(Proizvod[h].Lager>20,PaketaProizvod[h].Lager +1)
TSirovina[8].Lager	Eif(Proizvod[h].Lager>20,Sirovina[8].Lager - 6)
TSirovina[9].Lager	Eif(Proizvod[h].Lager>20,Sirovina[9].Lager - 6)
TProizvod[h].Lager	Eif(Proizvod[h].Lager>20,Proizvod[h].Lager - 20)
TSirovina[7].Lager	Eif(Proizvod[h].Lager>20,Sirovina[7].Lager - 1)
TpritisakKomoreLakiranja	Eif(Proizvod[h].Lager>20,pritisakKomoreLakiranja + 0.1)
TotpadKomoreLakiranja	Eif(Proizvod[h].Lager>20,otpadKomoreLakiranja + 0.1)
TbrojPaketa	Eif(Proizvod[h].Lager>20,brojPaketa + 1 )
TbrojLakiranihProfila	Eif(Proizvod[h].Lager>20,brojLakiranihProfila +20)
TprskalicaLakiranja	Eif(Proizvod[h].Lager>20,prskalicaLakiranja - 0.01)
TpokreniPakovanje	Eif(Proizvod[h].Lager<20,0)
TupaliPakovanjeProfilaR	Eif(Proizvod[h].Lager<20,0)
TupaliPakovanje	Eif(Proizvod[h].Lager<20,1)
T	Ewait(1000)
Tnext	E
