Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml =================================================================== diff -u -r48115 -r48271 --- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml (.../BehoeftePlanningIteratorFilter.cls.xml) (revision 48115) +++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIteratorFilter.cls.xml (.../BehoeftePlanningIteratorFilter.cls.xml) (revision 48271) @@ -54,30 +54,20 @@ #dim PrimaryVendorId As %String = ..Utils.ConvertPrimaryVendorId(..Vestiging,ProductBehoefte) #dim ReqGroupId As %String = ..Utils.ConvertReqGroupId(..Vestiging,ProductBehoefte) - If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() { - If (PrimaryVendorId = "06332"){ - Set IsValid = $$$False - }} ElseIf ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() { - If (PrimaryVendorId = "05497"){ - Set IsValid = $$$False - }} Else { - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New("Geef als parameter ofwel VHBE, ofwel HLX mee! Huidige parameter = '"_..Vestiging)) - } - If ##class(TECH.StringUtils).Equals(ReqGroupId,"Handmatig","MTO") { Set IsValid = $$$False - } ElseIf (+ProductBehoefte.Basis.Uitverkoop '= 0) { + } ElseIf $$$Not(+ProductBehoefte.Basis.Uitverkoop = 0) { Set IsValid = $$$False } If IsValid { Do ..BepaalIsValidSopr(ProductBehoefte) - If (..IsValidSopr '= $$$True){ + If $$$Not(..IsValidSopr = $$$True){ Set IsValid = $$$False }} If IsValid { - If (..VeiligheidsVoorraadCalculator.GeefVeiligheidsVoorraad(ProductBehoefte) = "") { + If ((..VeiligheidsVoorraadCalculator.GeefVeiligheidsVoorraad(ProductBehoefte) = "") && ($$$Not(..Vestiging = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() && $$$Not(PrimaryVendorId = "05497")))) { Set IsValid = $$$False } } Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml =================================================================== diff -u -r47289 -r48271 --- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml (.../BehoeftePlanningIterator.cls.xml) (revision 47289) +++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningIterator.cls.xml (.../BehoeftePlanningIterator.cls.xml) (revision 48271) @@ -69,7 +69,7 @@ If ..Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() { Set SqlStatement = "SELECT ID FROM Prod.Product WHERE isnull(Gentype,'')='' AND KortTekst NOT LIKE 'GEN%' AND KortTekst NOT LIKE 'IO%' AND StockNietStock = '1'" - _" AND ((isnull(LinkType,'') <> 'S') OR (isnull(LinkType,'')='')) AND LeverancierNummer NOT LIKE '6332' AND ((isnull(NonAktief,0)=0) OR (NonAktief = '2'))" + _" AND ((isnull(LinkType,'') <> 'S') OR (isnull(LinkType,'')='')) AND ((isnull(NonAktief,0)=0) OR (NonAktief = '2'))" // Indien nodig is hieronder een filter voorzien om het resultaat te beperken tot overzichtelijk, voor debugging: /*_" AND ID IN (34716,100434,200582,254237,353739,371127,379316,446650,534374,568105,568123,670483,683737,683793,701496,701513,754875)"*/ } Else { Index: AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml =================================================================== diff -u -r48114 -r48271 --- AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml (.../BehoeftePlanningDixfConverter.cls.xml) (revision 48114) +++ AX/Uitgaand/PM/BehoeftePlanning/impl/BehoeftePlanningDixfConverter.cls.xml (.../BehoeftePlanningDixfConverter.cls.xml) (revision 48271) @@ -28,6 +28,11 @@ 1 + +AXimpl.InterneFirmaInitialen +1 + + VeiligheidsVoorraadCalculator:AX.Uitgaand.PM.BehoeftePlanning.impl.VeiligheidsVoorraadCalculator,Utils:AXimpl.Utils,Console:TECH.Console.Console 1 @@ -46,6 +51,7 @@ ProductBehoefte:AX.Uitgaand.PM.Product.impl.Product,Vestiging:AXimpl.InterneFirmaInitialen AXdixf.BehoeftePlanning.BehoeftePlanning %String + + + + 1 AX.Uitgaand.PM.Product.impl.Product @@ -216,6 +218,17 @@ + + +1 + +