Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r319 -r320
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 319)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 320)
@@ -1,35 +1,30 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="cspBasis.GAProdTBox">
+<ClassType/>
 <IncludeCode>APPS.TBXWeb,PRGACNTs,ErrorVHCNTs</IncludeCode>
+<ProcedureBlock>0</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<ClassDefinitionError>0</ClassDefinitionError>
 
-<Parameter name="SOAPServerComputer">
+<Method name="GeefKlantSpecifiekeSetting">
 <Description>
-Deze parameter SOAPServer... is pseudo:
-  De werkelijke target voor de WebService wordt bepaald door PeekSOAPServer() routine.
-  Parameter alleen om te testen of de bewerking WEL OF NIET via WebService moet uitgevoerd worden : 
-  If $ZU(110)'=..#SOAPServerComputer Do call via WS  Else direct call to method</Description>
-<Default>CACHE02</Default>
-</Parameter>
-
-<Parameter name="SOAPServerNSpace">
-<Description>
-Deze parameter SOAPServer... is pseudo:
-  zie: Parameter SOAPServerComputer</Description>
-<Default>DEV-ADMIN1</Default>
-</Parameter>
-
-<Method name="GetKlantData">
-<Description>
 Methods:
 ========
 
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 | DATA INPUT/OUTPUT + OPERATIONS                                                            |
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 
+Ophalen van een klantspecifieke setting voor de TBoxWeb site </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>DomeinVerwerker:APPS.TBXWeb.enu.TBXHandel,KLNr:%String,SettingSubNode:APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode,DefaultReturnValue:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $G($$$GlobalKLData(0,DomeinVerwerker,KLNr,SettingSubNode), DefaultReturnValue)
+]]></Implementation>
+</Method>
+
+<Method name="GetKlantData">
+<Description>
 Get KlantData via Soap on Cache01/ADMIN1</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>sDomVERW:%String,KLNr:%String,lbFlags:%List=""</FormalSpec>
@@ -42,8 +37,6 @@
 #define smClean         "Clean"
 #define smSave          "Save"
 #define smCleanSave     "CleanSave"
-	  ;s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
-	  ;d WLIP^vhDBG(97,$G(sDomVERW)_" - "_$G(KLNr)_" - "_$$$LCVT(lbFlags))
 	New blnVHEPN,blnLMC,blnHFLE,blnSFS,blnMBHO,blnHFLB,blnKISCH,flgGetFrom,flgStorageMode,lbGetData,i,KLMini
 	; Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()   ; Of als param doorgeven 
 	Do gkdInitialize 
@@ -354,15 +347,16 @@
 
 <Method name="GetKlantBulk">
 <Description>
-Get Bulk settings from global, specifiek voor KLNr</Description>
+Get Bulk settings from global, specifiek voor KLNr
+DEPRECATED - Use TBXContext.GeefKlantSettings(...) instead! </Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>sDomVERW:%String,KLNr:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	Quit:(sDomVERW="") ""
 	Quit:($G(KLNr)="") ""
-	Set BulkData=$G($$$GlobalKLData(0,sDomVERW,KLNr,"BULK"))
+	Set BulkData=##class(cspBasis.GAProdTBox).GeefKlantSpecifiekeSetting(sDomVERW,KLNr,##class(APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode).BulkVerpakkkingOpties(),"")
 	Quit $$PiecesToList^vhLib(BulkData,"\")
 ]]></Implementation>
 </Method>
@@ -420,7 +414,7 @@
 	Quit $CASE(DCM, "S":$$$DCsDefaultS, "I":$$$DCsDefaultI, "A":$$$DCsDefaultA, "X":$$$DCsDefaultX,  :ERROR)   ; ERROR will not occur 
 	
 gdcGetDCsList(sDomVERW,KLNr)
-	Set KlantDCs=$G($$$GlobalKLData(0,sDomVERW,KLNr,"DESIGNCHOICES"))   ; contains e.g. "S:S\F~I:I~X:S\I\F\MA" 
+	Set KlantDCs=##class(cspBasis.GAProdTBox).GeefKlantSpecifiekeSetting(sDomVERW,KLNr,##class(APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode).DesignChoices(),"")   ; contains e.g. "S:S\F~I:I~X:S\I\F\MA" 
 	Set lbDCs=""
 	For i=1:1:$L(KlantDCs,$$$Delim1) Set:($P($P(KlantDCs,$$$Delim1,i),":",1)=DCM) lbDCs=$$PiecesToList^vhLib($P($P(KlantDCs,$$$Delim1,i),":",2),"\")  Quit:($L(lbDCs))
 	Quit lbDCs
@@ -450,8 +444,8 @@
 			SELECT BxBP1.TBSPZijkant->ItemCode INTO :SPZK
 			  FROM Prod_GAMeta_BT.TBSPZijkant_BeperkGUI AS BxBP1, Prod_GAMeta_BT.TBSPZijkant_BeperkGUI AS BxBP2
 			  WHERE (BxBP1.TBSPZijkant = BxBP2.TBSPZijkant) AND ($ListFind(BxBP1.TBSPZijkant->FilterDC,:DC)>0)
-			    AND (BxBP1.element_key = 'TBRugHoogte' and ((';' || BxBP1.BeperkGUI || ';') LIKE :MatchRH    OR BxBP1.BeperkGUI="*")) 
-			    AND (BxBP2.element_key = 'TBKlasse'    and ((';' || BxBP2.BeperkGUI || ';') LIKE :MatchKLAS  OR BxBP2.BeperkGUI="*"))
+			    AND (BxBP1.element_key = 'TBRugHoogte' and ((';' || BxBP1.BeperkGUI || ';') LIKE :MatchRH    OR BxBP1.BeperkGUI='*')) 
+			    AND (BxBP2.element_key = 'TBKlasse'    and ((';' || BxBP2.BeperkGUI || ';') LIKE :MatchKLAS  OR BxBP2.BeperkGUI='*'))
 			  ORDER BY BxBP1.TBSPZijkant->VolgNr
 	)
 	&SQL(OPEN crsSPZKLC)
@@ -526,7 +520,7 @@
 <Implementation><![CDATA[
 	Quit:(sDomVERW="")
 	Quit:($G(KLNr)="")
-	Quit $G($$$GlobalKLData(0,sDomVERW,KLNr,"MSGSUBMIT"))
+	Quit ##class(cspBasis.GAProdTBox).GeefKlantSpecifiekeSetting(sDomVERW,KLNr,##class(APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode).OpmerkingBijBestelling(),"")
 ]]></Implementation>
 </Method>
 
@@ -737,7 +731,7 @@
 	Set:(blnCalcPrs)&&(WSOrd.BonType="OFFAV") WSOrd.BonType="OFF"   ; Status wordt OFFERTE omdat prijzen nu gekend zijn.
 	Set WSOrd.IngaveTijdStip=$ZDT($H,3)
 	Set WSOrd.SubmitTS=""   ; bij (her)berekening vervalt de (vorige) sumbit-flag.
-	Set WSOrd.TransferLog=""
+	;Set WSOrd.TransferLog=""
 	
 	// Status voor ShowInHist invullen 
 	Set IsDomeinVHEPN=$G(blnVHEPN,1)
@@ -837,10 +831,9 @@
 	Set:($L($G(%Action)) ) lbExtras=lbExtras_$LB("SoapAction="_%Action)
 	Set:($L($G(OptiePRS))) lbExtras=lbExtras_$LB("Opties="_OptiePRS)
 	Set:($L($G(SoapErrorMsg))) lbExtras=lbExtras_$LB("Msg="_SoapErrorMsg)
-	Set DCM=$S(wsID>0:##class(WS.TBX.Order).DCMCalc(wsID), 1:"")
+	Set DCM=$S(wsID>0:##class(WS.TBX.OrderAbstract).%OpenId(wsID).GeefDesignCodeModes().GetAt(1), 1:"")
 	Set sMode=$G(%session.Data("MODE"))_$S(DCM'?1(1"S",1""):" - "_DCM,1:"")
 	Do ##class(cspBasis.GAProdTBox).AddToLog("WIZARD_CALC",$G(%session.Data("DOMAIN")),$G(%session.Data("KLNR")),sMode,wsID,$G(%session.Data("VERW")),,,lbExtras)
-	;Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,Domain,KLNr,WizMode,wsID,Verwerker,Taal,VhisieLogin,lbExtras)
 	Quit
 cdwDEBUG
 	d DbgWrite("DEBUG WSOrd:"_$S('$G(WSOrd):" !!! GEEN WSOrd-Object !!!", 1:""))
@@ -927,18 +920,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WSOrdToAdmin">
-<Description>
-Transfer van een WSOrder naar ADMIN via WEB-SERVICE. Creëert daar een Flow.Offerte.Hoofding+Lijnen
-Geeft $LB(oHfd.ID,"info...") terug.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>wsID:%String,OFFToAdmin:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit $$WSOrdToAdmin^cspBasis.GAProdTBox.tmpDev(.wsID,.OFFToAdmin)
-]]></Implementation>
-</Method>
-
 <Method name="WSOrdRecalc">
 <Description>
 Herrekend de prijzen van het WSOrder via WEB-SERVICE.