unit pfm_fdtcdok;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Db, DBTables, ComCtrls, Grids, DBGrids, ExtCtrls, DBCtrls, StdCtrls, Mask,
  Buttons, pvar_lib;

type
  Tfm_fdtcdok = class(TForm)
    DataSource1: TDataSource;
    Query1: TQuery;
    GroupBox1: TGroupBox;
    TV1: TTreeView;
    DBGrid1: TDBGrid;
    GroupBox2: TGroupBox;
    Label1: TLabel;
    DBEdit1: TDBEdit;
    BBtnRevise: TBitBtn;
    Label2: TLabel;
    BBtnThd: TBitBtn;
    DBEdit2: TDBEdit;
    Splitter1: TSplitter;
    Label3: TLabel;
    SProc1: TStoredProc;
    Label4: TLabel;
    Edit1: TEdit;
    Label5: TLabel;
    Edit2: TEdit;
    DateTimePicker1: TDateTimePicker;
    Label6: TLabel;
    Label7: TLabel;
    TabfdThd: TTable;
    BatMove1: TBatchMove;
    Query2: TQuery;
    Table1: TTable;
    DataSource2: TDataSource;
    CbBox1: TComboBox;
    Query2id: TIntegerField;
    Query2fdmc: TStringField;
    Query2spbm: TStringField;
    Query2sptxm: TStringField;
    Query2spnum: TFloatField;
    Query2oldspnum: TFloatField;
    Query2spmc: TStringField;
    Query2ckmc: TStringField;
    Query2djhm: TStringField;
    Query2rq: TDateTimeField;
    Query2jsrm: TStringField;
    procedure FormCreate(Sender: TObject);
    procedure BBtnReviseClick(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BBtnThdClick(Sender: TObject);
    procedure TV1Click(Sender: TObject);
    procedure DBGrid1DrawDataCell(Sender: TObject; const Rect: TRect;
      Field: TField; State: TGridDrawState);
    procedure Query2AfterOpen(DataSet: TDataSet);
    procedure Table1AfterPost(DataSet: TDataSet);
    procedure CbBox1Change(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fm_fdtcdok: Tfm_fdtcdok;

implementation

uses pfm_fdthdselck;

{$R *.DFM}
var
CompFdmc:TstringList;
GridColName:Tstringlist;
thdLsh:integer;
procedure Tfm_fdtcdok.FormCreate(Sender: TObject);
var
tvnoderoot:TTreeNode;
//i:integer;
begin
    CompFdmc:=TStringlist.create;
    GridColName:=TStringlist.create;
    GridColName.add('fdmc=分店名稱');
    GridColName.add('spbm=商品編碼');
    GridColName.add('sptxm=商品條形碼');
    GridColName.add('spnum=確認(rèn)退倉(cāng)商品數(shù)量');
    GridColName.add('oldspnum=退倉(cāng)商品數(shù)量');
    GridColName.add('spmc=商品名稱');
    GridColName.add('jsrm=經(jīng)辦人碼');
    GridColName.add('rq=日期');
    GridColName.add('ckmc=倉(cāng)庫(kù)名稱');
    GridColName.add('djhm=單據(jù)號(hào)碼');
    query1.SQL.add('select fdmc,fdset from t_fendianxx');
    query1.open;
    tvnoderoot:=TV1.Items.add(nil,'全部分店');
    compFdmc.add('全部分店=all');
    while not query1.Eof do
    begin
        TV1.Items.Addchild(tvnoderoot,query1.fieldbyname('fdmc').asstring);
        compFdmc.add(query1.fieldbyname('fdmc').asstring + '='+query1.fieldbyname('fdset').asstring);
        query1.Next;

    end;
    query1.active:=false;
    query1.sql.clear;
    query1.SQL.add('select ckmc from t_ckxx');
    query1.open;
    while not query1.Eof do
    begin
        cbbox1.items.add(query1.fieldbyname('ckmc').asstring);
        query1.next;
    end;

   //利用存儲(chǔ)過(guò)程取得提貨單的最大流水號(hào)

    sproc1.Prepare;
    SProc1.Params[1].value:='tb_mdtcd';
    Sproc1.ExecProc;
    thdLsh:=sproc1.Params[2].value+1;
    sproc1.UnPrepare;
    edit1.text:=inttostr(thdlsh);


end;




procedure Tfm_fdtcdok.BBtnReviseClick(Sender: TObject);
begin
   if table1.State=dsEdit then
    begin
        table1.post;
   end;
end;

procedure Tfm_fdtcdok.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    CompFdmc.free;
    GridColName.free;
    Action:=CaFree;
end;

procedure Tfm_fdtcdok.BBtnThdClick(Sender: TObject);
var
cnt:integer;
thnum:integer;
sptxm:string;
spbm,djhm:string;
fdset:string;
dbfile:string;
i:integer;
begin
    if length(edit2.text)=0 then
    begin
        showmessage('請(qǐng)選擇分店');
        exit;
    end;

    cnt:=0;
    query2.First;
    while not query2.Eof do
    begin
        if query2.FieldByName('spnum').asinteger>query2.FieldByName('oldspnum').asinteger then
        begin
            showmessage('確認(rèn)退倉(cāng)商品['+query2.FieldByName('spmc').asstring
            +']不能大于原來(lái)的退倉(cāng)商品數(shù)量');
            exit;
        end;
        cnt:=cnt+1;
        query2.Next;
    end;
    label3.caption:='退倉(cāng)商品種類共'+inttostr(cnt)+'種';
    if cnt=0 then exit;
    //生成退倉(cāng)單和退倉(cāng)單明細(xì)
    query1.sql.clear;
    query1.SQL.add('insert into tb_mdtcd(lsh,ckmc,thfd,rq) values('+
    inttostr(thdlsh)+','''+cbbox1.text+''','''+edit2.text+''','''+datetostr(now())+''')');
    query1.ExecSQL;
    query1.close;
    query2.First;
    while not query2.Eof do
    begin
        sptxm:=query2.FieldByName('sptxm').asstring;
        spbm:=query2.FieldByName('spbm').asstring;
        thnum:=query2.FieldByName('spnum').asinteger;
        djhm:=query2.FieldByName('djhm').asstring;
        if thnum=0 then continue;
        query1.SQL.clear;
        query1.sql.Add('insert into tb_mdtcdmx(lsh,spbm,sptxm,tcnum,djhm) values('+inttostr(thdlsh)+','''+spbm+''','''+sptxm+''','+inttostr(thnum)+','''+djhm+''')');
        query1.ExecSQL;
        query1.close;
        query2.Next;
    end;

    fdset:=CompFdmc.Values[edit2.Text];
    dbfile:='comdata\retfddata\retfdtcd'+fdset+'.db';
    batmove1.mode:=batCopy;
    if fileExists(dbfile) then
    begin
        if application.messagebox(pchar(tv1.Selected.Text+'的退倉(cāng)單還沒(méi)傳送出去，是追加新紀(jì)錄按YES,覆蓋按NO'),
        pchar('生成確認(rèn)退倉(cāng)單'),MB_YESNO)=IDYES then
        begin
            batmove1.Mode:=batAppend;
        end;
    end;

   tabFdthd.tablename:=dbfile;

   //保存提貨內(nèi)容到dbf文件中
   batmove1.Source:=query2;
   Batmove1.Execute;
   query2.active:=false;
   query1.sql.Clear;
   query1.sql.add('delete from tab_fdtcd where fdmc='''+edit2.text+''' and ckmc='''+cbbox1.text+'''');
   query1.ExecSQL;
   query1.close;
   query2.active:=true;
   dbgrid1.Refresh;
   for i:=0 to dbgrid1.columns.count-1 do
    begin
        dbgrid1.columns[i].Title.caption:=GridColName.values[dbgrid1.columns[i].FieldName];
    end;
    AddOptRecord('生成分店退貨確認(rèn)單:流水號(hào)('+inttostr(thdlsh)+'),倉(cāng)庫(kù)代碼('+cbbox1.text+'),分店代碼('+edit2.text+')');
end;
procedure Tfm_fdtcdok.TV1Click(Sender: TObject);
begin
    if tv1.selected.Level=1 then
    begin
        query2.Filter:='fdmc='''+tv1.selected.Text+'''';
        query2.Filtered:=true;
        edit2.text:=tv1.selected.text;
    end
    else
    begin
        edit2.text:='';
    end;

end;

procedure Tfm_fdtcdok.DBGrid1DrawDataCell(Sender: TObject;
  const Rect: TRect; Field: TField; State: TGridDrawState);
begin
{    if lowercase(field.fieldName)='spnum' then
    begin
         if field.AsInteger<=query2.Fieldbyname('stocknum').asinteger then
            (sender as tdbgrid).Canvas.Font.Color:=clGreen

         else
            (sender as tdbgrid).Canvas.Font.Color:=clRed;
    end;
     (sender as tdbgrid).DefaultDrawDataCell(Rect, Field, State);   }
 //如果確認(rèn)數(shù)量大于庫(kù)存數(shù)量
    if (query2.fieldbyname('spnum').asfloat<>query2.fieldbyname('oldspnum').asfloat) and (not(gdselected in state)) then
    begin
        (sender as tdbgrid).Canvas.Brush.Color:=RGB(219,253,253);
        (sender as tdbgrid).Canvas.font.Color:=clred;
    end;
     (sender as tdbgrid).DefaultDrawDataCell(Rect, Field, State);
end;

procedure Tfm_fdtcdok.Query2AfterOpen(DataSet: TDataSet);
var
i:integer;
begin
   for i:=0 to dbgrid1.columns.count-1 do
    begin
        dbgrid1.columns[i].Title.caption:=GridColName.values[dbgrid1.columns[i].FieldName];
    end;
end;

procedure Tfm_fdtcdok.Table1AfterPost(DataSet: TDataSet);
var
i:integer;
begin
    query2.close;
    query2.open;
    for i:=0 to dbgrid1.columns.count-1 do
    begin
        dbgrid1.columns[i].Title.caption:=GridColName.values[dbgrid1.columns[i].FieldName];
    end;
    
        //dbgrid1.Refresh;
end;

procedure Tfm_fdtcdok.CbBox1Change(Sender: TObject);
var
i:integer;
begin
   table1.Close;
   query2.close;
   query2.ParamByName('ckmc').asstring:=cbbox1.text;
   query2.Open;
   table1.Open;
 {  for i:=0 to dbgrid1.columns.count-1 do
    begin
        dbgrid1.columns[i].Title.caption:=GridColName.values[dbgrid1.columns[i].FieldName];
    end;}
end;

end.