Index: vhDeploy/D20211124xSchermDefinitiesTRANSPXUpdate.cls.xml
===================================================================
diff -u
--- vhDeploy/D20211124xSchermDefinitiesTRANSPXUpdate.cls.xml	(revision 0)
+++ vhDeploy/D20211124xSchermDefinitiesTRANSPXUpdate.cls.xml	(revision 66249)
@@ -0,0 +1,190 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.D20211124xSchermDefinitiesTRANSPXUpdate">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>Toevoegen Wegwerp palletten aan op transport zetten (DI1 en DI2)</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..SchermDefinities()
+	Do ..CollieTypeToevoegen()
+]]></Implementation>
+</Method>
+
+<Method name="CollieTypeToevoegen">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^RES("EWBON","PI","COLLIETYPE","D")
+	
+	Set ^RES("EWBON","PI","COLLIETYPE","D","B") = "5`Buitenmaats pallet`1`BP"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","C") = "2`Collie`1`CO"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","E") = "1`Europalet`1`PL"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","L") = "6`Langgoed`1`CO"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","P") = "4`Klein palet`1`MP"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","W") = "3`WW palet`1`WP"
+]]></Implementation>
+</Method>
+
+<Method name="SchermDefinities">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	Kill ^SD("D","TRANSPX","E")
+		
+	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",19,"P") = "D PUT^vhScherm(""LANGGOED"",X) N X D FIELDI^vhScherm(""LANGLENG"")"
+	Set ^SD("D","TRANSPX","E",19,"V") = "S:X'?.N sEr=""Foutieve numerieke ingave"""
+	Set ^SD("D","TRANSPX","E",20,"E") = "S:'$P(sFL(""Q"",""L""),D) sEr=-1,$P(sFL(""Q"",""L""),D,2)="""""
+	Set ^SD("D","TRANSPX","E",20,"T") = "in meter`x[] of x+x[] of x+x+x[]"
+	Set ^SD("D","TRANSPX","E",20,"V") = "S sEr=$$LENLANGG^TRANSP(X)"
+	Set ^SD("D","TRANSPX","E",23,"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",23,"V") = "S:X<0 sEr=""Moet groter zijn dan nul"""
+	Set ^SD("D","TRANSPX","E",24,"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",24,"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",25,"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",30,"E") = "S:$D(sDir) sEr=-1"
+	Set ^SD("D","TRANSPX","E",33,"E") = "s sEr=-1,FP=2204 W @F,@F1,""[] = ok"",@FCH R *X W @FCS"
+
+	Kill ^SD("D","TRANSPX","F")
+
+	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`WW palet`U`7`60`Q.W.1`+N`L`2``:``0`WWPALET"
+	Set ^SD("D","TRANSPX","F",18) = "8`47`Collie`U`8`60`Q.C.1`+N`L`2``:``0`COLLIE"
+	Set ^SD("D","TRANSPX","F",19) = "9`47`Langgoed`U`9`60`Q.L.1`C`L`20``:``2`LANGGOED"
+	Set ^SD("D","TRANSPX","F",19,"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",20) = "``Lengte`H```Q.L.2`C`L`11``HD``0`LANGLENG"
+	Set ^SD("D","TRANSPX","F",21) = "10`47`Kleine palet`U`10`60`Q.P.1`+N`L`2``:``0`KLEINPALET"
+	Set ^SD("D","TRANSPX","F",22) = "11`47`Buitenmaatse`U`11`60`Q.B.1`+N`L`2``:``0`BUITENMAATSE"
+	Set ^SD("D","TRANSPX","F",23) = "12`47`Net. Gew.`U`12`60`3;""kg""`+NS`L`15`1`:``0`NETGEW"
+	Set ^SD("D","TRANSPX","F",24) = "13`47`Rembours`U`13`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",25) = "14`47`Vrachtkost`U`14`60`7`C`L`15``:``0`VRACHTKOST"
+	Set ^SD("D","TRANSPX","F",25,"F") = "$$FETCHPOP^vhScherm(""TRANSPORT"",""VRACHTKOST"",$S(X="""":""NV"",1:X),""O"")"
+	Set ^SD("D","TRANSPX","F",26) = "15`4`Orders`U`15`16`$$ORDLIST^TRANSPXO`C`L`64``:D``0`ORDERS"
+	Set ^SD("D","TRANSPX","F",27) = "16`4`Leveringen`U`16`16`$$BONLIST^TRANSPX`C`L`64``:D``0`LEVBONS"
+	Set ^SD("D","TRANSPX","F",28) = "17`4`Facturen`U`17`16`$$FAKTLIST^TRANSPXF`C`L`64``:D``0`FACTUREN"
+	Set ^SD("D","TRANSPX","F",29) = "18`4`Proforma's`U`18`16`$$PROFLIST^TRANSPXZ`C`L`64``:D``0`PROFORMAS"
+	Set ^SD("D","TRANSPX","F",30) = "19`4`Opmerking`U`19`4`T.1`B`L`240`````OPMERKING"
+	Set ^SD("D","TRANSPX","F",30,"F") = "G`AXFL~`sFL(""T"")"
+	Set ^SD("D","TRANSPX","F",31) = "`0`Opgehaald`HU`18`60`V.11`C`L`15``:DH``0`OPHALEN"
+	Set ^SD("D","TRANSPX","F",31,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",32) = "`0`Transfert`HU`19`60`V.12`C`L`15``:DH``0`TRANSFERT"
+	Set ^SD("D","TRANSPX","F",32,"F") = "$$FMTDT^vhLib.DataTypes(X)"
+	Set ^SD("D","TRANSPX","F",33) = "`0`Ok`H`16`16`X`C`L`1``HD``0`OK"
+]]></Implementation>
+</Method>
+
+<Method name="TerugNaarVorigeWaarden">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Kill ^RES("EWBON","PI","COLLIETYPE","D")
+	
+	Set ^RES("EWBON","PI","COLLIETYPE","D","B") = "5`Buitenmaats pallet`1`BP"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","C") = "2`Collie`1`CO"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","E") = "1`Europalet`1`PL"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","L") = "3`Langgoed`1`CO"
+	Set ^RES("EWBON","PI","COLLIETYPE","D","P") = "4`Klein palet`1`MP"
+
+	Kill ^SD("D","TRANSPX","E")
+
+	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",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"
+	
+	Kill ^SD("D","TRANSPX","F")
+	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``:``0`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) = "18`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>
Index: TRANSPX.mac.rou
===================================================================
diff -u -r62918 -r66249
--- TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 62918)
+++ TRANSPX.mac.rou	(.../TRANSPX.mac.rou)	(revision 66249)
@@ -181,7 +181,8 @@
  .Do PUTATTR^vhScherm("LASTRAAT","HD","HD"),PUTATTR^vhScherm("LAWOONPL","HD","HD")
  .Do PUTATTR^vhScherm("LEVBONS","HD","HD"),PUTATTR^vhScherm("FACTUREN","HD","HD"),PUTATTR^vhScherm("PROFORMAS","HD","HD")
  .Do PUTATTR^vhScherm("ORDERS","HD","HD"),PUTATTR^vhScherm("OPMERKING","HD","HD")
- .Do PUTATTR^vhScherm("PALET","HD","HD"),PUTATTR^vhScherm("COLLIE","HD","HD"),PUTATTR^vhScherm("KLEINPALET","HD","HD")
+ .Do PUTATTR^vhScherm("PALET","HD","HD"),PUTATTR^vhScherm("WWPALET","HD","HD")
+ .Do PUTATTR^vhScherm("COLLIE","HD","HD"),PUTATTR^vhScherm("KLEINPALET","HD","HD")
  .Do PUTATTR^vhScherm("BUITENMAATSE","HD","HD"),PUTATTR^vhScherm("LANGGOED","HD","HD"),PUTATTR^vhScherm("VRACHTKOST","HD","HD")
  .Do PUTATTR^vhScherm("NETGEW","HD","HD"),PUTATTR^vhScherm("REMBOURS","HD","HD")
  Else  Do