Jelajahi Sumber

Bug 点击报表报错,Sql语句

MaiXinRong 10 tahun lalu
induk
melakukan
a46ab4f12f
1 mengubah file dengan 2 tambahan dan 2 penghapusan
  1. 2 2
      Units/ProjectData.pas

+ 2 - 2
Units/ProjectData.pas

@@ -1005,11 +1005,11 @@ procedure TProjectData.CopyPhaseData;
 
   procedure CopyStageLeafXmjGLData(const AFileName: string);
   const
-    sCopySql = 'Select ID' +
+    sCopySql = 'Select ID,' +
                '    PreQuantity, PreTotalPrice, PreUsedQuantity, PreUsedTotalPrice,' +
                '    PrePAL_UsedQuantity, PrePAL_UsedTotalPrice, PrePAL_DeltaPrice, PrePAL_Total,'+
                '    Quantity, TotalPrice, UsedQuantity, UsedTotalPrice,' +
-               '    PAL_UsedQuantity, PAL_UsedTotalPrice, PAL_DeltaPrice, PAL_Total'+
+               '    PAL_UsedQuantity, PAL_UsedTotalPrice, PAL_DeltaPrice, PAL_Total,'+
                '    EndQuantity, EndTotalPrice, EndUsedQuantity, EndUsedTotalPrice,' +
                '    EndPAL_UsedQuantity, EndPAL_UsedTotalPrice, EndPAL_DeltaPrice, EndPAL_Total'+
                '  Into P_StageLeafXmjGL' +