TECH.Mockable DOM.AKP.BestelImpuls.impl.BestelImpulsRepository 1 AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux 1 TECH.DateTime.DateTimeAPI 1 DOM.PARTIJ.PartijAPI 1 BL.Prod.VoorraadBewegingService 1 AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator 1 PartijApi:DOM.PARTIJ.PartijAPI,ConvertorLeveranciersnummerVanHoeckeNaarHalux:AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux,VoorraadInstellingCalculator:AX.Uitgaand.PM.VrijgegProduct.impl.VoorraadInstellingCalculator,VoorraadBewegingService:BL.Prod.VoorraadBewegingService,BestelImpulsRepository:DOM.AKP.BestelImpuls.impl.BestelImpulsRepository 1 1 %Status 1 Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product %String Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant %String Firma:AXimpl.InterneFirmaInitialen,Klant:DOM.VKP.VanHoeckeKlant %String Firma:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.Leverancier %String Firma:AXimpl.InterneFirmaInitialen,Leverancier:DOM.AKP.Leverancier %String Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product %String Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product %String 99) { //W !,"Voor product "_Product.BasisGetObjectId()_" zijn er meer dan 99 LeveringsDagen berekend, nml.: "_LeveringsDagen Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.IllegalArgumentException).%New(Exceptiestring)) } If (LeveringsDagen < 10){ Set LeveringsDagen = ##class(TECH.StringUtils).AddLeadingChar(LeveringsDagen,"0",2) } If ((SubGroepLaatsteDrieKarakters = "/OL") && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie")) { Set ReqGroupId = "MTO" } ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){ If ((SubGroepBevatVPK) || (SubGroepBevatVPA)) { Set ReqGroupId = "Handmatig" } ElseIf (StockNietStock '= "1") { If (LeverancierNummer = "5005"){ Set ReqGroupId = "BTO Blum" } Else { Set ReqGroupId = "BTO ntBlum" } } ElseIf (StockNietStock = "1") { If (PrimaryVendorId = "06332") { Set ReqGroupId = "BTO" } ElseIf(ScanType > 0) { Set ReqGroupId = "Min/Max" } ElseIf ((HoofdGroepBevatZZ) && (GroepBevatYYY) && (SubGroepBevatCAT)) { Set ReqGroupId = "Handmatig" } ElseIf ((HoofdGroepBevatTA) && (GroepBevatDRU) && (SubGroepBevatBROslashTA)) { Set ReqGroupId = "Handmatig" } ElseIf (LeverancierNummer = "5005"){ Set ReqGroupId = "Blum"_LeveringsDagen_"d ND" } ElseIf (LeverancierNummer = "5002"){ Set ReqGroupId = "BTS Agofor" } ElseIf (LeverancierNummer = "5938"){ Set ReqGroupId = "BTS Baliko" } ElseIf (LeverancierNummer = "6494"){ Set ReqGroupId = "Handmatig" } ElseIf (LeverancierNummer = "6330"){ Set ReqGroupId = "Handmatig" } Else { Set ReqGroupId = "BTS-1W" }}} Else { Set ReqGroupId = "Handmatig" } } ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() { #dim Herbestelsurplus As %String = Product.Basis.HerbestelSurplus #dim Herbestelafronding As %String = Product.Basis.HerbestelAfronding #dim DefaultOrderTypeHLX As %String = ..ConvertDefaultOrderType(Firma,Product) If ((Herbestelsurplus = "") && (Herbestelafronding ="") && (LeverancierNummer = "6051")) { Set ReqGroupId = "BTO" } ElseIf (StockNietStock = "1"){ If (LeverancierNummer = "5898"){ Set ReqGroupId = "BTS Vallin" }ElseIf (LeverancierNummer = "5677"){ Set ReqGroupId = "BTS Stylin" }ElseIf (LeverancierNummer = "5921"){ Set ReqGroupId = "BTS Decosp" }ElseIf (LeverancierNummer = "7802"){ Set ReqGroupId = "BTS Egger" }ElseIf (LeverancierNummer = "6813"){ Set ReqGroupId = "BTS APT" }ElseIf (LeverancierNummer = "7771"){ Set ReqGroupId = "BTS Unilin" }ElseIf (LeverancierNummer = "6792"){ Set ReqGroupId = "BTS Horate" }ElseIf (LeverancierNummer = "5817"){ Set ReqGroupId = "BTS Alinco" }ElseIf (LeverancierNummer = "7063"){ Set ReqGroupId = "BTS Beneen" }ElseIf (LeverancierNummer = "6892"){ Set ReqGroupId = "BTS AngstP" }}} Else { Write !,"Geef als parameter ofwel VHBE, ofwel HLX mee!" } Quit ReqGroupId ]]> Product:AX.Uitgaand.PM.Product.impl.Product %String 0) { If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = 1) || (NormaleVerpakking = "")) && ((PalletAantal = 0) || (PalletAantal = ""))) { Set UOMSeqGroupId = "STK-GVP" } ElseIf (Leverancier = "5005") { If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = "")) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-GVP-PLT" } ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking = 1) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-GVP-PLT" } ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking > 1) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-KVP-GVP-PLT" } ElseIf ((KleinVerpakking > 0) && (NormaleVerpakking > 0) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-KVP-NVP-GVP-PLT" } } Else { If (((KleinVerpakking = 0) || (KleinVerpakking = "")) && ((NormaleVerpakking = 0) || (NormaleVerpakking = "")) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-GVP" } ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking = 1) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-GVP" } ElseIf (((KleinVerpakking = 0) || (KleinVerpakking = "")) && (NormaleVerpakking > 1) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-KVP-GVP" } ElseIf ((KleinVerpakking > 0) && (NormaleVerpakking > 0) && (PalletAantal > 0)) { Set UOMSeqGroupId = "STK-KVP-NVP-GVP" } } } Quit UOMSeqGroupId ]]> Tot nader order van SCA staat "Uitlopend" in comment. Moet verder uitgezocht worden vooraleer deze mogelijkheid naar AX kan. Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product %String (..DateTimeApi.CurrentDate() - 180)) && (StockNietStock = 1)) { Set ItemBuyerGroupId = "Nieuw" } ElseIf ((Product.Basis.Uitverkoop '= "") && (Product.Basis.Uitverkoop '= "***") && (StockNietStock = 1)) { Set ItemBuyerGroupId = "Uitlopend" } ElseIf (((Leverancier = "7580") || (Leverancier = "7560") || (Leverancier = "7551")) && (StockNietStock = 1)){ Set ItemBuyerGroupId = "Nieuw" } ElseIf (ScanType > 0){ Set ItemBuyerGroupId = "Limiet" } ElseIf ((StockNietStock = 1) && (LinkType '= "S")){ Set ItemBuyerGroupId = "Simulatie" }Else{ Set ItemBuyerGroupId = "" } } } ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() { If ((Leverancier = "5817") || (Leverancier = "6892") || (Leverancier = "7407") || (Leverancier = "7802")){ Set ItemBuyerGroupId = "Nieuw" } ElseIf (ScanType > 0){ Set ItemBuyerGroupId = "Limiet" }ElseIf ((StockNietStock = 1) && (LinkType '= "S")){ Set ItemBuyerGroupId = "Simulatie" } Else{ Set ItemBuyerGroupId = "" } } Quit ItemBuyerGroupId ]]> ProductId:%String 1 %Date