Index: BL/Prod/GAData/SDMKeukenBuild.cls.xml
===================================================================
diff -u -r1074 -r2364
--- BL/Prod/GAData/SDMKeukenBuild.cls.xml	(.../SDMKeukenBuild.cls.xml)	(revision 1074)
+++ BL/Prod/GAData/SDMKeukenBuild.cls.xml	(.../SDMKeukenBuild.cls.xml)	(revision 2364)
@@ -19,7 +19,7 @@
 This method must be overriden in each derived class 
 Opbouwen van de Basis-parameters, i.e. de input waaarden van het GAData-object. 
 Op basis van deze data kunnen de Product-kenmerken aangemaakt worden (arBasis als .local doorgeven). </Description>
-<FormalSpec><![CDATA[&arBasis:%String,SubNode:%String,GAData:Prod.GAData.AbstractBasis]]></FormalSpec>
+<FormalSpec><![CDATA[&arBasis:%String,SubNode:%String,GAData:%RegisteredObject]]></FormalSpec>
 <Implementation><![CDATA[
 	Kill arBasis
 	Quit:(SubNode="")
Index: BL/Prod/GAData/AbstractBuild.cls.xml
===================================================================
diff -u -r1074 -r2364
--- BL/Prod/GAData/AbstractBuild.cls.xml	(.../AbstractBuild.cls.xml)	(revision 1074)
+++ BL/Prod/GAData/AbstractBuild.cls.xml	(.../AbstractBuild.cls.xml)	(revision 2364)
@@ -8,7 +8,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="GAData">
-<Type>Prod.GAData.AbstractBasis</Type>
+<Type>%RegisteredObject</Type>
 </Property>
 
 <Parameter name="Versie">
@@ -35,19 +35,18 @@
 
 <Method name="Create">
 <ClassMethod>1</ClassMethod>
-<ReturnType>BL.Prod.GAData.Abstract</ReturnType>
+<ReturnType>%RegisteredObject</ReturnType>
 <Implementation><![CDATA[
 	Set Obj=..%New()
 	Quit Obj
 ]]></Implementation>
 </Method>
 
 <Method name="Initialize">
-<FormalSpec>oGAData:Prod.GAData.AbstractBasis</FormalSpec>
+<FormalSpec>oGAData:%RegisteredObject</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set:($IsObject(oGAData)) ..GAData=oGAData
-	Set sc=..VersieControle()
 	Quit:$$$ISERR(sc) sc ; versie controle is niet gelukt
 	Quit $$$OK
 ]]></Implementation>
@@ -60,727 +59,5 @@
 	Quit
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[/*** CALCULATE - GAData Product ***/
-]]></Content>
-</UDLText>
-
-<Method name="Calculate">
-<Description>
-Oproepen van de BL.xxCalc om de producten en de kosten voor het GAData te berekenen.
-De resultaten worden in de CalcCache (global) bijgehouden. 
-Van daaruit kan de verdere verwerking, zoals CreatePRBS of CreateXML, gebeuren. 
-Het BL-object xxCalc (afgeleide van AbstractCalc) wordt geïnstantieerd en blijft slechts tijdelijk bestaan. M.a.w. wordt onmiddellijk na de calculatie ge'close'd</Description>
-<Final>1</Final>
-<FormalSpec>CalcType:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set BLClassName=$$$Replace(..%ClassName(1),"Build","Calc")
-	;Set BLClassName=..#BLCalcClass
-	Set BLCalc=$zobjclassmethod(BLClassName,"Create")
-	Set sc=BLCalc.Initialize(..GAData)
-	Quit:($$$ISERR(sc)) sc
-
-	;Set CalcType=$G(CalcType,"DTL")  ; "BS" / "DTL" 
-
-	; Values for the calculated properties
-	Set sc=BLCalc.CalcGADataPropts()
-	; Calculate Items
-	Set sc=BLCalc.CalcItems(.CalcType)
-	
-	Set ..CalcCacheID=BLCalc.CalcCacheID
-	Set BLCalc=""
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[/*** VALIDATE ***/
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[/*** PRODUCT ***/
-]]></Content>
-</UDLText>
-
-<Method name="KPRCreate">
-<Final>1</Final>
-<FormalSpec>GenPRNr:%Library.Integer,QtyStaffel:%Library.String=1,MetPrijs:%Integer=1</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do:(0) ..GAData.CalcGADataPropts()   ; ??? calculated values (IB,...)
-	
-	; Get PRNr if already created before 
-	Set ModPRNr=$$ProductGetObjectId^Test()   ; Nieuw of Wijzigen van product
-	Set:('$$$ValidPRNr(ModPRNr)) ModPRNr=""
-	If '$$$ValidPRNr($G(GenPRNr)) Do   ; Defaulting
-	. Set GenPRNr=..GenerischPRNr()
-	; Fill ^KPR nodes
-	Lock:(ModPRNr) +^KPR(ModPRNr)
-	Do kpcCOPY(GenPRNr,ModPRNr,.NewRec)
-	Do:('ModPRNr) kpcCLEAN(.NewRec)   ; Alleen bij nieuwe product
-	Do kpcFILL(.NewRec,MetPrijs)
-	Do kpcSAVE(.NewRec)
-	Lock:(ModPRNr) -^KPR(ModPRNr)
-	; Fill ^HADPR en ^PRBS nodes
-	Do kpcHALFFAB()
-	;If $G(^KLPUTZ("AS")) Do kpcCalcSchaduwPrijs(ModPRNr)
-	Quit $$$OK
-kpcCalcSchaduwPrijs(PRNr)
-	;Quit:'$D(^PRBS("BS",PRNr))
-	;Do CTRONE^PRBSC(PRNr,"S","S",1)
-	;Quit
-	q
-
-kpcCOPY(GenPRNr,FromPRNr,NewRec)   ; NewRec via .Local doorgeven 
-	Do ..FetchPRxUTILI($S('$G(FromPRNr):GenPRNr,1:FromPRNr),.NewRec)   ; Do FETCHPR^UTILI($S('$G(FromPRNr):GenPRNr,1:FromPRNr),"NewRec")
-	Set $P(NewRec(0),"\",3)=GenPRNr
-	Quit
-kpcCLEAN(NewRec)   ; Newrec via .Local doorgeven 
-	Set $P(NewRec(0),"\",6)=""         ; Ligging
-	Set $P(NewRec(0),"\",12,14)="\\"   ; Beginstock,FysStock
-	Set $P(NewRec(0),"\",16)=""        ; Laatste beweging
-	Set $P(NewRec(0),"\",17)=""        ; Bestelling
-	Set $P(NewRec(0),"\",20)=""        ; Schaduwkorttekst
-	Set $P(NewRec(0),"\",21)=""        ; Schaduw sectie
-	Set $P(NewRec(1),"\",9)=""         ; Inventaris fysstock
-	Set $P(NewRec(1),"\",20)=$G(IsStock) ; Stock/niet stock
-	Set $P(NewRec(1),"\",21)=""        ; Gem Weekverkoop
-	Set $P(NewRec(1),"\",23)=""        ; Gewogen gem. weekverkoop
-	Set $P(NewRec(2),"\",3)=""         ; Schad PPL
-	;Set $P(NewRec(2),"\",4)=""        ; Schad Korting
-	;Set $P(NewRec(2),"\",5)=""        ; Schad Vork
-	;Set $P(NewRec(2),"\",6)=""        ; Schad Winst
-	;Set $P(NewRec(2),"\",7)=""        ; Schad Cif
-	Set $P(NewRec(2),"\",9)=""         ; Reservatie
-	Set $P(NewRec(2),"\",25)=8_$E($P(NewRec(2),"\",25),2,99) ; Identnummer
-	Set $P(NewRec(0),"\",2)=""         ; Omschrijving N1
-	Set $P(NewRec(0),"\",11)=""        ; Omschrijving N2
-	Set $P(NewRec(1),"\",22)=""        ; Omschrijving F1
-	Set $P(NewRec(2),"\",25)=""        ; Identnummer
-	Set $P(NewRec(3),"\",21)=""        ; Omschrijving F2
-	Set $P(NewRec("J"),"\",3)=""       ; Leveranciersref
-	;Set $P(NewRec("J"),"\",24)=50     ; DB%
-	Set $P(NewRec("J"),"\",10)=20      ; KSDB%
-	Set $P(NewRec("J"),"\",19)=""      ; Aankoopprijs
-	Set $P(NewRec("J"),"\",25)=""      ; Lijstprijs
-	Quit
-kpcFILL(NewRec,MetPrijs)   ; NewRec via .Local doorgeven 
-	;New KortT,KPrijs,Staffel,Taal,List,LT,I,Node,Piece
-	Do ..DossierDefine(GenPRNr)
-	Set KortT=..KortTekst()
-	Set KPrijs=$$kpcPrijs()
-	Set Staffel=QtyStaffel   ; ..Val("Staffel")
-	Set $P(NewRec(0),D)=KortT
-	For Taal="N","F","D","E","R" Do
-	. Set:Taal="N" List="0.2,0.11,6.1,6.2,6.3,6.4,6.5,6.6,6.7,6.8,6.9,6.10"
-	. Set:Taal="F" List="1.22,3.21,8.1,8.2,8.3,8.4,8.5,8.6,8.7,8.8,8.9,8.10"
-	. Set:Taal="D" List="2.2,3.23,10.1,10.2,10.3,10.4,10.5,10.6,10.7,10.8,10.9,10.10"
-	. Set:Taal="E" List="2.1,3.22,12.1,12.2,12.3,12.4,12.5,12.6,12.7,12.8,12.9,12.10"
-	. Set:Taal="R" List="4.1,4.2,4.3,5.1,5.2,5.3,4.4,4.5,4.6,4.7,4.8,4.9,4.10"   ; Leveranciersreferentie
-	. Kill LT
-	. Do ..LangTekst($S(Taal="R":"N",1:Taal), .LT, Taal)
-	. For I=1:1:LT Do
-	.. Set Node=$P($P(List,",",I),".",1)
-	.. Set Piece=$P($P(List,",",I),".",2)
-	.. Set:$L($G(LT(I))) $P(NewRec(Node),"\",Piece)=LT(I)
-	Set $P(NewRec(1),"\",13)=..Gewicht("B")
-	Set NewRec("G")=""
-	Set $P(NewRec("G"),"\",1)=..GAData.Dossier
-	Set:(MetPrijs) $P(NewRec("G"),"\",12)=KPrijs   ; Aankoopprijs
-	Set $P(NewRec("G"),"\",11)=$J($G(..CumulsOLD("KPrijs",$$kpcCountExpr("KOST"))),0,4)   ; aankoopprijs van de werkuren
-	Set $P(NewRec("G"),"\",16)=$J($G(..CumulsOLD("TijdWerk")),0,1)   ; tijd van de werkuren
-	Set $P(NewRec("G"),"\",15)=$J($G(..CumulsOLD("TijdKost")),0,1)   ; tijd voor kostprijs
-	Set $P(NewRec("G"),"\",13)=..GAData.%Id()
-	Set $P(NewRec("G"),"\",14)=Staffel
-	; Leveranciers node
-	Set $P(NewRec("J"),"\",6)=Staffel              ; Min. bestelhoeveelheid
-	Set:(MetPrijs) $P(NewRec("J"),"\",19)=KPrijs   ; Aankoopprijs
-	Quit
-kpcSAVE(NewRec)   ; NewRec via .Local doorgeven 
-	;New PRNr,IdentNr,I
-	Set PRNr=$$ProductGetObjectId^Test()   ; ..ProductGetObjectId()
-	If '$$$ValidPRNr(PRNr) Do
-	. Set PRNr=$$NEXTID^PRODUKT(1)
-	Set IdentNr=$$IDENTNR^PRODUKT(PRNr,"9")
-	Set $P(NewRec(2),"\",25)=IdentNr
-	For I=0:1:13 Set:$D(NewRec(I)) ^KPR(PRNr,I)=NewRec(I)
-	Set:($D(NewRec("G"))) ^KPR(PRNr,"G")=NewRec("G")   ; Generische node
-	Set ^KPR(PRNr,"I")=""
-	Set ^KPR(PRNr,"I1")=NewRec("I")
-	Set ^KPR(PRNr,"J")=""
-	Set ^KPR(PRNr,"J"_$P(NewRec("J"),"\"))=NewRec("J")
-	;Do:(..ProductGetObjectId()'=PRNr) ..ProductSetObjectId(PRNr)
-	// Extra berekeningen/indexes/doorsturen
-	;Do RECALC^PRODUKT2(PRNr)
-	;Do BLDIND^PRODUKT2(PRNr)
-	;Do ZEND^EWPR(PRNr)
-	Quit    
-kpcPrijs()
-	Quit $J(..CumulsOLD("KPrijs"),0,2)
-kpcCountExpr(CodeGR)
-	; Convert Child Expression to $LB() en geef het volgnr van de opgeven code
-	Quit 0
-
-kpcHALFFAB(blnHADPR)
-	;New PRNr,VersieNrPRBS,Rec
-	Set blnHADPR=$G(blnHADPR,1)
-	Set PRNr=$$ProductGetObjectId^Test()   ; ..ProductGetObjectId()
-	Quit:(PRNr'?4.7N)
-	Set VersieNrPRBS=$P($G(^PRBS("BS",PRNr),"\\1.0.0"),"\",3)
-	Do:(VersieNrPRBS="")&&($IsObject($G(MApplication))) MApplication.MessageBox("KPRCreate: Bouwstenen (PRBS) worden niet aangepast. VersieNr="_VersieNrPRBS)
-	Quit:(VersieNrPRBS="")
-	; Resetten van de globals
-	Do ..DeleteOBJxPRBS(PRNr)   ; ,blnKillHADPR=(blnHADPR=1)
-	If blnHADPR Do
-	. Set Rec=$G(^KPR(PRNr,"G"))   ; G-node overnemen van afgeleid product
-	. Kill ^HADPR("P",PRNr)
-	. Merge ^HADPR("P",PRNr,"G")=Rec
-	; Creatie van kenmerken en bouwstenen
-	Do ..CreateKenmerken(PRNr,)   ; KMGroepID=..MetaStruct.Code
-	Do ..CreateBouwstenen(PRNr,blnHADPR)
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="DeleteOBJxPRBS">
-<FormalSpec>PRNr:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	New D,Q,U
-	Set D="\",Q="K",U=";"
-	Do DELOBJ^PRBS(PRNr)
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="FetchPRxUTILI">
-<Description>
-NewRec via .Local doorgeven</Description>
-<FormalSpec><![CDATA[PRNr:%String,&NewRec:%String]]></FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	New D,Q,U
-	Set D="\",Q="K",U=";"
-	Do FETCHPR^UTILI(PRNr,"NewRec")
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="CumulsOLD">
-<FormalSpec>Node:%String,SubNode:%String</FormalSpec>
-<Implementation><![CDATA[
-	Quit 9999.99
- /*
-	Do calCumuls()
-	Quit 
-calCumuls
-	Quit:(DItem.MetaItem.Code["PARAM")
-	;New Key,Val
-	For Key="KPrijs","TijdWerk","TijdKost","GNetto","GTarra" Do:(DItem.MetaItem.Parameters.IsDefined(Key))
-	. Set Val=DItem.Get(Key)
-	. ;Quit:(Val="")
-	. Set ..Cumuls(Key,iG,iS,iI)=Val
-	. Set ..Cumuls(Key,iG,iS)=$G(..Cumuls(Key,iG,iS))+Val
-	. Set ..Cumuls(Key,iG)=$G(..Cumuls(Key,iG))+Val
-	. Set ..Cumuls(Key)=$G(..Cumuls(Key))+Val
-	Quit
- */
-]]></Implementation>
-</Method>
-
-<Method name="DossierDefine">
-<Description>
-Ophalen van het dossiernr indien het nog niet bestaat dan invullen</Description>
-<Final>1</Final>
-<FormalSpec>GenPRNr:%Library.String</FormalSpec>
-<Implementation><![CDATA[
-	Quit:(..GAData.Dossier'="")
-	;New DosNr,Node
-	Set:($G(GenPRNr)?4.7N) Node=$P($G(^KPR(GenPRNr,"G")),"\",4)
-	Set:($G(Node)="") Node="TBXNR"
-	Lock +^KPR(0,Node)
-	Set DosNr=$G(^KPR(0,Node))+1, $P(^KPR(0,Node),"\")=DosNr
-	Lock -^KPR(0,Node)
-	Set ..GAData.Dossier=##CLASS(%VHSys.Library).AlfaKey(DosNr,"A")
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="CreateKenmerken">
-<Final>1</Final>
-<FormalSpec>PRNr:%String,KMGroepID:%String</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Kill arBasis
-	Do ..BuildBasisParams(.arBasis,"KM",..GAData)
-	Set:($G(KMGroepID)="") KMGroepID=..GAData.GenType
-	Set Label=""
-	For  Set Label=$O(arBasis("KM",Label)) Quit:(Label="")  Do
-	. Quit:(Label="NMASM")&&(KMGroepID="TBX")   ; Kenmerk: to be created! 
-	. Set sc=##class(Prod.Kenmerk.DataDefinitie).Set(KMGroepID,PRNr,Label,$G(arBasis("KM",Label)))
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="CreateBouwstenen">
-<Final>1</Final>
-<FormalSpec>PRNr:%String,blnAddHADPR:%Boolean=1</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-
-	Quit:(PRNr="") $$$OK
-	Set GenType=..GAData.GenType
-	
-	// Initialize ^PRBS 
-	Set sc=..DeleteBouwstenen(PRNr)
-	Quit:($$$ISERR(sc)) sc
-	Set ^PRBS("BS",PRNr)=$S(GenType="KAD":"E\KAD", 1:"E\TBX")   ; "E\TBX"
-	Set $P(^PRBS("BS",PRNr),"\",3)="v"_..GAData.Versie
-
-	// Check calculation OK
-	Set blnCalcOK=1
-	Set blnCalcOK=(..CalcCacheID'="")&&($D($$$globCalcCache(..CalcCacheID)))
-	  ; TO DO: check by validating content of the CalcCache array
-
-	// ^HADPR en BasisParameters
-	If blnAddHADPR Do
-	. Kill ^HADPR("P",PRNr)
-	. Kill arBasis
-	. Do ..BuildBasisParams(.arBasis,"BP",..GAData)
-	. Set Rec=$G(^KPR(PRNr,"G"))   ; G-node overnemen van afgeleid product
-	. Merge ^HADPR("P",PRNr,"G")=Rec
-	. Merge ^HADPR("P",PRNr,"BP")=arBasis("BP")
-	. Kill arBasis
-
-	// Producten en Kosten in ^PRBS
-	Kill %arCacheKP
-	Set MatVolgNr=0
-	Set Key=""
-	For  Set Key=$O($$$globCalcCache(..CalcCacheID,Key)) Quit:(Key="")  Do
-	. Set Label=Key
-	. Set lbBasis=$$$globCalcCache(..CalcCacheID,Key,$$$cckeyCalcBasis)
-	. Quit:($LG(lbBasis,$$$licbActief)=0)
-	. Quit:($LG(lbBasis,$$$licbIncludeBS)=0)
-	. Set Type=$LG(lbBasis,$$$licbType)
-	. Set SubGroep=$LG(lbBasis,$$$licbSubGroep)
-	. If $L(SubGroep,".")=2 Do
-	. . Set Groep=$P(SubGroep,".",1)
-	. . Set SubGroep=$P(SubGroep,".",2)
-	. Set SortNr=$LG(lbBasis,$$$licbSortNr)   ;Set SortNr=##class(BL.Prod.GAData.TBXLadeCalc).GetGroepSortNr("LADE")
-	. If Type?1(1"KST") Do cbsHFVerwerkingsKost()
-	. Else  If Type?1(1"PR".E) Do cbsHFProduct()
-	. ; Do:($$$MultiFabrTekst) xmwExtraItemTekst
-	Kill %arCacheKP
-	Quit $$$OK
-	
-cbsHFProduct()
-	Quit:(Label="")
-	Set lbExtend=$G($$$globCalcCache(..CalcCacheID,Label,$$$cckeyCalcExtend))
-	Set HFPRNr=$LG(lbBasis,$$$licbPRNr)  Quit:(HFPRNr="")
-	Set Qty=$LG(lbBasis,$$$licbQty) Quit:('Qty)
-	Set Rec=HFPRNr_"\"_Qty_"\"_"H"
-	Set $P(Rec,"\",10)=SortNr
-	Set $P(Rec,"\",11)=SubGroep
-	Set Oms=$$cbsGetLangTekst()
-	Set:(Oms="") Oms=$LG(lbBasis,$$$licbOms)
-	Set $P(Rec,"\",13)=Oms
-	;Set:(GenType?1(1"TBX")) $P(Rec,"\",16)=$S($$$IsMeerwaardeLabel(Label):1,1:"")   ; Meerwaarde   *** TBX-specifiek ***
-	Set $P(Rec,"\",16)=..MeerwaardeLabel(Label)        ; Meerwaarde
-	Set $P(Rec,"\",19)=$LG(lbExtend,$$$liceFabrPrep)   ; FabrPrep
-	; Groep Sort - order for display
-	If ($LG(lbExtend,$$$liceFabrTekst)="") Set GroepAndSort=$P($LG(lbExtend,$$$liceFabrGroep),"\",1) 
-	Else  Do
-	. Set lbTekst=$LG(lbExtend,$$$liceFabrTekst)
-	. Set GroepAndSort=$S(lbTekst="":"", $$$IsList(lbTekst):$LG(lbTekst,1), 1:"")
-	Set $P(Rec,"\",18)=$P(GroepAndSort,$$$DelimGroepSort,1)
-	Set $P(Rec,"\",21)=$P(GroepAndSort,$$$DelimGroepSort,2)
-	Set (MetaTag,Rec2)=""
-	If Type="PR1DIM" Do      ; dimensie (lengte) afhankelijk
-	. Set MetaTag="PR1DIM"   ; MetaTag
-	. Set $P(Rec2,"\",1)=$LG(lbBasis,$$$licbDimHF)
-	. Set $P(Rec2,"\",2)=$LG(lbBasis,$$$licbDimHFBrut)
-	. Set $P(Rec2,"\",3)=$LG(lbBasis,$$$licbDimHFUitval)
-	Set BSKey=Label_".001"
-	If 1 Do
-	. ; Opslag in PRBS
-	. Set ^PRBS("BS",PRNr,BSKey)=Rec   ; Halffabricaten
-	. Set:($L(MetaTag)) ^PRBS("BS",PRNr,BSKey,"D")=Rec2   ; Halffabricaten - dimensie afhankelijk van de METATAG
-	. Set ^PRBS("IP",HFPRNr,PRNr,BSKey)=$P(Rec,"\",3)   ; Index
-	If blnAddHADPR do
-	. ; Opslag in HADPR
-	. Set ^HADPR("P",PRNr,"HF",BSKey)=$P(Rec,"\",1,2)
-	. Set:($L(MetaTag)) ^HADPR("P",PRNr,"HF",BSKey,"D")=Rec2 ; Halffabricaten - dimensie afhankelijk van de METATAG
-	Quit
-cbsGetLangTekst()
-	Set lbTekst=$LG(lbExtend,$$$liceFabrTekst)
-	Quit:($L(lbTekst)) $S($$$IsList(lbTekst):$LG(lbTekst,2), 1:lbTekst)
-	Quit:('$$$ValidPRNr(HFPRNr)) "["_Label_"]"
-	;Quit:($$IsFixed()) "### "_##class(AbstractCalc).ItemGetLangTekst(HFPRNr,1)_" ###"
-	Set LangTekst=$LG(lbExtend,$$$liceFabrOms)
-	Quit:(LangTekst="") ##class(AbstractCalc).ItemGetLangTekst(HFPRNr,1)
-	; FabrOms kan (lees: zal meestal) de exec "Meta.GetOmsViaKenm()" bevatten
-	; --> dan INVERS toepassen  (TO DO)
-	;Do XMLBuildArrayInvers^Prod.GAMeta.Item.tmpDev2(DItem)   ; ,Label)
-	Quit LangTekst
-cbsHFVerwerkingsKost()
-	Set TijdKost=+$LG(lbBasis,$$$licbTijdKost)
-	Set TijdPlanning=+$LG(lbBasis,$$$licbTijdWerk)
-	Set KostPrijs=+$LG(lbBasis,$$$licbKPrijs)
-	Set KostPlaatsID=$LG(lbBasis,$$$licbKostPlaats)
-	Set Oms=$LG(lbBasis,$$$licbOms)
-	Set:(KostPlaatsID="") KostPlaatsID="?"
-	Set KPObj=$G(%arCacheKP(KostPlaatsID))  ; caching van de kostplaats
-	If '$IsObject(KPObj) Do
-	. Set KPObj=##class(Prod.GAMeta.BT.KostPlaats).%OpenId(KostPlaatsID)
-	. Set %arCacheKP(KostPlaatsID)=KPObj
-	Set Kost=##class(BL.Prod.GAData.AbstractCalc).CalcKostT(KPObj,TijdKost,"")   ; $G(%NoSa)
-	Set KPObj=""
-	Set MatPrijs=$S(KostPrijs>Kost:KostPrijs-Kost,1:"") ; een deel is voor materiaal 
-	Set lbMatK=""
-	If MatPrijs Do
-	. Set lbMatK=$LG(lbBasis,$$$licbMatKost)
-	. Set:(lbMatK="") lbMatK=$LB($LB(MatPrijs))   ; Backward compatible (old system)
-	For i=1:1:$LL(lbMatK) Do
-    . Set MatVolgNr=MatVolgNr+1
-	. Set BSKey="MAT."_$E(1000+MatVolgNr,2,4)
-	. Set Rec=""
-	. Set $P(Rec,"\",2)=1
-	. Set $P(Rec,"\",3)="S"   ; Surplus
-	. Set $P(Rec,"\",4)=$LI($LI(lbMatK,i),1)   ; MatPrijs
-	. Set $P(Rec,"\",9)=$LG($LI(lbMatK,i),2)   ; KostMatID
-	. Set SortNr=SortNr+1
-	. Set $P(Rec,"\",10)=SortNr
-	. Set $P(Rec,"\",11)=SubGroep
-	. Set $P(Rec,"\",13)=Oms
-	. Set $P(Rec,"\",16)=1   ; Meerwaarde
-	. Set ^PRBS("BS",PRNr,BSKey)=Rec   ; Halffabricaten
-	If Kost Do
-    . Set MatVolgNr=MatVolgNr+1
-	. Set BSKey="KST."_$E(1000+MatVolgNr,2,4)
-	. Set Rec=""
-	. Set $P(Rec,"\",2)=1
-	. Set $P(Rec,"\",3)="T"
-	. Set $P(Rec,"\",7)=$J(TijdPlanning,0,2)
-	. Set $P(Rec,"\",8)=$J(TijdKost,0,2)
-	. Set $P(Rec,"\",9)=KostPlaatsID
-	. Set SortNr=SortNr+1
-	. Set $P(Rec,"\",10)=SortNr
-	. Set $P(Rec,"\",11)=SubGroep
-	. Set $P(Rec,"\",13)=Oms
-	. Set $P(Rec,"\",16)=1 ; Meerwaarde
-	. Set ^PRBS("BS",PRNr,BSKey)=Rec ; Halffabricaten
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="DeleteBouwstenen">
-<Description>
-Remove any previous values for PRNr in ^PRBS </Description>
-<Final>1</Final>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>PRNr:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	New D,Q,U
-	Set D="\",Q="K",U=";"
-	Do DELOBJ^PRBS(PRNr)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="MeerwaardeLabel">
-<Description>
-This method must be overriden in each derived class, if necessary.</Description>
-<FormalSpec>Label:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	#define IsMeerwaardeLabel(%v)      (%v?1(1"PRBDHO",1"PRBDHZ",1"PRRUGHS",1"PRVPCP",1"PRVPZW",1"PRVPOD",1"PRVULSTUK",1"PRVULPAL"))
-	;Quit $S($$$IsMeerwaardeLabel(Label):1,1:"")
-	Quit ""
-]]></Implementation>
-</Method>
-
-<Method name="BuildBasisParams">
-<Description>
-This method must be overriden in each derived class 
-Opbouwen van de Basis-parameters, i.e. de input waarden van het GAData-object. 
-Op basis van deze data kunnen de Product-kenmerken aangemaakt worden (arBasis als .local doorgeven). </Description>
-<FormalSpec><![CDATA[&arBasis:%String,SubNode:%String,GAData:Prod.GAData.AbstractBasis]]></FormalSpec>
-<Implementation><![CDATA[
-	Kill arBasis
-	Quit:(SubNode="")
-	;If SubNode?1(1"BP",1"KM") Do   ; eventueel onderscheid op basis van de SubNode maken 
-	Set:('$IsObject($G(GAData))) GAData=..GAData
-	Set arBasis(SubNode,"Staffel")=GAData.Staffel
-	// Template instruction:
-	;Set arBasis(SubNode,"iLabel")="iValue"   ; GAData.Property / $zobjproperty(GAData,Key)
-	// Algemene input
-	;For Key="...","..." Do
-	;. Set arBasis(SubNode,Key)=$zobjproperty(GAData,Key)
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="GenerischPRNr">
-<Description>
-This method must be overriden in each derived class </Description>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	Set GenType=..GAData.GenType
-	If GenType="TBX" Do
-	. Set GenPRNr=89322                  	     ; GEN.HALTB
-	. Set:(..GAData.PRO) GenPRNr=89325           ; GEN.HALTBPRO - Pro op pallet of in ene kist
-	. Set:(..GAData.VERPAK="C") GenPRNr=209370	 ; GEN.HALTBPC - ProCom zonder onderdelen
-	. Set:(..GAData.VERPAK="O") GenPRNr=209369	 ; GEN.HALTBPO - ProCom met onderdelen
-	. Set:(..GAData.KLAS="B") GenPRNr=131884     ; GEN.HALBB BuroBOX
-	Else  If GenType="KAD"  Do
-	. ; klasse Prod.GADef.KaderDeur              ; GEN.HALUXP4  of varianten
-	. Set GenPRNr=##class(Prod.GADef.KaderDeur).GenerischPRNrViaParam(..GAData.TP,..GAData.PT,..GAData.PRW)   ; (..Val("TP"),..Val("PT"),..Val("PRW"))
-	Else  If GenType="GRP"  Set GenPRNr=93260    ; GEN.HALGRP  greep op maat
-	Else  If GenType="TLM"  Set GenPRNr=141366   ; GEN.HALTLM  verlichting op maat
-	Else  If GenType="ASM"  Set GenPRNr=212616   ; GEN.HALMAT ANTISLIP   XXX141366
-	Else  Do
-	. Set GenPRNr=""
-	Quit GenPRNr
-]]></Implementation>
-</Method>
-
-<Method name="KortTekst">
-<Description>
-This method must be overriden in each derived class </Description>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
-	Quit "KortTxt_TODO"
- /*
-ktxASM()
-	#define ASMStruct(%type)   $CASE(%type, "Z":"R", "G":"N",    "R":"P",   :"")
-	#define ASMKleurK(%type)   $CASE(%type, "Z":"S", "G":"ANTR", "R":"ROT", :"")
-	Set Type=..GAData.ASM
-	Set LD=..GAData.LD
-	Set ND=..GAData.ND
-	Set NB=..GAData.NB
-	Set Verpak=..GAData.VERPAK
-	Set Dossier=..GAData.Dossier
-	Set Txt="MAT.M"
-	Set $E(Txt,6)=$$$ASMStruct(Type)
-	Set $E(Txt,$S($L(Dossier)>3:8, 1:9))=Dossier   ; Set $E(Txt,8,11)=$J(Dossier,4)
-	Set $E(Txt,12)=""_$J(LD,3)_"X"_$J(NB,4,0)
-	Set $E(Txt,22)=$J($$$ASMKleurK(Type),4)
-	Quit Txt
-
-ktxTLM()
-	Set Design=""
-	Set Lengte=..GAData.LP   ; Numeriek
-	Set Afwerking="EV1"
-	Set Dossier=..GAData.Dossier
-	Set Txt="ETL.M"
-	Set $E(Txt,$S($L(Dossier)>3:7, 1:8))=Dossier
-	Set $E(Txt,12)="L:"_$J(Lengte,4,0)_" "_$S(..GAData.AS="RB":"RH", 1:"")
-	Set $E(Txt,21)=""
-	Set $E(Txt,22)=$J(Afwerking,4)
-	Quit Txt
-
-ktxGRP()
-	Set Design=..GAData.DS       ; ALFA,BETA,DELTA,OMEGA
-	Set Lengte=..GAData.LG       ; Numeriek
-	Set Afwerking=..GAData.AFW   ; ALU, ...
-	Set Dossier=..GAData.Dossier
-	Set Txt="SGR."_$E(Design,1,2)
-	Set $E(Txt,$S($L(Dossier)>3:7, 1:8))=Dossier
-	Set $E(Txt,12)=$E(Design,1,5)_$J(Lengte,4,0)
-	Set $E(Txt,21)=""       
-	Set $E(Txt,22)=$J(Afwerking,4)   ; ##class(Prod.GAMeta.BT.TBAbstract).KortTekstCodeClass("Prod.GAMeta.BT.TBLadeKleur",..GAData.KL)
-	Quit Txt
- */
-]]></Implementation>
-</Method>
-
-<Method name="LangTekst">
-<Description>
-This method must be overriden in each derived class 
-Als Taal="R" dan leveranciersomschrijving
-Oms via .Local doorgeven</Description>
-<FormalSpec><![CDATA[Taal:%String,&Oms:%String,Opties:%String]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Do AddLT(Taal,.Oms,"LangTxt_TODO")
-	Quit $$$OK
- /*
-ltxASM
-	Set Type=..GAData.ASM
-	Set WD=..GAData.WD
-	Kill Oms
-	Set Oms=1
-	; Type mat
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-ASM-Type"_Type,"O",Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt)
-	; Afmetingen
-	Set Afm=..GAData.ND_" x "_..GAData.NB_"mm"
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-ASM-NETTOAFM","O",Taal,,1)_" : "_Afm
-	Do AddLT(Taal,.Oms,.Txt,,1)
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-ASM-LD","O",Taal,,1)_": "_(..GAData.LD)_"mm"
-	If $G(Optie)'["R" Do
-	. If WD="N" Do
-	. . ; Netto breedte: no text
-	. Else  Do 
-	. . Set Txt=Txt_", "_##class(Res.Vertaling).GetVertaling("TB","LT-ASM-CB","O",Taal,,1)_":"_..GAData.CB
-	. . Set:(WD'="B") Txt=Txt_", "_##class(Res.Vertaling).GetVertaling("TB","LT-ASM-WDkort","O",Taal,,1)_":"_WD
-	Do AddLT(Taal,.Oms,.Txt,,1)
-	Quit $$$OK
-
-ltxTLM
-	Kill Oms
-	Set Oms=1
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-TLM-TL","O",Taal,,1)
-	Set Txt=Txt_"; "_##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TLMAfdekScherm",..GAData.AS,Taal)
-	Do AddLT(Taal,.Oms,.Txt)
-	; Afmeting
-	Set Lengte="L:"_..GAData.LP_"mm"
-	Set Txt=Lengte
-	Do AddLT(Taal,.Oms,.Txt)
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-TLM-LAMP","O",Taal,,1)
-	For LampLabel="QTY1008","QTY1013","QTY1014","QTY1021","QTY1028","QTY1035" Do
-	. Quit:'..GAData.Val(LampLabel)
-	. Set Txt=Txt_..GAData.Val(LampLabel)_"x"_+$E(LampLabel,6,7)_"W"
-	. Do AddLT(Taal,.Oms,.Txt)
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-TLM-ZIJKANT","O",Taal,,1)_" 1:"
-	Set Txt=Txt_##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TLMUitgang",..GAData.UL,Taal)
-	Do AddLT(Taal,.Oms,.Txt)
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-TLM-ZIJKANT","O",Taal,,1)_" 2:"
-	Set Txt=Txt_##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TLMUitgang",..GAData.UR,Taal)
-	;Set Txt="Snoeruitgang:"_..GAData.SN
-	Do AddLT(Taal,.Oms,.Txt)
-	Quit $$$OK
-
-ltxGRP
-	Kill Oms
-	Set Oms=1
-	Set Oms(1)=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.GRPDesign",..GAData.DS,Taal)
-	; Afmeting
-	;Set Lengte=$S(Taal="F":"L",Taal="E":"L",1:"L")_":"_..GAData.LG
-	Set Lengte="L:"_..GAData.LG
-	Set Txt=Lengte
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Zaaglengte bij leveranciersreferentie
-	If $G(Optie)["R" Do 
-	. Set Txt="Zaaglengte:"_..GAData.LZ
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	Quit $$$OK
- */
- 
-AddLT(Taal,Oms,Txt,Optie,NewLine)
-	Do ..LangTekstAddOms(Taal,.Oms,.Txt,.Optie,.NewLine)
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="LangTekstAddOms">
-<Description>
-Toevoegen van een stukje langtekst (Txt) aan de array Oms. 
-Optie= R of leeg (leveranciersreferentie)
-Oms en Txt via .Local </Description>
-<Final>1</Final>
-<FormalSpec><![CDATA[Taal:%String,&Oms:%String,&Txt:%String,Optie:%String,NewLine:%Boolean]]></FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
- Quit:(Txt="")
- Set MaxLen=$S(Oms=1:$S($G(Optie)="R":44,1:26),1:44)
- Set:($G(NewLine)) Oms=$I(Oms)
- If ($L($G(Oms(Oms)))+$L(Txt)+$S($L($G(Oms(Oms))):1,1:0))>MaxLen Do   ; Kan er niet meer bij
- . If $L(Txt)>MaxLen Do   ; splitsen van txt over meerdere lijnen
- . . Set Lengte=$L($G(Oms(Oms)))
- . . If Lengte*2>MaxLen Set Oms=Oms+1   ; Minder dan de helft van maxlen nog vrij daarom Nieuw veld anders append
- . . Set Lengte=$L($G(Oms(Oms)))
- . . Set Txt1=$E(Txt,1,MaxLen-Lengte)
- . . If Txt1'[" ",$L($G(Oms(Oms))) Do   ; Onvoldoende vrije ruimte om te splitsen op woorden
- . . . Set Oms=$I(Oms)
- . . . Set Lengte=0
- . . . Set Txt1=$E(Txt,1,MaxLen)
- . . If $E(Txt,$L(Txt1)+1)=" " Set Txt1=Txt1_" "   ;  woord delimiter was er juist afgevallen
- . . Set Txt1=$P(Txt1," ",1,$L(Txt1," ")-1)
- . . Set:($L($G(Oms(Oms)))) Oms(Oms)=$G(Oms(Oms))_";"
- . . Set Oms(Oms)=$G(Oms(Oms))_Txt1
- . . Set Txt=$E(Txt,$L(Txt1)+1,999)
- . . Set:$E(Txt)=" " $E(Txt)=""
- . . Set:($E(Oms(Oms),$L(Oms(Oms)))=" ") $E(Oms(Oms),$L(Oms(Oms)))=""
- . . Set Oms=$I(Oms)
- . . Set Oms(Oms)=Txt
- . Else  Do   ; txt kan volledig in nieuw veld
- . . Set Oms=$I(Oms)
- . . Set Oms(Oms)=Txt
- Else  Do   ; append
- . Set Oms(Oms)=$G(Oms(Oms))_$S($L($G(Oms(Oms))):";",1:"")_Txt
- Set Txt=""
- Quit
-]]></Implementation>
-</Method>
-
-<Method name="LevRef">
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit "LevRef_TODO"
-]]></Implementation>
-</Method>
-
-<Method name="Gewicht">
-<Description>
-Geeft het gewicht volgens het gevraagde type
-"N" : Netto 
-"T" : Tarra 
-"B" : Brutto
-Gewicht in gram met twee cijfers na de komma</Description>
-<FormalSpec>Type:%Library.String="N"</FormalSpec>
-<ReturnType>%Library.Float</ReturnType>
-<Implementation><![CDATA[
-	Quit -1
- /*	
-	Quit:(Type="B") +$J(..Cumuls("GNetto")+..Cumuls("GTarra"),0,2)
-	Quit:(Type="N") +$J(..Cumuls("GNetto"),0,2)
-	Quit:(Type="T") +$J(..Cumuls("GTarra"),0,2)
-*/
-]]></Implementation>
-</Method>
-
-<Method name="Hoogte">
-<ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit -1
-]]></Implementation>
-</Method>
-
-<Method name="Breedte">
-<ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit -1
-]]></Implementation>
-</Method>
-
-<Method name="Diepte">
-<ReturnType>%Float</ReturnType>
-<Implementation><![CDATA[	Quit -1
-]]></Implementation>
-</Method>
-
-<Method name="OrderSortKey">
-<Description>
-Sorteerssleutel voor volgorde van verschillende producten binnen eenzeldfe order 
-This method must be overriden in each derived class </Description>
-<ReturnType>%Library.String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[/*** VERSIE ***/
-]]></Content>
-</UDLText>
-
-<Method name="VersieControle">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
 </Class>
 </Export>
Index: BL/Prod/GAData/TBXLadeBuild.cls.xml
===================================================================
diff -u -r1074 -r2364
--- BL/Prod/GAData/TBXLadeBuild.cls.xml	(.../TBXLadeBuild.cls.xml)	(revision 1074)
+++ BL/Prod/GAData/TBXLadeBuild.cls.xml	(.../TBXLadeBuild.cls.xml)	(revision 2364)
@@ -167,115 +167,7 @@
 Oms via .Local doorgeven</Description>
 <FormalSpec><![CDATA[Taal:%String,&Oms:%String,Opties:%String]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Kill Oms
-	Set Oms=1
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.LadeCode",..GAData.LC,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Afmeting
-	Set Diepte=$S(Taal="F":"P",1:"D")_":"_..GAData.LD
-	Set Breedte=$S(Taal="F":"L",Taal="E":"W",1:"B")_":"_..GAData.IB
-	Set Txt=Diepte_"x"_Breedte
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Spoelbaklade
-	If ..GAData.KLAS?1(1"SP",1"SP2",1"SY") Do 
-	. Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-SPOPEN","O",Taal,,1)_..GAData.SPBR_"mm"
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Draagkracht 30,50,80,25 als Profiel niet meenemen is true
-	If (..GAData.NM.NMCP)&&(..GAData.DK'="30")&&(..GAData.DK'=50) Do
-	. Set Txt=..GAData.DK_"kg"	
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Bodem kleur
-	If $E(..GAData.MATKL,1)="K" Do  ;Klant
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.PlaatMat",..GAData.MATKL,Taal)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	Else  Do
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBBodemKleur",..GAData.KB,Taal)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	Set:(..GAData.KLAS="SP") Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBSPZijkant",..GAData.SPZK,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Design
-	Set:($L(..GAData.KL)) Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBLadeKleur",..GAData.KL,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	Set:(..GAData.DC'="S") Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBDesignCode",..GAData.DC,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	;
-	Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-MONTLADE","O",Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie,1)
-	; Stalen rug
-	Set:(..GAData.IsSR) Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBStalenRug",..GAData.SR,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	;Corpusprofiel + draagkracht
-	If ('..GAData.NM.NMCP) Do  ;corpus profiel meeleveren
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBGlijderType",..GAData.GT,Taal)_" "_..GAData.DK_"kg" ; draagkracht
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Blumotion
-	Set:((..GAData.BM'="I")||('..GAData.NM.NMCP))&&(..GAData.BM'="Z") Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBBlumotion",..GAData.BM,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; BoxSide
-	Set:(..GAData.BS'="ZR")&&(($E(..GAData.BS)'="B")||('..GAData.NM.NMBS))&&(($E(..GAData.BS,2)'="R")||('..GAData.NM.NMRL)) Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBBoxSide",..GAData.BS,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Stabilisator
-	Set:(..GAData.SB) Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBStabilisator",..GAData.SB,Taal)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Frontbevestiging
-	Set:('..GAData.NM.NMFB)&&(..GAData.FB'="Z") Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBFBevestiging",..GAData.FB,Taal,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Antislipmat
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBMat",..GAData.ASM,Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; FrontSteun
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBFrontSteun",..GAData.FS,Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; afdekkappen
-	Set:('..GAData.NM.NMAK) Txt=##class(Res.Vertaling).GetVertaling("TB","LT-AFDEKKAP","O",Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Opvullijst
-	If ('..GAData.NM.NMOVL)&&((..GAData.OPVLLI=25)||(..GAData.OPVLRE=25)) Do
-	. Set Txt=##class(Res.Vertaling).GetVertaling("TB",$S((..GAData.OPVLLI=25)&&(..GAData.OPVLRE=25):"LT-OPVULLIJSTEN",1:"LT-OPVULLIJST"),"O",Taal,,1)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Dwarstukjes
-	If (..GAData.KLAS="SP")&&('..GAData.NM.NMSPDL) Do
-	. Set Txt=##class(Res.Vertaling).GetVertaling("TB","LT-TUSSCHOT","O",Taal,,1)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Dwarsverdelingen
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBDwarsVerdeling",..GAData.DWV,Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Boring voor bureaulade
-	If (..GAData.KLAS="B")&&(..GAData.BHM) Do
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBHangMap",..GAData.BHM,Taal,,1)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Greep Binnenlade
-	If (..GAData.LT="B")&&(..GAData.BGRP'?1(1"X",1"Z",1"H")) Do
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBBinnenGreep",..GAData.BGRP,Taal,,1)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Verlaagde rug
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBRugStukVerlaagd",..GAData.RSTL,Taal,,1)
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Onderdelen Special
-	Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.TBOndSpecial",..GAData.ODSP,Taal,,1)
-	Set:($L(Txt)) Txt="*** "_Txt_" ***"
-	Do AddLT(Taal,.Oms,.Txt,.Optie)
-	; Verpakking
-	If ($G(Optie)="R")&&(..GAData.VERPAK?1(1"Z",1"S")) Do   ; verpakkingskode en lengte van overdoos bijvoegen bij lev.ref.
-	. Set DItem=$$LookUpFromCache^LookUp("IL","PRVPOD")
-	. Set PRNr=DItem.Eval("PRNr")
-	. Quit:(PRNr'?4.7N)
-	. ;Set Dimensie=##class(Prod.Kenmerk.DataDefinitie).%OpenId(PRNr_"||TB||Opties").Waarden.GetAt(1)
-	. Set KenmObj=##class(Prod.Kenmerk.DataDefinitie).%OpenId(PRNr_"||TB||Opties")
-	. Quit:('$IsObject(KenmObj))
-	. Set Dimensie=KenmObj.Waarden.GetAt(1)
-	. Set Txt="omvouwkarton  "_Dimensie_"  "_DItem.Eval("DimHF")_"mm"
-	. Do AddLT(Taal,.Oms,.Txt,.Optie,1)
-	. Kill DItem,PRNr,Dimensie,KenmObj
-	Else  Do
-	. Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.Verpakking",..GAData.VERPAK,Taal)
-	. Do AddLT(Taal,.Oms,.Txt,.Optie,1)
-	Quit $$$OK
- 
-AddLT(Taal,Oms,Txt,Optie,NewLine)
-	Do ..LangTekstAddOms(.Taal,.Oms,.Txt,.Optie,.NewLine)
-	Quit
+<Implementation><![CDATA[	Quit $$$OK
 ]]></Implementation>
 </Method>