inv_opoutsale_c.pas

一个MRPII系统源代码版本

// 
unit Inv_OpOutSale_C;
//委外加工领料条件单元
Interface

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

Type
  TFrm_Inv_OpOutSale_C = Class(TFrm_Base_Condition)
    Label1: TLabel;
    Label2: TLabel;
    Lbl_VendorName: TLabel;
    ExtEdt_VendorCode: TExtEdit;
    procedure FormActivate(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Frm_Inv_OpOutSale_C: TFrm_Inv_OpOutSale_C;

implementation

{$R *.DFM}

procedure TFrm_Inv_OpOutSale_C.FormActivate(Sender: TObject);
begin
  inherited;
  ExtEdt_VendorCode.SetFocus;
end;

procedure TFrm_Inv_OpOutSale_C.btn_okClick(Sender: TObject);
begin
  inherited;
  Condition:='';
  ConDitionHint:='';
  if ExtEdt_VendorCode.Text<>'' then
  begin
  Condition:='PO.VendorCode='''+Trim(ExtEdt_VendorCode.Text)+''' and poline.POLineStatus<>7 ';
  ConditionHint:=ConditionHint+'供应商:'+Lbl_VendorName.Caption;
  end
  else
  begin
    Condition:=' poline.POLineStatus<>7 ';
    ConditionHint:='无';
  end;
  ModalResult:=MrOk;
end;

end.