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
+
+