0 0 persistent 0 PRGACNTs 0 %Library.Persistent,%XML.Adaptor 0 0 %Library.String 0 0 0 0 0 0 0 Derde.Klant.Klant 0 0 0 0 0 0 0 Prod.GAData.Item 0 0 children Product 0 0 1 0 0 0 Prod.GAData.KostPrijs 0 0 children Product 0 0 1 0 0 0 Prod.GAMeta.Struct 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 Prod.Product 0 0 0 0 0 0 0 Prod.GAData.Template 0 0 0 0 0 0 0 %Library.String 0 0 0 0 0 0 0 %String Bij een product dat afgeleid is van een Template, wordt de bovenstaande propt. "Template" niet bewaard. Daarvoor is deze "TemplateTmp", welke ingevuld wordt door het oproepen van de method ..TemplateTmpInit() . Prod.GAData.Template 0 0 0 0 0 0 1 Voor de structuur: zie method ..BuildLookUp(lbNodes) %Library.String 0 0 1 0 0 0 1 %Library.String 0 0 1 0 0 0 1 bevat de gecumuleerde waarden op subgroep-, groep- en hoofdgroep-niveau van de data-items (enkel van params die moeten gecumuleerd worden) %Library.String 0 0 1 0 0 0 1 0 0 code IsNew:%Library.Boolean=1 0 %Library.Status 0 SaveClean verwijdert een aantal DataItem.Parameter objecten, die niet moeten opgeslagen worden. Het is NIET mogelijk deze opkuis te integreren in the %OnBeforeSave() method, want "Save deleted objects" geeft conflicten! Daarom deze custom %Save() routine, die de CleanUpMem() vooraf oproept. %Library.Status Mogelijke waarden voor Action zijn: "FILL", "CLEAR". De parameter Templ is optioneel; als deze niet meegegeven is, wordt de template via TemplateCode geopend. 0 0 code Templ:Prod.GAData.Template,Action:%Library.String="FILL" 0 0 Maakt een nieuw product, vertrekkende van een bestaand product (gegeven door ProductID), en kopieert alle properties, DataItems (en KostPrijzen). 0 1 code ProductID:%Library.String 0 Prod.GAData.Product 0 Maakt een nieuw product, vertrekkende van het tempate-product (gegeven door TemplateID), en kopieert alle DataItems. 0 1 code TemplateID:%Library.String 0 Prod.GAData.Product 0 Maakt een array met de hierarchische structuur van Struct op basis van Code/ID en gesorteerd volgens Nr: Struct - Groep - SubGroep - Item 0 0 code Ref:%Library.String="arStruct" 0 0
"SG":
..LookUp("SG",SubGroepCode) =$LB(Oref SubGroep)
"PL":
..LookUp("PL",ProgLabel)=ParamVal
"ICode"
..LookUp("IC",Item.Code,"PL",ProgLabel)=""
..LookUp("PLItem","IC")=Item.Code
..LookUp("PLItem","IOref")=Oref Item
"ISort"
..LookUp("ISort",SubGroepCode,"Code",Item.Code)=""
..LookUp("ISort",SubGroepCode,"VNr",Item.VolgNr)="" ]]> 0 0 code lbNodes:%Library.List 0 0 0 0 code Ref:%Library.String="arTree",blnShowPrijs:%Library.Boolean=0 0 0 0 0 code Ref:%Library.String="arTree" 0 0 0 0 code 0 0 0 0 code Aantal:%Library.Integer 0 %Library.Float 0 Vertaalt de CheckArray naar beter begrijpbare teksten. Als blnAsText=1, dan wordt alles in één geheel (gescheiden door CRLFs) aan de hoofdnode van CheckArrayOut toegekend. Anders is de structuur van CheckArrayOut als volgt: CheckArrayOut(1)="Melding1" CheckArrayOut(2)="Melding2" ... 0 1 code 0 0 0 0 code ClearMode:%Library.String 0 0 0 0 code 0 %Library.Integer 0 Kopieert alle DataItems van het gegeven product (Prod) naar het huidige product. Ook de parent/child relatie wordt gelegd tussen elk gekopieerde DataItem en het huidige product. 0 0 code Prod:Prod.GAData.Product,ItemsCopyMode:%Library.String="NotProd" 0 0 Copy maken van GAData.Product in een nieuw object. Verschillende CopyModes: "FullCopy" (=Default), "Empty" 0 0 code CopyMode:%Library.String="FullCopy" 0 0 CopyObj Quit CopyObj ]]> Gebruik voor opbouw van de Items in een nieuwe Template (product). 0 0 code 0 0 Returns the Child-object with the given ChildID (without ParentID), or "" if not found. Parameter Key is passed by Reference and gets the value of the position in the collection of Childs. 0 0 code 0 Prod.GAData.Item 0 Ophalen van het dossiernr indien het nog niet bestaat dan invullen 0 0 code GenPRNr:%Library.String 0 0 Parameter Key is passed by Reference and gets the value of the position in the collection of Childs. ]]> 0 0 code 0 %RegisteredObject 0 %RegisteredObject Geeft het gewicht volgens het gevraagde type "N" : Netto "T" : Tarra "B" : Brutto Gewicht in gram met twee cijfers na de komma 0 0 code Type:%Library.String="N" 0 %Library.Float 0 GenPRNr is een verplichte parameter.]]> 0 0 code GenPRNr:%Library.Integer,QtyStaffel:%Library.String=1 0 0 Deze method kan slechts opgeroepen worden (TBX) als het Product berekend is 0 0 code 0 %Library.String 0 Returns the Child-object with the given ChildID (without ParentID), or "" if not found. Parameter Key is passed by Reference and gets the value of the position in the collection of Childs. 0 0 code 0 Prod.GAData.KostPrijs 0 Formateer de langtekst van een product in de geselecteerde taal 0 0 code 0 0 Gebruik voor opbouw van de Items in een nieuwe Template (product). 0 0 code MetaItem:Prod.GAMeta.Item,SGCode:%Library.String,Code:%Library.String,VolgNr:%Library.Integer 0 Prod.GAData.Item 0 0 1 code Template:Prod.GAData.Template 0 0 Opent het GAData.Product en berekent alle gegevens die niet bewaard worden. 0 1 code ProdID:%Library.String 0 Prod.GAData.Product 0 1 ProdID:%String %Integer 0 0 code 0 %String 0 0 0 code 0 Prod.GAData.Template 0 0 0 code 0 Prod.GAData.Template 0 0 0 code Msg:%Library.String 0 0 bvb. voor het updaten van een ProgLabel in de LookUp. 0 0 code Node:%Library.String,lbItems:%Library.List 0 0 bvb. voor het updaten van een ProgLabel in de LookUp. 0 0 code Node:%Library.String,lbItems:%Library.List 0 0 Geeft de waarde van een proglabel 0 0 code ProgLabel:%Library.String 0 %Library.String 0 Vult de waarde van een Item in. Het Item is bepaald door ProgLabel ProgLabel:%Library.String,ItemVal:%Library.String %Library.Status Valideert de producten van alle DataItems en geeft aan of alle producten OK zijn (geeft 0 of 1 terug). 0 0 code 0 %Library.Integer 0 %Library.String Opties :

GAF : Full XML-beschrijving; i.e. met tag < PRODUCTEN >

GAV : VML-code toevoegen

GA0 : met Omschrijving van de data in de XML-tags

VMLH,VMLC : Opties voor VML-gedeelte: zie KaderDeur.XMLVectorWrite

.

XSLURL : Toevoegen van de reference naar de XSL. Indien Leeg (""), tags worden weggelaten.]]> 0 0 code DevObj:%Library.String,Taal:%Library.String,Opties:%Library.String,XSLURL:%Library.String 0 0 %Library.CacheStorage ^Prod.GAData.ProductD ProductDefaultData ^Prod.GAData.ProductD ^Prod.GAData.ProductI ^Prod.GAD.ProductS %%CLASSNAME node 0 listnode MetaStruct Omschrijving PRNr TemplateCode Template Dossier Product TemplateTmp Klant TemplateVersion