Index: ULTOER.mac.rou
===================================================================
diff -u -r50586 -r52861
--- ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 50586)
+++ ULTOER.mac.rou	(.../ULTOER.mac.rou)	(revision 52861)
@@ -454,7 +454,7 @@
  ; Initialiseren van de verpakkingsgegevens
 INITVERPAK(%J,sFL)
  If $P(sFL(1),D,3)="DI1" Do INITABX^ULTOER(%J)
- If $P(sFL(1),D,3)="DI2" Do INITOD4en5^ULTOER(%J)
+ If $P(sFL(1),D,3)="DI2" Do INITTTC^ULTOER(%J)
  If $P(sFL(1),D,3)="DI3" Do INITOD4en5^ULTOER(%J)
  If $P(sFL(1),D,3)="OD5" Do INITOD4en5^ULTOER(%J)
  Quit
@@ -481,6 +481,22 @@
  }
  Quit
 
+ ; Initialiseren van de verpakkingsgegevens DI2 (OD4), OD5 en DI3
+INITOD4en5(%J)
+ Do HaalOpDataHeaderOD4enOD5($$OD4en5Data(%J))
+ Do RefreshHeader()
+ Quit
+ 
+ ; Initialiseren van de verpakkingsgegevens TTC
+INITTTC(%J)
+ New R
+ Set R=$$OD4en5Data(%J),VervRef=$P(R,D) 
+ If $Length(VervRef){
+	 Do HaalOpDataHeaderTTC(VervRef)
+	 Do RefreshHeader()
+ }
+ Quit
+
  ;
  ; Ophalen van de verpakkingsgegevens DI2 (OD4), OD5 en DI3
 OD4en5Data(%J)
@@ -517,11 +533,6 @@
  }
  Quit Verpakking
  ;
- ; Initialiseren van de verpakkingsgegevens DI2 (OD4), OD5 en DI3
-INITOD4en5(%J)
- Do HaalOpDataHeaderOD4enOD5($$OD4en5Data(%J))
- Do RefreshHeader()
- Quit
 
 HaalOpDataHeaderOD4enOD5(R)
 	Set VervRef=$P(R,D)
@@ -532,6 +543,15 @@
 	Set BuitenmaatsPallet = 0 /// TO DO bij andere transporteurs ?
 Quit
 
+HaalOpDataHeaderTTC(R)
+	Set VervRef=$P(R,D)
+	Set Pallet=$P(R,D,2)
+	Set Collo=$P(R,D,3)
+	Set LangGoed=$P(R,D,4)
+	Set KleinPallet=$P(R,D,5)
+	Set BuitenmaatsPallet = $P(R,D,6)
+ Quit
+
 HaalOpDataHeaderGLS(RitID)
  New Rit
  #dim Rit As DOM.TRANSP.Rit = ##class(DOM.DomeinContext).Instance().GeefTransportAPI().GeefRit(RitID)
@@ -696,4 +716,3 @@
  Quit Naam 
 
 
-