Index: vhDeploy/D20180910xSchermDefinitiesTRANSPXUpdate.cls.xml
===================================================================
diff -u
--- vhDeploy/D20180910xSchermDefinitiesTRANSPXUpdate.cls.xml	(revision 0)
+++ vhDeploy/D20180910xSchermDefinitiesTRANSPXUpdate.cls.xml	(revision 52881)
@@ -0,0 +1,38 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20180910xSchermDefinitiesTRANSPXUpdate">
+<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","E",2,"E") = "S sEr=-1,X=$$OphVoorz^TRANSPX(.sFL) S:X'=$P(sFL(""V""),D,8) $P(sFL(""V""),D,8)=X,%SC=1"
+	Set ^SD("D","TRANSPX","E",3,"E") = "S sEr=-1 I '$D(sDir),'$D(^TRANSP(""D"",VervRef,""D"")) S X=$$POP^vhScherm(,,""-1O"","""",""TRANSPORT"",""GROEPEREN"",$S(X="""":""G"",1:X)) S:X=""G"" X="""" S:X'=$P(sFL(""V""),D,15) $P(sFL(""V""),D,15)=X,%SC=1 I X="""" D PUT^vhScherm(""UITLEVDAT"","""")"
+	Set ^SD("D","TRANSPX","E",4,"E") = "S sEr=-1 I $P(sFL(""V""),D,15)=""S"" S X=$$UitLevDat^TRANSPX(.sFL) S:X'=$P(sFL(""V""),D,18) $P(sFL(""V""),D,18)=X,%SC=1"
+	Set ^SD("D","TRANSPX","E",6,"E") = "S:$D(sDir) sEr=-1"
+	Set ^SD("D","TRANSPX","E",7,"E") = "S:$D(sDir) sEr=-1"
+	Set ^SD("D","TRANSPX","E",18,"P") = "D PUT^vhScherm(""LANGGOED"",X) N X D FIELDI^vhScherm(""LANGLENG"")"
+	Set ^SD("D","TRANSPX","E",18,"V") = "S:X'?.N sEr=""Foutieve numerieke ingave"""
+	Set ^SD("D","TRANSPX","E",19,"E") = "S:'$P(sFL(""Q"",""L""),D) sEr=-1,$P(sFL(""Q"",""L""),D,2)="""""
+	Set ^SD("D","TRANSPX","E",19,"T") = "in meter`x[] of x+x[] of x+x+x[]"
+	Set ^SD("D","TRANSPX","E",19,"V") = "S sEr=$$LENLANGG^TRANSP(X)"
+	Set ^SD("D","TRANSPX","E",21) = ""
+	Set ^SD("D","TRANSPX","E",21,"E") = "S:'$$IsTTC^TRANSPX() sEr=""Mag niet gewijzigd worden"" S:X=""*"" X="""""
+	Set ^SD("D","TRANSPX","E",22,"P") = "S $P(sFL(""V""),D,3)=$P(sFL(""V""),D,3)-$P(sFL(1),D,3)+X D DISPVAL^vhScherm(""TOTGEW"")"
+	Set ^SD("D","TRANSPX","E",22,"V") = "S:X<0 sEr=""Moet groter zijn dan nul"""
+	Set ^SD("D","TRANSPX","E",23,"E") = "S:$D(sDir) sEr=-1 I sEr'=-1 S FP=2201 W @F,@F1 S:'$$ASK^vhWACHTW(""MANAGER"",FP,"""",0) sEr=-1"
+	Set ^SD("D","TRANSPX","E",23,"V") = "S:X<0 sEr=""Moet groter zijn dan nul"" I X,'##Class(CHUI.Flow.Cons.Transport).CheckMaximumRembours(Transport,GroepNr,X,1) S sEr=-1"
+	Set ^SD("D","TRANSPX","E",24,"E") = "S sEr=-1,X=$$POP^vhScherm(,,""-1Op"",""Type"",""TRANSPORT"",""VRACHTKOST"",$S(X="""":""NV"",1:X)) S:X=""NV"" X="""""
+	Set ^SD("D","TRANSPX","E",29,"E") = "S:$D(sDir) sEr=-1"
+	Set ^SD("D","TRANSPX","E",32,"E") = "s sEr=-1,FP=2204 W @F,@F1,""[] = ok"",@FCH R *X W @FCS"
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: TRANSPX.mac.rou
===================================================================
diff -u -r50087 -r52881
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 50087)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 52881)
@@ -244,4 +244,10 @@
  }
  Quit BevatLanggoed
  ;
+ 
+IsTTC()
+ New IsTTC
+ Set IsTTC = 0
+ Quit IsTTC
+ ;