~

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