Bills.IndexCode赋值有误

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;