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 %RegisteredObject 0 Default aantal weken van mogelijke leverdatums 4 Default DueOutTijdStip voor HALUX productie : 17:00 61200 %Integer Zie ^RES("KLANT","PI","VERZENDWIJZE") %String Welke dagen van de week de klant mag geleverd worden %List %String %String %String Set Dat=$$INTDATE^vhDTyp("13/05/2010") Do ##class(DOM.VKP.VerzendWijze).Test(Dat,"OD;1`OD;3") 1 Dat,VerzendW 0 KLNr:%Integer,VerzendWijzeOrder:%String,LandCode:%String,PostCode:%String,ORDNr:%Integer %Status Geef de eerstvolgende leverdag op basis van de verzendwijze en aanleverdagen LeverDatum:%Date LeverDatumExeption Set Found=1,LeverDatum=LeverDatumExeption Quit ; exeption overrulles alles . Set WeekDag=..WeekDag(LeverDatum) . Quit:WeekDag>5 . Quit:'..IsArbeidsDag(LeverDatum) . Quit:'..IsVerlofKlant(LeverDatum) . Set:$LF(..AanleverDagen,WeekDag) Found=1 Quit LeverDatum ]]> LeverDatum:%Date %Date 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 LeverDatum=..AfrondenLeverDag(LeverDatum) . Set Week=$$EXTDATE^vhDTyp(LeverDatum,"DW") . Set:'$D(Weken(Week)) Weken(Week)="",Weken=Weken+1 . Quit:Weken>AantalWeken . Set lbLeverDatums=lbLeverDatums_$LB(LeverDatum) . Set LeverDatum=LeverDatum+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 %List expression 1 VerzendWijzeOrder 1 DueOutTime voor het magazijn om nog mee te kunnen met het transport DueOutTime voor productie om nog mee te kunnen met het transport 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 Kanteltijdstip bij orderingave om voor stockproducten een extra dag erbij te tellen expression Kanteltijdstip bij het doorsturen naar magazijn expression gemiddelde transportduur expression Mogen de orderlijnen indien nodig voor deze verzendwijze achteruit geschoven worden? expression