[9, i]:=FlToStr (Сума);. Cells [10, i]:=FlToStr (ПДФО);. Cells [11, i]:=FlToStr (Підсумок) ;
Ітого1:=Ітого1 + Підсумок; ІтогоНДФЛ:=ІтогоНДФЛ + ПДФО;
end;. Text:=FlToStr (ІтогоНДФЛ); Edit2.Text:=FlToStr (Ітого1);;;
//..............................................................................TFRaschet.Процент_за_выслугу_лет(ID:string):integer;v,x1,x2:integer;
fdate: TDate;
/ / Пошук вислуги років
fdate:=StrToDate(DM.GetValueByField(«T_SOTR»,«FDATE_PAS»,«ID»,ID));:=MonthsBetween(fdate,Now);.SQLR.Close;:=0;DM.SQLR do begin.Clear;. Add («select PROC from T_VISLUGA where»);. Add («X2> =» + IntToStr (v) + «and »+«X1<=»+IntToStr(v));;:=FieldByName(«PROC»).AsInteger;;;;TFRaschet.Налоговый_вычет_НДФЛ(ID:string):double;v,x1,x2:integer;,D2:TDate;:double;:integer;:=StartOfTheYear(Now);:=EndOfTheYear(Now);.SQLR.Close;:=0; Sum:=0; kol:=0;. SQLR.Close; DM.SQLR do begin.Clear;. Add («select sum (ITOGO) from T_RASCHET where ID_SOTR =» + QuotedStr (ID));. Add ( «AND FDATE> =» + QuotedStr (DateToStr (d1)) + «and» + «FDATE <=» + QuotedStr (DateToStr (d2)));;:=Fields [0]. AsFloat; ;. SQLR.Close; DM.SQLR do begin.Clear;. Add («select CHILD from T_SOTR where ID =» + QuotedStr (ID));;:=Fields [0]. AsInteger;; Sum <40000 then Result:=Result + 400; Sum <280 000 then Result:=Result + 1000 * kol;;
