Index: BLVWIMP.mac.rou
===================================================================
diff -u -r37433 -r38464
--- BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 37433)
+++ BLVWIMP.mac.rou	(.../BLVWIMP.mac.rou)	(revision 38464)
@@ -2,8 +2,9 @@
  G BEGIN
  ;
 T1 ;COA\SO\KAL LVH;COA\DO\KAL DIR.Klant;CSB\SO\Vervoer LVH;CSB\DO\Vervoer DIR.Klant;DMS\PR\Product Gegevens;DMS\EP\Product omschrijving;DMS\OC\Product Update;MSG\  \Bevestiging bericht;DMS\ES\Externe specificatie;STS\PI\Statistiek;DMS\PC\Product Klassificatie
-T2 ;1;C;L;8;;|\3;C;L;3;;-\4;C;L;2;;|\14;C;L;25;;|\6;C;L;8;; |\8;N+;R;7;0; | \5;C;L;1;;|\2;C;L;11;;|;;$P($G(^KLE($G(^KL1(X),"*"),0)),D,2)\12;C;R;3
-T3 ; Ident  | Type |   Omschrijving     | Datum  |#Rec| | Leverancier         |Verw
+T2x ;1;C;L;8;;|\3;C;L;3;;-\4;C;L;2;;|\14;C;L;25;;|\6;C;L;8;; |\8;N+;R;7;0; | \5;C;L;1;;|\2;C;L;11;;|;;$P($G(^KLE($G(^KL1(X),"*"),0)),D,2)\12;C;R;3
+T2 ;1;C;L;13;;|\3;C;L;3;;-\4;C;L;2;;|\14;C;L;22;;|\6;C;L;8;;|\8;N+;R;7;0;| \5;C;L;1;;|\2;C;L;11;;|;;$P($G(^KLE($G(^KL1(X),"*"),0)),D,2)\12;C;R;3
+T3 ; Ident       | Type |  Omschrijving   | Datum |#Rec| | Leverancier         |Verw
 T4 ;1;C;L;80
 T5 ;00000000011111111112222222222333333333344444444445555555555666666666677777777778
 T6 ;12345678901234567890123456789012345678901234567890123456789012345678901234567890
@@ -223,3 +224,4 @@
 
 
 
+
Index: VERVID.mac.rou
===================================================================
diff -u -r36616 -r38464
--- VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 36616)
+++ VERVID.mac.rou	(.../VERVID.mac.rou)	(revision 38464)
@@ -1,7 +1,7 @@
 VERVID ;BLUM Vervoerlijst selectie ;VERVOER; Do naar PROC [ 03/15/99  2:46 PM ]
  G BEGIN
  ;
-T1 ;16;C;L;16;;| \2;C;C;7;;|\3;C;C;10;;|\7;C;C;3;;| ;;$S(X=1:"I",X=2:"F",1:$S($L(X):X,$$BevatFactuur^VERVID(LC,VRF):"+f",1:""))\8;C;L;53;;
+T1 ;16;C;L;16;;| \2;C;C;10;;|\3;C;C;10;;|\7;C;C;3;;| ;;$S(X=1:"I",X=2:"F",1:$S($L(X):X,$$BevatFactuur^VERVID(LC,VRF):"+f",1:""))\8;C;L;53;;
 T2 ; Identif    |    Datum | V | Paletten
 T3 ;Onbekend;;Pakket;Euro-pallet;Blum-pallet;Zak
 T4 ; Het vervoerbestand is leeg 
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml
===================================================================
diff -u -r36086 -r38464
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml	(.../CSBS011.cls.xml)	(revision 36086)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS011.cls.xml	(.../CSBS011.cls.xml)	(revision 38464)
@@ -32,7 +32,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim result As %String = """11"
-	Set result = result _ ..FormateerVeld(..ShipmentID,6)
+	Set result = result _ ..FormateerVeld(..ShipmentID,10)
 	Set result = result _ ..FormateerVeld(..DeliveryAddress,20)
 	Set result = result _ ..FormateerVeld(..TransportationMode ,1)
 	Set result = result _ ..FormateerVeld(..TruckNumberPart,16)
Index: APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml
===================================================================
diff -u -r36086 -r38464
--- APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml	(.../CSBS021.cls.xml)	(revision 36086)
+++ APPS/AKP/AankoopControle/BLUM/TXT/TransportEnFaktuur/CSBS021.cls.xml	(.../CSBS021.cls.xml)	(revision 38464)
@@ -76,7 +76,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim result As %String = """21"
-	Set result = result _ ..FormateerVeld(..ShipmentID, 6)
+	Set result = result _ ..FormateerVeld(..ShipmentID, 10)
 	Set result = result _ ..FormateerVeld(..ShipmentDate, 6)
 	Set result = result _ ..FormateerVeld(..Colli1, 1)
 	Set result = result _ ..FormateerVeld(..Colli2, 1)