Explorar el Código

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

MaiXinRong hace 7 años
padre
commit
debbcd7ad0
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  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;