qc_reclaim_c.pas

一个MRPII系统源代码版本

unit Qc_Reclaim_C;

Interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  Base_Condition, Mask, StdCtrls, ExtEdit, Db, AdODB;

Type
  TFrm_Qc_Reclaim_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Lbl_VendorName: TLabel;
    Label6: TLabel;
    Label5: TLabel;
    Label7: TLabel;
    lbl_ItemName: TLabel;
    ExtEdt_VendorCode: TExtEdit;
    Medt_CheckDate: TMaskEdit;
    edt_ItemCode: TExtEdit;
    Label8: TLabel;
    procedure Medt_CheckDateExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    procedure SetDBConnect(AdOConnection:TAdOConnection);Override;  
    { Public declarations }
  end;

var
  Frm_Qc_Reclaim_C: TFrm_Qc_Reclaim_C;

implementation
uses Sys_Global,Inv_Global, Qc_CheckResult, Qc_Reclaim;
{$R *.DFM}

procedure TFrm_Qc_Reclaim_C.Medt_CheckDateExit(Sender: TObject);
begin
  inherited;
  if ActiveControl.Name='btn_Cancel' then
  Exit;
  DateCheck(Sender);
end;

procedure TFrm_Qc_Reclaim_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConditionHint:='';
  if ExtEdt_VendorCode.text<>'' then
  begin
    Condition:=' (OnCheckBill.VendorCode='''+Trim(ExtEdt_VendorCode.Text)+''')';
    ConditionHint:=ConditionHint+'  供应商：'+Lbl_VendorName.Caption;
  end;
//by johnson
  if edt_ItemCode.Text<>'' then
  begin
    if condition<>'' then
    condition:=condition+' and (OnCheckBillLine.ItemCode like '''+Trim(edt_ItemCode.text)+'%'+''')'
    else
    condition:=condition+' (OnCheckBillLine.ItemCode like '''+Trim(edt_ItemCode.text)+'%'+''')';
    conditionHint:=conditionHint+' 物料代码：'+lbl_ItemName.Caption;
  end;
  if condition<>'' then
  Condition:=Condition+' and (OnCheckBill.OnCheckDate>='''+Trim(Medt_CheckDate.Text)+''')'
  else
  Condition:=Condition+' (OnCheckBill.OnCheckDate>='''+Trim(Medt_CheckDate.Text)+''')';
  ConditionHint:=ConditionHint+'  到货日期起始于： '+Trim(Medt_CheckDate.Text);
  Condition:=Condition+' and (OnCheckBillLine.OnCheckStatus=''1'') and (OnCheckBillLine.QcStatus=2)';
  ConditionHint:=ConditionHint+' 质量状态：拒收 ';
  ModalResult:=Mrok;
  Frm_Qc_Reclaim.ChangeGridStatus(False);
  Frm_Qc_Reclaim.Act_Check.Enabled:=True;
end;

procedure TFrm_Qc_Reclaim_C.SetDBConnect(AdOConnection: TAdOConnection);
begin
  inherited;
end;

procedure TFrm_Qc_Reclaim_C.FormActivate(Sender: TObject);
begin
  inherited;
  Medt_CheckDate.Text:=FormatDateTime('yyyy.mm.dd',Now);
  ExtEdt_VendorCode.SetFocus;
end;

end.