Pārlūkot izejas kodu

Bills.IndexCode赋值有误

MaiXinRong 9 gadi atpakaļ
vecāks
revīzija
ea8be22d4d
1 mainītis faili ar 1 papildinājumiem un 0 dzēšanām
  1. 1 0
      DataModules/BillsDm.pas

+ 1 - 0
DataModules/BillsDm.pas

@@ -209,6 +209,7 @@ procedure TBillsData.Save;
           // ¹¤³ÌÁ¿Çåµ¥ÅÅÐòCode
           if (stnNode.Rec.B_Code.AsString <> '') then
           begin
+            sIndexCode := B_CodeToIndexCode(stnNode.Rec.B_Code.AsString);
             stnNode.Rec.SetStrValue(stnNode.Rec.IndexCode, sIndexCode);
           end;
         end;