From 0e3fab1a8f7b449b13de8aba9097cfcc770c2a3f Mon Sep 17 00:00:00 2001
From: "DESKTOP-E401PHE\\Administrator" <rightsoft@163.com>
Date: Mon, 29 Sep 2025 09:31:39 +0800
Subject: [PATCH] ~

---
 复合检验管理/U_OrderInPut.pas | 20 ++++++++++++++++----
 1 file changed, 16 insertions(+), 4 deletions(-)

diff --git a/复合检验管理/U_OrderInPut.pas b/复合检验管理/U_OrderInPut.pas
index b099fd6..9e5ab2c 100644
--- a/复合检验管理/U_OrderInPut.pas
+++ b/复合检验管理/U_OrderInPut.pas
@@ -493,8 +493,8 @@ begin
 end;
 
 procedure TfrmOrderInPut.FormShow(Sender: TObject);
- var
- Fordmaxno:string;
+var
+  Fordmaxno: string;
 begin
   readCxGrid(self.Caption + TV1.Name + '1', Tv1, '����ָʾ������2');
   InitData();
@@ -505,7 +505,7 @@ begin
     Exit;
   end;
   OrderNo.Text := getOrderNo(trim(Fordmaxno));
-                                                                       
+
 end;
 
 procedure TfrmOrderInPut.CJEWM();
@@ -561,7 +561,7 @@ var
   maxno: string;
 begin
   try
-                                       
+
     ADOCmd.Connection.BeginTrans;
     if Trim(FMainId) = '' then
     begin
@@ -802,6 +802,18 @@ begin
         Next;
       end;
     end;
+    with ADOCmd do
+    begin
+      Close;                   
+      SQL.Clear;
+      sql.Add('update WFB_MJJY set KH=CASE WHEN   isnull(B.CustomerNoName,'''') = '''' THEN C.PRTkh  ELSE B.CustomerNoName END ');
+      sql.Add('from WFB_MJJY A  ');
+      sql.Add(' inner join  JYOrder_Main B on A.mainid=B.mainid ');
+      sql.Add(' inner join  JYOrder_Sub C on A.mainid=C.mainid  and C.subid=A.subid');
+      sql.Add(' where A.mainid=''' + Trim(FMainId) + '''');
+//      ShowMessage(sql.text);
+      ExecSQL;
+    end;
 
     ADOCmd.Connection.CommitTrans;
     Result := True;