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 APPS.TBXWeb.enu.TBXHandel 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 Kisch (met login) (NL) %Boolean 1 Van Raemdonck (met login) (BE) %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 %Boolean %Boolean %Boolean APPS.TBXWeb.enu.TBXHandel %Integer %Boolean 0) ]]> DOM.enu.Taal 1 sDomVERW:%String DOM.enu.Taal %Boolean 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 Geeft de Encryptiesleutel voor de DataOpt string. Definitieve method, kan pas gebruikt worden na refactor van de code. %String Geeft de Encryptiesleutel voor de DataOpt string. Tijdelijke method, die DomeinVerwerker als param doorgeeft, i.p.v. aan de "echte" TBXContext te vragen. Oproepen via : w ##class(APPS.TBXWeb.TBXContext).%New("","").GeefDataOptKeyVoorDomVerwerker(sDomVERW) Mag weg na refactor van de code. sDomVERW:%String %String sDomVERW:%String 1 %String 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 Controleert of het Klantnummer ingevuld is; mag zowel numeriek als niet-numeriek zijn. OPMERKING : 0 (nul) wordt als ook als NIET-ingevuld beschouwd. KlantID:%String %Boolean Controle of een bezoeker met gegeven Klantnummer toegang heeft de de applicatie KlantID:%String %Boolean Verwerker voor dit domein toegelaten (typisch VHEPN en DomeinVerwerker) 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 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 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 KLNr:%String %Boolean Dit gaat om de info die getoond mag worden over het gebruik van het "Gegroepeerd bestellen" KLNr:%String="" %Boolean De button voor de Testpage van HttpRequest kan hier geactiveerd worden. Is meestal tijdelijk. KLNr:%String="" %Boolean historiek) // KLNr= 999999 / 8215 / 6019 / 9936 / 14937 / 12848 / 14484 / 3524 / 8575 / 5977 / 10096 /10939 / 4137 / 10547 / 5872 / 8537 / 4874 / 1093 / 8537 / 2118 --> 999999 = disabled If (KLNr=999999) || (($L(KLNr))&&(..GeefKlantSpecifiekeSetting(KLNr, ##class(APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode).TestpaginaMogelijk())=1)) { Set ToonKnop=1 } } ElseIf ..IsSFS { ;If KLNr=10001 { ; Set ToonKnop=1 ;} } Quit ToonKnop ]]> %Boolean Om strategische redenen mochten onze Duitse en Franse klanten (hein, OptimaPack) de inox antaro lades niet verdelen KLNr:%String %Boolean RefDatum:%Boolean RefDatum:%String %Boolean RefDatum:%String %Boolean KLNr %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 Contactgegevens van de klant in stap 1 (PData) van de Wizard. Typisch worden deze verborgen voor handels via DataOpt %Boolean De nieuwere handels zullen typisch ervoor kiezen om levertijd niet in te vullen in de wizard, maar pas later bij "Bestelling plaatsen" Voor deze domeinen kan het veld Levertijd verborgen worden in de wizard. Ook de javascript-controle op dit veld zal dan niet actief zijn. Zie ook method ToonLevertijdLaterTekstInWizard() %Boolean I.p.v. het invulveld Levertijd te tonen in de wizard, wordt enkel nog de melding getoond dat levertijd later (bij bestelling) gevraagd wordt. Dit is informatief voor de handels waar voorheen wel de levertijd in de wizard gevraagd werd en nu niet meer. Zie ook method VerbergLevertijdInWizard() %Boolean ContactInfo op de Helppagina %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") ]]> Geeft een taal-afhankelijke URL naar de contactinfo pagina van de handel. Taal:%String %String %String Deze melding wordt getoond in het scherm "Bestelling plaatsen" (kan ook leeg teruggeven) Taal:%String %String KLNr:%String %List 0) { Set KLMiniWS=##class(cspBasis.GAProdTBox).GetKlantData(..GeefDomeinVerwerker(), KLNr, %this) If KLMiniWS.BulkVPKCode'="" { Set lbBulkConfig=$LB(KLMiniWS.BulkVPKCode,KLMiniWS.BulkMinQty,"checked") } Else { Set lbBulkConfig=..GeefKlantBulkConfig(KLNr) } 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 } Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X") ; Probox toevoegen } ElseIf (..IsLMC) { Set lbBulkConfig="" } ElseIf (..IsSFS || ..IsHFLB || ..IsKISCH || ..IsMBHO || ..IsRAEM) { Set lbBulkConfig=..GeefKlantBulkConfig(KLNr) Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X") ; Probox toevoegen } ElseIf (..IsHELMY || ..IsDUPO || ..IsHFLE) { Set lbBulkConfig="" Set lbBulkConfig=..BulkConfigOptieToevoegen(lbBulkConfig,"X") ; Probox toevoegen } Else { Set lbBulkConfig="" } Quit lbBulkConfig ]]> Verpakking:%String,KLNr:%String="" %Integer Is bedoeld voor de verwerker in PROCESS-mode (VHEPN), om de verpakking alsnog te wijzigen alvorens de "Import into Admin" uit te voeren. lbBulkConfig:%List %List Een verpakking toevoegen aan de BulkConfigOpties (achteraan), als de volgorde niet van echt van belang is. lbBulkConfig:%List,ToeTeVoegenVerpakking:%String 1 %List KLNr:%String 1 %List KLNr:%String,SettingSubNode:APPS.TBXWeb.enu.KlantSpecifiekeSettingSubnode,DefaultReturnValue:%String="" 1 %String