~

复合检验管理/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();
@@ -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;