~

复合检验管理/U_OrderInPut.pas

@@ -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;