persistent 1 WebOrder WS.TBX.OrderAbstract 0 WS.TBX.EM.OrderLijn array %String %String %String %String list %Boolean 1 1 set {*}=##class(WS.TBX.Order).%OpenId({ID}).IsOfferteVervallen() 1 Verwijdert het object met (OID=ID) en vervangt het door het huidige object (door hetzelfde ID in the nemen). Deze manier maakt het mogelijk vorige ID's te hergebruiken. ID:%String 0 %Status %String %Boolean %Boolean 0) ;Quit ..IsInGroepOrder ]]> %Integer 1 wsID %Boolean %String Set the new TransfStatus. It is saved immedately. 1 wsID:%String,NewStatus:%String 1 %Status Set the new TransfStatus. It is saved immedately. Oproepen via : Set blnBusy=##class(WS.TBX.Order).TransfStatusCheckBusy(wsID) 1 wsID:%String 1 %Status Alle lijnen van een order omzetten naar een andere verpakking. Meestal van S(tuk) naar bulk-verpakt C(ommissie zonder onderdelen) of commissie met O(nderdelen) Kan toegepast worden net voor het importeren van een order via Tandembox-web in mode=PROCESS , verw=VHEPN . NewValue:%String 1 %String Verpakking wordt verondersteld gelijk te zijn voor alle lijnen van het WSOrder. %String Geeft een $LB() terug met de DesignCodes voor iedere lijn van het order. geeft dus meestal $LB("S","S",...,"S") of $LB("I", ...) terug omdat het hele WebOrder hetzelfde design bevat. 1 %List 1 %ListOfDataTypes Creëert een WS-object en vul de data in. Input arData-structuur: arData(...) arData("KLT",...) arData("ALG","KLR",...) arData("LN",i,...) arData("LN",i,"KLR",...) 1 arData:%String,NewID:%String 0 WS.TBX.Order Vult de data (array) in het WS-object in. Input arData-structuur: arData(...) arData("KLT",...) arData("ALG","KLR",...) arData("LN",i,...) arData("LN",i,"KLR",...) arData:%String 0 Creëert een arData Array van het huidige WSOrd-object (arData als .local doorgeven) Output arData-structuur: arData(...) arData("KLT",...) arData("ALG","KLR",...) arData("LN",i,...) arData("LN",i,"KLR",...) arData:%String,blnIncludeLN:%Boolean=1 0 Gaat de consistenties van WSOrd.Lijnen na. Als er inconsistenties zijn, worden deze teruggegeven via de array "arErrs". arErrs:%String,Taal:%String 1 %Boolean %String Validatie van de Bestelhoeveelheid : is afhankelijk van de gekozen verpakking in het order en is Domein-specifiek. TBXContext:APPS.TBXWeb.TBXContext %String RefDatum:%String=$H,AantalDagenGeldig:%Integer=30 %String Geeft datum/tijdstip in $H-formaat terug van de laatste submit (to VH). OPGELET : submit to VH betekent voor de handels niet de submit van de klant, maar de submit van de handel naar VanHoecke %String Optionele parameter RefDatum in $H-formaat meegeven. Indien niet opgegeven, dan wordt $H als waarde genomen. Dit is in de meeste gevallen de juiste waarde om IsVervallen te testen. %Boolean 0) || (..OFFVervallenNieuwPrijs20150701()) If (IsVervallen) { Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).DuurOfferteVerstreken() } Else { If (..ActieCodesList.Count() > 0) Set IsVervallen = IsVervallen || ('..ZijnActiesNogGeldig(RefDatum)) If (IsVervallen) { Set VervalReden = ##class(APPS.TBXWeb.enu.RedenOfferteVervallen).ActieVervallen() } } } Quit IsVervallen ]]> APPS.TBXWeb.Utils.impl.LadeDesignControleur %Boolean %Boolean RefDatum:%String=$H %Boolean %String RefDatum:%String=$H %String Maakt de unie van de ActieCodes (op lijnniveau) en vult die in in de ActieCodesList van het WSOrd (hoofding). ActieCode:%String Rol:%String %Boolean Het WSOrder van BBON herzetten naar OFF. Geeft het WSOrder-object terug voor eventuele verdere verwerking. Method handmatig oproepen via : s WSOrd=##class(WS.TBX.Order).ResetToOFF(314) w WSOrd_$S('WSOrd:"",1:" BonType:"_WSOrd.BonType),! 1 wsID:%String,blnResetLevT:%Boolean,blnSaveObj:%Boolean=1 WS.TBX.Order Het WSOrder van INKP herzetten naar BBON. Geeft het WSOrder-object terug voor eventuele verdere verwerking. Method handmatig oproepen via : s WSOrd=##class(WS.TBX.Order).ResetToBBON(314) w WSOrd_$S('WSOrd:"",1:" BonType:"_WSOrd.BonType),! 1 wsID:%String,blnSaveObj:%Boolean=1 WS.TBX.Order Manuele tool om test-orders te markeren als verwerkt, zodat deze niet meer tevoorschijn komen in het overzicht van de niet-verwerkte orders. Zie klasse APPS.TBXWeb.OrderChecker Method handmatig oproepen via : s WSOrd=##class(WS.TBX.Order).MarkeerAlsVerwerkt(wsID,0) w WSOrd,! 1 wsID:%String,ForceerWijziging:%Boolean WS.TBX.Order De status ShowInHist van het WSOrder invullen op basis van het ClientIP, zodat het order al dan niet zichtbaar wordt in de Historiek. ClientHostIP:%String,IsDomeinVHEPN:%Boolean De status ShowInHist van het WSOrder wijzigen, zodat het order al dan niet zichtbaar wordt in de Historiek. Geeft het WSOrder-object terug voor eventuele verdere verwerking. Method handmatig oproepen via : s WSOrd=##class(WS.TBX.Order).UpdateShowInHist(314,80,,) w WSOrd_$S('WSOrd:"",1:" ShowInHist:"_WSOrd.ShowInHist),! 1 wsID:%String,NewStatusH:%String,ClientHostIP:%String="",blnSaveObj:%Boolean=1 WS.TBX.Order $$$shShownForAll) "" If $G(NewStatusH)="" Do Quit:(ClientHostIP="") "" . Set blnIsExternIP=$$$Not($$IsInternIPAdres^cspBasis.Library(ClientHostIP)) . Set NewStatusH=$S(blnIsExternIP:$$$shShownForKlant, 1:$$$shShownForVHEPN) Set WSOrd.ShowInHist=NewStatusH If blnSaveObj Do . Set scSave=WSOrd.%Save() . w:$$$ISERR($G(scSave)) "SaveObj status"_$$ParseStatus^vhLib(scSave),! Do:(1) ushUpdateTBXLog() Quit WSOrd ushUpdateTBXLog() Set:(ClientHostIP'?1.3N3(1"."1.3N)) ClientHostIP=$S(NewStatusH'<$$$shShownForKlant:"192.999.1.999", 1:"192.168.1.999") ; ATTENTION: if an ExternIP already present in the log, the order remains visible in Hist. Do ##class(cspBasis.GAProdTBox).SetOrderShowInHist(WSOrd.%Id(), WSOrd.KLNummer, ClientHostIP, WSOrd.WebDomain, $G(VhisieLogin)) Quit /* SQL-Statement om alle offertes van een klant te verbergen (in de historiek) : UPDATE WS_TBX.WebOrder Set ShowInHist='10' WHERE (KLNummer = 16509) AND (webdomain = 'www.tandem-box.com') AND (BonType='OFF') */ ]]> Aan het WSOrder een Klant toewijzen en tevens van OFFAV omzetten naar OFF Geeft het WSOrder-object terug Method handmatig oproepen via : s WSOrd=##class(WS.TBX.Order).AssignKlantToOFFAV(314,1000) w WSOrd_$S('WSOrd:"",1:" BonType:"_WSOrd.BonType),! 1 wsID:%String,KLNr:%Boolean,blnSaveObj:%Boolean=1 WS.TBX.Order ', KLNummer = 1000, KLStraatNrBus ='', KLPostNr = , KLWoonPlaats = '', KLTelefoon ='', KLFax = '', KLEMail = '' WHERE ID=xxxxx */ ]]> Wijzigen van de property Exclude van een WSLijn. Bij Exclude=1 wordt deze TBX-lijn niet geïmporteerd into Admin (wordt bij herberekenen ook geskipped). Oproepen via : s sc=##class(WS.TBX.Order).WSLijnWijzigExclude(wsID,LijnNr,blnNewValue) w sc,! 1 wsID:%String,LijnNr:%Boolean,NewValue:%Boolean %Status CommReferentie:%String,LeverDatum:%String,Opmerking:%String %Boolean 1 Domain:%String,lbFieldName:%List 0 %List BonType:APPS.TBXWeb.enu.BonType VERW:%String="",Taal:%String="" %String %ListOfDataTypes %Boolean %Boolean %Library.CacheStorage OrderDefaultData Lijnen subnode "Lijnen" "Order" ActieCodesList NietMeeleveren SubmitToVHLog TransfStatus WebQSData WebURL