Quellcode durchsuchen

拷贝中间计量、计量汇总模式,明细表至主表,供报表查询

MaiXinRong vor 7 Jahren
Ursprung
Commit
debbcd7ad0
1 geänderte Dateien mit 5 neuen und 0 gelöschten Zeilen
  1. 5 0
      Units/ProjectData.pas

+ 5 - 0
Units/ProjectData.pas

@@ -916,6 +916,11 @@ procedure TProjectData.CopyPhaseData;
             '  From ' + PhaseData.ZJJLData.sdpZJJL.TableName +
             '  In ' + Format('''%s''', [AFileName]);
     ExecuteSql(sSql);
+    sSql := 'Select ID, BillsID' +
+            '  Into P_ZJJL_Detail' +
+            '  From ' + PhaseData.ZJJLData.sdpZJJLDetail.TableName +
+            '  In ' + Format('''%s''', [AFileName]);
+    ExecuteSql(sSql);
     CopyZJJLBillsData;
   end;