Index: AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml =================================================================== diff -u -r46900 -r47125 --- AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml (.../JaarAfnameGenerator.cls.xml) (revision 46900) +++ AX/Uitgaand/PM/BehoeftePlanning/impl/JaarAfnameGenerator.cls.xml (.../JaarAfnameGenerator.cls.xml) (revision 47125) @@ -72,13 +72,18 @@ Set IdentNr=Product.Basis.IdentNummer Set PRNr=Product.Basis.%Id() Set KortTekst=Product.Basis.KortTekst - + Set ..VoorraadCalculator=##class(AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator).%New() + #dim VoorraadInstelling as AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling Set VoorraadInstelling=..VoorraadCalculator.Calculate(PRNr) Set JaarAfname=VoorraadInstelling.JaarVerkoop Set:JaarAfname<0 JaarAfname=0 Set Trend=$S(BuyerGroup="Nieuw":"Trend 100",..Vestiging=##class(AXimpl.InterneFirmaInitialen).HaluxNv():"Trend HX",1:"Trend VH") - Write PRNr,*9,IdentNr,*9,KortTekst,*9,BuyerGroup,*9,Trend,*9,JaarAfname,! + Write PRNr,*9,IdentNr,*9,KortTekst,*9,BuyerGroup,*9,Trend,*9,JaarAfname + Write *9,VoorraadInstelling.VeiligheidsVoorraad,*9,..VoorraadCalculator.GGWeekVerkoop + Write *9,$$$ExcelNum(..VoorraadCalculator.StandaardAfwijking) + Write *9,VoorraadInstelling.ExtraLeveringsDagen+VoorraadInstelling.LeveringsDagen + Write ! ]]>