Index: DOM/CRM/impl/KlantVerlofPeriode.cls.xml
===================================================================
diff -u -r734 -r903
--- DOM/CRM/impl/KlantVerlofPeriode.cls.xml	(.../KlantVerlofPeriode.cls.xml)	(revision 734)
+++ DOM/CRM/impl/KlantVerlofPeriode.cls.xml	(.../KlantVerlofPeriode.cls.xml)	(revision 903)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-01-27 17:00:58">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-10 12:00:17">
 <Class name="DOM.CRM.impl.KlantVerlofPeriode">
 <Description>
 Per klant de verlofperiodes bijhouden.
@@ -8,7 +8,7 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62106,39894.820813</TimeChanged>
+<TimeChanged>62132,43268.263991</TimeChanged>
 <TimeCreated>62021,41780.563638</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -69,6 +69,49 @@
 ]]></Implementation>
 </Method>
 
+<Method name="IsVerlofDag">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr,Datum:%Date</FormalSpec>
+<ReturnType>%Date</ReturnType>
+<Implementation><![CDATA[
+	&SQL(DECLARE IVD CURSOR FOR 
+	SELECT Periode_Van,Periode_Tot INTO :Van, :Tot 
+	FROM DOM_CRM_impl.KlantVerlofPeriode 
+	WHERE Klant=:KLNr)
+   	&sql(OPEN IVD)
+ 	For  &sql(FETCH IVD) Quit:SQLCODE  Do
+ 	. For Verlof=Van:1:Tot Set Verlof(Verlof)=""
+	&sql(CLOSE IVD)
+	Quit ''$D(Verlof(Datum))
+]]></Implementation>
+</Method>
+
+<Method name="GetVerlofDagen">
+<Description>
+Alle verlofdagen van een klant, eventueel beperkt vanaf - tot</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr:%Integer,Van:%Date,Tot:%Date</FormalSpec>
+<Implementation><![CDATA[
+	Set ORef=##Class(Derde.Klant.Klant).%OpenId(KLNr)
+	Set domVerlof=..%New(ORef)
+	Do domVerlof.Fetch(.Verlof)
+	If $D(Verlof) {
+		Set (Next,lbVerlofDagen)=""
+		For  {
+			Set Next=$O(Verlof(Next))
+			Quit:'Next
+			Set Periode=Verlof(Next)
+			For Dag=$P(Periode,"\",2):1:$P(Periode,"\",3) {
+				If $G(Van),Dag<Van Continue
+				If $G(Tot),Dag>Tot Quit
+				Set lbVerlofDagen=lbVerlofDagen_$LB(Dag)
+			}
+		}
+	}
+	Quit $G(lbVerlofDagen)
+]]></Implementation>
+</Method>
+
 <Method name="Fetch">
 <FormalSpec>Verlof</FormalSpec>
 <ReturnType>%Status</ReturnType>
@@ -131,5 +174,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="2307668043"/>
+<Checksum value="1389791400"/>
 </Export>