105
ADODataSetDolgnost: TADODataSet;
ADODataSetDolgnostCod: TAutoIncField;
ADODataSetDolgnostName: TWideStringField;
ADODataSetTabl_SotrudnikNameDolgnost: TStringField;
ADODataSetPodrazdelenie: TADODataSet;
ADODataSetPodrazdelenieCod: TAutoIncField;
ADODataSetPodrazdelenieName: TWideStringField;
ADODataSetPodrazdelenieNachalnik: TWideStringField;
ADODataSetTabl_SotrudnikNamePodrazdelenie: TStringField;
Panel10: TPanel;
Label2: TLabel;
Memo3: TMemo;
Memo4: TMemo;
Memo5: TMemo;
Memo1: TMemo;
EditSred02: TEdit;
EditSred03: TEdit;
EditSred04: TEdit;
EditSred05: TEdit;
EditSred06: TEdit;
EditSred07: TEdit;
EditSred08: TEdit;
EditSred09: TEdit;
EditSred10: TEdit;
EditSred11: TEdit;
EditSred12: TEdit;
EditSred13: TEdit;
EditFond02: TEdit;
106
EditFond03: TEdit;
EditFond04: TEdit;
EditFond05: TEdit;
EditFond06: TEdit;
EditFond07: TEdit;
EditFond08: TEdit;
EditFond09: TEdit;
EditFond10: TEdit;
EditFond11: TEdit;
EditFond12: TEdit;
EditFond13: TEdit;
EditNachisl02: TEdit;
EditNachisl03: TEdit;
EditNachisl04: TEdit;
EditNachisl05: TEdit;
EditNachisl06: TEdit;
EditNachisl07: TEdit;
EditNachisl08: TEdit;
EditNachisl09: TEdit;
EditNachisl10: TEdit;
EditNachisl11: TEdit;
EditNachisl12: TEdit;
EditNachisl13: TEdit;
procedure ButtonExitClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure N1Click(Sender: TObject);
procedure ButtonPrintClick(Sender: TObject);
procedure EditSred02KeyPress(Sender: TObject; var Key: Char);
107
private
{ Private declarations }
public
{ Public declarations }
end;
var
FormReportF1God: TFormReportF1God;
implementation
uses DM1, Main, Work_In_Word, Vxod;
{$R *.dfm}
procedure TFormReportF1God.ButtonExitClick(Sender: TObject);
begin
Close();
end;
procedure TFormReportF1God.FormShow(Sender: TObject);
begin
ADODataSetDolgnost.Close;
ADODataSetDolgnost.Open;
ADODataSetPodrazdelenie.Close;
ADODataSetPodrazdelenie.Open;
108
ADODataSetTabl_Sotrudnik.Close;
ADODataSetTabl_Sotrudnik.Open;
DateTimePickerOtchetPeriod.Date:= now();
end;
procedure TFormReportF1God.N1Click(Sender: TObject);
begin
ButtonExitClick(Sender);
end;
procedure TFormReportF1God.ButtonPrintClick(Sender: TObject);
var s, s2, s3: string;
year, month, day : word;
z, z2, CountNomF1God: integer;
sum_sred, sum_fond, sum_nachisl: real;
begin
sum_sred:=0;
sum_fond:=0;
sum_nachisl:=0;
CreateWord;
OpenDoc(ExtractFileDir(application.ExeName)+'\Shablons\Ф.N 1-Т (ГОДОВАЯ) (К ПОСТ.
РОССТАТА ОТ 28.06.2006 N 28).rtf');
CountNomF1God:= StrToInt(FormMain.GetNastrParametr('NomF1God'));
inc(CountNomF1God);
decodedate(DateTimePickerOtchetPeriod.Date, year, month, day);
StartOfDoc; FindAndPasteTextDoc('***Гд',inttostr(year));
109
StartOfDoc; FindAndPasteTextDoc('***Организация',
FormMain.GetNastrParametr('NameFirma'));
StartOfDoc; FindAndPasteTextDoc('***ПочтАдрес',
FormMain.GetNastrParametr('AdresPocht'));
StartOfDoc; FindAndPasteTextDoc('***СредСпис02', EditSred02.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд02', EditFond02.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл02', EditNachisl02.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис03', EditSred03.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд03', EditFond03.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл03', EditNachisl03.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис04', EditSred04.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд04', EditFond04.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл04', EditNachisl04.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис05', EditSred05.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд05', EditFond05.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл05', EditNachisl05.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис06', EditSred06.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд06', EditFond06.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл06', EditNachisl06.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис07', EditSred07.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд07', EditFond07.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл07', EditNachisl07.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис08', EditSred08.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд08', EditFond08.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл08', EditNachisl08.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис09', EditSred09.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд09', EditFond09.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл09', EditNachisl09.Text);
110
StartOfDoc; FindAndPasteTextDoc('***СредСпис10', EditSred10.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд10', EditFond10.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл10', EditNachisl10.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис11', EditSred11.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд11', EditFond11.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл11', EditNachisl11.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис12', EditSred12.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд12', EditFond12.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл12', EditNachisl12.Text);
StartOfDoc; FindAndPasteTextDoc('***СредСпис13', EditSred13.Text);
StartOfDoc; FindAndPasteTextDoc('***Фонд13', EditFond13.Text);
StartOfDoc; FindAndPasteTextDoc('***Начисл13', EditNachisl13.Text);
sum_sred:=
StrToFloat(EditSred02.Text)+StrToFloat(EditSred03.Text)+StrToFloat(EditSred04.Text)+
StrToFloat(EditSred05.Text)+StrToFloat(EditSred06.Text)+StrToFloat(EditSred07.Text)+
StrToFloat(EditSred08.Text)+StrToFloat(EditSred09.Text)+StrToFloat(EditSred10.Text)+
StrToFloat(EditSred11.Text)+StrToFloat(EditSred12.Text)+StrToFloat(EditSred13.Text);
sum_fond:=
StrToFloat(EditFond02.Text)+StrToFloat(EditFond03.Text)+StrToFloat(EditFond04.Text)+
StrToFloat(EditFond05.Text)+StrToFloat(EditFond06.Text)+StrToFloat(EditFond07.Text)+
StrToFloat(EditFond08.Text)+StrToFloat(EditFond09.Text)+StrToFloat(EditFond10.Text)+
StrToFloat(EditFond11.Text)+StrToFloat(EditFond12.Text)+StrToFloat(EditFond13.Text);
sum_nachisl:=StrToFloat(EditNachisl02.Text)+StrToFloat(EditNachisl03.Text)+StrToFloat(EditNa
chisl04.Text)+
111
StrToFloat(EditNachisl05.Text)+StrToFloat(EditNachisl06.Text)+StrToFloat(EditNachisl07.Text)+
StrToFloat(EditNachisl08.Text)+StrToFloat(EditNachisl09.Text)+StrToFloat(EditNachisl10.Text)+
StrToFloat(EditNachisl11.Text)+StrToFloat(EditNachisl12.Text)+StrToFloat(EditNachisl13.Text);
StartOfDoc; FindAndPasteTextDoc('***ИтогоСреднеспис', IntToStr(round(sum_sred)));
StartOfDoc; FindAndPasteTextDoc('***ИтогоФонд', IntToStr(round(sum_fond)));
StartOfDoc; FindAndPasteTextDoc('***ИтогоНачисл', IntToStr(round(sum_nachisl)));
StartOfDoc;
FindAndPasteTextDoc('***Руководитель',FormMain.GetNastrParametr('FIO_Director'));
StartOfDoc;
FindAndPasteTextDoc('***ДолжнОтветств',ADODataSetTabl_SotrudnikNameDolgnost.Value);
StartOfDoc;
FindAndPasteTextDoc('***Ответственный',ADODataSetTabl_SotrudnikFam.Value+','+ADOData
SetTabl_SotrudnikName.Value+','+ADODataSetTabl_SotrudnikOtch.Value);
StartOfDoc; FindAndPasteTextDoc('***Телефон',FormMain.GetNastrParametr('Telephon'));
decodedate(now(), year, month, day);
StartOfDoc; FindAndPasteTextDoc('*ДД',inttostr(day));
StartOfDoc; FindAndPasteTextDoc('*МесПроп', LongMonthNames[month]);
StartOfDoc; FindAndPasteTextDoc('*Год',inttostr(year));
ADODataSetTabl_Sotrudnik.Close;
ADODataSetTabl_Sotrudnik.CommandText:='select * from Tabl_Sotrudnik where
Cod='+IntToStr(TekCodUser);
ADODataSetTabl_Sotrudnik.Open;
s:= '\Arhiv\Ф_N 1-Т
(ГОДОВАЯ)_'+inttostr(day)+'_'+inttostr(month)+'_'+inttostr(year)+'_'+IntToStr(CountNomF1God)
+'.rtf';
SaveDocAs(ExtractFileDir(application.ExeName)+s);
CloseDoc;
112
FormMain.SetNastrParametr(IntToStr(CountNomF1God),'NomF1God');
// messagebox(Handle,'Нажмите кн. для продолжения!','Формирование документа
закончено!',0);
shellexecute(handle,'open',pchar(ExtractFileDir(application.ExeName)+s),'','',1);
end;
procedure TFormReportF1God.EditSred02KeyPress(Sender: TObject;
var Key: Char);
begin
if Key in ['0'..'9',',',#8]
then exit
else Key:=#0;
end;
end.