unit MAIN_QUERY_SCJHMX;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, MAIN_QUERY, DB, DBTables, ComCtrls, StdCtrls, TFlatComboBoxUnit,
  TFlatSpeedButtonUnit, Grids, DBGrids, DsFancyButton, ExtCtrls,myself,frmmain;

type
  TFrm_main_query_scjhmx = class(TFrm_main_query)
    procedure FormCreate(Sender: TObject);
    procedure FormShow(Sender: TObject);
    procedure SB_queryClick(Sender: TObject);
    procedure SB_printClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_main_query_scjhmx: TFrm_main_query_scjhmx;

implementation

uses PRINT_SCJHMX, PRINT_TEMP;

{$R *.dfm}

procedure TFrm_main_query_scjhmx.FormCreate(Sender: TObject);
begin
  inherited;
   self.Caption :='商場進貨明細';
   with query_temp do
   begin
      close;
      sql.Clear ;
      sql.Text :='select name from depot where setid=999 and type="外部"';
      open;
      CB_depot.Items.Clear ;
      CB_depot.Style :=csDropDownList;
      CB_depot.Items.Add('所有');
      while not eof do
      begin
         CB_depot.Items.add(fieldbyname('name').asstring);
         next;
      end;
      close;
   end;
end;

procedure TFrm_main_query_scjhmx.FormShow(Sender: TObject);
begin
  inherited;
   SB_query.Click ;
end;

procedure TFrm_main_query_scjhmx.SB_queryClick(Sender: TObject);
begin
  inherited;
   if not Checkrights(USERRIGHTS,'查看') then
   begin
      messagedlg(Errormsg0006+'0007',mterror,[mbok],0);
      exit;
   end;
   with query_data do
   begin
      close;
      sql.Clear ;
      if (cb_depot.Text ='') or (CB_depot.Text ='所有') then
         sql.Text :=' SELECT Depot.NAME Depotname,Stockrecord.MYDATE,Goodsmessage.NAME goodsname,'
               +' Goodsmessage.TYPE, Goodsmessage.UNIT, (Stockrecord.NUMBER) NUMBER,(Stockrecord.PRICE) JHDJ,'
               +' ( Stockrecord.NUMBER * Stockrecord.PRICE  ) PRICE,Stockrecord.MEMO'
               +' FROM Stockrecord'
               +' INNER JOIN Depot ON  (Stockrecord.DEPOTID = Depot.ID)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Stockrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (DEPOT.type="外部")'
               +' AND (Stockrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Stockrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' UNION ALL'
               +' SELECT Depot.NAME Depotname,Threcord.MYDATE,Goodsmessage.NAME goodsname,'
               +' Goodsmessage.TYPE, Goodsmessage.UNIT, (0-Threcord.NUMBER) NUMBER,(Threcord.PRICE) JHDJ,'
               +' ( (0 - Threcord.NUMBER) * Threcord.PRICE  ) PRICE,Threcord.MEMO'
               +' FROM Threcord'
               +' INNER JOIN Depot ON  (Threcord.DEPOTID = Depot.ID)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Threcord.GOODSID = Goodsmessage.ID)'
               +' WHERE (DEPOT.type="外部")'
               +' AND (Threcord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Threcord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' ORDER BY Depot.NAME,MYDATE'
      else
         sql.Text :=' SELECT Depot.NAME Depotname,Stockrecord.MYDATE,Goodsmessage.NAME goodsname,'
               +' Goodsmessage.TYPE, Goodsmessage.UNIT, (Stockrecord.NUMBER) NUMBER,(Stockrecord.PRICE) JHDJ,'
               +' ( Stockrecord.NUMBER * Stockrecord.PRICE  ) PRICE,Stockrecord.MEMO'
               +' FROM Stockrecord'
               +' INNER JOIN Depot ON  (Stockrecord.DEPOTID = Depot.ID)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Stockrecord.GOODSID = Goodsmessage.ID)'
               +' WHERE (DEPOT.name="'+cb_DEPOT.Text +'")'
               +' AND (Stockrecord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Stockrecord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' UNION ALL'
               +' SELECT Depot.NAME Depotname,Threcord.MYDATE,Goodsmessage.NAME goodsname,'
               +' Goodsmessage.TYPE, Goodsmessage.UNIT, (0-Threcord.NUMBER) NUMBER,(Threcord.PRICE) JHDJ,'
               +' (( 0 - Threcord.NUMBER) * Threcord.PRICE  ) PRICE,Threcord.MEMO'
               +' FROM Threcord'
               +' INNER JOIN Depot ON  (Threcord.DEPOTID = Depot.ID)'
               +' INNER JOIN Goodsmessage'
               +' ON  (Threcord.GOODSID = Goodsmessage.ID)'
               +' WHERE (DEPOT.name="'+cb_DEPOT.Text +'")'
               +' AND (Threcord.mydate>="'+formatdatetime('yyyy-mm-dd',DTP_begin.DateTime)+'")'
               +' AND (Threcord.mydate<="'+formatdatetime('yyyy-mm-dd',dtp_end.DateTime)+'")'
               +' ORDER BY Depot.NAME,MYDATE';
      try
         open;
      except
         messagedlg(Errormsg0001+'0010+0012+0020+0025',mtError,[mbok],0);
         close;
      end;
   end;
end;

procedure TFrm_main_query_scjhmx.SB_printClick(Sender: TObject);
begin
  inherited;
   try
      Application.CreateForm(TFrm_print_scjhmx, Frm_print_scjhmx);
      Application.CreateForm(TFrm_print_temp, Frm_print_temp);
   except
      messagedlg(Errormsg0011,mtError,[mbok],0);
      exit;
   end;
   Frm_print_scjhmx.QuickRep_scjhmx.preview;
   Frm_print_scjhmx.Free ;
   Frm_print_temp.Free ;
end;

end.