Index: APPS/OV/impl/GLSTrackAndTrace.cls.xml
===================================================================
diff -u -r40947 -r58704
--- APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 40947)
+++ APPS/OV/impl/GLSTrackAndTrace.cls.xml	(.../GLSTrackAndTrace.cls.xml)	(revision 58704)
@@ -3,11 +3,16 @@
 <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>ekceoh</Default>
@@ -111,11 +116,11 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim TaalGLS As %String = ..GLSTools.GeefTaalVoorGLS(Taal)
-	#dim WebPagina As %String = "http://www.gls-group.eu/276-I-PORTAL-WEB/dLink.jsp"
+	#dim WebPagina As %String = "https://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