1 TECH.Error 1 %RegisteredObject 0 DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie 1 DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie 1 DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom 1 DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 %ArrayOfDataTypes 1 %Integer 1 %String 1 %ListOfDataTypes array 1 ProductSpecificatie:DOM.PM.Maatwerk.Calc.Common.ProductSpecificatie,BerekeningsSpecificatie:DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie,HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom,KostItem:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItem 1 1 %Status leeg maken van bepaalde velden Do ..KuisTemplateOp() // Template vullen met data van het product Do ..VulTemplate() // Plaats de classificatie op het product Do ..ZetClassificatie() // Langtekst opbouwen Do ..BepaalLangtekst() // Schrijf alle wijzigingen naar de global Set ..PRNr = ..Save() // Op het einde van de save worden bepaalde routines opgeroepen // hierdoor is de data in ..ProductData out of sync. // Indien ..ProductData toch nog gebruikt moet worden -> herladen vanuit de global Quit $$$OK ]]> %Integer 1 1 %Integer 1 DossierNummer:%String 1 %String Elke lijn in de lijst wordt een lijn in de langtekst 1 %ListOfDataTypes Elke lijn in de lijst wordt een lijn in de langtekst 1 %ListOfDataTypes Elke lijn in de lijst wordt een lijn in de langtekst 1 %ListOfDataTypes Elke lijn in de lijst wordt een lijn in de langtekst 1 %ListOfDataTypes 1 %ListOfDataTypes GenerischPRNr:%Integer 1 1 1 1 1 %Integer 1 %Integer %String 1 %String 1 Taal:%String,Lijnen:TECH.Iterator 1 Index:%String,Piece:%Integer 1 %String Index:%String,Piece:%Integer,Waarde:%String 1 1