Index: DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml =================================================================== diff -u -r33068 -r67546 --- DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 33068) +++ DOM/PM/Maatwerk/Calc/Kost/impl/KostItemWriterVisitor.cls.xml (.../KostItemWriterVisitor.cls.xml) (revision 67546) @@ -52,21 +52,24 @@ Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Kost:"_$$$TAB_..GeefKost(Item)_$$$TAB_"EUR") Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Details:"_$$$TAB_Item.GeefDetails()) - if Item.GeefHalffabItem().%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel).%ClassName(1)) { - #dim Volume As DOM.PM.Verpakking.Volume = Item.GeefHalffabItem().Volume - Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Formaat : "_"Breedte : "_Volume.Breedte_", Diepte : "_Volume.Diepte _ ", Hoogte : "_Volume.Hoogte) - } + If ($IsObject(Item.GeefHalffabItem())) { + If Item.GeefHalffabItem().%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabItem.BodemDeksel).%ClassName(1)) { + #dim Volume As DOM.PM.Verpakking.Volume = Item.GeefHalffabItem().Volume + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Formaat : "_"Breedte : "_Volume.Breedte_", Diepte : "_Volume.Diepte _ ", Hoogte : "_Volume.Hoogte) + } - if Item.GeefHalffabItem().%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd).%ClassName(1)) { - #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd = Item.GeefHalffabItem() - Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Aantal Verpakkingen : "_HalffabItem.GeefAantalVerpakkingen()_", Aantal per verpakking : "_##class(TECH.ArrayUtils).ArrayToPieces(HalffabItem.GeefAantallenPerVerpakking())) - } + If Item.GeefHalffabItem().%Extends(##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd).%ClassName(1)) { + #dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabItem.Verpakkingv001BulkPerOnderdeelGegroepeerd = Item.GeefHalffabItem() + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Aantal Verpakkingen : "_HalffabItem.GeefAantalVerpakkingen()_", Aantal per verpakking : "_##class(TECH.ArrayUtils).ArrayToPieces(HalffabItem.GeefAantallenPerVerpakking())) + } - #dim ProductID As %String = Item.GeefHalffabItem().GeefHalffab().GeefProductID() - if $length(ProductID) { - #dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) - Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Product : "_ProductID_" - "_Product.GeefKorttekst()) + #dim ProductID As %String = Item.GeefHalffabItem().GeefHalffab().GeefProductID() + If $length(ProductID) { + #dim Product As DOM.PM.Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(ProductID) + Do ..Writer.WriteLine(..GeefIndentatie()_$$$TAB_"Product : "_ProductID_" - "_Product.GeefKorttekst()) + } } + Quit $$$OK ]]>