Преглед изворни кода

价差调整,界面小数位数显示

MaiXinRong пре 9 година
родитељ
комит
5cced48f58
3 измењених фајлова са 105 додато и 76 уклоњено
  1. 91 73
      DataModules/PriceMarginBillsDm.dfm
  2. 3 3
      DataModules/PriceMarginBillsDm.pas
  3. 11 0
      Units/CalcDecimal.pas

+ 91 - 73
DataModules/PriceMarginBillsDm.dfm

@@ -16,28 +16,34 @@ object PriceMarginBillsData: TPriceMarginBillsData
     FieldListData = {
       0101044E616D6506024944094669656C644E616D650602494408446174615479
       70650203084461746153697A6502040549734B6579080F4E65656450726F6365
-      73734E616D65090001044E616D650606425F436F6465094669656C644E616D65
-      0606425F436F64650844617461547970650218084461746153697A6502320549
-      734B6579080F4E65656450726F636573734E616D65090001044E616D65060949
-      6E646578436F6465094669656C644E616D650609496E646578436F6465084461
-      7461547970650218084461746153697A6502320549734B6579080F4E65656450
-      726F636573734E616D65090001044E616D6506044E616D65094669656C644E61
-      6D6506044E616D650844617461547970650218084461746153697A6503FF0005
-      49734B6579080F4E65656450726F636573734E616D65090001044E616D650605
-      556E697473094669656C644E616D650605556E69747308446174615479706502
-      18084461746153697A6502140549734B6579080F4E65656450726F636573734E
-      616D65090001044E616D6506055072696365094669656C644E616D6506055072
-      6963650844617461547970650206084461746153697A6502080549734B657908
-      0F4E65656450726F636573734E616D65090001044E616D65060F437572446561
-      6C5175616E74697479094669656C644E616D65060F4375724465616C5175616E
-      746974790844617461547970650206084461746153697A6502080549734B6579
-      080F4E65656450726F636573734E616D65090001044E616D65060D4375725163
-      5175616E74697479094669656C644E616D65060D43757251635175616E746974
-      790844617461547970650206084461746153697A6502080549734B6579080F4E
-      65656450726F636573734E616D65090001044E616D6506114375724761746865
-      725175616E74697479094669656C644E616D6506114375724761746865725175
+      73734E616D650909507265636973696F6E02000453697A6502000001044E616D
+      650606425F436F6465094669656C644E616D650606425F436F64650844617461
+      547970650218084461746153697A6502320549734B6579080F4E65656450726F
+      636573734E616D650909507265636973696F6E02000453697A6502000001044E
+      616D650609496E646578436F6465094669656C644E616D650609496E64657843
+      6F64650844617461547970650218084461746153697A6502320549734B657908
+      0F4E65656450726F636573734E616D650909507265636973696F6E0200045369
+      7A6502000001044E616D6506044E616D65094669656C644E616D6506044E616D
+      650844617461547970650218084461746153697A6503FF000549734B6579080F
+      4E65656450726F636573734E616D650909507265636973696F6E02000453697A
+      6502000001044E616D650605556E697473094669656C644E616D650605556E69
+      74730844617461547970650218084461746153697A6502140549734B6579080F
+      4E65656450726F636573734E616D650909507265636973696F6E02000453697A
+      6502000001044E616D6506055072696365094669656C644E616D650605507269
+      63650844617461547970650206084461746153697A6502080549734B6579080F
+      4E65656450726F636573734E616D650909507265636973696F6E02000453697A
+      6502000001044E616D65060F4375724465616C5175616E74697479094669656C
+      644E616D65060F4375724465616C5175616E7469747908446174615479706502
+      06084461746153697A6502080549734B6579080F4E65656450726F636573734E
+      616D650909507265636973696F6E02000453697A6502000001044E616D65060D
+      43757251635175616E74697479094669656C644E616D65060D43757251635175
       616E746974790844617461547970650206084461746153697A6502080549734B
-      6579080F4E65656450726F636573734E616D65090000}
+      6579080F4E65656450726F636573734E616D650909507265636973696F6E0200
+      0453697A6502000001044E616D6506114375724761746865725175616E746974
+      79094669656C644E616D6506114375724761746865725175616E746974790844
+      617461547970650206084461746153697A6502080549734B6579080F4E656564
+      50726F636573734E616D650909507265636973696F6E02000453697A65020000
+      00}
   end
   object sdmpDetailGclBills: TsdMemoryProvider
     Left = 160
@@ -51,59 +57,71 @@ object PriceMarginBillsData: TPriceMarginBillsData
     FieldListData = {
       0101044E616D6506024944094669656C644E616D650602494408446174615479
       70650203084461746153697A6502040549734B6579080F4E65656450726F6365
-      73734E616D65090001044E616D65060742696C6C734944094669656C644E616D
-      65060742696C6C7349440844617461547970650203084461746153697A650204
-      0549734B6579080F4E65656450726F636573734E616D65090001044E616D6506
-      0C5472656553657269616C4E6F094669656C644E616D65060C54726565536572
-      69616C4E6F0844617461547970650203084461746153697A6502040549734B65
-      79080F4E65656450726F636573734E616D65090001044E616D65060B52656C61
-      42696C6C734944094669656C644E616D65060B52656C6142696C6C7349440844
-      617461547970650203084461746153697A6502040549734B6579080F4E656564
-      50726F636573734E616D65090001044E616D6506094C656166586D6A49440946
-      69656C644E616D6506094C656166586D6A494408446174615479706502030844
-      61746153697A6502040549734B6579080F4E65656450726F636573734E616D65
-      090001044E616D650607586D6A436F6465094669656C644E616D650607586D6A
-      436F64650844617461547970650218084461746153697A6502320549734B6579
-      080F4E65656450726F636573734E616D65090001044E616D650607586D6A4E61
-      6D65094669656C644E616D650607586D6A4E616D650844617461547970650218
-      084461746153697A6503C8000549734B6579080F4E65656450726F636573734E
-      616D65090001044E616D650608586D6A556E697473094669656C644E616D6506
-      08586D6A556E6974730844617461547970650218084461746153697A65021405
-      49734B6579080F4E65656450726F636573734E616D65080001044E616D65060A
-      4E616D6544616E576569094669656C644E616D65060A4E616D6544616E576569
-      0844617461547970650218084461746153697A6503C8000549734B6579080F4E
-      65656450726F636573734E616D65090001044E616D6506094E616D6546656E42
-      75094669656C644E616D6506094E616D6546656E427508446174615479706502
-      18084461746153697A6503C8000549734B6579080F4E65656450726F63657373
-      4E616D65090001044E616D65060C4E616D6546656E5869616E67094669656C64
-      4E616D65060C4E616D6546656E5869616E670844617461547970650218084461
-      746153697A6503C8000549734B6579080F4E65656450726F636573734E616D65
-      090001044E616D6506084E616D65556E6974094669656C644E616D6506084E61
-      6D65556E69740844617461547970650218084461746153697A6503C800054973
-      4B6579080F4E65656450726F636573734E616D65090001044E616D6506035065
-      67094669656C644E616D65060350656708446174615479706502180844617461
-      53697A6503C8000549734B6579080F4E65656450726F636573734E616D650900
-      01044E616D650608506F736974696F6E094669656C644E616D650608506F7369
-      74696F6E0844617461547970650218084461746153697A6503C8000549734B65
-      79080F4E65656450726F636573734E616D65090001044E616D65060B44726177
-      696E67436F6465094669656C644E616D65060B44726177696E67436F64650844
-      617461547970650218084461746153697A6502320549734B6579080F4E656564
-      50726F636573734E616D65090001044E616D65060F4375724465616C5175616E
-      74697479094669656C644E616D65060F4375724465616C5175616E7469747908
-      44617461547970650206084461746153697A6502080549734B6579080F4E6565
-      6450726F636573734E616D65090001044E616D65060D43757251635175616E74
-      697479094669656C644E616D65060D43757251635175616E7469747908446174
+      73734E616D650909507265636973696F6E02000453697A6502000001044E616D
+      65060742696C6C734944094669656C644E616D65060742696C6C734944084461
+      7461547970650203084461746153697A6502040549734B6579080F4E65656450
+      726F636573734E616D650909507265636973696F6E02000453697A6502000001
+      044E616D65060C5472656553657269616C4E6F094669656C644E616D65060C54
+      72656553657269616C4E6F0844617461547970650203084461746153697A6502
+      040549734B6579080F4E65656450726F636573734E616D650909507265636973
+      696F6E02000453697A6502000001044E616D65060B52656C6142696C6C734944
+      094669656C644E616D65060B52656C6142696C6C734944084461746154797065
+      0203084461746153697A6502040549734B6579080F4E65656450726F63657373
+      4E616D650909507265636973696F6E02000453697A6502000001044E616D6506
+      094C656166586D6A4944094669656C644E616D6506094C656166586D6A494408
+      44617461547970650203084461746153697A6502040549734B6579080F4E6565
+      6450726F636573734E616D650909507265636973696F6E02000453697A650200
+      0001044E616D650607586D6A436F6465094669656C644E616D650607586D6A43
+      6F64650844617461547970650218084461746153697A6502320549734B657908
+      0F4E65656450726F636573734E616D650909507265636973696F6E0200045369
+      7A6502000001044E616D650607586D6A4E616D65094669656C644E616D650607
+      586D6A4E616D650844617461547970650218084461746153697A6503C8000549
+      734B6579080F4E65656450726F636573734E616D650909507265636973696F6E
+      02000453697A6502000001044E616D650608586D6A556E697473094669656C64
+      4E616D650608586D6A556E697473084461746154797065021808446174615369
+      7A6502140549734B6579080F4E65656450726F636573734E616D650809507265
+      636973696F6E02000453697A6502000001044E616D65060A4E616D6544616E57
+      6569094669656C644E616D65060A4E616D6544616E5765690844617461547970
+      650218084461746153697A6503C8000549734B6579080F4E65656450726F6365
+      73734E616D650909507265636973696F6E02000453697A6502000001044E616D
+      6506094E616D6546656E4275094669656C644E616D6506094E616D6546656E42
+      750844617461547970650218084461746153697A6503C8000549734B6579080F
+      4E65656450726F636573734E616D650909507265636973696F6E02000453697A
+      6502000001044E616D65060C4E616D6546656E5869616E67094669656C644E61
+      6D65060C4E616D6546656E5869616E6708446174615479706502180844617461
+      53697A6503C8000549734B6579080F4E65656450726F636573734E616D650909
+      507265636973696F6E02000453697A6502000001044E616D6506084E616D6555
+      6E6974094669656C644E616D6506084E616D65556E6974084461746154797065
+      0218084461746153697A6503C8000549734B6579080F4E65656450726F636573
+      734E616D650909507265636973696F6E02000453697A6502000001044E616D65
+      0603506567094669656C644E616D650603506567084461746154797065021808
+      4461746153697A6503C8000549734B6579080F4E65656450726F636573734E61
+      6D650909507265636973696F6E02000453697A6502000001044E616D65060850
+      6F736974696F6E094669656C644E616D650608506F736974696F6E0844617461
+      547970650218084461746153697A6503C8000549734B6579080F4E6565645072
+      6F636573734E616D650909507265636973696F6E02000453697A650200000104
+      4E616D65060B44726177696E67436F6465094669656C644E616D65060B447261
+      77696E67436F64650844617461547970650218084461746153697A6502320549
+      734B6579080F4E65656450726F636573734E616D650909507265636973696F6E
+      02000453697A6502000001044E616D65060F4375724465616C5175616E746974
+      79094669656C644E616D65060F4375724465616C5175616E7469747908446174
       61547970650206084461746153697A6502080549734B6579080F4E6565645072
-      6F636573734E616D65090001044E616D6506114375724761746865725175616E
-      74697479094669656C644E616D6506114375724761746865725175616E746974
-      790844617461547970650206084461746153697A6502080549734B6579080F4E
-      65656450726F636573734E616D65090001044E616D650610504D5F507265546F
-      74616C5072696365094669656C644E616D650610504D5F507265546F74616C50
-      726963650844617461547970650206084461746153697A6502080549734B6579
-      080F4E65656450726F636573734E616D65090001044E616D65060D504D5F546F
-      74616C5072696365094669656C644E616D65060D504D5F546F74616C50726963
-      650844617461547970650206084461746153697A6502080549734B6579080F4E
-      65656450726F636573734E616D65090000}
+      6F636573734E616D650909507265636973696F6E02000453697A650200000104
+      4E616D65060D43757251635175616E74697479094669656C644E616D65060D43
+      757251635175616E746974790844617461547970650206084461746153697A65
+      02080549734B6579080F4E65656450726F636573734E616D6509095072656369
+      73696F6E02000453697A6502000001044E616D65061143757247617468657251
+      75616E74697479094669656C644E616D6506114375724761746865725175616E
+      746974790844617461547970650206084461746153697A6502080549734B6579
+      080F4E65656450726F636573734E616D650909507265636973696F6E02000453
+      697A6502000001044E616D650610504D5F507265546F74616C50726963650946
+      69656C644E616D650610504D5F507265546F74616C5072696365084461746154
+      7970650206084461746153697A6502080549734B6579080F4E65656450726F63
+      6573734E616D650909507265636973696F6E02000453697A6502000001044E61
+      6D65060D504D5F546F74616C5072696365094669656C644E616D65060D504D5F
+      546F74616C50726963650844617461547970650206084461746153697A650208
+      0549734B6579080F4E65656450726F636573734E616D65090950726563697369
+      6F6E02000453697A6502000000}
   end
   object sdvGclBills: TsdDataView
     Active = False

+ 3 - 3
DataModules/PriceMarginBillsDm.pas

@@ -281,11 +281,11 @@ begin
     with TProjectData(FProjectData).ProjectGLData do
       CalculateGL_PM(ARec.GLID.AsInteger);
     // 更新清单调差数据,材料调差节点数据
-    {with TProjectData(FProjectData).PhaseData.StageData do
+    with TProjectData(FProjectData).PhaseData.StageData do
     begin
       CalculatePriceMargin(ARec.BillsID.AsInteger);
-      CalculatePriceMarginNode;
-    end;}
+      //CalculatePriceMarginNode;
+    end;
     // 更新价差清单内存表信息
     with TProjectData(FProjectData).PriceMarginBillsData do
       RefreshDetailBills(ARec.BillsID.AsInteger);

+ 11 - 0
Units/CalcDecimal.pas

@@ -266,6 +266,17 @@ procedure TDecimalManager.ResetLinkViewColumns;
       FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('InfoPrice'));
       FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('DeltaPrice'));
       FPriceMargin.Price.AddLinkViewCol(Columns.FindColumn('ValidDeltaPrice'));
+
+      FPriceMargin.Quantity.AddLinkViewCol(Columns.FindColumn('PM_Quantity'));
+      FPriceMargin.Quantity.AddLinkViewCol(Columns.FindColumn('UsedQuantity'));
+      FPriceMargin.Quantity.AddLinkViewCol(Columns.FindColumn('PAL_UsedQuantity'));
+
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PM_TotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('UsedTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_UsedTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_UsedTotalPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_DeltaPrice'));
+      FPriceMargin.TotalPrice.AddLinkViewCol(Columns.FindColumn('PAL_Total'));
     end;
   end;