ing:=DM.PrixodNakl2Table.FieldByName(laquo;key_tovarraquo;).AsString;.XranenieTable.FieldByName(laquo;key_groupraquo;).AsInteger :=N; .XranenieTable.FieldByName ( count ). AsInteger:=DM.PrixodNakl2Table.FieldByName(laquo;countraquo;).AsInteger;.XranenieTable.Post;.Xranenie2Table.Filtered :=False; .Xranenie2Table.Filter:= key_group= + IntToStr (n) + raquo ;;. Xranenie2Table.Filtered:=true; DM.Xranenie2Table.Eof then. Xranenie2Table.Insert; .Xranenie2Table.FieldByName ( key_filial ). AsInteger:=m; .Xranenie2Table.FieldByName ( key_group ). AsInteger:=n; .Xranenie2Table.Post ;;. PrixodNakl2Table.NextDM.PrixodNakl2Table.Eof ;:=0;:=0; .PrixodNakl2Table.First;:=n + 1;
m:=m + DM.PrixodNakl2Table.FieldByName ( ????? ). AsInteger; .PrixodNakl2Table.NextDM.PrixodNakl2Table.Eof;.PrixodNaklTable.Edit;.PrixodNaklTable.FieldByName(laquo;posicijraquo;).AsInteger :=N; .PrixodNaklTable.FieldByName ( summa ). AsInteger:=m; .PrixodNaklTable.Post; .FilialTable.Filtered:=false; .XranenieTable.Filtered:=false ;; TMainForm.BitBtn4Click (Sender: TObject) ;, Sheet, Colum: Variant;, i: integer;:=CreateOleObject ( Excel.Application ) ;. Visible:=true; .Workbooks.Add (- 4 167) ;. Application.EnableEvents:=false; .Workbooks [1] .WorkSheets [1] .Name:=XLApp.Workbooks [1] .WorkSheets.Cells [1,3]: =. Cells [3,3]: =? + IntToStr (DM.PrixodNaklTable.FieldByName ( key_nakl '). AsInteger);
Sheet.Cells [4,1]:= ?? + DateToStr (DM.P rixodNaklTable.FieldByName ( date ). AsDateTime) ;. Cells [6,1]:= + DM.PrixodNaklTable.FieldByName ( otkuda ). AsString; .Cells [7,1]:= + DM.PrixodNaklTable.FieldByName ( kuda ). AsString;
Sheet.Cells [9,1]:=? raquo ;;.Cells [9,2]: =. Cells [9,3]
Sheet.Cells [9,4]:
Sheet.Cells [9,5]:
Sheet.Cells [9,6]:;. Cells [9,7]:
DM.PrixodNakl2Table.First;:=10;:=1; .Cells [k, 1]:=IntToStr(i);.Cells[k,2]:=DM.PrixodNakl2Table.FieldByName(laquo;key_tovarraquo;).AsString;.Cells[k,3]:=DM.PrixodNakl2Table.FieldByName(laquo;tovarraquo;).AsString;.Cells[k,4]:=DM.PrixodNakl2Table.FieldByName(laquo;priseraquo;).AsInteger;.Cells[k,5]:=DM.PrixodNakl2Table.FieldByName(laquo;countraquo;).AsInteger;.Cells[k,6]:=DM.PrixodNakl2Table.FieldByName(laquo;Izmerenieraquo;).AsString;
Sheet.Cells [k, 7]:=DM.PrixodNakl2Table.FieldByName ( ????? ). AsInteger;.PrixodNakl2Table.next;:=K + 1;:=i + 1DM.PrixodNakl2Table.eof;
Sheet.Cells [k + 1,1]:= ?????????? ???????: Raquo; + IntToStr (DM.PrixodNaklTable.FieldByName ( posicij ). AsInteger);
Sheet.Cells [k + 2,1]:= ????? (?????): + IntToStr (DM.PrixodNaklTable.FieldByName ( summa ). AsInteger);
Sheet.Cells [k + 4,1]:= ???????? raquo ;;.Ce Lls [k + 4,4]:= ???????
end; TMainForm.ToolButton38Click (Sender: TObject);
if Application.MessageBox (PChar ( ?? ????????????? ??????? ??????? ???? ?? ??????? ),
???????? !!! , MB_OKCANCEL)=id_OK then .XranenieTable.Delete; TMainForm.ToolButton6Click (Sender: TObject) ;. PeopleTable.First; TMainForm. ToolButton91Click (Sender: TObject) ;. PeopleTable.Prior; TMainForm.ToolButton92Click (Sender: TObject) ;. PeopleTable.Next; TMainForm.ToolButton93Click (Sender: TObject) ;. PeopleTable.Last; TMainForm.ToolButton95Click (Sender: TObject);
PeopleForm.Caption:= ?????????????? ?????????? raquo ;;.Show; TMainForm.ToolButton96Click (Sender: TObject);
PeopleForm.Caption:= ?????????????? ?????????? raquo ;;.PeopleTable.Insert; .Show; TMainForm.ToolButton97Click (Sender: TObject);
if Application.MessageBox (PChar ( ?? ????????????? ??????? ??????? ???? ?? ??????? ),
???????? !!! , MB_OKCANCEL)=id_OK then .PeopleTable.Delete; TMainForm.ToolButton99Click (Sender: TObject) ;. Pages [7] .Visible :=false; .Pages [7] .TabVisible:=false ;; TMainForm.ToolButton110Click (Sender: TObject) ;. Sale2Table.First; TMainForm.ToolButton101Click (Sender: TObject) ;. SaleTable.Prior; TMainForm.ToolButton102Click (Sender: TObject) ;. SaleTable.Next; TMainForm.ToolButton103Click (Sender: TObject) ;. SaleTable.Last; TMainForm.ToolButton105Click (Sender: TObject) ;. SaleTable.Edit; TMainForm.ToolButton106Click (Sender: TObject) ;. SaleTable.Insert; TMainForm.ToolButton107Click (Sender: TObject);
if Application.MessageBox (PChar ( ?? ????????????? ??????? ??????? ???? ?? ??????? ),
???????? !!! , MB_OKCANCEL)=id_OK then .SaleTable.Delete; .Sale2Table.Filtered:=false; .Sale2Table.Filter:= key_chek= + IntToStr(DM.SaleTable.FieldByName(laquo;key_chekraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.Sale2Table.Filtered :=True; .Sale2Table.First; not DM.Sale...
