APPS.TBXWeb,PRGACNTs 1 %RegisteredObject 0 Is het domein letterlijk uit de URL (kan dus bijvoorbeeld test.tandem-box.com zijn) %String 1 Bevat de conversie van het HttpRequestDomein i.e. de correcte naam van het officiele domein in de productie-omgeving (bvb www.tandem-box.com) %String 1 %String 1 %String 1 Van Hoecke : domein voor de klanten van Van Hoecke %Boolean 1 Hein (Duitsland) %Boolean 1 LMC / Optima Pack (Frankrijk) %Boolean 1 Dupont (Alain Leyssens, BE) %Boolean 1 Destil, ex: Helmondse Yzerhandel (NL) %Boolean 1 Haefele NL (anonymous ingave) %Boolean 1 SFS unimarket (Zwitserland) %Boolean 1 Meubelbeslag Holland (NL) %Boolean 1 Haefele BE (met login) %Boolean 1 WebDomein:%String,HttpRequestDomein:%String="" 1 1 %Status domain / sDomVERW / sDomKLNr Oproepen via : Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest() ]]> 1 te verplaaten naar een Utils-klasse *** / /*** ***/ ]]> Oproepen via : w ##class(APPS.TBXWeb.TBXContext).GeefDomeinData(Domain,lbFieldNames) 1 Domain:%String,lbFieldNames:%List 1 %List Oproepen via : w ##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorKlant(KLNr) 1 KLNr:%String %String Oproepen via : w ##class(APPS.TBXWeb.TBXContext).GeefDomeinKort(WebDomein) 1 WebDomein:%String %String Oproepen via : w ##class(APPS.TBXWeb.TBXContext).GeefWebDomeinVoorAfkorting(DomeinKort) 1 DomeinKort:%String %String 1 Intern:%String,Taal:%String="N",TextType:%String="L",lbFlags:%List="" 1 %String %String %String 0) ]]> 1 sDomVERW:%String 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 %Boolean %Boolean is doorverwijzing naar de method ..KlantGegevensViaDataOpt() %Boolean %Boolean Toegang voor de TestDataOpt page : beperkt via controle op IP-adres IP:%String %Boolean Toegang voor de TestDataOpt page : beperkt via controle op IP-adres IP:%String %Boolean Toegang voor de TestDataOpt page : beperkt via controle op IP-adres IP:%String %Boolean Toegang voor de TestDataOpt page : beperkt via controle op IP-adres IP:%String %Boolean Toegang voor OptimaFIX page : beperkt via controle op IP-adres IP:%String %Boolean De button "ExportXML" voor een bestelling is beschikbaar VERW:%String %Boolean De button "ExportXML" voor een bestelling is beschikbaar %Boolean %Boolean %Boolean Bestelling verzenden naar VH via de mainpage (csp) mogelijk. (is enkel voor externe domeinen) %Boolean Bij bestelling verzenden naar VH wijzigt het BonType van BBON naar INKP (is enkel voor externe domeinen) %Boolean OFFTOBBON=1 Een prijsaanvraag voor 'Anonymous' gebruikers loopt via een OfferteAanvraag, i.e. BonType="OFFAV" ]]> %Boolean Geeft de munteenheid van het domein %String Geeft de munteenheid van het domein of voor verwerker VHEPN op extern domein Zie ook routine GetUserMunt^cspBasis.Library.MAC voor de oude implementatie VERW:%String="" %String De button voor het dupliceren van een order/offerte tonen. %Boolean De button voor de Testpage van HttpRequest kan hier geactiveerd worden. Is meestal tijdelijk. KLNr:%String="" %Boolean historiek) // KLNr= 999999 / 14937 / 12848 / 14484 / 3524 / 8575 / 5977 / 10096 /10939 / 4137 / 10547 / 5872 / 8537 / 4874 / 1093 / 8537 / 2118 --> 999999 = disabled If KLNr=999999 { Set ToonKnop=1 } } Quit ToonKnop ]]> %Boolean Geeft een URL naar de TBox-info pagina in het eigen (lokale) webdomein van de handel Deze wordt getoond op de helppagina (HowTo.csp) Taal:%String %String Toon de sectie Index op de helppagina (HowTo.csp) %Boolean %Boolean Geeft een taal-afhankelijke URL naar de contactinfo pagina van de handel. Dit kan een pagina zijn op het eigen (lokale) domein of een verwijzing naar de sectie "ContactInfo" op de helppagina (HowTo.csp) Maakt gebruik van Res.Vertaling Taal:%String %String HowTo, dan specifieke contactinfo pagina op eigen website. Quit ..WebTextValue(vtlIntern,Taal,"L") ]]> %String KLNr:%String %List 0) { Set KLMiniWS=##class(cspBasis.GAProdTBox).GetKlantData(..GeefDomeinVerwerker(),KLNr) If KLMiniWS.BulkVPKCode'="" { Set lbBulkConfig=$LB(KLMiniWS.BulkVPKCode,KLMiniWS.BulkMinQty,"checked") } Else { Set lbBulkConfig=##class(cspBasis.GAProdTBox).GetKlantBulk(..GeefDomeinVerwerker(),KLNr) } ;d WL^vhDBG("lbBulkConfig: "_$$$LCVT(lbBulkConfig)) If (lbBulkConfig'="")&&($LG(lbBulkConfig,1)_$LG(lbBulkConfig,2)'="") { Set:($LG(lbBulkConfig,1)="") $LI(lbBulkConfig,1)="O" Set:($LG(lbBulkConfig,2)<1) $LI(lbBulkConfig,2)=20 } } ElseIf (..IsLMC) { ;Set lbBulkConfig=$LB("O",20) Set lbBulkConfig="" ; ##class(cspBasis.GAProdTBox).GetKlantBulk("VHEPN",..GeefDomeinKlantNummer()) } ElseIf (..IsSFS||..IsMBHO||..IsHFLB) { Set lbBulkConfig="" } Else { Set lbBulkConfig="" } Quit lbBulkConfig ]]>