2Table.Eof do.Sale2Table.Delete; .Sale2Table.Filtered:=false ;; TMainForm.ToolButton109Click (Sender: TObject) ;. Pages [8] .Visible:=false;.Pages [8] .TabVisible:=false ;; TMainForm.ToolButton100Click (Sender: TObject) ;. SaleTable.First; TMainForm.ToolButton111Click (Sender: TObject) ;. Sale2Table.Prior; TMainForm.ToolButton112Click (Sender: TObject) ;. Sale2Table.Next; TMainForm.ToolButton113Click (Sender: TObject) ;. Sale2Table.Last; TMainForm.ToolButton115Click (Sender: TObject);
TovarListForm.Caption:= ?????????????? ?????? ??????? raquo ;;.Label2.Caption:=DM.SaleTable.FieldByName ( key_chek ). AsString; .DBEdit2.Visible:=false; .DBEdit1.Visible:=false; .DBEdit3.Visible:=true; .Label3.Caption:= 3 raquo ;;. Show; TMainForm.ToolButton116Click (Sender: TObject) ;. Sale2Table.Insert;
TovarListForm.Caption:= ?????????? ?????? ??????? raquo ;;.Label2.Caption:=DM.SaleTable.FieldByName ( key_chek ). AsString; .DBEdit2.Visible:=false; .DBEdit1.Visible:=false; .DBEdit3.Visible:=true; .Label3.Caption:= 3 raquo ;;. Show; TMainForm.ToolButton117Click (Sender: TObject);
if Application.MessageBox (PChar ( ?? ????????????? ??????? ??????? ???? ?? ??????? ),
???????? !!! , MB_OKCANCEL)=id_OK then .Sale2Table.Delete; TMainForm.BitBtn5Click (Sender: TObject) ;, m, j: integer; , s, s2: string; .FilialTable.Filtered:=false; .FilialTable.Filter:= Filial= + DM.SaleTable.FieldByName ( otkuda ). AsString + raquo ;;. FilialTable.Filtered:=true;:=DM.FilialTable.FieldByName ( key_filial ). AsInteger; .FilialTable.Filtered:=false; .Sale2Table.First;:=DM.Sale2Table.FieldByName ( key_tovar ). AsString;:= key_filial= + IntToStr (n) + raquo ;;:=s + and key_tovar= + k + raquo ;;. XranenieTable.Filtered:=false; .XranenieTable.Filter:=s2; .XranenieTable.Filtered:=true; .XranenieTable.Edit;.XranenieTable.FieldByName ( count ). AsInteger:=DM.XranenieTable.FieldByName ( count ). AsInteger - DM.Sale2Table.FieldByName(laquo;countraquo;).AsInteger;.XranenieTable.Post;.Sale2Table.Next;DM.Sale2Table.Eof;:= 0;:=0; .Sale2Table.First;:=n + 1;
m:=m + DM.Sale2Table.FieldByName ( ????? ). AsInteger; .Sale2Table.NextDM.Sale2Table.Eof;.SaleTable.Edit;.SaleTable.FieldByName(laquo;posicijraquo;).AsInteger :=N; .SaleTable.FieldByName ( summa ). AsInteger:=m; .SaleTable.Post; .FilialTable.Filtered:=false; .XranenieTable.Filtered:=false ;; TMainForm.N11Click (Sender: TObject) ; .Date:=Today () ;. Visible:=true; .Pages [8] .Visible:=true; .Pages [8] .TabVisible:=true; .ActivePageIndex:=8 ;; TMainForm.Button6Click (Sender: TObject) ;. Label1.Caption:= 4 raquo ;;. Show ;; TMainForm.Button5Click (Sender: TObject) ;. PeopleTable.Filtered:=false; .PeopleTable.Filter:= key_filial= raquo ; + IntToStr (DM.SaleTable.FieldByName ( otkuda ). AsInteger) + raquo ;;. PeopleTable.Filtered:=true; .Show; TMainForm.BitBtn6Click (Sender: TObject) ;, Sheet , Colum: Variant;, i: integer;:=CreateOleObject ( Excel.Application ) ;. Visible:=true; .Workbooks.Add (- 4 167) ;. Application.EnableEvents:=false; .Workbooks [1].WorkSheets [1] .Name:= ??? raquo ;;:=XLApp.Workbooks [1] .WorkSheets [ ??? ];
Sheet.Cells [1,3]:= ???? ????????? ????????? raquo ;;
Sheet.Cells [3,3]:= ??? ? + IntToStr (DM.SaleTable.FieldByName ( key_chek ). AsInteger);
Sheet.Cells [4,1]:= ?? + DateToStr (DM.SaleTable.FieldByName ( date ) .AsDateTime);
Sheet.Cells [6,1]:= ??????: + DM.SaleTable.FieldByName ( otkuda ). AsString;
Sheet.Cells [7,1]:=DM.SaleTable.FieldByName ( dolzhnost ). AsString + laquo ;: + DM.SaleTable.FieldByName ( ??? _ ?????????? ). AsString; .Cells [9,1]:=? raquo ;;.Cells [9,2]:= ??????? ?????? raquo ;;
Sheet.Cells [9,3]:= ???????????? ?????? raquo ;;
Sheet.Cells [9,4]:= ???? raquo ;;
Sheet.Cells [9,5]:= ?????????? raquo ;;
Sheet.Cells [9,6]:= ??????? ????????? raquo ;;
Sheet.Cells [9,7]:= ????? raquo ;;
DM.Sale2Table.First;:=10;:=1; .Cells [k, 1]:=IntToStr(i);.Cells[k,2]:=DM.Sale2Table.FieldByName(laquo;key_tovarraquo;).AsString;.Cells[k,3]:=DM.Sale2Table.FieldByName(laquo;tovarraquo;).AsString;.Cells[k,4]:=DM.Sale2Table.FieldByName(laquo;priseraquo;).AsInteger;.Cells[k,5]:=DM.Sale2Table.FieldByName(laquo;countraquo;).AsInteger;.Cells[k,6]:=DM.Sale2Table.FieldByName(laquo;Izmerenieraquo;).AsString;
Sheet.Cells [k, 7]:=DM.Sale2Table.FieldByName ( ????? ). AsInteger;.Sale2Table.next;:=K + 1;:=i + 1DM.Sale2Table.eof;
Sheet.Cells [k + 1,1]:= ?????????? ???????: Raquo; + IntToStr (DM.SaleTable.FieldByName ( posicij ). AsInteger);
