Bij verlofdatums kan het voorkomen dat de een verzenddatum voor een bepaalde verzendwijze wegvalt of verplaatst wordt naar een andere datum. Dit komt vooral voor bij OD persistent 1 %Persistent %Date %Integer %List %Integer %Date %String 1 1 TriggerDatum,VolgNr 1 Do ##class(APPS.VKP.VerzendDatumExceptions).Test("03/01/2013") 1 Datum Do ##class(APPS.VKP.VerzendDatumExceptions).VerplaatsKerst() 1 ",$$ParseStatus^vhLib(sc),! /* Set Dag=$$INTDATE^vhLib.DataTypes("24/12/2012") Do ..DeleteDag(Dag) Set sc=..AddAllow(Dag,$LB("DI1","DI2"),1) If $$$ISERR(sc) Write "error in AddMove - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! */ Write "Klaar", ! ]]> Do ##class(APPS.VKP.VerzendDatumExceptions).Verplaats1DagVroeger("09/05/2013") 1 Datum:%String ",$$ParseStatus^vhLib(sc),! Set Dag=$$INTDATE^vhLib.DataTypes(Datum) Set DagNummerInWeek = ..GeefDagNummerInWeek(Dag) Do ..DeleteDag(Dag) Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),DagNummerInWeek,Dag-1,"OD") If $$$ISERR(sc) Write "error in AddMove - Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! ]]> 1 Datum:%Date %Integer 1 WoensdagDate:%Date ",$$ParseStatus^vhLib(sc),! Set sc=..AddMove(Donderdag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),4 /*=donderdagdag*/,Woensdag,"OD") If $$$ISERR(sc) Write "error in AddMove - Dag:",Donderdag," -> ",$$ParseStatus^vhLib(sc),! ]]> Voor OD Ma-Wo moet de woensdag (31 okt) vrijgemaakt worden, want de OD donderdag (01 nov) zal 1 dag vroeger geplaatst worden. Oproepen via : Do ##class(APPS.VKP.VerzendDatumExceptions).WijzigODvan1Nov2018() 1 ",$$ParseStatus^vhLib(sc),! // "OD donderdag" (1 nov 2018) komt op "OD woensdag" Do ##class(APPS.VKP.VerzendDatumExceptions).Verplaats1DagVroeger(Dag1Nov) ]]> Do ##class(APPS.VKP.VerzendDatumExceptions).Create() 1 ",$$ParseStatus^vhLib(sc),! Set Dag=$$INTDATE^vhLib.DataTypes("09/05/2012") Do ..DeleteDag(Dag) Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3","OD4","OD5"),4,Dag-1,"OD") If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! ]]> 1 Datum:%Date 1 TriggerDatum:%Date,TriggerVerzendWijzen:%List,TriggerWeekDag:%Integer 1 TriggerDatum:%Date,TriggerVerzendWijzen:%List,TriggerWeekDag:%Integer,VervangDatum:%Date,VervangVerzendWijze:%String 1 TriggerDatum:%Date,TriggerVerzendWijzen:%List,TriggerWeekDag:%Integer 1 Datum:%Date,VerzendWijze:%String,lbWeekDagen:%Integer %Library.CacheStorage ^APPS.VKP.VerzendDatu5491D VerzendDatumExceptionsDefaultData ^APPS.VKP.VerzendDatu5491D ^APPS.VKP.VerzendDatu5491I ^APPS.VKP.VerzendDatu5491S %%CLASSNAME TriggerVerzendWijzen TriggerWeekDag VervangDatum VervangVerzendWijze