Index: BL/Derde/Klant/Main.cls.xml
===================================================================
diff -u -r734 -r1012
--- BL/Derde/Klant/Main.cls.xml	(.../Main.cls.xml)	(revision 734)
+++ BL/Derde/Klant/Main.cls.xml	(.../Main.cls.xml)	(revision 1012)
@@ -1,13 +1,13 @@
 <?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:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 16:46:39">
 <Class name="BL.Derde.Klant.Main">
 <Description>
 Set BL=##class(BL.Derde.Klant.Main).%New() s Q=BL.Zoek(1051) f  d Q.Next(.Ok) q:('Ok)  w Ok,!
-m Data=Q.Data zw Data</Description>
+m Data=Q.Data zw Data </Description>
 <IncludeCode>BL.Derde.Derde</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>60312,57599.728465</TimeChanged>
+<TimeChanged>62193,60409.95222</TimeChanged>
 <TimeCreated>59994,36389.731496</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -97,6 +97,81 @@
  	Write $$ParseStatus^vhLib(Status)
 ]]></Implementation>
 </Method>
+
+<Method name="OmzetTrend">
+<Description>
+w ##class(BL.Derde.Klant.Main).OmzetTrend(5209)</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KLNr</FormalSpec>
+<Implementation><![CDATA[
+	 #define Max 999999999
+	; De omzet moet voor de kortere maanden gecorrigeerd worden(JUL, AUG en DEC)
+	#define MndFaktor "1;1;1;1;1;1;1.8;1.4;1;1;1;1.4"
+	#define ReduceOmzet .9
+	
+	Set MndStart=$$CALCDATE^vhDTyp($H,"M",-16,"FD")
+	;Init 
+	For Grp=1:1:3 Set Omz(Grp)=0 For I=1:1:Grp Set Omz(Grp,I)=$$$Max
+	
+	; Ophalen gegevens
+	For I=1:1:15 Do
+	. Set Mnd=$ZD(MndStart+(31*I),8)
+	. Set Mnd=$E(Mnd,1,4)_"."_$E(Mnd,5,6)_" "
+	. Set Omz=$P($G(^KSTKL(KLNr,0,Mnd)),"\",3)*$P($$$MndFaktor,";",+$E(Mnd,6,7)) ; incl correctie factor voor de kortere maanden
+	. ;Write I," ",Mnd," ",$P($G(^KSTKL(KLNr,0,Mnd)),"\",3)," -> ",Omz,!
+	. ; Sommering 3 maanden
+	. If I<13 Do
+	. . Do ..Compare(3,1,3,Omz,.Omz)
+	. Else  Do
+	. .Set Omz(3)=Omz(3)+Omz
+	. ; Sommering 2 maanden
+	. If I<14,I>1 Do
+	. . Do ..Compare(2,1,2,Omz,.Omz)
+	. Else  If I>13 Do
+	. .Set Omz(2)=Omz(2)+Omz
+	. ; Sommering 1 maand
+	. If I<15,I>2 Do
+	. . Do ..Compare(1,1,1,Omz,.Omz)
+	. Else  If I>14 Do
+	. .Set Omz(1)=Omz(1)+Omz
+	
+	
+	;w !
+	;K %Omz m %Omz=Omz zw %Omz
+	;w !
+	
+	; Analyze
+	Set Result=""
+	For Grp=1:1:3 Do
+	. Set (Som,Aantal)=0
+	. For I=1:1:Grp Do:Omz(Grp,I)<$$$Max
+	. . Set Aantal=Aantal+1
+	. . Set Som=Som+Omz(Grp,I)
+	. Quit:'Aantal
+	. Set Omz(Grp)=(Omz(Grp)/Grp)_"\"_(Som/Aantal) ; Laatste Omzet \ Minimum Omzet
+	. If $P(Omz(Grp),"\") < ($P(Omz(Grp),"\",2)*$$$ReduceOmzet) Set Result=$TR($J("",Grp)," ","-"),$P(Omz(Grp),"\",3)=Result ; De MinOmzet wordt verkleind, dit om kleine afwijkingen toe te laten.
+	. ;Write Grp," LstOmz: "_$J($P(Omz(Grp),"\"),0,0)_" < MinOmz:"_$J($P(Omz(Grp),"\",2),0,0)," * ",$$$ReduceOmzet," = result: "_$P(Omz(Grp),"\",3),!
+	;W !
+	;W !,"*** ",Result," ***"
+	
+	Quit Result
+]]></Implementation>
+</Method>
+
+<Method name="Compare">
+<Description>
+Hulproutine voor OmzetTrend</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Grp,FromI,Max,CompOmz,Omz</FormalSpec>
+<Implementation><![CDATA[
+	;Write Grp," ",FromI," ",Max," ",CompOmz,!
+	Quit:Omz'>1 ; geen omzet in de maand
+	For J=FromI:1:Max If Omz(Grp,J)>CompOmz Do  Quit
+	. Do ..Compare(Grp,J,Max,Omz(Grp,J),.Omz) ; Recursief
+	. Set Omz(Grp,J)=CompOmz
+	Quit
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="2610342801"/>
+<Checksum value="27147202"/>
 </Export>