Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r787 -r788
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 787)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 788)
@@ -24,6 +24,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantLoginId">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DomeinVerwerker:APPS.TBXWeb.enu.TBXHandel,GebruikerNaam:%String,Wachtwoord:%String</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set KlantLoginId = $G($$$GlobalKLData("PSW",DomeinVerwerker,GebruikerNaam_";"_Wachtwoord))
+	If KlantLoginId = "" {
+		;Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Ongeldige username/password"))
+	}
+	
+	Quit KlantLoginId
+]]></Implementation>
+</Method>
+
 <Method name="GetKlantData">
 <Description>
 Get KlantData via Soap on Cache01/ADMIN1</Description>