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 @@