Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r2589 -r3229
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 2589)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 3229)
@@ -642,8 +642,15 @@
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Greep Binnenlade
  If (..Val("LT")="B")&&(..Val("BGRP")'?1(1"X",1"Z",1"H")) Do
- . Set Txt=##class(Prod.GAMeta.BT.TBBinnenGreep).TaalAfhOmsClass("",..Val("BGRP"),Taal,,1,DC)
- . Set:(..Val("BGRP")="V") Txt=Txt_" "_##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("",..Val("KV"),Taal,,,DC)
+ . New BinnenGreepVal
+ . Set BinnenGreepVal=..Val("BGRP")
+ . If BinnenGreepVal?1(1"G",1"M",1"RG",1"RM") Do   ; controleren dat de FrontGreep weldegelijk aanwezig is; zoniet wordt dit enkel in de langtekst aangepast (hier dus) 
+ . . New DItem,GreepIsAanwezig
+ . . Set DItem=..LookUp("IL","PRFRGR")
+ . . Set GreepIsAanwezig=($IsObject(DItem))&&(DItem.Eval("PRNr")?4.7N)&&(DItem.IsActief())
+ . . Set:('GreepIsAanwezig) BinnenGreepVal=$S($E(BinnenGreepVal,1)="R":"R", 1:"Z")   ; terugvallen op de waarde zonder greep 
+ . Set Txt=##class(Prod.GAMeta.BT.TBBinnenGreep).TaalAfhOmsClass("",BinnenGreepVal,Taal,,1,DC)
+ . Set:(BinnenGreepVal="V") Txt=Txt_" "_##class(Prod.GAMeta.BT.TBVulstukKleur).TaalAfhOmsClass("",..Val("KV"),Taal,,,DC)
  . Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Verlaagde rug
  Set Txt=##class(Prod.GAMeta.BT.TBRugStukVerlaagd).TaalAfhOmsClass("",..Val("RSTL"),Taal,,1,DC)