De transportafhankelijke parameters worden bepaald door de verzendwijze 1. De DueOutTime van het magazijn (wanneer moeten de goederen klaar staan) wordt ook bepaald door de verzendwijze 2. De duur van de transport wordt bepaald en deze is afhankelijk van de verzendwijze maar ook van de afstand (bepaald via LandCode en Postcode) 3. Sommige klanten worden maar op bepaalde dagen van de week geleverd, andere kunnen op alle dagen geleverd worden Ook dit wordt uit de verzendwijze gedistileerd en gebruikt voor het afronden van de leveringsdag BL.Derde.LevSpecifiek,BL.Derde.KlantSpecifiek 1 TECH.RegisteredObject Default aantal weken van mogelijke leverdatums 4 Default DueOutTijdStip voor HALUX productie : 17:00 61200 %Integer Zie ^RES("KLANT","PI","VERZENDWIJZE") DOM.VKP.VerzendWijze %String Welke dagen van de week de klant mag geleverd worden %List %String %String %String Set Dat=$$INTDATE^vhLib.DataTypes("13/05/2010") Do ##class(APPS.VKP.VerzendWijze).Test(Dat,"OD;1`OD;3") 1 Dat,VerzendW 0 VerzendWijze is iets à la "AFH" of "DI1`MA;DI1` KLNr:%Integer,VerzendWijze:%String,LandCode:%String="",PostCode:%String="",ORDNr:%Integer="" %Status Geef de eerstvolgende leverdag op basis van de verzendwijze en aanleverdagen LeverDatum:%Date 5) . Quit:$$$Not(..IsArbeidsDag(LeverDatum)) . Quit:..IsVerlofKlant(LeverDatum) . Set:$ListFind(..AanleverDagen, WeekDag) Found = $$$True Quit LeverDatum ]]> LeverDatum:%Date,*LeverDatumException:%Date %Boolean Datum %String LeverDatum Datum:%Date %Boolean Lijst met leverdatums gespreid over een AantalWeken Indien verlof week dan wordt deze week niet meegeteld LeverDatum:%Date,AantalWeken:%Integer %List AantalWeken . Set AfgerondeLeverDatum=..AfrondenLeverDag(LeverDatum) . Set Week=$$EXTDATE^vhLib.DataTypes(AfgerondeLeverDatum,"DW") . Set:'$D(Weken(Week)) Weken(Week)="",Weken=Weken+1 . Quit:Weken>AantalWeken . Set lbLeverDatums=lbLeverDatums_$LB(AfgerondeLeverDatum) . Set LeverDatum=##class(TECH.Math).Max(LeverDatum, AfgerondeLeverDatum) + 1 Quit lbLeverDatums ]]> Gemiddeld aantal dagen nodig voor transport Sommige transport zijn arbeidsdagen van Van Hoecke (bv. OD, VTW) andere zijn weekdagen onafhankelijk van het verlof van Van Hoecke (bv. DI1, DI2) deze zijn wel afhankelijk van de algemene Verlof in dat land de PostCode is nodig om een onderscheid te maken tussen het hoge noorden van Nederland en de meer zuidelijke regios %String expression 1 VerzendWijze:%String 1 DueOutTime voor het magazijn om nog mee te kunnen met het transport Zie ook AanpassenDueOut^EWORDSW voor verdere uitzonderingen, die mogelijks in de toekomst naar deze method kunnen verhuizen. %Time %Time DueOutTime voor productie om nog mee te kunnen met het transport %Time %Time DueOutTime voor productie aantal dagen vroeger( 0 of 1) bv. bij OD en DI1 kan het dezelfde dag maar voor AF moet het een dag vroeger %Integer Kanteltijdstip bij orderingave om voor stockproducten een extra dag erbij te tellen Kanteltijdstip bij het doorsturen naar magazijn expression gemiddelde transportduur expression Mogen de orderlijnen indien nodig voor deze verzendwijze achteruit geschoven worden? expression