fy"> Sheet.Cells [k + 2,1]:= ????? (?????): + IntToStr (DM.SaleTable.FieldByName ( summa ). AsInteger);
Sheet.Cells [k + 4,1]:= ???????? raquo ;;
Sheet.Cells [k + 4,4]:= ???????
end; TMainForm.DateTimePicker3CloseUp (Sender: TObject) ;. SaleTable.Edit; .SaleTable.FieldByName ( date ). AsVariant:=DateTimePicker3.Date; .SaleTable.Post; TMainForm.N12Click (Sender: TObject) ;;. DMSport ;, Classes, DB, ADODB;=class (TDataModule): TADOConnection ;: TADOTable ;: TADOTable ;: TDataSource ;: TDataSource; _group: TAutoIncField ;: TWideStringField; _tovara: TWideStringField ;: TWideStringField ; _group: TIntegerField ;: TBCDField ;: TStringField ;: TADOTable ;: TDataSource; _filial: TAutoIncField ;: TWideStringField ;: TWideStringField ;: TWideStringField; Table: TADOTable; Source: TDataSource; Tablekey_xranenie: TAutoIncField; Tablekey_filial: TIntegerField; TableField: TStringField; Table: TADOTable; Source: TDataSource; Table: TADOTable; Source: TDataSource; Tablekey_group: TIntegerField; TableField: TStringField; Tablekey_tovar: TWideStringField; Tablecount: TIntegerField; Tablekey_filial: TIntegerField; Tablekey_group: TIntegerField ;: TDataSource ;: TADOTable ;: TWideStringField ;: TWideStringField ;: TIntegerField ;: TBCDField; TableField: TStringField; Table: TADOTable; Table: TADOTable; Tablekey_nakl: TAutoIncField; Tabledate: TDateTimeField; Tableposicij: TIntegerField; Tablesumma: TIntegerField; Tablecount: TIntegerField; Source: TDataSource; Source: TDataSource; Tableprise: TIntegerField; TableField2: TIntegerField ;: TWideStringField; TableIzmerenie: TWideStringField; Tableotkuda: TWideStringField; Tablekuda: TWideStringField; Tablekey_nakl: TIntegerField; Tabletovar: TWideStringField; Tablekey_tovar: TWideStringField ;: TADOTable ;: TDataSource; _xranenie: TIntegerField; _filial: TIntegerField; _group: TIntegerField ; _tovar: TWideStringField ;: TIntegerField ;: TStringField ;: TADOTable ;: TDataSource; _postavwik: TAutoIncField ;: TWideStringField ;: TWideStringField ;: TWideStringField ;: TADOTable ;: TAutoIncField ;: TDateTimeField ;: TWideStringField ;: TWideStringField ;: TIntegerField ;: TIntegerField ; Source: TDataSource ;: TDataSource; Table: TADOTable; Tablekey_nakl: TIntegerField; Tablekey_tovar: TWideStringField; Tabletovar: TWideStringField; Tableprise: TIntegerField; TableIzmerenie: TWideStringField; Tablecount: TIntegerField; TableField: TIntegerField ;: TADOTable ;: TDataSource; _people: TAutoIncField; _people: TWideStringField ;: TWideStringField ;: TWideStringField ;: TWideStringField; _filial: TIntegerField ;: TStringField ;: TADOTable; Table: TADOTable ;: TDataSource; Source: TDataSource; _chek: TAutoIncField ;: TDateTimeField; _people: TIntegerField ;: TWideStringField ;: TIntegerField ;: TIntegerField; Tablekey_chek: TIntegerField; Tablekey_tovar: TWideStringField; Tabletovar: TWideStringField; Tableprise: TIntegerField; TableIzmerenie: TWideStringField; Tablecount: TIntegerField; _: TStringField ;: TIntegerField ;: TStringField; TableField: TIntegerField; Prixod2TableCalcFields (DataSet: TDataSet); PrixodNakl2TableCalcFields (DataSet: TDataSet); Sale2TableCalcFields (DataSet: TDataSet);
{Private declarations}
{Public declarations} ;: TDM;
{$ R * .dfm} TDM.Prixod2TableCalcFields (DataSet: TDataSet); TableField2.Value:=Prixod2Tableprise.AsInteger * Prixod2Tablecount.AsInteger; TDM.PrixodNakl2TableCalcFields (DataSet: TDataSet); TableField.Value: =PrixodNakl2Tableprise.AsInteger * PrixodNakl2Tablecount.AsInteger; TDM.Sale2TableCalcFields (DataSet: TDataSet); TableField.Value:=Sale2Tableprise.AsInteger * Sale2Tablecount.AsInteger; .FilialListUnit ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, Grids, DBGrids, StdCtrls, Buttons, ExtCtrls;=class (TForm): TPanel ;: TBitBtn ;: TBitBtn ;: TDBGrid ;: TLabel; BitBtn1Click (Sender: TObject); BitBtn2Click (Sender: TObject);
{Private declarations}
{Public declarations} ;: TFilialListForm; DMSport;
{$ R * .dfm} TFilialListForm.BitBtn1Click (Sender: TObject); Label1.Caption= 1 then.Prixod1Table.Edit; .Prixod1Table.FieldByName ( otkuda ). AsString:=DM.FilialTable.FieldByName(laquo;Filialraquo;).AsString;.Prixod1Table.Post;Label1.Caption=laquo;2raquo; then.Prixod1Table.Edit; .Prixod1Table.FieldByName ( kuda ). AsString:=DM.FilialTable.FieldByName ( Filial ). AsString; .Prixod1Table.Post; Label1.Caption= 3 then.PrixodNaklTable.Edit; .PrixodNaklTable.FieldByName ( kuda ). AsString:=DM.FilialTable.FieldByName ( Filial ). AsString; .PrixodNaklTable.Post; Label1.Caption= 4 then.SaleTable.Edit; .SaleTable.FieldByName ( otkuda ). AsInteger:=DM.FilialTable.FieldByName(laquo;key_filialraquo;).AsInteger;.SaleTable.Post;;;TFilialListForm.BitBtn2Click(Sender: TObject) ;;. FilialUnit ;,...
