s [i + 1,5]:=Obect.ADOTable1.FieldByName ( Переукладання ). AsString;
//sheet.Cells[i+1,6]:=MainForm.WaresADOTable.FieldByName(laquo;Ценаraquo;).AsCurrency;.tbl2.Next;;i:=2 to 6 do
//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .LineStyle:=1;
//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .Weight:=- 4138;
//sheet.Cells [Main.tbl1.RecordCount + 1, i] .Borders [9] .ColorIndex:=- 4105;;:=GetCurrentDir;.DisplayAlerts:=false;.SaveAs(CurDir+laquo;Списание.xlsraquo;);.Visible:=true;;TMain.N3Click(Sender: TObject) ;. show ;; TMain.N4Click (Sender: TObject) ;. show ;; TMain.N2Click (Sender: TObject) ;;;.
