Index: AXimpl/Utils.cls.xml =================================================================== diff -u -r46476 -r46489 --- AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 46476) +++ AXimpl/Utils.cls.xml (.../Utils.cls.xml) (revision 46489) @@ -220,6 +220,7 @@ #dim LeverancierNummer As %String = Product.Basis.LeverancierNummer #dim StockNietStock As %String = Product.Basis.StockNietStock #dim PrimaryVendorId = ..ConvertPrimaryVendorId(Firma,Product) + #dim ScanType As %String = Product.Basis.ScanType If Firma = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() { #dim DefaultOrderTypeVHBE As %String = ..ConvertDefaultOrderType(Firma,Product) @@ -238,7 +239,6 @@ #dim HoofdGroepBevatTA As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"TA") #dim HoofdGroepBevatOL As %Boolean = ##class(TECH.StringUtils).Contains(HoofdGroep,"OL") #dim SubGroepBevatCAT As %Boolean = ##class(TECH.StringUtils).Contains(SubGroep,"CAT") - #dim ScanType As %String = Product.Basis.ScanType #dim VoorraadInstelling As AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstelling = ..VoorraadInstellingCalculator.Calculate(Product.BasisGetObjectId()) #dim LeveringsDagen As %Integer = $$$If(ScanType="L",6,$$$If(VoorraadInstelling.LeveringsDagen=5,6,VoorraadInstelling.LeveringsDagen)) // Voor Logsteuer hardcoded op 6 en sowieso 5 ook op 6 zetten volgens sprint 12 analyse #dim Exceptiestring As %String = "Voor product "_Product.BasisGetObjectId()_" zijn er meer dan 99 LeveringsDagen berekend, nml.: "_LeveringsDagen @@ -341,7 +341,9 @@ Set ReqGroupId = "BTO" } ElseIf (DefaultOrderTypeHLX = "Aankooporder"){ If (StockNietStock = "1"){ - If (LeverancierNummer = "7835"){ + If (+ScanType > 0){ + Set ReqGroupId = "Min/max" + }ElseIf (LeverancierNummer = "7835"){ Set ReqGroupId = "BTS Vallin" }ElseIf (LeverancierNummer = "6628"){ Set ReqGroupId = "BTS Stylin" @@ -361,7 +363,7 @@ Set ReqGroupId = "BTS Beneen" }ElseIf (LeverancierNummer = "6892"){ Set ReqGroupId = "BTS AngstP" - }ElseIf ((Herbestelsurplus '= "") && (Herbestelafronding '= "")){ + }ElseIf ((Herbestelsurplus '= "") || (Herbestelafronding '= "")){ Set ReqGroupId = "BTS-IC" } } Index: vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml =================================================================== diff -u -r46404 -r46489 --- vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml (.../Test.cls.xml) (revision 46404) +++ vhUnitTest/AXimpl/Utils/ConvertReqGroupId/Test.cls.xml (.../Test.cls.xml) (revision 46489) @@ -863,7 +863,7 @@ ]]> - + + + + + - + + + + +