ation.EnableEvents:=false; .Workbooks [1] .WorkSheets [1] .Name
Sheet:=XLApp.Workbooks [1] .WorkSheets [ ????????? ];.Cells [1,3]: =. Cells [3,3]:= ? + IntToStr (DM.Prixod1Tabl e.FieldByName ( key_nakl ). AsInteger);
Sheet.Cells [4,1]:= ?? + DateToStr (DM.Prixod1Table.FieldByName ( date ). AsDateTime);.Cells [6,1]:= + DM.Prixod1Table.FieldByName ( otkuda ). AsString; .Cells [7,1]:= + DM.Prixod1Table.FieldByName ( kuda '). AsString;
Sheet.Cells [9,1]:=? raquo ;;.Cells [9,2]: =. Cells [9,3]: =. Cells [9,4]: =. Cells [9,5]: =. Cells [9,6]: =. Cells [9, 7]: =. Prixod2Table.First;:=10;:=1; .Cells [k, 1]:=IntToStr(i);.Cells[k,2]:=DM.Prixod2Table.FieldByName(laquo;key_tovarraquo;).AsString;.Cells[k,3]:=DM.Prixod2Table.FieldByName(laquo;tovarraquo;).AsString;.Cells[k,4]:=DM.Prixod2Table.FieldByName(laquo;priseraquo;).AsInteger;.Cells[k,5]:=DM.Prixod2Table.FieldByName(laquo;countraquo;).AsInteger;.Cells[k,6]:=DM.Prixod2Table.FieldByName(laquo;Izmerenieraquo;).AsString;
Sheet.Cells [k, 7]:=DM.Prixod2Table.FieldByName ( ????? ). AsInteger;.Prixod2Table.next;:=K + 1;:=i + 1DM.Prixod2Table.eof; .Cells [k + 1,1]:= + IntToStr (DM.Prixod1Table.FieldByName ( posicij ). AsInteger) ;. Cells [k + 2,1]:= + IntToStr (DM.Prixod1Table.FieldByName ( summa ). AsInteger) ;. Cells [k + 4,1]:=.Cells [k + 4,4]: =; TMainForm.ToolButton81Click (Sender: TObject);.PostavwikTable.First; TMainForm.ToolButton82Click (Sender: TObject) ;. PostavwikTable.Prior; TMainForm.ToolButton83Click (Sender: TObject) ;. PostavwikTable.Next; TMainForm.ToolButton84Click (Sender: TObject) ;. PostavwikTable.Last; TMainForm.ToolButton86Click (Sender: TObject) ;. Caption .Show; TMainForm.ToolButton87Click (Sender: TObject) ;. Caption:=.PostavwikTable.Insert; .Show; TMainForm.ToolButton88Click (Sender: TObject); Application.MessageBox (PChar
???????? !!! , MB_OKCANCEL)=id_OK then .PostavwikTable.Delete; TMainForm.N9Click (Sender: TObject) ;. Visible:=true ;. Pages [6] .Visible:=true; .Pages [6] .TabVisible:=true; .ActivePageIndex:=6 ;; TMainForm.ToolButton90Click (Sender: TObject) ;. Pages [6] .Visible:=false; .Pages [6] .TabVisible:=false ;; TMainForm.DateTimePicker2CloseUp (Sender: TObject) ;. PrixodNaklTable.Edit; .PrixodNaklTable.FieldByName ( date ). AsVariant:=DateTimePicker1.Date; .PrixodNaklTable.Post; TMainForm.Button3Click (Sender: TObject) ;. Show ;; TMainForm.Button4Click (Sender: TObject) ;. Label1.Caption:= 3 raquo ;;. Show ;; TMainForm.N10Click (Sender: TObject) ;. Date:=Today () ; .Visible:=true; .Pages [5] .Visible:=true; .Pages [5] .TabVisible:=true; .ActivePageIndex:=5 ;; TMainForm.ToolButton71Click (Sender: TObject) ;. PrixodNaklTable.First; TMainForm.ToolButton72Click (Sender: TObject) ;. PrixodNaklTable.Prior; TMainForm.ToolButton73Click (Sender: TObject) ;. PrixodNaklTable.Next; TMainForm.ToolButton74Click (Sender: TObject) ;. PrixodNaklTable.Last; TMainForm.ToolButton76Click (Sender: TObject) ; .Caption:=.Label2.Caption:=DM.SaleTable.FieldByName ( key_chek ). AsString; .DBEdit2.Visible:=true; .DBEdit1.Visible:=false; .DBEdit3.Visible:=false ;. Label3.Caption:= 2 raquo ;;. Show; TMainForm.ToolButton77Click (Sender: TObject) ;. PrixodNakl2Table.Insert; .Caption .DBEdit2.Visible:=true; .DBEdit1.Visible:=false; .DBEdit3.Visible: =false; .Label3.Caption:= 2 raquo ;;. Show; TMainForm.BitBtn3Click (Sender: TObject) ;, m, j: integer;, s, s2: string; .FilialTable.Filtered:=false; .FilialTable.Filter:= Filial= + DM.PrixodNaklTable.FieldByName ( kuda ). AsString + raquo ;;. FilialTable.Filtered:=true;:=DM.FilialTable.FieldByName(laquo;key_filialraquo;).AsInteger;.PrixodNakl2Table.First;.XranenieTable.Filtered :=False; .XranenieTable.Filter:= key_filial= + IntToStr (m) + +
and key_tovar= + DM.PrixodNakl2Table.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.PrixodNakl2Table.FieldByName(laquo;countraquo;).AsInteger;.XranenieTable.Post;.XranenieTable.Filtered :=False; .TovarTable.Filtered:=false; .TovarTable.Filter:= key_tovara= + DM.PrixodNakl2Table.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 ). AsStr...
