Index: BL/Flow/Offerte/IntrastatService.cls.xml =================================================================== diff -u -r29059 -r34397 --- BL/Flow/Offerte/IntrastatService.cls.xml (.../IntrastatService.cls.xml) (revision 29059) +++ BL/Flow/Offerte/IntrastatService.cls.xml (.../IntrastatService.cls.xml) (revision 34397) @@ -135,14 +135,16 @@ If ProductAPI.BestaatProduct(BonLijn.GeefProductID()) { #dim Product As DOM.PM.Product = ProductAPI.GeefProduct(BonLijn.GeefProductID()) #dim GoederenCode As %String = Product.GeefIntrastatGoederenCode() - #dim Gewicht As %Float = ..GewichtPerGoederenCode.GetAt(GoederenCode) + (..GeefAfgerondGewichtInKG(BonLijn.GeefProductID())*BonLijn.GeefAantal()) - #dim Waarde As %Float = ..WaardePerGoederenCode.GetAt(GoederenCode) + BonLijn.GeefTotaalNettoExclBTW() - - Do ..GewichtPerGoederenCode.SetAt(Gewicht,GoederenCode) - Do ..WaardePerGoederenCode.SetAt(Waarde,GoederenCode) - - #dim Aantal As %Integer = ..AantalPerGoederenCode.GetAt(GoederenCode) + BonLijn.GeefAantal() - Do ..AantalPerGoederenCode.SetAt(Aantal,GoederenCode) + If $$$HasLength(GoederenCode) { + #dim Gewicht As %Float = ..GewichtPerGoederenCode.GetAt(GoederenCode) + (..GeefAfgerondGewichtInKG(BonLijn.GeefProductID())*BonLijn.GeefAantal()) + #dim Waarde As %Float = ..WaardePerGoederenCode.GetAt(GoederenCode) + BonLijn.GeefTotaalNettoExclBTW() + + Do ..GewichtPerGoederenCode.SetAt(Gewicht,GoederenCode) + Do ..WaardePerGoederenCode.SetAt(Waarde,GoederenCode) + + #dim Aantal As %Integer = ..AantalPerGoederenCode.GetAt(GoederenCode) + BonLijn.GeefAantal() + Do ..AantalPerGoederenCode.SetAt(Aantal,GoederenCode) + } } Else { Set GoederenCode="*** "_..GeefKorttekst(BonLijn.GeefProductID())_" *** geen info."