Index: csp/vhisie/TBX/BuildRef/tmpDev.mac.rou
===================================================================
diff -u -r724 -r787
--- csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 724)
+++ csp/vhisie/TBX/BuildRef/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 787)
@@ -16,6 +16,7 @@
Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(sDomCVT,$LB("VERW","KLNR"))
Set sDomVERW=$LG(lbDomLU,1)
Set sDomKLNr=$LG(lbDomLU,2)
+
Set Taal=$G(%request.Data("Taal",1),$$$TaalDfl)
Set QS=$G(%request.CgiEnvs("QUERY_STRING"))
Set Ref=$G(%request.Data("REF",1))
@@ -44,13 +45,15 @@
. Set KLNr=$G(%request.Data("KLNR",1))
. Set wsID=$G(%request.Data("WSID",1))
. Set sMode=$G(%request.Data("MODE",1))
-
- 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="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
- . Kill %blnBuildRef
+
+ New TBXContext Set TBXContext = ##class(APPS.TBXWeb.TBXContext).%New("")
+ Do TBXContext.ZetDomeinVerwerker(VERW)
+ Set %blnBuildRef=1
+ Set DataOpt=$G(%request.Data("DATAOPT",1))
+ Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,,$S(TBXContext.KlantGegevensViaDataOpt():VERW, 1:""))
+ Kill %blnBuildRef
+
If ($G(%request.Data("SUBMIT",1))="Encrypt") Do
. Set blnEncrypt=1
. Set EncRefOut=$$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(KLNr,VERW,wsID,sMode))
@@ -59,7 +62,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="HFLE":"HFLE", VERW="HFLB":"HFLB", VERW="KISCH":"KISCH", VERW="RAEM":"RAEM", 1:""))
+ .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,$S(TBXContext.KlantGegevensViaDataOpt():VERW, 1:""))
.. ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
. ;New Page,UrlTaal
. Set Page=$G(%request.Data("PAGE",1))
@@ -144,7 +147,7 @@
If 'blnNoAccess Do
. Set %blnBuildRef=1
. Set DataOpt=$G(%request.Data("DATAOPT",1))
- . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
+ . Set DataOptOut=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,.tmpAr,$S(sDomVERW="HEIN":"HEIN",sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
. Kill %blnBuildRef
Set tmpTaal=$G(tmpAr("Taal"))
Set:(tmpTaal?1(1"N",1"F",1"E",1"D")) Taal=tmpTaal
@@ -186,7 +189,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(sDomVERW="SFS":"SFS", sDomVERW="MBHO":"MBHO", sDomVERW="HFLB":"HFLB", sDomVERW="HFLE":"HFLE", sDomVERW="KISCH":"KISCH", sDomVERW="RAEM":"RAEM", 1:"LMC"))
+ .. Set EncDataOptOut=$$OPTIMAEncryptData^cspBasis.TBX.DecodeURL.tmpDev(DataOpt,sDomVERW)
.. ;Set EncDataOptOut=$system.Encryption.Base64Decode($TR(EncDataOptOut,"_-","+="))
.. If blnKeySteps Do ophOPTIMAIntermediates(DataOpt,sDomVERW)
. ;New Page,UrlTaal
Index: cspBasis/TBX/DecodeURL/tmpDev.mac.rou
===================================================================
diff -u -r780 -r787
--- cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 780)
+++ cspBasis/TBX/DecodeURL/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 787)
@@ -377,6 +377,7 @@
Kill arData
Quit:($G(encData)="") ""
Set OptimaKey=##class(APPS.TBXWeb.TBXContext).%New("").GeefDataOptKeyVoorDomVerwerker(sDomVERW) ; $S(sDomVERW="LMC":$$$OptimaKey, sDomVERW="SFS":$$$SfsOptKey, sDomVERW="MBHO":$$$MBHollandOptKey, sDomVERW="HFLB":$$$HafeleBEOptKey, 1:ERROR)
+ Do ##class(vhLib.Logger).%New("AA").Error("DataDecryption","DecryptionKey kan niet achterhaald worden voor verwerker '"_sDomVERW_"' "_$$GetStackToString^vhLib())
Set:(OptimaKey="") OptimaKey=ERROR ; Trigger error
If ($G(%blnBuildRef))&&($$$NotEncrypted(encData)) Set Data=encData
Else Set Data=$$ophDecryptHashedRef(encData,OptimaKey)
Index: csp/vhisie/TBX/Wizard/tmpDev.mac.rou
===================================================================
diff -u -r776 -r787
--- csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 776)
+++ csp/vhisie/TBX/Wizard/tmpDev.mac.rou (.../tmpDev.mac.rou) (revision 787)
@@ -83,7 +83,7 @@
Set lbShowFT=""
Set:('blnCalcPrices)||(sMode'="A") lbShowFT=lbShowFT_$LB("OFFAV")
Set:(blnPriceAvail )||(sMode'="A") lbShowFT=lbShowFT_$LB("OFF")
- Set:(TBXContext.IsDomeinHEIN())||(sMode'="A")||((wsID>0)&&(sMode'="A")) lbShowFT=lbShowFT_$LB("BBON")
+ Set:(sMode'="A")||((wsID>0)&&(sMode'="A")) lbShowFT=lbShowFT_$LB("BBON")
Set BTWInputMode=$S($$$NSpace="DEMO":0, 'blnVHEPN:0, blnCalcPrices:1, 1:3) ; 0=hidden, 1=shown but optional, 3=shown+obligatory
Set:(blnVHEPN)&&(TBXContext.IsKlantIDIngevuld(KLNr)) BTWInputMode=0 ; Overrules previous line
Set blnShowDynSpace=0 ; (blnVHEPN)&&(KLNr?1(1"4645x",1"6821"))
Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r782 -r787
--- cspBasis/GAProdTBox.cls.xml (.../GAProdTBox.cls.xml) (revision 782)
+++ cspBasis/GAProdTBox.cls.xml (.../GAProdTBox.cls.xml) (revision 787)
@@ -38,7 +38,7 @@
#define smClean "Clean"
#define smSave "Save"
#define smCleanSave "CleanSave"
- New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,blnRAEM,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
+ New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,blnRAEM,blnHEIN,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
Do gkdInitialize
Set KLMini=""
For i=1:1:$LL(lbGetData) Do Quit:($IsObject(KLMini))
@@ -59,6 +59,7 @@
Set blnHFLB=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).HafeleBE())
Set blnKISCH=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).Kisch())
Set blnRAEM=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
+ Set blnHEIN=(sDomVERW=##class(APPS.TBXWeb.enu.TBXHandel).Hein())
If blnVHEPN Do
. Set flgGetFrom=$LG(lbFlags,$$$liGetFrom,"Ext")
. Set flgStorageMode=$LG(lbFlags,$$$liStorageMode,$$$smNoAction)
@@ -81,7 +82,7 @@
Set KLData=$G($$$GlobalKLData(sDomVERW,KLNr))
Quit:(KLData="")
; Else
- If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+ If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN 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"))
@@ -98,7 +99,7 @@
Quit
gkdDataFromExternal
New KLData
- If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+ If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN Do
. Set KLMini=$$GetKlantDataViaQS(.KLData)
. Set:(KLMini) KLNr=KLMini.Nummer
Else If blnVHEPN Do
@@ -115,7 +116,7 @@
Quit:(flgStorageMode=$$$smClean)
Quit:('$IsObject(KLMini))
; Else : Save the data
- If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM Do
+ If blnLMC||blnSFS||blnMBHO||blnHFLE||blnHFLB||blnKISCH||blnRAEM||blnHEIN Do
. Set $$$GlobalKLData(sDomVERW,KLNr)=KLData
Quit
@@ -153,6 +154,10 @@
. Set Data=$G(%request.Data("DATAOPT",1))
. Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).VanRaemdonck())
. Quit:(Data="")
+ If blnHEIN Do
+ . Set Data=$G(%request.Data("DATAOPT",1))
+ . Set Data=$$OPTIMADecryptData^cspBasis.TBX.DecodeURL.tmpDev(Data,.tmpAr,##class(APPS.TBXWeb.enu.TBXHandel).Hein())
+ . Quit:(Data="")
If Data'="" Do
. Set KLMini=##class(WS.TBX.KlantMini).%New()
. Set KLMini.Taal =$$$ReplaceBackQuote($G(tmpAr("Taal")))
Index: APPS/TBXWeb/TBXContext.cls.xml
===================================================================
diff -u -r781 -r787
--- APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 781)
+++ APPS/TBXWeb/TBXContext.cls.xml (.../TBXContext.cls.xml) (revision 787)
@@ -151,9 +151,16 @@
;Set lbDomLU=##class(WS.TBX.Order).DomainLookUp(WebDomein,$LB("VERW","KLNR")) ; $$TBXDomainLU^cspBasis.Library(sDomCVT,$LB("VERW","KLNR"))
Set lbDomLU=..GeefDomeinData(WebDomein,$LB("VERW","KLNR"))
- Set ..DomeinVerwerker=$LG(lbDomLU,1)
+ Do ..ZetDomeinVerwerker($LG(lbDomLU,1))
Set ..DomeinKlantNummer=$LG(lbDomLU,2)
+ Quit $$$OK
+]]>
+
+
+
+1
+
+
+DomeinVerwerker
+
+
+
domain / sDomVERW / sDomKLNr
@@ -683,7 +696,7 @@
Set Result=0
}
Else {
- Set Result=(..DomeinVerwerker?1(1"DUPO",1"HELMY",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",1"HEIN")) ; ..DomeinVerwerker'?1(1"VHEPN",1"HEIN",1"LMC") ; 1"SFS"
}
Quit Result
]]>
@@ -694,7 +707,7 @@
De nieuwe handels maken gebruik van de klasse APPS.TBXWeb.OrderHandling voor de verzonden bestellingen
De vroeger geïmplementeerde handels versturen de mails via de implementatie in routine csp.vhisie.TBX.MailResult.tmpDev.MAC
%Boolean
-
@@ -703,7 +716,7 @@
Bij bestelling verzenden naar VH wijzigt het BonType van BBON naar INKP
(is enkel voor externe domeinen)
%Boolean
-
@@ -714,7 +727,7 @@
Bij de andere domeinen wordt een ingave (offerte) verzonden als bestelbon, wat overeenkomt met "Goed voor Order" --> OFFTOBBON=1
Een prijsaanvraag voor 'Anonymous' gebruikers loopt via een OfferteAanvraag, i.e. BonType="OFFAV" ]]>
%Boolean
-
@@ -813,7 +826,7 @@
%Boolean
-
@@ -855,7 +868,7 @@
If ..DomeinVerwerker?1(1"VHEPN") {
Set ToonKlantrefProdBijIngaveMaten=1
}
- ElseIf ..DomeinVerwerker?1(1"SFS",1"RAEM",1"HELMY",1"HFLB",1"KISCH") {
+ ElseIf ..DomeinVerwerker?1(1"SFS",1"RAEM",1"HELMY",1"HFLB",1"KISCH",1"HEIN") {
Set ToonKlantrefProdBijIngaveMaten=1
}
Quit ToonKlantrefProdBijIngaveMaten
@@ -903,7 +916,7 @@
Contactgegevens van de klant in stap 1 (PData) van de Wizard.
Typisch worden deze verborgen voor handels via DataOpt
%Boolean
-
Index: WS/TBX/Order.cls.xml
===================================================================
diff -u -r709 -r787
--- WS/TBX/Order.cls.xml (.../Order.cls.xml) (revision 709)
+++ WS/TBX/Order.cls.xml (.../Order.cls.xml) (revision 787)
@@ -394,7 +394,7 @@
}
Else {
- Set HandelSubmitsToVH=(sDomVERW'?1(1"HEIN",1"LMC"))
+ Set HandelSubmitsToVH=(sDomVERW'?1(1"LMC"))
If HandelSubmitsToVH {
Set SubmitTS=$LG($LG(..SubmitToVHLog,1),1)
}