sal_enter_saleorder_d.pas

一个MRPII系统源代码版本

unit Sal_Enter_SaleOrder_D;

Interface

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

Type
  TFrm_Sal_Enter_SaleOrder_D = Class(TFrm_Base_Entry_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Edt_SloLineNo: TEdit;
    Edt_SloQty: TEdit;
    Edt_TaxPrice: TEdit;
    Edt_TaxAmount: TEdit;
    Edt_NoTaxPrice: TEdit;
    Edt_NoTaxAmount: TEdit;
    Edt_SloLineRemArk: TEdit;
    Lab_ItemName: TLabel;
    Label14: TLabel;
    Cmb_SloLineStatus: TComboBox;
    MEdt_SloLineDate: TMaskEdit;
    Label13: TLabel;
    Edt_DiSCountRate: TEdit;
    Edt_DiSCountAmount: TEdit;
    Label16: TLabel;
    Label17: TLabel;
    MEdt_LastOperationTime: TMaskEdit;
    Edt_PrepareShipQty: TEdit;
    Label15: TLabel;
    Edt_ShipQty: TEdit;
    Edt_ItemName: TEdit;
    ExtEdt_ItemCode: TLinkEdit;
    Label3: TLabel;
    Label18: TLabel;
    edt_Shipdays: TEdit;
    procedure ExtEdt_ItemCodeExit(Sender: TObject);
    procedure Edt_SloQtyExit(Sender: TObject);
    procedure Edt_TaxPriceExit(Sender: TObject);
    procedure Edt_NoTaxPriceExit(Sender: TObject);
    procedure Edt_DiSCountRateExit(Sender: TObject);
    procedure ExtEdt_ItemCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure MEdt_SloLineDateExit(Sender: TObject);
    procedure btn_okClick(Sender: TObject);
    procedure ExtEdt_ItemCodeButtonClick(Sender: TObject);
  private
    UomName:String;  //记录当前单位
    { Private declarations }
  public
    LineNo:Integer;//行号
    procedure InitControls; Override;
    procedure SaveBodyData; Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String);Override;
    { Public declarations }
  end;

var
  Frm_Sal_Enter_SaleOrder_D: TFrm_Sal_Enter_SaleOrder_D;

implementation

uses Sys_Global, Sal_Enter_SaleOrder;

{$R *.DFM}

{ TFrm_Sal_Enter_SaleOrder_D }

procedure TFrm_Sal_Enter_SaleOrder_D.InitControls;
begin
  If (status='Add') Then
    SetFocus_Control:=ExtEdt_ItemCode
  Else
    SetFocus_Control:=MEdt_SloLineDate;
  Inherited;
  with AdoQry_Body do
  begin
    ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    Lab_ItemName.Caption:=fieldbyname('ItemName').AsString;
    Edt_ItemName.Text:=fieldbyname('ItemName').AsString;    
    UomName:=fieldbyname('UomName').AsString;
    If (Status='Add') then
    begin
      LineNo:=LineNo+1;
      Edt_SloLineNo.Text := inttostr(LineNo);
      MEdt_SloLineDate.Text:=Formatdatetime('yyyy.mm.dd',date);
      Edt_SloQty.Text:='0';
      Edt_ShipQty.Text:='0';
      Edt_PrepareShipQty.Text:='0';
      MEdt_LastOperationTime.Text:=Formatdatetime('yyyy.mm.dd',date);
      edt_Shipdays.Text:='0';
      Edt_TaxPrice.Text:='0';
      Edt_TaxAmount.Text:='0';
      Edt_NoTaxPrice.Text:='0';
      Edt_NoTaxAmount.Text:='0';
      Edt_DiSCountRate.Text:='0';
      Edt_DiSCountAmount.Text:='0';
      Edt_SloLineRemArk.Text:='';
      Cmb_SloLineStatus.ItemIndex :=0;
    end
    else
    begin
      Edt_SloLineNo.Text:= fieldbyname('SloLineNo').AsString;
      MEdt_SloLineDate.Text:= fieldbyname('SloLineDate').AsString;
      Edt_SloQty.Text:=fieldbyname('SloQty').AsString;
      Edt_ShipQty.Text:=fieldbyname('ShipQty').AsString;
      Edt_PrepareShipQty.Text:=fieldbyname('PrepareShipQty').AsString;
      MEdt_LastOperationTime.Text:=fieldbyname('LastOperationTime').AsString;
      edt_Shipdays.Text:=fieldbyname('Shipdays').asstring;
      Edt_TaxPrice.Text:=fieldbyname('TaxPrice').AsString;
      Edt_TaxAmount.Text:=fieldbyname('TaxAmount').AsString;
      Edt_NoTaxPrice.Text:=fieldbyname('NoTaxPrice').AsString;
      Edt_NoTaxAmount.Text:=fieldbyname('NoTaxAmount').AsString;
      Edt_DiSCountRate.Text:=fieldbyname('DiSCountRate').AsString;
      Edt_DiSCountAmount.Text:=fieldbyname('DiSCountAmount').AsString;
      Edt_SloLineRemArk.Text:=fieldbyname('SloLineRemArk').AsString;
      Cmb_SloLineStatus.ItemIndex :=fieldbyname('SloLineStatus').AsInteger-5;
    end;
  end;
end;

procedure TFrm_Sal_Enter_SaleOrder_D.SaveBodyData;
begin
  If Status='Add' Then
    AdoQry_Body.Append
  Else
    AdoQry_Body.Edit;
  with AdoQry_Body do
  begin
    fieldbyname('SloCheck').AsInteger:=IIFInteger(Status='Add',1,0);
    fieldbyname('SloLineNo').Asstring:=Trim(Edt_SloLineNo.Text);
    fieldbyname('ItemCode').AsString:=Trim(ExtEdt_ItemCode.Text);
    fieldbyname('ItemName').AsString:=Lab_ItemName.Caption;
    fieldbyname('SloLineDate').AsString:=MEdt_SloLineDate.Text;
    fieldbyname('SloQty').AsString:=Edt_SloQty.Text;
    fieldbyname('Shipdays').asinteger:=strtoint(Trim(edt_Shipdays.text));
    fieldbyname('TaxPrice').AsString:=Edt_TaxPrice.Text;
    fieldbyname('TaxAmount').AsString:=Edt_TaxAmount.Text;
    fieldbyname('NoTaxPrice').AsString:=Edt_NoTaxPrice.Text;
    fieldbyname('NoTaxAmount').AsString:=Edt_NoTaxAmount.Text;
    fieldbyname('DiSCountRate').AsString:=Edt_DiSCountRate.Text;
    fieldbyname('DiSCountAmount').AsString:=Edt_DiSCountAmount.Text;
    fieldbyname('SloLineRemArk').AsString:=Edt_SloLineRemArk.Text;
    fieldbyname('ShipQty').AsString:=Edt_ShipQty.Text;
  //  fieldbyname('PrepareShipQty').AsString:=Edt_PrepareShipQty.Text;
 //   fieldbyname('LastOperationTime').AsString:=MEdt_LastOperationTime.Text;
    If (Status='Add') Then
      fieldbyname('SloLineStatus').AsInteger:=5
    else
      fieldbyname('SloLineStatus').AsInteger:= Cmb_SloLineStatus.ItemIndex+5;

    fieldbyname('UomName').AsString:=UomName;
    Post;
  end;

end;


procedure TFrm_Sal_Enter_SaleOrder_D.SetStatus(CurrentStatus: String;
  var EnableControls: String);
begin
  inherited;
  if(CurrentStatus='Add')then
    EnableControls:=' ExtEdt_ItemCode,MEdt_SloLineDate,Edt_SloQty,'
                   +' Edt_DiSCountRate,Edt_DiSCountAmount,Edt_SloLineRemArk,'
  else
    EnableControls:=' ExtEdt_ItemCode,MEdt_SloLineDate,Edt_SloQty,edt_Shipdays,'
                   +' Edt_DiSCountRate,Edt_DiSCountAmount,Edt_SloLineRemArk,' ;
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:='Select SalePriceContrl From Customer Where  CustomerCode='''+CustomerCode+''' ';
  AdoQry_Tmp.Open;
  if  AdoQry_Tmp.fieldbyname('SalePriceContrl').AsInteger =0 then
  begin
    EnableControls:=EnableControls+'Edt_TaxPrice,Edt_NoTaxPrice,'
  end;
end;

procedure TFrm_Sal_Enter_SaleOrder_D.ExtEdt_ItemCodeExit(Sender: TObject);
var
  SqlText:String;
begin
  inherited;
  If ActiveControl.Name='btn_Cancel' Then
    Exit;
  SqlText:=' Select * from Item where ItemUsable=1 And ItemType=0 And ItemCode='''+Trim(ExtEdt_ItemCode.Text)+'''';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.clear;
  AdoQry_Tmp.SQL.Text :=SqlText;
  AdoQry_Tmp.Open;
  if  AdoQry_Tmp.Eof then
  begin
    DispInfo('该物料无效，不能输入！',3);
    TwinControl(sender).setfocus;
    Abort;
  end;
  SqlText:=' Select Item.ItemName,UomName '
          +' From Item '
          +' Left Outer Join Uom On Item.UomCode=Uom.UomCode '
          +' Where ItemCode='+''''+Trim(ExtEdt_ItemCode.Text)+''''
          +'   and CanSale=1 ';
  AdoQry_Tmp.Close;
  AdoQry_Tmp.SQL.Text:=SqlText;
  AdoQry_Tmp.Open;
  If AdoQry_Tmp.Eof Then
  begin
    DispInfo('输入了错误的物料代码，请重新输入!',3);
    TWincontrol(Sender).SetFocus;
    Abort;
  end;
  UomName:=AdoQry_Tmp.fieldbyname('UomName').AsString;
  Lab_ItemName.Caption:=AdoQry_Tmp.fieldbyname('ItemName').AsString;
  Edt_ItemName.Text:=AdoQry_Tmp.fieldbyname('ItemName').AsString;
  SqlText:=' Select Top 1 NoTaxPrice,TaxPrice '
          +'  From Sa_SaleContractLine '