MainForm.Label1.Caption:=IntToStr(MainForm.ProgressBar1.Position)+'% ';
try
NameBookmakers:='Num';
WA.Selection.GoTo_(Whatr, Which, Count, NameBookmakers);
WA.Selection.TypeText(DogovorDBEdit.Text);
MainForm.ProgressBar1.Position:=MainForm.ProgressBar1.Position+3;
except
end;
NameBookmakers:='Date';
WA.Selection.TypeText(DateDBEdit.Text);
NameBookmakers:='Zakazchik';
WA.Selection.TypeText(FamDBEdit.Text+' '+NameDBEdit.Text+' '+SurNameDBEdit.Text);
NameBookmakers:='License';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[9].Text);
NameBookmakers:='Director';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[11].Text);
NameBookmakers:='Slushatel';
WA.Selection.TypeText(FioDBEdit.Text);
NameBookmakers:='Programm';
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[2].Text);
NameBookmakers:='Hour';
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[8].Text);
NameBookmakers:='Month';
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[7].Text);
if SaleDBCheckBox.Checked=false then
begin
NameBookmakers:='Summ';
Temp:=DataModule1.SpecialsTable.Fields.Fields[4].Text;
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[4].Text+' ('+MainForm.CurrencyToStr(Temp)+')');
NameBookmakers:='Plata';
Temp:=DataModule1.SpecialsTable.Fields.Fields[3].Text;
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[3].Text+' ('+MainForm.CurrencyToStr(Temp)+')');
end else
Temp:=DataModule1.SpecialsTable.Fields.Fields[6].Text;
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[6].Text+' ('+MainForm.CurrencyToStr(Temp)+')');
Temp:=DataModule1.SpecialsTable.Fields.Fields[5].Text;
WA.Selection.TypeText(DataModule1.SpecialsTable.Fields.Fields[5].Text+' ('+MainForm.CurrencyToStr(Temp)+')');
NameBookmakers:='DateVuplatu';
WA.Selection.TypeText(DateVuplatuDBEdit.Text);
NameBookmakers:='NameFirm';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[1].Text);
NameBookmakers:='Inn';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[2].Text);
NameBookmakers:='Adress';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[3].Text);
NameBookmakers:='Tel';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[4].Text);
NameBookmakers:='Bank';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[5].Text);
NameBookmakers:='RSChet';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[6].Text);
NameBookmakers:='KSChet';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[7].Text);
NameBookmakers:='Bik';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[8].Text);
NameBookmakers:='License2';
NameBookmakers:='Doljnost';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[12].Text);
NameBookmakers:='FIODir';
WA.Selection.TypeText(DataModule1.RekvizitTable.Fields.Fields[10].Text);
NameBookmakers:='FIOZakazchik';
NameBookmakers:='DateRojd';
WA.Selection.TypeText(DateRDBEdit.Text);
Страницы: 1, 2, 3, 4, 5, 6, 7, 8, 9