// *************************************************************************** // * * // * * // * * // * * // * 04.05.2020 WAPRO (Dział Rozwoju Oprogramowania) * // *************************************************************************** wynag_eko=0 premia_pr=0 funk_eko=0 dodatek_eko=0 a5=0 if zatrudniony and [Ilość godzin przestoju ekonomicznego]>0 a4=(100-procent_obnizenia)/100 //ostanie wynagrodzenie przed COVID Kartoteka angaży(Data od)=ostatni Set(Kartoteka angaży) loop Previous(Kartoteka angaży) if eof() break end if Kartoteka angaży(COVID)=0 a2=Kartoteka angaży(Wynagrodzenie/Stawka) break end end if system_placy$='miesięczny' or system_placy$='prowizyjny' a3=a2*a4/[Ilość godzin roboczych w miesiącu] else a3=a2*a4 end //płaca miesieczna i godzinowa wynag_eko=a3*[Ilość godzin przestoju ekonomicznego] //premia z angazu podstawa_pr=wynag_eko premia_pr=0 if {Podstawa premii z angażu [%]}='angaż' case of system_placy$='miesięczny' or system_placy$='prowizyjny' podstawa_pr=Round([Angaż]*a4,0.01) of system_placy$='godzinowy' or system_placy$='godzinowo-akordowy' podstawa_pr=Round([Ilość godzin roboczych w miesiącu]*[Stawka godzinowa]*a4,0.01) end podstawa_pr=0 end //premia kwota a3=Round([Premia z angażu [kwota]]*a4,0.01) a5=a3/[Ilość godzin roboczych w miesiącu]*[Ilość godzin przestoju ekonomicznego] premia_pr=Round(podstawa_pr*[Premia z angażu [%]]/100,0.01) //dodatek funkcyjny a1=[Dodatek funkcyjny [nominał]]*a4/[Ilość godzin roboczych w miesiącu] funk_eko=a1*[Ilość godzin przestoju ekonomicznego] //dodatek stazowy if typ_stazu$<>'nie obliczać' dodatek_eko=ilosc_lat*wynag_eko/100 end end //INFO(num2txt(wynag_eko)&&num2txt(premia_pr)&&num2txt(a5)&&num2txt(funk_eko)&&num2txt(dodatek_eko)) []=wynag_eko+premia_pr+a5+funk_eko+dodatek_eko