Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml
===================================================================
diff -u -r36189 -r36247
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 36189)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS031.cls.xml	(.../CSBS031.cls.xml)	(revision 36247)
@@ -55,7 +55,7 @@
 	Set result = result _ ..FormateerVeld(..Currency, 3)
 	Set result = result _ ..FormateerNumeriekVeld(..NetValue, 12,2)
 	Set result = result _ ..FormateerVeld(..Tax, 1)
-	Set result = result _ ..FormateerVeldRechts(..DeliveryCustomerNr, 15)
+	Set result = result _ ..FormateerNumeriekVeld(0, 6) _ "." _..FormateerNumeriekVeld(..DeliveryCustomerNr, 8)
 	Set result = result _ ..FormateerVeld(..InvoicingCustomerNr, 6)
 	Set result = result _ ..FormateerVeld("""",1)
 	Quit result
Index: vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml
===================================================================
diff -u -r36196 -r36247
--- vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36196)
+++ vhUnitTest/APPS/AKP/AankoopControle/BLUM/impl/Bewaarder/Bewaar/Test.cls.xml	(.../Test.cls.xml)	(revision 36247)
@@ -67,7 +67,7 @@
 	Do Bewaarder.Bewaar(CSBSODouble)
 	
 	Do $$$AssertTrue($DATA(^BLImp(Bewaarder.MsgNr,3)))
-	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,3),"""3199999999160621160621W30000000496.700         212250212250""")
+	Do $$$AssertEquals(^BLImp(Bewaarder.MsgNr,3),"""3199999999160621160621W30000000496.700000000.00212250212250""")
 													
 	Kill ^BLImp(Bewaarder.MsgNr)
 ]]></Implementation>