Index: APPS/TBXWeb/TBXContext.cls.xml =================================================================== diff -u -r716 -r718 --- APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 716) +++ APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 718) @@ -475,7 +475,7 @@ De domeinen die voorzien dat enkel via anonymous kan worden ingegeven. D.w.z. klanten hebben niet de mogelijkheid om via de WebShop (van de betreffende handel) in te loggen %Boolean - @@ -489,7 +489,7 @@ %Boolean - @@ -503,7 +503,7 @@ %Boolean - @@ -678,11 +678,11 @@ If ..DomeinVerwerker=##class(APPS.TBXWeb.enu.TBXHandel).SFS() { Set Result=1 ; voor SFS geldt in de eerste plaats: Submit via WebService, maar als backup kunnen ze nog steeds submitten vanuit de mainpage (csp) } - If ..DomeinVerwerker="HFLB" { + If ##class(TECH.StringUtils).Equals(..DomeinVerwerker, "HFLB", "HFLE") { Set Result=0 } Else { - Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"HFLE",1"MBHO",1"KISCH",1"RAEM")) ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC") ; 1"SFS" + Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",1"MBHO",1"KISCH",1"RAEM")) ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC") ; 1"SFS" } Quit Result ]]> @@ -887,13 +887,13 @@ Toon de sectie Index op de helppagina (HowTo.csp) %Boolean - %Boolean - @@ -902,7 +902,7 @@ Contactgegevens van de klant in stap 1 (PData) van de Wizard. Typisch worden deze verborgen voor handels via DataOpt %Boolean - @@ -1034,11 +1034,11 @@ ElseIf (..IsHEIN) { Set lbBulkConfig="" } - ElseIf (..IsSFS || ..IsHFLB || ..IsKISCH || ..IsMBHO || ..IsRAEM) { + ElseIf (..IsSFS || ..IsHFLB || ..IsHFLE || ..IsKISCH || ..IsMBHO || ..IsRAEM) { Set lbBulkConfig=..GeefKlantBulkConfig(KLNr) Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X") ; Probox toevoegen } - ElseIf (..IsHELMY || ..IsDUPO || ..IsHFLE) { + ElseIf (..IsHELMY || ..IsDUPO) { Set lbBulkConfig="" Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X") ; Probox toevoegen } Index: cspBasis/GAProdTBox.cls.xml =================================================================== diff -u -r588 -r718 --- cspBasis/GAProdTBox.cls.xml (.../GAProdTBox.cls.xml) (revision 588) +++ cspBasis/GAProdTBox.cls.xml (.../GAProdTBox.cls.xml) (revision 718) @@ -62,7 +62,7 @@ If blnVHEPN Do . Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Ext") . Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction) - Else If blnHFLE Do + Else If 0 Do . Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Stg") . Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction) Else Do ; Default ; (If blnLMC||blnSFS||blnMBHO Do) @@ -81,15 +81,15 @@ Set KLData=$G($$$GlobalKLData(sDomVERW,KLNr)) Quit:(KLData="") ; Else - If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do + If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do . Do OPTIMAAnalyseData^cspBasis.TBX.DecodeURL.tmpDev(KLData,.tmpAr) ; Analyse only, KLData already decrypted . Set KLMini=##class(WS.TBX.KlantMini).%New() . Set KLMini.Taal =$G(tmpAr("Taal")) . Set KLMini.Nummer=$G(tmpAr("KLNummer")) . Set KLMini.Naam =$G(tmpAr("KLNaam")) . Set KLMini.EMail =$G(tmpAr("EMail")) . Set KLMini.Korting=$G(tmpAr("Korting")) - Else If blnHFLE Do + Else If 0 Do . Set KLMini=##class(WS.TBX.KlantMini).%New() . Set KLMini.Naam =$P(KLData,"\",3) . Set KLMini.EMail =$P(KLData,"\",4) @@ -98,7 +98,7 @@ Quit gkdDataFromExternal New KLData - If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do + If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do . Set KLMini=$$GetKlantDataViaQS(.KLData) . Set:(KLMini) KLNr=KLMini.Nummer Else If blnVHEPN Do @@ -115,7 +115,7 @@ Quit:(flgStorageMode=$$$smClean) Quit:('$IsObject(KLMini)) ; Else : Save the data - If blnLMC||blnSFS||blnMBHO||blnHFLB||blnKISCH||blnRAEM Do + If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do . Set $$$GlobalKLData(sDomVERW,KLNr)=KLData Quit @@ -137,6 +137,10 @@ . Set Data=$G(%request.Data("DATAOPT",1)) . Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,"MBHO") . Quit:(Data="") + If blnHFLE Do + . Set Data=$G(%request.Data("DATAOPT",1)) + . Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).HafeleNL()) + . Quit:(Data="") If blnHFLB Do . Set Data=$G(%request.Data("DATAOPT",1)) . Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE()) Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou =================================================================== diff -u -r577 -r718 --- cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 577) +++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 718) @@ -243,7 +243,7 @@ #If $$$NSpace="xDEMO" Quit:(Mode="A") $S(1:$$$utKlantAnon) #Else - Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY||blnHFLE:$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon) + Quit:(Mode="A") $S(blnHEIN||blnDUPO||blnHELMY:$$$utKlantAnonWP, TBXContext.IsKlantIDIngevuld(KLNr):$$$utKlantKnown, 1:$$$utKlantAnon) #EndIf Quit:(Mode="W") $$ophGetVERWType(Domain,Verw) Quit:(Mode="P") $$$utKlantAnon ; Temporary: fixed value Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou =================================================================== diff -u -r577 -r718 --- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 577) +++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 718) @@ -48,7 +48,7 @@ Do . Set %blnBuildRef=1 . Set DataOpt=$G(%request.Data("DATAOPT",1)) - . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) + . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) . Kill %blnBuildRef If ($G(%request.Data("SUBMIT",1))="Encrypt") Do @@ -59,7 +59,7 @@ . ;If $L($G(%request.Data("DATAOPT",1))) Do . If $L(DataOpt) Do .. Set DataOptCheck=DataOpt - .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) + .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(VERW="SFS":"SFS", VERW="LMC":"LMC", VERW="MBHO":"MBHO", VERW="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:"")) .. ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+=")) . ;New Page,UrlTaal . Set Page=$G(%request.Data("PAGE",1))