📄 sal_enter_backshiporder_d.pas

📁 一个MRPII系统源代码版本
💻 PAS
字号:
unit Sal_Enter_BackShipOrder_D;

Interface

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

Type
  TFrm_Sal_Enter_BackShipOrder_D = Class(TFrm_Base_Entry_Detail)
    Label1: TLabel;
    Label2: TLabel;
    Label4: TLabel;
    Label6: TLabel;
    Label7: TLabel;
    Label8: TLabel;
    Label9: TLabel;
    Label10: TLabel;
    Label11: TLabel;
    Label12: TLabel;
    Lab_ItemName: TLabel;
    Label14: TLabel;
    Label13: TLabel;
    Edt_ShipOrderLineNo: TEdit;
    Edt_BackShipQty: TEdit;
    Edt_TaxPrice: TEdit;
    Edt_TaxAmount: TEdit;
    Edt_NoTaxPrice: TEdit;
    Edt_NoTaxAmount: TEdit;
    Edt_DiSCountRate: TEdit;
    Edt_DiSCountAmount: TEdit;
    Edt_ShipLineRemArk: TEdit;
    Label15: TLabel;
    Label16: TLabel;
    Edt_ShipOrderNo: TEdit;
    Edt_BackShipLineNo: TEdit;
    Edt_BatchNo: TEdit;
    Edt_ItemName: TEdit;
    ExtEdt_ItemCode: TLinkEdit;
    Label17: TLabel;
    procedure ExtEdt_ItemCodeKeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure ExtEdt_ItemCodeExit(Sender: TObject);
    procedure Edt_TaxPriceExit(Sender: TObject);
    procedure Edt_NoTaxPriceExit(Sender: TObject);
    procedure Edt_BackShipQtyExit(Sender: TObject);
    procedure Edt_DiSCountRateExit(Sender: TObject);
    procedure ExtEdt_ItemCodeButtonClick(Sender: TObject);
  private
    UomName:String;  //记录当前单位
    LineNo:Integer;//行号
    { Private declarations }
  public
    procedure InitControls; Override;
    procedure SaveBodyData; Override;
    procedure SetStatus(CurrentStatus:String;var EnableControls:String);Override;    
    { Public declarations }
  end;

var
  Frm_Sal_Enter_BackShipOrder_D: TFrm_Sal_Enter_BackShipOrder_D;

implementation

uses Sys_Global, Sal_Enter_BackShipOrder;

{$R *.DFM}

{ TFrm_Sal_Enter_ShjpOrder_D }

procedure TFrm_Sal_Enter_BackShipOrder_D.InitControls;
begin
  inherited;
  If (status='Add') Then
    SetFocus_Control:=ExtEdt_ItemCode
  Else
    SetFocus_Control:=Edt_BackShipQty;
  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:=RecordCount+1;
      Edt_BackShipLineNo.Text := inttostr(LineNo);
      Edt_BackShipQty.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_ShipLineRemArk.Text:='';
    end
    else
    begin
      Edt_BackShipLineNo.Text:=fieldbyname('InvBillLineNo').AsString;
      Edt_ShipOrderNo.Text:=fieldbyname('SloNo').AsString;
      Edt_ShipOrderLineNo.Text:=fieldbyname('SloLineNo').AsString;
      Edt_BatchNo.Text:=fieldbyname('BatchNo').AsString;
     // Edt_UomName.Text:=fieldbyname('UomName').AsString;
     // ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    //  Edt_ItemName.Text:=fieldbyname('ItemName').AsString;
      Edt_BackShipQty.Text:=FloatToStr(-fieldbyname('InvBillQty').AsFloat);
      Edt_TaxPrice.Text:=fieldbyname('InvBillPrice').AsString;
      Edt_TaxAmount.Text:=FloatToSTR(-fieldbyname('InvBillAmount').AsFloat);
      Edt_NoTaxPrice.Text:=fieldbyname('InvBillNoTaxPrice').AsString;
      Edt_NoTaxAmount.Text:=FloatToStr(-fieldbyname('InvBillNoTaxAmount').AsFloat);
      Edt_DiSCountRate.Text:=fieldbyname('DiSCountRate').AsString;
      Edt_DiSCountAmount.Text:=FloatToStr(-fieldbyname('DiSCountAmount').AsFloat);
      Edt_ShipLineRemArk.Text:=fieldbyname('BillLineRemArk').AsString;
    end;
  end;

end;

procedure TFrm_Sal_Enter_BackShipOrder_D.SaveBodyData;
begin
  inherited;
  If Status='Add' Then
    AdoQry_Body.Append
  Else
    AdoQry_Body.Edit;
  with AdoQry_Body do
  begin
      fieldbyname('InvBillLineNo').AsString:=Edt_BackShipLineNo.Text;
      fieldbyname('SloNo').AsString:=Edt_ShipOrderNo.Text;
      fieldbyname('SLoLineNo').AsString:=Edt_ShipOrderLineNo.Text;
      fieldbyname('BatchNo').AsString:=Edt_BatchNo.Text;
     // Edt_UomName.Text:=fieldbyname('UomName').AsString;
     // ExtEdt_ItemCode.Text:=fieldbyname('ItemCode').AsString;
    //  Edt_ItemName.Text:=fieldbyname('ItemName').AsString;
      fieldbyname('InvBillQty').AsString:=FloatToStr(-StrToFloat(Edt_BackShipQty.Text));
      fieldbyname('InvBillPrice').AsString:=Edt_TaxPrice.Text;
      fieldbyname('InvBillAmount').AsString:=FloatToStr(-StrToFloat(Edt_TaxAmount.Text));
      fieldbyname('InvBillNoTaxPrice').AsString:=Edt_NoTaxPrice.Text;
      fieldbyname('InvBillNoTaxAmount').AsString:=FloatToStr(-StrToFloat(Edt_NoTaxAmount.Text));
      fieldbyname('DiSCountRate').AsString:=Edt_DiSCountRate.Text;
      fieldbyname('DiSCountAmount').AsString:=FloatToStr(-StrToFloat(Edt_DiSCountAmount.Text));
      fieldbyname('BillLineRemArk').AsString:=Edt_ShipLineRemArk.Text;
      fieldbyname('UomName').AsString:=UomName;
    Post;
  end;

end;

procedure TFrm_Sal_Enter_BackShipOrder_D.SetStatus(CurrentStatus: String;
  var EnableControls: String);
begin
  inherited;
  if(CurrentStatus='Add')then
    EnableControls:=' ExtEdt_ItemCode,Edt_BackShipQty,Edt_WhCode,Edt_WhPositionCode,'
                   +' Edt_DiSCountRate,Edt_DiSCountAmount,Edt_ShipLineRemArk,'
  else
    EnableControls:=' Edt_BackShipQty,Edt_WhCode,Edt_WhPositionCode,'       //ExtEdt_ItemCode,
                   +' Edt_DiSCountRate,Edt_DiSCountAmount,Edt_ShipsLineRemArk,';
  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_BackShipOrder_D.ExtEdt_ItemCodeKeyDown(Sender: TObject;
  var Key: Word; Shift: TShiftState);
begin
  inherited;
  If key=120 Then
  CommOnHint(Sender,AdoQry_Tmp,'ItemName','物料描述','ItemCode',
             '物料代码',' Item ');
end;

procedure TFrm_Sal_Enter_BackShipOrder_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 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)+'''';
  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;
end;

procedure TFrm_Sal_Enter_BackShipOrder_D.Edt_TaxPriceExit(Sender: TObject);
begin
  inherited;
  if ActiveControl <> btn_Cancel then
  begin
    try
      Edt_TaxPrice.Text := FloattoStr(StrToFloat(Edt_TaxPrice.Text));
    except
      DispInfo('请输入数据类型！',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if StrToFloat(Edt_TaxPrice.Text)<=0 then
    begin
      DispInfo('含税单价不能小于或等于0!',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if Edt_TaxPrice.Modified then
    begin
      Edt_NoTaxPrice.Text:=FloatToStr(StrToFloat(Edt_TaxPrice.Text)/(1+StrtoFloat(TaxRate_Percent)/100));
      Edt_TaxAmount.Text:= FloatToStr(StrToFloat(Edt_TaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
      Edt_NoTaxAmount.Text:= FloatToStr(StrToFloat(Edt_NoTaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
    end;
  end;
end;

procedure TFrm_Sal_Enter_BackShipOrder_D.Edt_NoTaxPriceExit(Sender: TObject);
begin
  inherited;
  if ActiveControl <> btn_Cancel then
  begin
    try
      Edt_NoTaxPrice.Text := FloatToStr(StrToFloat(Edt_NoTaxPrice.Text));
    except
      DispInfo('请输入数据类型！',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if StrToFloat(Edt_NoTaxPrice.Text)<=0 then
    begin
      DispInfo('未税单价不能小于或等于0!',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    begin
      Edt_TaxPrice.Text:=FloatToStr(StrToFloat(Edt_NoTaxPrice.Text)*(1+StrtoFloat(TaxRate_Percent)/100));
      Edt_TaxAmount.Text:= FloatToStr(StrToFloat(Edt_TaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
      Edt_NoTaxAmount.Text:= FloatToStr(StrToFloat(Edt_NoTaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
    end;
  end;
end;

procedure TFrm_Sal_Enter_BackShipOrder_D.Edt_BackShipQtyExit(Sender: TObject);
begin
  inherited;
  if ActiveControl <> btn_Cancel then
  begin
    try
      Edt_BackShipQty.text := floattostr(StrToFloat(Edt_BackShipQty.Text));
    except
      DispInfo('请输入数据类型！',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if StrToFloat(Edt_BackShipQty.Text)<0 then
    begin
      DispInfo('退货数量不能小于0!',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if StrToFloat(Edt_TaxPrice.text) <> 0 then
    begin
      Edt_TaxAmount.Text:= FloatToStr(StrToFloat(Edt_TaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
      Edt_NoTaxAmount.Text:= FloatToStr(StrToFloat(Edt_NoTaxPrice.text)*StrToFloat(Edt_BackShipQty.text));
    end;
  end;
end;

procedure TFrm_Sal_Enter_BackShipOrder_D.Edt_DiSCountRateExit(Sender: TObject);
begin
  inherited;
  if ActiveControl <> btn_Cancel then
  begin
    try
      Edt_DiSCountRate.Text := FloatToStr(StrToFloat(Edt_DiSCountRate.Text));
    except
      DispInfo('请输入数据类型！',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if StrToFloat(Edt_DiSCountRate.Text)<0 then
    begin
      DispInfo('未税单价不能小于0!',3);
      TWincontrol(Sender).SetFocus;
      Abort;
    end;
    if  Edt_DiSCountRate.Modified then
      Edt_DiSCountAmount.Text:= FloatToStr(StrToFloat(Edt_TaxAmount.text)*StrToFloat(Edt_DiSCountRate.text)/100);
  end;
end;

procedure TFrm_Sal_Enter_BackShipOrder_D.ExtEdt_ItemCodeButtonClick(
  Sender: TObject);
begin
  inherited;
  CommOnHint(Sender,AdoQry_Tmp,'ItemName','物料描述','ItemCode',
             '物料代码',' Item ');
end;

end.
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -