unit MAIN_DEPOTJH;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MAIN_DATAINPUT, DB, DBTables, Grids, StdCtrls,
  TFlatComboBoxUnit, ComCtrls, DsFancyButton, ExtCtrls,MYSELF,FRMMAIN;

type
  TFrm_main_depotjh = class(TFrm_main_input)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure FormCloseQuery(Sender: TObject; var CanClose: Boolean);
    procedure OKBtnClick(Sender: TObject);
    function User_save():boolean;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main_depotjh: TFrm_main_depotjh;

implementation

{$R *.dfm}

procedure TFrm_main_depotjh.FormCreate(Sender: TObject);
begin
  inherited;
   self.Caption :='倉庫進貨數(shù)據(jù)錄入';
   impsg_data.ColWidths[6]:=-1;
   impsg_data.ColWidths[8]:=-1;
end;

procedure TFrm_main_depotjh.FormShow(Sender: TObject);
begin
  inherited;
   with query_data do
   begin
      close;
      sql.Clear ;
      sql.Text :='select name from depot where setid=999 and type="內(nèi)部"';
      open;
      cb_depot.Items.Clear ;
      cb_depot.Style:=csDropDownList;
      while not eof do
      begin
         CB_depot.Items.add(fieldbyname('name').asstring);
         next;
      end;
      close;
   end;
end;

procedure TFrm_main_depotjh.FormCloseQuery(Sender: TObject;
  var CanClose: Boolean);
var
   T_temp:TModalResult;
begin
  inherited;
   if OKBtn.Enabled then
   begin
      T_temp:=messagedlg(Askmsg0001,mtConfirmation,mbYesnoCancel,0);
      if T_temp=mrYes then
      begin
         if not user_save then
         begin
            messagedlg('【'+cb_depot.text+'】的進貨'+Infmsg0004,mtError,[mbok],0);
            canclose:=false;
         end
         else
         begin
            messagedlg(Infmsg0001,mtInformation,[mbok],0);
            canclose:=true;
         end;
      end
      else if T_temp=mrNo then
         canclose:=true
      else
         canclose:=false;
   end
   else
      canclose:=true;
end;

procedure TFrm_main_depotjh.OKBtnClick(Sender: TObject);
var
   T_temp:TModalResult;
begin
  T_temp:=messagedlg(Askmsg0002+' - 【'+cb_depot.text+'】的進貨數(shù)據(jù)',mtConfirmation,mbOKCancel,0);
  if T_temp=mrOk then
  begin
   if not user_save then
   begin
      messagedlg('【'+cb_depot.text+'】的進貨'+Infmsg0004,mtError,[mbok],0);
   end
   else
   begin
      messagedlg(Infmsg0001,mtInformation,[mbok],0);
      okbtn.Enabled :=false;
      self.close;
   end;
  end;
end;

function TFrm_main_depotjh.User_save():boolean;
var
   I_errordb,I_temp,I_count,I_recordcount:integer;
   S_depotid,S_tempid:string;
begin
   I_errordb:=0;
   I_count:=0;
   S_depotid:='';
   if not Checkrights(USERRIGHTS,'增加') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      result:=false;
      exit;
   end;
   if CB_depot.Text ='' then
   begin
      messagedlg(Errormsg0002+'0002',mtwarning,[mbok],0);
      cb_depot.SetFocus ;
      result:=false;
   end
   else
      result:=true;
   if result then
   begin
      for I_temp:=1 to 99 do              //逐行檢測進貨記錄是否有效
      begin
         if IMPSG_DATA.Cells[1,I_temp]<>'' then           //有效記錄
         begin
            inc(I_count);
            if (IMPSG_DATA.cells[4,I_temp]='') or (IMPSG_DATA.cells[5,I_temp]='') then
            begin
               messagedlg('第'+inttostr(I_temp)+
                  '行記錄的'+Errormsg0002+'0015',mtError,[mbok],0);
               IMPSG_DATA.Row :=I_temp;
               IMPSG_DATA.Col :=4;
               IMPSG_DATA.SetFocus ;
               result:=false;
               exit;
            end;
            try
               strtofloat(IMPSG_DATA.Cells[4,I_temp]);
               strtofloat(IMPSG_DATA.Cells[5,I_temp]);
            except
               messagedlg('第'+inttostr(I_temp)+
                  '行記錄的'+Errormsg0002+'0015',mtError,[mbok],0);
               IMPSG_DATA.Row :=I_temp;
               IMPSG_DATA.Col :=4;
               IMPSG_DATA.SetFocus ;
               result:=false;
               exit;
            end;
         end;
      end;
      if I_count<1 then
      begin
         result:=false;
         messagedlg(Errormsg0008,mtwarning,[mbok],0);
      end;
   end;
   if result then
   begin
      with Query_data do
      begin
         try
            close;
            sql.Clear ;
            sql.Text :='select id from depot where name="'+ cb_depot.Text+'"';
            open;
            S_depotid:=fieldbyname('id').AsString ;
            close;
            for I_temp:=1 to 99 do
            begin
               if IMPSG_DATA.Cells[1,I_temp]<>'' then           //有效記錄
               begin
                  I_errordb:=2;
                  close;
                  sql.clear;
                  //記錄進貨記錄
                  sql.text:='insert into stockrecord (depotid,goodsid,number,mydate,id,memo,price)'+
                         'values ("'+S_depotid+'","'+IMPSG_DATA.Cells[1,I_temp]+'",'
                         +IMPSG_DATA.cells[4,I_temp]+',"'+formatdatetime('yyyy-mm-dd',DTP_date.DateTime)
                         +'","'+Nowindex+'-'+inttostr(I_temp)+'","'
                         + IMPSG_DATA.cells[9,i_temp]+'",'+IMPSG_DATA.cells[5,I_temp]+')';
                  execsql;
                  close;
                  I_errordb:=1;
                  sql.clear;
                  sql.text:='select id,number from kccount where depotid='''+
                              S_depotid+''' and goodsid='''+ IMPSG_DATA.Cells[1,I_temp]+'''';
                  open;
                  //進貨倉庫統(tǒng)計
                  S_tempid:=fieldbyname('id').asstring;
                  I_count:=fieldbyname('number').AsInteger+strtoint(IMPSG_DATA.cells[4,I_temp]);
                  I_recordcount:=recordcount;
                  close;
                  //更新數(shù)據(jù)
                  I_errordb:=3;
                  sql.Clear ;
                  if (I_recordcount>0) and (S_tempid<> '') then
                     sql.text:='update kccount set number='+inttostr(I_count)+',price='+IMPSG_DATA.cells[5,I_temp]
                              +' where id='''+s_tempid+''''
                  else
                     sql.text:='insert into kccount (depotid,goodsid,number,price,id,memo)'
                            +' values ("'+S_depotid+'","'
                            +IMPSG_DATA.Cells[1,I_temp]+'",'+IMPSG_DATA.cells[4,I_temp]+','
                            +IMPSG_DATA.cells[5,I_temp]+',"'+Nowindex+'-'+inttostr(I_temp)+'","'
                            + IMPSG_DATA.cells[9,i_temp]+'")';
                  execsql;
                  close;
               end;
            end;
         except
            result:=false;
            if I_errordb=1 then
               messagedlg(Errormsg0001+'0019',mtwarning,[mbok],0)
            else if I_errordb=2 then
               messagedlg(Errormsg0004+'0021',mtwarning,[mbok],0)
            else if I_errordb=3 then
               messagedlg(Errormsg0004+'0016',mtwarning,[mbok],0)
            else
               messagedlg(Errormsg0001+'0000',mtwarning,[mbok],0);
            close;
            exit;
         end;
         close;
      end;
   end;
end;

end.