PRGACNTs,APPS.TBXWeb,TECH.Error 1 WS.TBX.OrderAbstract WS.TBX.EM.OrderLijn array %String %String %String %List %List Waarde wordt on-the-fly berekend en ingevuld (proxy) %String 1 %Integer %String list %Status %String 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 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 0 %String %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. %String 0) 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 ]]> %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 1 Domain:%String,lbFieldName:%List 0 %List %Boolean 1 EDINr:%String="" %String 1000000):(EDINr-1000000), 1:EDINr) } Quit ID ]]>