Index: Prod/GAData/Product/tmpKPRCreate.mac.rou
===================================================================
diff -u -r3268 -r4396
--- Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 3268)
+++ Prod/GAData/Product/tmpKPRCreate.mac.rou	(.../tmpKPRCreate.mac.rou)	(revision 4396)
@@ -661,20 +661,8 @@
  Set:($L(Txt)) Txt="*** "_Txt_" ***"
  Do AddLT(Taal,.Oms,.Txt,.Optie)
  ; Verpakking
- If $G(Optie)="R","Z;S"[..Val("VERPAK") Do  ; verpakkingskode en lengte van overdoos bijvoegen bij lev.ref.
- . New DItem,PRNr,Dimensie,KenmObj
- . Set DItem=..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)
- Else  Do
- . Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.Verpakking",..Val("VERPAK"),Taal)
- . Do AddLT(Taal,.Oms,.Txt,.Optie,1)
+ Set Txt=##class(Res.PI.Abstract).TaalAfhOmsClass("Prod.GAMeta.BT.Verpakking",..Val("VERPAK"),Taal)
+ Do AddLT(Taal,.Oms,.Txt,.Optie,1)
  Quit
 ltxGRP
  ; Oms via .Local