Index: WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml
===================================================================
diff -u -r40930 -r40941
--- WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml (.../RegistreerContactGegevensRequest.cls.xml) (revision 40930)
+++ WS/Vhisie4/Auth/RegistreerContactGegevensRequest.cls.xml (.../RegistreerContactGegevensRequest.cls.xml) (revision 40941)
@@ -14,7 +14,7 @@
1
-
+
TECH.String
@@ -86,6 +86,9 @@
Header
+
+Ref
+
Index: WS/Vhisie4/Auth/DecrypteerResponse.cls.xml
===================================================================
diff -u -r40930 -r40941
--- WS/Vhisie4/Auth/DecrypteerResponse.cls.xml (.../DecrypteerResponse.cls.xml) (revision 40930)
+++ WS/Vhisie4/Auth/DecrypteerResponse.cls.xml (.../DecrypteerResponse.cls.xml) (revision 40941)
@@ -19,10 +19,12 @@
TECH.String
+
TECH.String
+
@@ -31,6 +33,7 @@
TECH.String
+
@@ -44,6 +47,43 @@
%ListOfDataTypes
+
+
+%Library.CacheSerialState
+DecrypteerResponseState
+^WS.Vhisie4B7AF.DecrypteerR5760S
+
+listnode
+
+
+IsGeldig
+
+
+IsContactGegevensFormulierNodig
+
+
+PersonalityId
+
+
+KlantId
+
+
+KlantNaam
+
+
+GebruikerId
+
+
+GebruikerNaam
+
+
+Taal
+
+
+ToegelatenLadetypes
+
+
+
Index: WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml
===================================================================
diff -u -r40930 -r40941
--- WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml (.../RegistreerContactGegevensResponse.cls.xml) (revision 40930)
+++ WS/Vhisie4/Auth/RegistreerContactGegevensResponse.cls.xml (.../RegistreerContactGegevensResponse.cls.xml) (revision 40941)
@@ -11,6 +11,7 @@
TECH.String
+
@@ -19,6 +20,7 @@
TECH.String
+
Index: vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt
===================================================================
diff -u -r40930 -r40941
--- vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt (.../WS.Vhisie4.Auth.HandelAuthenticatieService.txt) (revision 40930)
+++ vhTestFiles/IntegratieTests/Webservices.WSDLControle/Test/WS.Vhisie4.Auth.HandelAuthenticatieService.txt (.../WS.Vhisie4.Auth.HandelAuthenticatieService.txt) (revision 40941)
@@ -12,8 +12,8 @@
-
-
+
+
@@ -53,10 +53,10 @@
-
-
+
+
-
+
@@ -77,7 +77,7 @@
-
+
@@ -96,9 +96,9 @@
-
+
-
+
Index: WS/Vhisie4/Auth/DecrypteerRequest.cls.xml
===================================================================
diff -u -r40930 -r40941
--- WS/Vhisie4/Auth/DecrypteerRequest.cls.xml (.../DecrypteerRequest.cls.xml) (revision 40930)
+++ WS/Vhisie4/Auth/DecrypteerRequest.cls.xml (.../DecrypteerRequest.cls.xml) (revision 40941)
@@ -14,11 +14,11 @@
1
-
+
TECH.String
-
+
TECH.String
@@ -45,6 +45,12 @@
Header
+
+Ref
+
+
+DataOpt
+
Index: WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml
===================================================================
diff -u -r40930 -r40941
--- WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml (.../HandelAuthenticatieService.cls.xml) (revision 40930)
+++ WS/Vhisie4/Auth/HandelAuthenticatieService.cls.xml (.../HandelAuthenticatieService.cls.xml) (revision 40941)
@@ -33,39 +33,39 @@
If ("" = DecrypteerRequest.Hostname) {
Set Response.IsGeldig = 0
- } ElseIf ("" = DecrypteerRequest.REF) {
+ } ElseIf ("" = DecrypteerRequest.Ref) {
Set Response.IsGeldig = 0
- } ElseIf (")àç!HEIN)àç!" = DecrypteerRequest.REF) {
- If ("" = DecrypteerRequest.DATAOPT) {
+ } ElseIf (")àç!HEIN)àç!" = DecrypteerRequest.Ref) {
+ If ("" = DecrypteerRequest.DataOpt) {
Set Response.IsGeldig = 0
- } ElseIf ("ongeldigedataopt" = DecrypteerRequest.DATAOPT) {
+ } ElseIf ("ongeldigeDataOpt" = DecrypteerRequest.DataOpt) {
Set Response.IsGeldig = 0
} Else {
Set Response.IsGeldig = 1
Set Response.GebruikerId = "1"
Set Response.GebruikerNaam = ""
Set Response.IsContactGegevensFormulierNodig = 0
- Set Response.KlantId = "hein_" _ DecrypteerRequest.DATAOPT
- Set Response.KlantNaam = "hein_" _ DecrypteerRequest.DATAOPT
+ Set Response.KlantId = "hein_" _ DecrypteerRequest.DataOpt
+ Set Response.KlantNaam = "hein_" _ DecrypteerRequest.DataOpt
Set Response.PersonalityId = 11
Set Response.Taal = "D"
Do Response.ToegelatenLadetypes.Insert("LBX")
Do Response.ToegelatenLadetypes.Insert("TAX")
Do Response.ToegelatenLadetypes.Insert("TBX")
}
- } ElseIf (")àç!DU-PONT)àç!" = DecrypteerRequest.REF) {
- If ("" = DecrypteerRequest.DATAOPT) {
+ } ElseIf (")àç!DU-PONT)àç!" = DecrypteerRequest.Ref) {
+ If ("" = DecrypteerRequest.DataOpt) {
Set Response.IsGeldig = 1
Set Response.IsContactGegevensFormulierNodig = 1
- } ElseIf ("ongeldigedataopt" = DecrypteerRequest.DATAOPT) {
+ } ElseIf ("ongeldigeDataOpt" = DecrypteerRequest.DataOpt) {
Set Response.IsGeldig = 0
} Else {
Set Response.IsGeldig = 1
Set Response.GebruikerId = "1"
Set Response.GebruikerNaam = ""
Set Response.IsContactGegevensFormulierNodig = 0
- Set Response.KlantId = "dupont_" _ DecrypteerRequest.DATAOPT
- Set Response.KlantNaam = "dupont_" _ DecrypteerRequest.DATAOPT
+ Set Response.KlantId = "dupont_" _ DecrypteerRequest.DataOpt
+ Set Response.KlantNaam = "dupont_" _ DecrypteerRequest.DataOpt
Set Response.PersonalityId = 4
Set Response.Taal = "N"
Do Response.ToegelatenLadetypes.Insert("LBX")
@@ -87,8 +87,8 @@