{*******************************************************}
{                                                       }
{            零枚出庫計劃單——查詢條件模塊             }
{                                                       }
{            中軟金馬公司版權所有。2002.06              }
{                                                       }
{                   編制：侯華敏                        }
{                                                       }
{                                                       }
{*******************************************************}

(*==============================================================================

程序說明：
    1.  用記錄型指針PRec_CKJH保存查詢條件，默認查詢一周內的計劃分配單；
    2.  Show_Condition(A_CKJH: PRec_CKJH); 用來傳遞查詢條件；
    3.  本模塊在省級零枚票管理模塊 計劃管理部分 由單品種多去向出庫計劃單制定菜單調用的 零枚出庫計劃單制定模塊 調用
侯華敏  2002.06.

===============================================================================*)


unit Sy_CK_LMP_Sele;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, Buttons, Mask, ToolEdit;

type
  {復選框的選中與相應的列表框或者文本框的內容}
  TRec_Text = record
    Checked: Boolean;
    Index: Integer;
    Text: string;
  end;

  {復選框的選中與與相應的日期起止}
  TRec_Date = record
    Checked: Boolean;
    FromDate: TDate;
    ToDate: TDate;
  end;

  {出庫計劃分配單查詢條件}
  PRec_CKJH = ^TRec_CKJH;
  TRec_CKJH = record
    JHDH: TRec_Text;                                        {計劃號}
    RQ: TRec_Date;                                          {制定日期}
    SQL: string;
  end;

  TFrm_Sy_CK_LMP_Sele = class(TForm)
    gb_box: TGroupBox;
    Label1: TLabel;
    Label2: TLabel;
    chk_JHDH: TCheckBox;
    edt_JHDH: TEdit;
    chk_RQ: TCheckBox;
    DateEdt_FromDate: TDateEdit;
    DateEdt_ToDate: TDateEdit;
    bbtn_OK: TBitBtn;
    bbtn_Cancel: TBitBtn;
    procedure bbtn_OKClick(Sender: TObject);
    procedure chk_JHDHClick(Sender: TObject);
    procedure chk_RQClick(Sender: TObject);
  private
    { Private declarations }
  public
    procedure Show_Condition(A_CKJH: PRec_CKJH);
    { Public declarations }
  end;

var
  Frm_Sy_CK_LMP_Sele: TFrm_Sy_CK_LMP_Sele;

implementation

{$R *.DFM}

var
  VL_CKJH: PRec_CKJH;                                       {計劃單——查詢條件}

  { TFrm_Sy_CK_LMP_Sele }

{-------------------------------------------------------------------------------}
{查詢條件}
procedure TFrm_Sy_CK_LMP_Sele.Show_Condition(A_CKJH: PRec_CKJH);
begin
  VL_CKJH := A_CKJH;

  with vl_CKJH^ do
  begin
    chk_JHDH.Checked := JHDH.Checked;                       {計劃單}
    edt_JHDH.Text := JHDH.Text;
    chk_RQ.Checked := RQ.Checked;                           {起止日期}
    DateEdt_FromDate.Date := RQ.FromDate;
    DateEdt_ToDate.Date := RQ.ToDate;
  end;
end;

{-------------------------------------------------------------------------------}
{計劃分配單號輸入}
procedure TFrm_Sy_CK_LMP_Sele.chk_JHDHClick(Sender: TObject);
begin
  edt_JHDH.Enabled := chk_JHDH.Checked;
end;

{-------------------------------------------------------------------------------}
{制單日期的選中}
procedure TFrm_Sy_CK_LMP_Sele.chk_RQClick(Sender: TObject);
begin
  DateEdt_FromDate.Enabled := chk_RQ.Checked;
  DateEdt_ToDate.Enabled := chk_RQ.Checked;
end;

{===============================================================================}
{確認所選擇的條件}
procedure TFrm_Sy_CK_LMP_Sele.bbtn_OKClick(Sender: TObject);
var
  l_sql: string;
begin
  {生成sql語句}
  l_sql := '  select distinct c.TYPE, b.CKJHDH, b.CKXZ, ''分配出庫'' CKXZMC, b.ZBR, b.PZR, b.ZDRQ, b.BZ, b.ZT, c.ZH, a.PPMC ' +
    ' from TYS_TXCKJHDPPB a, TYS_TXPCKJHDB b, TB_YZPPXXB c where a.CKJHDH = b.CKJHDH and a.PPDM = c.TDM and b.CKXZ= ''10'' and b.CKJHDH like ''TX%'' ';

  if chk_JHDH.Checked then                                  {計劃單號}
    l_sql := l_sql + '  and  b.CKJHDH like ' + QuotedStr('%' + edt_JHDH.Text + '%');

  if chk_Rq.Checked then                                    {制表日期}
    l_sql := l_sql + ' and  ( b.ZDRQ between  to_date( ' +
      QuotedStr(DateToStr(DateEdt_FromDate.Date)) + ',' + QuotedStr('YYYY/MM/DD') + ')  and to_date( ' +
      QuotedStr(DateToStr(DateEdt_ToDate.Date)) + ',' + QuotedStr('YYYY/MM/DD') + ')  )';

  l_sql := l_sql + ' order by b.CKJHDH ';

  with vl_CKJH^ do
  begin
    JHDH.Checked := chk_JHDH.Checked;                       {計劃單號模糊查詢}
    JHDH.Text := edt_JHDH.Text;
    RQ.Checked := chk_RQ.Checked;                           {起止日期}
    RQ.FromDate := DateEdt_FromDate.Date;
    RQ.ToDate := DateEdt_ToDate.Date;
    SQL := l_sql;
  end;

  ModalResult := mrOK;
end;

end.