serial vhLib.Macro,PRGACNTs 1 %SerialObject,%XML.Adaptor 0 Algemene data per lijn %String %String %String %String %String %String %String %String KleurKeuze: %String %String %String %String %String %String Maten e.a. specifieke input data: %String %String %String %String %String %String Xml-tag was vroeger "ALG_FBEVEST", nu is FB per lijn en niet meer algemeen in het order. %String %String %String %String %String %String %String %String %String %String %String %String Standaard Lade. Waarde: $$$tbxCodeStdLade = "Std" is gedefinieerd in vhLib.Macro.INC %String ORGALUX Product (PRNr) %String Info Diverse, is een array van ListItem objecten, wordt berekend in blTBox. Geeft een opsomming van verschillende properties (XML:te tonen in één kolom) WS.TBX.EM.ListItem 1 list Berekende properties voor Proxy-klasse. %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 %String 1 Toevoegsel (in EUR) aan de berekende prijs. Afhankelijk van de array-Key:
FB-S : 1.07
FB-I : 1.84
FB-A : N/A (Not applicable: mag dus niet in selectie/lijst getoond worden)
FB-Z : 0
]]> %String array WS.TBX.EM.ActieGegevens array METHODS ======= 0 %ArrayOfDataTypes Return $LB() van de values van ItemDIV. 0 %List W")) Quit LB ]]> %Boolean %Boolean Voegt de Actie toe aan de lijst. ActieCode is de key, mag niet leeg zijn Korting vult de korting in. ActieCode:%String,Korting:%String Geeft een Iterator die loopt over de ActieItems van deze TBXLijn. Dit zijn objecten van het type "ActieGegevens" (=WS.TBX.EM.ActieGegevens) TECH.Iterator ActieCode ActieCode WS.TBX.EM.ActieGegevens %Float Taal:%String %ListOfDataTypes Creëert een arDataRow Array van het huidige WSLijn-object (arDataRow als .local doorgeven) Output arDataRow-structuur: arDataRow(...) arDataRow("KLR",...) arDataRow:%String 0 For Key="KL","KB","RK","KX","KV","DS" Do . Set arDataRow("KLR",Key)=$zobjproperty(%this,"Item"_Key) . ;Set arDataRow("KLR",Key)=..Item Set arDataRow("DIV")=..ItemDIVToLB() ; Returns $LB() Quit ]]> Vult de data (array) in het WSLijn-object in. Input arDataRow-structuur: arDataRow(...) arDataRow("KLR",...) arDataRow:%String 0 =$G(arData("LN",i,Key)) For Key="KL","KB","RK","KX","KV","DS" Do . Set $zobjproperty(WSLn,"Item"_Key)=$G(arDataRow("KLR",Key)) . ;Set WSLn.Item=$G(arDataRow("KLR",Key)) Set:(WSLn.ItemBM="I")&&(WSLn.ItemDK=80) WSLn.ItemBM="LR" ;Set WSLn.ItemDIV=$G(arDataRow("DIV")) // ListOfObjects, ReadOnly : Calculated property !!! Quit ]]> Vult de data (array) in het WSLijn-object in. Input arDataRow-structuur: zie method "..FillFromArray()" 1 arDataRow:%String 0 WS.TBX.EM.OrderLijn 1 Quit:('$$$aHasSubNodes(arDataRow)) "" Set WSLn=##class(WS.TBX.EM.OrderLijn).%New() Do WSLn.FillFromArray(.arDataRow) Quit WSLn ]]> %Library.CacheSerialState OrderLijnState ^WS.TBX.E.OrderLijnS "WS.TBX.EM.OrderLijn" Exclude GAMeta ItemBM ItemBX ItemCB ItemDK ItemDS ItemLD ItemLT ItemOPVL ItemSB ItemWD KostPrijs LijnNr Qty ItemFB ItemKB ItemKL ItemKX ItemRK ItemSTDL AddPrs ItemVPK ItemSPZK ItemDIV ItemOLP ItemASM ItemBGRP AKPrijs ItemKV KlantRef ItemDWV ItemFS ActieKorting ActieItems ItemKLROPVL ItemRSTL