Index: DCTRANSP.mac.rou
===================================================================
diff -u -r38346 -r52861
--- DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 38346)
+++ DCTRANSP.mac.rou	(.../DCTRANSP.mac.rou)	(revision 52861)
@@ -33,7 +33,7 @@
  ; Afdruk body
 BODY
  New %J,B,I,R,T,BCount,GroepNr,KLNr,Naam,ToeNaam,Adres,PostNr,Woonpl,Land,Munt,SortKey,KlTaal,VrachtKost
- New Gewicht,Rembours,KlantOpm,ORDNr,BONNr,FANr,PROFNr,ContactType,ContactRef,Paletten,Collo,LangGoed,KPaletten
+ New Gewicht,Rembours,KlantOpm,ORDNr,BONNr,FANr,PROFNr,ContactType,ContactRef,Paletten,Collo,LangGoed,KPaletten,BPaletten
  New lbKenAnk,KenAnk,ObjKenAnk,IRef,Referenties,FSepLin,LSepLine
  Set %J=$$%J^vhRtn1()
  Do SortBody(%J,TranspNr)
@@ -60,8 +60,9 @@
  . Set Collo=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","C"))
  . Set LangGoed=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","L"))
  . Set KPaletten=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","P"))
+ . Set BPaletten=$G(^TRANSP("D",TranspNr,"D",GroepNr,"Q","B"))
  . Set KlantOpm(1)=$$TXT("VrachtK")_": "_^RES("TRANSPORT","PI","VRACHTKOST","D",$S(VrachtKost="":"NV",1:VrachtKost),Taal)_"~"
- . If 'Paletten,'Collo,'LangGoed,'KPaletten
+ . If 'Paletten,'Collo,'LangGoed,'KPaletten,'BPaletten
  . Else  Do
  . . Set KlantOpm(1)=KlantOpm(1)_$$TXT("VVolume")_":~"
  . . If Paletten Set KlantOpm(1)=KlantOpm(1)_Paletten_" "_$$TXT($S(Paletten=1:"Palet",1:"Paletten"))_", "
@@ -71,6 +72,7 @@
  . . . Set KlantOpm(1)=KlantOpm(1)_$S($L($P(LangGoed,D,2)):" "_$$TXT("Van")_" "_$P(LangGoed,D,2)_" "_$$TXT("Meter"),1:"")
  . . . Set KlantOpm(1)=KlantOpm(1)_", "
  . . If KPaletten Set KlantOpm(1)=KlantOpm(1)_KPaletten_" "_$$TXT($S(Paletten=1:"KPalet",1:"KPaletten"))_", "
+ . . If BPaletten Set KlantOpm(1)=KlantOpm(1)_BPaletten_" "_$$TXT($S(Paletten=1:"BPalet",1:"BPaletten"))_", "
  . . Set $E(KlantOpm(1),$L(KlantOpm(1))-1,$L(KlantOpm(1)))=".~"
  . Set KlantOpm(1)=KlantOpm(1)_$G(^TRANSP("D",TranspNr,"D",GroepNr,"T"))
  . Set R=$G(^TRANSP("D",TranspNr,"D",GroepNr,"A"))
@@ -398,6 +400,8 @@
 TPaletten ;Europalletten\Euro-palettes\Euro-Paletten\Euro Pallets
 TKPalet ;klein pallet\petite palette\kleine palette\small pallet
 TKPaletten ;kleine palletten\petites palettes\kleine Paletten\small pallets
+TBPalet ;Buitenmaatse pallet\Buitenmaatse pallet\Buitenmaatse pallet\Buitenmaatse pallet
+TBPaletten ;Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten\Buitenmaatse palletten
 TCollie ;collie\collis\Pakette\Packet
 TCollo ;collo\collis\Pakette\Packets
 TLangGoed ;langgoed\langgoed\langgoed\langgoed
Index: TRANSP.mac.rou
===================================================================
diff -u -r52125 -r52861
--- TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 52125)
+++ TRANSP.mac.rou	(.../TRANSP.mac.rou)	(revision 52861)
@@ -681,16 +681,18 @@
  . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
  Quit Paletten_D_ExtraPaletten
  ;
+ 
  ; Output = Eurpaletten\Colli\Langgoed\Extra paletten
 CalcVerpak(VervRef)
- New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr
- Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten)=0
+ New R,Paletten,Collie,Langgoed,ExtraPaletten,GroepNr, BuitenmaatsePaletten
+ Set R=^TRANSP("D",VervRef),ExtraPaletten=$P(R,D,14),GroepNr="",(Paletten,Collie,Langgoed,KleinePaletten,BuitenmaatsePaletten)=0
  For  Set GroepNr=$O(^TRANSP("D",VervRef,"D",GroepNr)) Quit:GroepNr=""  Do
  . Set Collie=Collie+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","C"))
  . Set Paletten=Paletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","E"))
  . Set Langgoed=Langgoed+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","L"))
  . Set KleinePaletten=KleinePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","P"))
- Quit Paletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten
+ . Set BuitenmaatsePaletten=BuitenmaatsePaletten+$G(^TRANSP("D",VervRef,"D",GroepNr,"Q","B"))
+ Quit Paletten_";"_ExtraPaletten_D_Collie_D_Langgoed_D_KleinePaletten_D_BuitenmaatsePaletten
  ;
  ; Importeren van de ABX regios
 ImportABX
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 
 
 
-
Index: vhDeploy/D20180906xSchermDefinitiesTRANSPX.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180906xSchermDefinitiesTRANSPX.cls.xml	(revision 0)
+++ vhDeploy/D20180906xSchermDefinitiesTRANSPX.cls.xml	(revision 52861)
@@ -0,0 +1,64 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180906xSchermDefinitiesTRANSPX">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen buitenmaatse pallet aan schermdefinities TRANSPX</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set ^SD("D","TRANSPX","F",1) = "`0`Aanmaak`U`1`19`V.10`C`L`20``:D``0`AANMAAKV"
+	Set ^SD("D","TRANSPX","F",1,"F") = "$$FMTDT^vhLib.DataTypes(X)_""  ""_$$USERNAME^vhUSER($P(sFL(""V""),D,9),-1)"
+	Set ^SD("D","TRANSPX","F",2) = "`0`Oph. voorz.`U`2`19`V.8`C`L`20``:D``0`OPHVOORZ"
+	Set ^SD("D","TRANSPX","F",2,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",3) = "`0`Groepering`U`3`19`V.15`C`L`11``:D``0`GROEPEER"
+	Set ^SD("D","TRANSPX","F",3,"F") = "$$FETCHPOP^vhScherm(""TRANSPORT"",""GROEPEREN"",$S(X="""":""G"",1:X),""O"")"
+	Set ^SD("D","TRANSPX","F",4) = "`0`Uit. lev.dat`U`4`19`V.18`C`L`20``:D``0`UITLEVDAT"
+	Set ^SD("D","TRANSPX","F",4,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",5) = "`0`Tot. gewicht``1`65`V.3;""kg""`+NS`R`15`1`DP``0`TOTGEW"
+	Set ^SD("D","TRANSPX","F",6) = "1`45`Opmerking`DU`2`45`AT.1`B`L`160``D``240`ALGOPMERK"
+	Set ^SD("D","TRANSPX","F",6,"F") = "G`AXFL~`sFL(""AT"")"
+	Set ^SD("D","TRANSPX","F",7) = "`0`Verv. ref.`U``65`V.5`C`R`15``DP``0`VERVREF"
+	Set ^SD("D","TRANSPX","F",7,"F") = "$$FETCHPOP^vhScherm(""TRANSPORT"",""TYPE"",$S(X="""":""L"",1:X),""O"")_$J("""",1+(X'=""T""))_VervRef"
+	Set ^SD("D","TRANSPX","F",8) = "``F7 graf aan voor scheidingslijn`D```"""" W @F7`C`L```DP``0`SCHLIJNF7"
+	Set ^SD("D","TRANSPX","F",9) = "``Scheidingslijn`D`5`1`$TR($J("""",80),"" "",""q"")`C`L`80``DP``0`SCHLIJN"
+	Set ^SD("D","TRANSPX","F",10) = "``F8 graf uit voor scheidingslijn`D```"""" W @F8`C`L```DP``0`SCHLIJNF8"
+	Set ^SD("D","TRANSPX","F",11) = "`4`Klant`U`6`16`1`C`L`25``:D``0`KLANT"
+	Set ^SD("D","TRANSPX","F",11,"F") = "X_"" ""_$P(^KKL(^KK1(X),0),D,2)"
+	Set ^SD("D","TRANSPX","F",12) = "`4`Aanmaak`U`7`16`10`C`L`20``:D``0`AANMAAKG"
+	Set ^SD("D","TRANSPX","F",12,"F") = "$$FMTDT^vhLib.DataTypes(X)_""  ""_$$USERNAME^vhUSER($P(sFL(1),D,9),-1)"
+	Set ^SD("D","TRANSPX","F",13) = "`4`Lev. adr.`U`8`16`L.2`C`L`30``:D``0`LEVADR"
+	Set ^SD("D","TRANSPX","F",14) = "`0`La straat`U`9`16`L.5`C`L`30``DP``0`LASTRAAT"
+	Set ^SD("D","TRANSPX","F",15) = "`0`La woonpl`U`10`16`L.7`C`L`30``DP``0`LAWOONPL"
+	Set ^SD("D","TRANSPX","F",16) = "6`47`Europalet`U`6`60`Q.E.1`+N`L`2``:``0`PALET"
+	Set ^SD("D","TRANSPX","F",17) = "7`47`Collie`U`7`60`Q.C.1`+N`L`2``:``0`COLLIE"
+	Set ^SD("D","TRANSPX","F",18) = "8`47`Langgoed`U`8`60`Q.L.1`C`L`20``:``2`LANGGOED"
+	Set ^SD("D","TRANSPX","F",18,"F") = "X_$S($L($P($G(sFL(""Q"",""L"")),D,2)):"" lengte ""_$P(sFL(""Q"",""L""),D,2)_"" meter"",1:"""")"
+	Set ^SD("D","TRANSPX","F",19) = "``Lengte`H```Q.L.2`C`L`11``HD``0`LANGLENG"
+	Set ^SD("D","TRANSPX","F",20) = "9`47`Klein palet`U`9`60`Q.P.1`+N`L`2``:``0`KLEINPALET"
+	Set ^SD("D","TRANSPX","F",21) = "10`47`Buitenmaatse`U`10`60`Q.B.1`+N`L`2``:```BUITENMAATSE"
+	Set ^SD("D","TRANSPX","F",22) = "11`47`Net. Gew.`U`11`60`3;""kg""`+NS`L`15`1`:``0`NETGEW"
+	Set ^SD("D","TRANSPX","F",23) = "12`47`Rembours`U`12`60`2;$$MUNT^vhRtn1($$MUNT^TRANSPX($O(BONNrs(""""))),1)`NS`L`15`$$MUNT^vhRtn1($$MUNT^TRANSPX($O(BONNrs(""""))),4)`:``0`REMBOURS"
+	Set ^SD("D","TRANSPX","F",24) = "13`47`Vrachtkost`U`13`60`7`C`L`15``:``0`VRACHTKOST"
+	Set ^SD("D","TRANSPX","F",24,"F") = "$$FETCHPOP^vhScherm(""TRANSPORT"",""VRACHTKOST"",$S(X="""":""NV"",1:X),""O"")"
+	Set ^SD("D","TRANSPX","F",25) = "14`4`Orders`U`14`16`$$ORDLIST^TRANSPXO`C`L`64``:D``0`ORDERS"
+	Set ^SD("D","TRANSPX","F",26) = "15`4`Leveringen`U`15`16`$$BONLIST^TRANSPX`C`L`64``:D``0`LEVBONS"
+	Set ^SD("D","TRANSPX","F",27) = "16`4`Facturen`U`16`16`$$FAKTLIST^TRANSPXF`C`L`64``:D``0`FACTUREN"
+	Set ^SD("D","TRANSPX","F",28) = "17`4`Proforma's`U`17`16`$$PROFLIST^TRANSPXZ`C`L`64``:D``0`PROFORMAS"
+	Set ^SD("D","TRANSPX","F",29) = "17`4`Opmerking`U`18`4`T.1`B`L`240`````OPMERKING"
+	Set ^SD("D","TRANSPX","F",29,"F") = "G`AXFL~`sFL(""T"")"
+	Set ^SD("D","TRANSPX","F",30) = "`0`Opgehaald`HU`18`60`V.11`C`L`15``:DH``0`OPHALEN"
+	Set ^SD("D","TRANSPX","F",30,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",31) = "`0`Transfert`HU`19`60`V.12`C`L`15``:DH``0`TRANSFERT"
+	Set ^SD("D","TRANSPX","F",31,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",32) = "`0`Ok`H`16`16`X`C`L`1``HD``0`OK"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>