nder: TObject) ;. Prixod2Table.Insert; .DBEdit1.Visible:=true; .DBEdit2.Visible:=false; .DBEdit3.Visible:=false; .Label3.Caption:= 1 raquo ;;. Show; TMainForm.ToolButton68Click (Sender: TObject) ;. Prixod2Table.Delete; TMainForm.BitBtn1Click (Sender: TObject) ;, m, j: integer; , s, s2: string; .FilialTable.Filtered:=false; .FilialTable.Filter:= Filial= + DM.Prixod1Table.FieldByName ( otkuda ). AsString + raquo ;;. FilialTable.Filtered:=true;:=DM.FilialTable.FieldByName ( key_filial ). AsInteger; .FilialTable.Filtered:=false; .FilialTable.Filter:= Filial= laquo ; + DM.Prixod1Table.FieldByName ( kuda ). AsString + raquo ;;. FilialTable.Filtered:=true;:=DM.FilialTable.FieldByName ( key_filial ). AsInteger ; .Prixod2Table.First;:=DM.Prixod2Table.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.Prixod2Table.FieldByName(laquo;countraquo;).AsInteger;.XranenieTable.Post;.Prixod2Table.Next;DM.Prixod2Table.Eof;.Prixod2Table.First;.XranenieTable.Filtered :=False; .XranenieTable.Filter:= key_filial= + IntToStr (m) + +
and key_tovar= + DM.Prixod2Table.FieldByName ( key_tovar ). AsString + raquo ;;. XranenieTable.Filtered:=true; not DM.XranenieTable.Eof then.XranenieTable.Edit; .XranenieTable.FieldByName ( count ). AsInteger:=DM.XranenieTable.FieldByName ( count ). AsInteger + DM.Prixod2Table.FieldByName(laquo;countraquo;).AsInteger;.XranenieTable.Post;.XranenieTable.Filtered :=False; .TovarTable.Filtered:=false; .TovarTable.Filter:= key_tovara= + DM.Prixod2Table.FieldByName ( key_tovar ). AsString + raquo ;;. TovarTable.Filtered:=true;:=DM.TovarTable.FieldByName ( key_group ). AsInteger; .TovarTable.Filtered:=false; .Xranenie1Table.Filtered:=false; .Xranenie1Table.Filter:= key_filial + IntToStr (m) + raquo ;;
{DM.Xranenie1Table.Filtered:=true;:=DM.Xranenie1Table.FieldByName ( key_xranenie ). AsInteger;
} DM.XranenieTable.Insert;
//DM.XranenieTable.FieldByName ( key_xranenie ). AsInteger:=j; .XranenieTable.FieldByName ( key_filial ). AsInteger:=m; .XranenieTable.FieldByName ( key_tovar ). AsString:=DM.Prixod2Table.FieldByName(laquo;key_tovarraquo;).AsString;.XranenieTable.FieldByName(laquo;key_groupraquo;).AsInteger :=N; .XranenieTable.FieldByName ( count ). AsInteger:=DM.Prixod2Table.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 ;;. Prixod2Table.NextDM.Prixod2Table.Eof ;:=0;:=0; .Prixod2Table.First;:=n + 1;
m:=m + DM.Prixod2Table.FieldByName ( ????? ). AsInteger; .Prixod2Table.NextDM.Prixod2Table.Eof;.Prixod1Table.Edit;.Prixod1Table.FieldByName(laquo;posicijraquo;).AsInteger :=N; .Prixod1Table.FieldByName ( summa ). AsInteger:=m; .Prixod1Table.Post; .FilialTable.Filtered:=false; .XranenieTable.Filtered:=false ;; TMainForm.ToolButton36Click (Sender: TObject) ; .Label1.Caption:= 2 raquo ;;. Show ;; TMainForm.DBGrid4CellClick (Column: TColumn) ;. Xranenie2Table.Filtered:=false; .Xranenie2Table.Filter:= key_filial= + IntToStr(DM.Xranenie1Table.FieldByName(laquo;key_filialraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.Xranenie2Table.Filtered :=True; .XranenieTable.Filtered:=false; .XranenieTable.Filter:= key_filial= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_filialraquo;).AsInteger)+laquo;raquo;laquo;raquo; +
and key_group= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_groupraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.XranenieTable.Filtered :=True; ; TMainForm.DBGrid5CellClick (Column: TColumn) ;. XranenieTable.Filtered:=false; .XranenieTable.Filter:= key_filial= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_filialraquo;).AsInteger)+laquo;raquo;laquo;raquo; +
and key_group= + IntToStr(DM.Xranenie2Table.FieldByName(laquo;key_groupraquo;).AsInteger)+laquo;raquo;laquo;raquo;;.XranenieTable.Filtered :=True ;; TMainForm.ToolButton53Click (Sender: TObject) ;. Prixod1Table.Next; TMainForm.ToolButton51Click (Sender: TObject) ;. Prixod1Table.First; TMainForm.ToolButton52Click (Sender: TObject) ;. Prixod1Table.Prior; TMainForm.ToolButton54Click (Sender: TObject) ;. Prixod1Table.Last; TMainForm.BitBtn2Click (Sender: TObject) ;, Sheet, Colum: Variant;, i: integer;:=CreateOleObject ( Excel.Application ) ;. Visible:=true;.Workbooks.Add (- 4 167) ;. Applic...
