Index: APPS/OV/impl/GLSTrackAndTrace.cls.xml
===================================================================
diff -u -r50901 -r50989
--- APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 50901)
+++ APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 50989)
@@ -3,14 +3,19 @@
 <Class name="APPS.OV.impl.GLSTrackAndTrace">
 <Super>TECH.RegisteredObject</Super>
 
-<Parameter name="ParcelLogin">
+<Parameter name="ParcelLoginUn">
 <Type>%String</Type>
 <Default>0560005353</Default>
 </Parameter>
 
+<Parameter name="ParcelLoginNo">
+<Type>%String</Type>
+<Default>0560010910</Default>
+</Parameter>
+
 <Parameter name="ParcelURLPaswoord">
 <Type>%String</Type>
-<Default>vho778</Default>
+<Default>ekceoh</Default>
 </Parameter>
 
 <Parameter name="FreightUserID">
@@ -113,9 +118,9 @@
 	#dim TaalGLS As %String = ..GLSTools.GeefTaalVoorGLS(Taal)
 	#dim WebPagina As %String = "http://www.gls-group.eu/276-I-PORTAL-WEB/dLink.jsp"
 	#dim ReferentiesInPieces As %String = ##class(TECH.ListUtils).ListToPieces(..GeefReferenties(Levering),",")
-	#dim TeEncrypteren As %String = ..#ParcelLogin_ReferentiesInPieces_..#ParcelLogin_..#ParcelURLPaswoord
+	#dim TeEncrypteren As %String = ..#ParcelLoginUn_ReferentiesInPieces_..#ParcelLoginNo_..#ParcelURLPaswoord
 	#dim EncryptedStuff As %String = ##class(TECH.StringUtils).ToLower(##class(TECH.Algo.Encryption).MD5Hash32bit(TeEncrypteren))
-	#dim Argumenten As %String = "un="_..#ParcelLogin_"&key="_EncryptedStuff_"&rf="_ReferentiesInPieces_"&crf=&no="_..#ParcelLogin_"&lc="_TaalGLS
+	#dim Argumenten As %String = "un="_..#ParcelLoginUn_"&key="_EncryptedStuff_"&rf="_ReferentiesInPieces_"&crf=&no="_..#ParcelLoginNo_"&lc="_TaalGLS
 	#dim URL As %String = WebPagina_"?"_Argumenten
 	
 	quit URL