Index: BL/Flow/Offerte/IInformatieService.cls.xml
===================================================================
diff -u -r36451 -r49011
--- BL/Flow/Offerte/IInformatieService.cls.xml	(.../IInformatieService.cls.xml)	(revision 36451)
+++ BL/Flow/Offerte/IInformatieService.cls.xml	(.../IInformatieService.cls.xml)	(revision 49011)
@@ -28,6 +28,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VoegToeBon">
+<FormalSpec>BonID:%String</FormalSpec>
+<Implementation><![CDATA[
+	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+
+	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BonID)
+	#dim BonLijnIt As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
+	While BonLijnIt.HasNext()
+	{
+		#dim BonLijn As DOM.VKP.ProductOrderlijn = BonLijnIt.Next()
+		Do ..VerwerkBonLijn(BonLijn)
+	}
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBonLijn">
 <Abstract>1</Abstract>
 <FormalSpec>BonLijn:DOM.VKP.ProductOrderlijn</FormalSpec>
Index: APPS/TRANSP/TransportDocumentVoorDouaneService.cls.xml
===================================================================
diff -u -r29059 -r49011
--- APPS/TRANSP/TransportDocumentVoorDouaneService.cls.xml	(.../TransportDocumentVoorDouaneService.cls.xml)	(revision 29059)
+++ APPS/TRANSP/TransportDocumentVoorDouaneService.cls.xml	(.../TransportDocumentVoorDouaneService.cls.xml)	(revision 49011)
@@ -13,13 +13,19 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ViaBonIpvViaFactuur">
+<Type>%Boolean</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>RitID:%String</FormalSpec>
+<FormalSpec>RitID:%String,ViaBonIpvViaFactuur:%Boolean=1</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
+	Set ..ViaBonIpvViaFactuur = ViaBonIpvViaFactuur
 	set ..TransportData = ##class(APPS.TRANSP.dto.TransportDocumentVoorDouaneDataLijst).%New()
 	Set ..Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
 
@@ -48,11 +54,19 @@
 		#dim Transport As DOM.TRANSP.Levering = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefLevering(..Rit.GeefID(), TransportIDIterator.Next())
 		#dim LaatsteFactuurIDVanTransport As %String = ""
 
-		#dim FactuurIDIterator As TECH.Iterator = Transport.GeefFactuurIDIterator()
-		While FactuurIDIterator.HasNext() {
-			#dim FactuurID As %String = FactuurIDIterator.Next()
-			Set LaatsteFactuurIDVanTransport = FactuurID
-			do ..VerwerkFactuur(FactuurID)
+		If ..ViaBonIpvViaFactuur { // 2A 
+			#dim BonIDIterator As TECH.Iterator = Transport.GeefBonIterator()
+			While BonIDIterator.HasNext() {
+				#dim Bon As DOM.VKP.Bon = BonIDIterator.Next()
+				do ..VerwerkBon(Bon.GeefID())
+			}
+		} Else {
+			#dim FactuurIDIterator As TECH.Iterator = Transport.GeefFactuurIDIterator()
+			While FactuurIDIterator.HasNext() {
+				#dim FactuurID As %String = FactuurIDIterator.Next()
+				Set LaatsteFactuurIDVanTransport = FactuurID
+				do ..VerwerkFactuur(FactuurID)
+			}
 		}
 		Do ..VoegToeTransportDataVoorTarraGewicht(LaatsteFactuurIDVanTransport,Transport.GeefTarraGewicht())
 	}
@@ -75,6 +89,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkBon">
+<FormalSpec>BonId:%String</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IntrastatService = ##class(BL.Flow.Offerte.IntrastatService).%New()
+	Do IntrastatService.VoegToeBon(BonId)
+			
+	Set IntrastatItemsIterator = ##class(TECH.ListIterator).%New(IntrastatService.GeefIntrastatItems())
+	While IntrastatItemsIterator.HasNext() {
+		Do ..VoegToeTransportDataVoorIntrastatItem(BonId,IntrastatItemsIterator.Next())
+	}
+	
+	Do ..VerwerkManueleLijnen(BonId)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkManueleLijnen">
 <FormalSpec>FactuurID:%String</FormalSpec>
 <Private>1</Private>