Prod.Product TECH.Mockable DOM.AKP.BestelImpuls.impl.BestelImpulsRepository 1 AX.Uitgaand.PM.impl.Convertor.ConvertorLeveranciersnummerVanHoeckeNaarHalux 1 TECH.DateTime.DateTimeAPI 1 DOM.PARTIJ.PartijAPI 1 DOM.PM.ProductAPI 1 AX.Uitgaand.PM.impl.IsBasisProductFilter 1 AX.Uitgaand.PM.impl.Convertor.Sopr.BlumKunde 1 AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor 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,SoprProductConverter:AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor,ProductApi:DOM.PM.ProductAPI,IsBasisProductFilter:AX.Uitgaand.PM.impl.IsBasisProductFilter 1 1 %Status 1 BaseDirectory:%String %ListOfDataTypes 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 (HeeftBouwstenen && (LeverancierNummer = "6051") && (DefaultOrderTypeVHBE = "Productie") && ((NonAktief = "") || (NonAktief = "2"))) { Set ReqGroupId = "MTO" } ElseIf (DefaultOrderTypeVHBE = "Aankooporder"){ If ((SubGroepBevatVPK) || (SubGroepBevatVPA)) { Set ReqGroupId = "Handmatig" } ElseIf (StockNietStock '= "1") { If (LeverancierNummer = "5005"){ Set ReqGroupId = "BTO Blum" } Else { If (PrimaryVendorId = "06332") { Set ReqGroupId = "BTO Halux" } Else { Set ReqGroupId = "BTO" } } } ElseIf (StockNietStock = "1") { If ((PrimaryVendorId = "06332") && ($$$Not(HeeftBouwstenen))) { Set ReqGroupId = "BTO Halux" } ElseIf ((PrimaryVendorId = "06332") && (HeeftBouwstenen)) { Set ReqGroupId = "BTS Halux" } ElseIf ((LeverancierNummer = "6051") && (ScanType '> 0)) { Set ReqGroupId = "MTO" } ElseIf (ScanType > 0) { Set ReqGroupId = "Min/Max" } ElseIf ((HoofdGroepBevatZZ) && (GroepBevatYYY) && (SubGroepBevatCAT)) { Set ReqGroupId = "Handmatig" } ElseIf ((HoofdGroepBevatTA) && (GroepBevatDRU) && (SubGroepBevatBROslashTA)) { Set ReqGroupId = "Handmatig" } ElseIf((HoofdGroepBevatOL) && (GroepBevatDRU) && (SubGroepBevatBROslashOL)) { 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" } ElseIf (LeverancierNummer = "7112"){ Set ReqGroupId = "BTS Meyvae" } ElseIf (LeverancierNummer = "7541"){ Set ReqGroupId = "BTS Enou" } ElseIf (LeverancierNummer = "7551"){ Set ReqGroupId = "BTS Vista" } ElseIf (LeverancierNummer = "7409"){ Set ReqGroupId = "BTS EverUn" } ElseIf (LeverancierNummer = "7560"){ Set ReqGroupId = "BTS Suzhou" } ElseIf (LeverancierNummer = "7178"){ Set ReqGroupId = "BTS SFS" } ElseIf (LeverancierNummer = "6118"){ Set ReqGroupId = "BTS Ninka" } ElseIf (LeverancierNummer = "7564"){ Set ReqGroupId = "BTS VFG" } ElseIf (LeverancierNummer = "7509"){ Set ReqGroupId = "BTS Devos" } ElseIf (LeverancierNummer = "5026"){ Set ReqGroupId = "BTS Henke" } ElseIf (LeverancierNummer = "8090"){ Set ReqGroupId = "BTS WaseW" } ElseIf (LeverancierNummer = "5490"){ Set ReqGroupId = "BTS Knapp" } ElseIf (LeverancierNummer = "6347"){ Set ReqGroupId = "BTS Leuco" } ElseIf (LeverancierNummer = "6274"){ Set ReqGroupId = "BTS Nehl" } ElseIf (LeverancierNummer = "7627"){ Set ReqGroupId = "BTS LeTis" } ElseIf (LeverancierNummer = "7857"){ Set ReqGroupId = "BTS Algoet" } ElseIf (LeverancierNummer = "7580"){ Set ReqGroupId = "BTS Winter" } ElseIf (LeverancierNummer = "6501"){ Set ReqGroupId = "BTS TIS&O" } ElseIf (LeverancierNummer = "6792"){ Set ReqGroupId = "BTS Horate" } ElseIf (LeverancierNummer = "5888"){ Set ReqGroupId = "BTS Rajapa" } 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) #dim IsGenerischAfgeleid As %Boolean = $$$If($$$HasLength(ProductImpl.GeefGenerischProductID()),$$$True,$$$False) Set ReqGroupId = "Handmatig" If ((Herbestelsurplus = "") && (Herbestelafronding = "") && (PrimaryVendorId = "05497")){ Set ReqGroupId = "BTO" } ElseIf (DefaultOrderTypeHLX = "Aankooporder"){ If (StockNietStock = "1"){ If ((Herbestelsurplus '= "") || (Herbestelafronding '= "")){ Set ReqGroupId = "BTS-IC" }ElseIf (+ScanType > 0){ Set ReqGroupId = "Min/max" }ElseIf (LeverancierNummer = "7835"){ Set ReqGroupId = "BTS Valing" }ElseIf (LeverancierNummer = "6628"){ Set ReqGroupId = "BTS Stylin" }ElseIf (LeverancierNummer = "7407"){ 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" } } } ElseIf ((DefaultOrderTypeHLX = "Productie") && (HeeftBouwstenen) && (LeverancierNummer = "6332") && ($$$Not(IsGenerischAfgeleid))) { Set ReqGroupId = "MTS" } } 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 ]]> Firma:AXimpl.InterneFirmaInitialen,Product:AX.Uitgaand.PM.Product.impl.Product %String (..DateTimeApi.CurrentDate() - 180)) && (StockNietStock = 1) && $$$Not(LinkType = "S")) || (VoorraadBewegingDatum = "")) { Set ItemBuyerGroupId = "NOKNieuw" } ElseIf (((Leverancier = "7580") || (Leverancier = "7560") || (Leverancier = "7551")) && (StockNietStock = 1)){ Set ItemBuyerGroupId = "NOKNieuw" } ElseIf (ScanType > 0){ Set ItemBuyerGroupId = "NOKLimiet" } ElseIf ((StockNietStock = 1) && $$$Not(##class(TECH.StringUtils).Contains(LinkType,"S","HH","HHZ"))){ Set ItemBuyerGroupId = "NOKSimulat" }Else{ Set ItemBuyerGroupId = "" } } } ElseIf Firma = ##class(AXimpl.InterneFirmaInitialen).HaluxNv() { If ((Leverancier = "5817") || (Leverancier = "6892") || (Leverancier = "7407") || (Leverancier = "7802")){ Set ItemBuyerGroupId = "NOKNieuw" } ElseIf (Leverancier = "7771") { Set ItemBuyerGroupId = "NOKUitlope" } ElseIf ((ScanType > 0) && (LinkType = "HH")){ Set ItemBuyerGroupId = "NOKLimiet" }ElseIf ((StockNietStock = 1) && (LinkType '= "S")){ Set ItemBuyerGroupId = "NOKSimulat" } Else{ Set ItemBuyerGroupId = "" } } Quit ItemBuyerGroupId ]]> PRNr:%Integer %String ProductId:%String 1 %Date