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 0 %Date %Integer %List %Integer %Date %String 1 1 TriggerDatum,VolgNr 1 Do ##class(DOM.VKP.VerzendDatumExeptions).Test() 1 Do ##class(DOM.VKP.VerzendDatumExeptions).Create() 1 ",$$ParseStatus^vhLib(sc),! ;Set Dag=$$INTDATE^vhDTyp("13/05/2010") ;Do ..DeleteDag(Dag) ;Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3"),4,Dag-1,"OD") ;If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! Set Dag=$$INTDATE^vhDTyp("10/11/2010") Do ..DeleteDag(Dag) Set sc=..AddSuppress(Dag,$LB("OD","OD1","OD2","OD3"),3) If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! Set Dag=$$INTDATE^vhDTyp("11/11/2010") Do ..DeleteDag(Dag) Set sc=..AddMove(Dag,$LB("OD","OD1","OD2","OD3"),4,Dag-1,"OD") If $$$ISERR(sc) Write "Dag:",Dag," -> ",$$ParseStatus^vhLib(sc),! ]]> 1 Datum 1 TriggerDatum:%Date,TriggerVerzendWijzen:%List,TriggerWeekDag:%Integer 1 TriggerDatum:%Date,TriggerVerzendWijzen:%List,TriggerWeekDag:%Integer,VervangDatum:%Date,VervangVerzendWijze:%String 1 Datum:%Date,VerzendWijze:%String,lbWeekDagen:%Integer %Library.CacheStorage ^DOM.VKP.VerzendDatumExeptionsD VerzendDatumExeptionsDefaultData ^DOM.VKP.VerzendDatumExeptionsD ^DOM.VKP.VerzendDatumExeptionsI ^DOM.VKP.VerzendDatumExeptionsS %%CLASSNAME TriggerVerzendDag TriggerVerzendWijze VervangDatum VervangVerzendWiijze TriggerVerzendWijzen TriggerWeekDag VervangVerzendWijze