Integer :=K; .Prixod1Table.FieldByName ( summa ). AsInteger:=sum; DM.Prixod1Table.Modified then DM.Prixod1Table.Post; Label3.Caption= 2 then.PrixodNakl2Table.Edit; .PrixodNakl2Table.FieldByName ( key_nakl ). AsInteger:=DM.PrixodNaklTable.FieldByName(laquo;key_naklraquo;).AsInteger;.PrixodNakl2Table.FieldByName(laquo;key_tovarraquo;).AsString :=DM.TovarTable2.FieldByName(laquo;key_tovararaquo;).AsString;.PrixodNakl2Table.FieldByName(laquo;tovarraquo;).AsString :=DM.TovarTable2.FieldByName ( tovar ). AsString; .TovarTable.Filtered:=false; .TovarTable.Filter:= key_tovara= + DM.PrixodNakl2Table.FieldByName(laquo;key_tovarraquo;).AsString+laquo;raquo;laquo;raquo;;.TovarTable.Filtered :=True; .PrixodNakl2Table.FieldByName ( Izmerenie ). AsString:=DM.TovarTable.FieldByName ( Izmerenie ). AsString; .TovarTable.Filtered:=false; .PrixodNakl2Table.FieldByName ( prise ). AsInteger:=DM.TovarTable2.FieldByName(laquo;priseraquo;).AsInteger;.PrixodNakl2Table.Post;.PrixodNakl2Table.First;:=0;:=0;:= k + 1;:=sum + DM.PrixodNakl2Table.FieldByName(laquo;Суммаraquo;).AsInteger;.PrixodNakl2Table.NextDM.PrixodNakl2Table.Eof;.PrixodNaklTable.Edit;.PrixodNaklTable.FieldByName(laquo;posicijraquo;).AsInteger :=K; .PrixodNaklTable.FieldByName ( summa ). AsInteger:=sum; DM.PrixodNaklTable.Modified then DM.PrixodNaklTable.Post; Label3.Caption= 3 then.Sale2Table.Edit; .Sale2Table.FieldByName ( key_chek ). AsInteger:=DM.SaleTable.FieldByName(laquo;key_chekraquo;).AsInteger;.Sale2Table.FieldByName(laquo;key_tovarraquo;).AsString :=DM.TovarTable2.FieldByName(laquo;key_tovararaquo;).AsString;.Sale2Table.FieldByName(laquo;tovarraquo;).AsString :=DM.TovarTable2.FieldByName ( tovar ). AsString; .TovarTable.Filtered:=false; .TovarTable.Filter:= key_tovara= + DM.Sale2Table.FieldByName(laquo;key_tovarraquo;).AsString+laquo;raquo;laquo;raquo;;.TovarTable.Filtered :=True; .Sale2Table.FieldByName ( Izmerenie ). AsString:=DM.TovarTable.FieldByName ( Izmerenie ). AsString; .TovarTable.Filtered:=false; .Sale2Table.FieldByName ( prise ).AsInteger:=DM.TovarTable2.FieldByName(laquo;priseraquo;).AsInteger;.Sale2Table.Post;.Sale2Table.First;:=0;:=0;:= k + 1;:=sum + DM.Sale2Table.FieldByName(laquo;Суммаraquo;).AsInteger;.Sale2Table.NextDM.Sale2Table.Eof;.SaleTable.Edit;.SaleTable.FieldByName(laquo;posicijraquo;).AsInteger :=K; .SaleTable.FieldByName ( summa ). AsInteger:=sum; DM.SaleTable.Modified then DM.SaleTable.Post ;;;;. TovarUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls , Forms ,, StdCtrls, Buttons, Mask, DBCtrls, ExtCtrls;=class (TForm): TPanel ;: TBitBtn ;: TPanel ;: TBitBtn ;: TDBEdit ;: TDBEdit ;: TDBLookupComboBox ;: TDBEdit ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TLabel ;: TDBEdit; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TTovarForm; DMSport;
{$ R * .dfm} TTovarForm.BitBtn1Click (Sender: TObject); DM.TovarTable.Modified then.TovarTable.Post ;; TTovarForm.BitBtn2Click (Sender: TObject) ;;. XranenieUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, ExtCtrls, StdCtrls, Buttons, Mask, DBCtrls;=class (TForm): TPanel ;: TPanel ;: TDBGrid ;: TDBGrid ;: TBitBtn ;: TBitBtn ;: TEdit ;: TLabel ;: TDBEdit ;: TLabel; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TXranenieForm; DMSport, MainUnit;
{$ R * .dfm} TXranenieForm.BitBtn1Click (Sender: TObject) ;: boolean; Label1.Caption= 2 then.Xranenie2Table.Edit; .Xranenie2Table.FieldByName ( key_group ). AsInteger:=DM.GroupTovarTable.FieldByName(laquo;key_groupraquo;).AsInteger;.Xranenie2Table.Post;.XranenieTable.Edit;.XranenieTable.FieldByName(laquo;key_xranenieraquo;).AsInteger :=DM.Xranenie1Table.FieldByName(laquo;key_xranenieraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_filialraquo;).AsInteger :=DM.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_groupraquo;).AsInteger :=DM.GroupTovarTable.FieldByName(laquo;key_groupraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_tovarraquo;).AsString :=DM.TovarTable2.FieldByName ( key_tovara ). AsString;
//DM.XranenieTable.FieldByName ( count ). AsInteger:=StrToInt (Edit1.Text) ;. XranenieTable.Post; Label1.Caption= 1 then.XranenieTable.Insert;
//DM.XranenieTable.Edit; .XranenieTable.FieldByName ( key_xranenie ). AsInteger:=DM.Xranenie1Table.FieldByName(laquo;key_xranenieraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_filialraquo;).AsInteger :=DM.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_groupraquo;).AsInteger :=DM.TovarTable2.FieldByName(laquo;key_groupraquo;).AsInteger;.XranenieTable.FieldByName(laquo;key_tovarraquo;)....
