прибуткового податку і розрахунку ставки за годину:
procedure Tnachis.FormActivate (Sender: TObject) ;. Mes_pr.First; not dm.Mes_pr.Eof do.Mes_pr.Edit;dm.mes_pritogo_n.Valuelt;=12000dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*7/100(dm.mes_pritogo_n.Valuegt;12000) and (dm.mes_pritogo_n.Value lt;=20000) then.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value * 9/100 (dm.mes_pritogo_n.Value gt; 20000) and (dm.mes_pritogo_n.Value lt;=30000) then.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*11/100dm.Mes_prPODOH.Value:=dm.mes_pritogo_n.Value*13/100;
(dm.PrepodySTAJ.Value lt;=5) and (dm.PrepodyKATEGORIYA.Value=laquo;IIraquo;)dm.mes_prSTAVKA_CH.Value:=150(dm.PrepodySTAJ.Valuegt;5) and (dm.PrepodySTAJ.Value lt;=10) and (dm.PrepodyKATEGORIYA.Value=laquo;IIraquo;)dm.mes_prSTAVKA_CH.Value:=160(dm.PrepodySTAJ.Valuegt;10) and (dm.PrepodyKATEGORIYA.Value=laquo;IIraquo;)dm.mes_prSTAVKA_CH.Value:=170(dm.PrepodySTAJ.Valuelt;=5) and (dm.PrepodyKATEGORIYA.Value= I ) dm.mes_prSTAVKA_CH.Value:=170 else (dm.PrepodySTAJ.Value gt; 5) and (dm.PrepodySTAJ.Value lt;=10) and (dm.PrepodyKATEGORIYA.Value= I ) dm.mes_prSTAVKA_CH.Value:=180 else (dm.PrepodySTAJ.Value gt; 10) and (dm.PrepodyKATEGORIYA.Value= I ) dm.mes_prSTAVKA_CH.Value:=200 else (dm.PrepodySTAJ. Value lt;=5) and (dm.PrepodyKATEGORIYA.Value=laquo;вraquo;)dm.mes_prSTAVKA_CH.Value:=200(dm.PrepodySTAJ.Valuegt;5) and (dm.PrepodySTAJ.Value lt;=10) and (dm.PrepodyKATEGORIYA.Value=laquo;вraquo;)dm.mes_prSTAVKA_CH.Value:=220(dm.PrepodySTAJ.Valuegt;10) and (dm.PrepodyKATEGORIYA.Value= в ) dm.mes_prSTAVKA_CH.Value:=250;
dm.Mes_pr.Post; .Mes_pr.Refresh;
dm.Mes_pr.Next ;;. Mes_pr.Close; .Mes_pr.Open ;;
end.
1.