diff --git a/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm b/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
index b306838..7871898 100644
--- a/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
+++ b/合同管理(ContractManagement.dll)/U_ConInPutNX.dfm
@@ -679,7 +679,7 @@ object frmConInPutNX: TfrmConInPutNX
         #20869#38144
         #22806#38144)
     end
-    object BtnEditC1: TBtnEditC
+    object jiaohuodidian: TBtnEditC
       Tag = 2
       Left = 892
       Top = 58
@@ -687,10 +687,10 @@ object frmConInPutNX: TfrmConInPutNX
       Height = 20
       Hint = 'jiaohuodidian/'#20132#36135#22320#28857
       TabOrder = 24
-      OnBtnUpClick = BtnEditC1BtnUpClick
+      OnBtnUpClick = jiaohuodidianBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
-    object BtnEditC2: TBtnEditC
+    object PayMent: TBtnEditC
       Tag = 2
       Left = 892
       Top = 84
@@ -698,7 +698,7 @@ object frmConInPutNX: TfrmConInPutNX
       Height = 20
       Hint = 'PayMent/'#20184#27454#26041#24335
       TabOrder = 25
-      OnBtnUpClick = SellBankNoBtnUpClick
+      OnBtnUpClick = jiaohuodidianBtnUpClick
       OnBtnDnClick = BuyNameBtnDnClick
     end
     object begfkts: TEdit
diff --git a/合同管理(ContractManagement.dll)/U_ConInPutNX.pas b/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
index b8fb48c..6e52dce 100644
--- a/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
+++ b/合同管理(ContractManagement.dll)/U_ConInPutNX.pas
@@ -117,9 +117,9 @@ type
     Tv1Column4: TcxGridDBColumn;
     Tv1Column5: TcxGridDBColumn;
     Label11: TLabel;
-    BtnEditC1: TBtnEditC;
+    jiaohuodidian: TBtnEditC;
     Label12: TLabel;
-    BtnEditC2: TBtnEditC;
+    PayMent: TBtnEditC;
     Label13: TLabel;
     begfkts: TEdit;
     Label15: TLabel;
@@ -147,7 +147,7 @@ type
     procedure v1PRTPricePropertiesEditValueChanged(Sender: TObject);
     procedure TSBtnUpClick(Sender: TObject);
     procedure v1Column10PropertiesEditValueChanged(Sender: TObject);
-    procedure BtnEditC1BtnUpClick(Sender: TObject);
+    procedure jiaohuodidianBtnUpClick(Sender: TObject);
   private
     fuserName: string;
     procedure InitData();
@@ -1049,12 +1049,12 @@ begin
   end;
 end;
 
-procedure TfrmConInPutNX.BtnEditC1BtnUpClick(Sender: TObject);
+procedure TfrmConInPutNX.jiaohuodidianBtnUpClick(Sender: TObject);
 var
   fsj: string;
   FWZ: Integer;
 begin
-  fsj := Trim(TEdit(Sender).Hint);
+  fsj := Trim(TbtnEditc(Sender).Hint);
   FWZ := Pos('/', fsj);
   try
     frmZDYHelp := TfrmZDYHelp.Create(Application);
@@ -1065,8 +1065,8 @@ begin
 
       if ShowModal = 1 then
       begin
-        SellBankNo.Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
-        SellBankName.Text := Trim(ClientDataSet1.fieldbyname('Note').AsString);
+        TbtnEditc(Sender).Text := Trim(ClientDataSet1.fieldbyname('ZDYName').AsString);
+
       end;
     end;
   finally