Index: BL/MB/Auto/CycleCount.cls.xml
===================================================================
diff -u -r29059 -r33684
--- BL/MB/Auto/CycleCount.cls.xml	(.../CycleCount.cls.xml)	(revision 29059)
+++ BL/MB/Auto/CycleCount.cls.xml	(.../CycleCount.cls.xml)	(revision 33684)
@@ -8,6 +8,78 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>BL.Lib.BaseObj</Super>
 
+<UDLText name="T">
+<Content><![CDATA[
+// D ##class(BL.MB.Auto.CycleCount).ZetAutoCC()
+
+]]></Content>
+</UDLText>
+
+<Method name="ZetAutoCC">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	
+	
+	Set blAutoCC=..%New()
+	
+	; AUTO
+	
+	; Low priority on usage
+	Set CountLow=blAutoCC.SetAutoCCFlagOnUsage(1, 1, 200, 0, 5)
+
+	; Mid priority on usage
+	;Set CountMid=blAutoCC.SetAutoCCFlagOnUsage(1, 10, 80, 6, 6)
+
+	; Higher priority on usage
+	;Set CountHigh=blAutoCC.SetAutoCCFlagOnUsage(1, 20, 40, 		4, 7)
+	
+	; Mid priority on usage
+	Set CountMid=blAutoCC.SetAutoCCFlagOnUsage(1, 8, 60, 5, 6)
+
+	; Higher priority on usage
+	Set CountHigh=blAutoCC.SetAutoCCFlagOnUsage(1, 15, 30, 3, 7)
+	
+	; UGLY
+
+	Set CountLow=blAutoCC.SetAutoCCFlagOnUsage(2, 1, 200, 0, 5)
+
+	; Mid priority on usage
+	Set CountMid=blAutoCC.SetAutoCCFlagOnUsage(2, 8, 60, 5, 6)
+
+	; Higher priority on usage
+	Set CountHigh=blAutoCC.SetAutoCCFlagOnUsage(2, 15, 30, 3, 7)
+]]></Implementation>
+</Method>
+
+<Method name="Tellingen">
+<FormalSpec><![CDATA[DatumVan,DatumTot,ActieCodes,&Teller]]></FormalSpec>
+<Implementation><![CDATA[
+	Set:'$G(DatumTot) DatumTot=+$H
+	Set:'$G(DatumVan) DatumVan=+$H-16
+	Set:$G(Actiecodes)="" ActieCodes="DMZE"
+	Set PRNr=0
+	For  Set PRNr=$O(^PRHIST(PRNr)) Quit:PRNr=""  Do
+	. Set VolgNr=""
+	. For  Set VolgNr=$O(^PRHIST(PRNr,VolgNr)) Quit:VolgNr=""  Do
+	. . Set Rec=$G(^PRHIST(PRNr,VolgNr))
+	. . Set Datum=+$P(Rec,"\",1)
+	. . Quit:Datum>DatumTot
+	. . Quit:Datum<DatumVan
+	. . Set SubCnt=$O(^PRHIST(PRNr,VolgNr,""),-1)
+	. . Set:'SubCnt SubCnt=1
+	. . Set Actie=$P(Rec,"\",4)
+	. . Set Magazijn=$P(Rec,"\",5)
+	. . Quit:Magazijn'="M"
+	. . Set Pos=$F(ActieCodes,Actie)
+	. . Quit:'Pos
+	. . Quit:ActieCodes'[Actie
+	. . Set TelList=$G(Teller(Datum))
+	. . Set $LI(TelList,Pos-1)=$LG(TelList,Pos-1)+1
+	. . Set $LI(TelList,$L(ActieCodes)+1)=$LG(TelList,$L(ActieCodes)+1)+1 ; Totaal
+	. . Set Teller(Datum)=TelList
+]]></Implementation>
+</Method>
+
 <Method name="WisAutoCCFlag">
 <FormalSpec>Magazijn,CCPriorityMax</FormalSpec>
 <Implementation><![CDATA[
@@ -58,25 +130,28 @@
 <Implementation><![CDATA[
 	Set:'$G(Magazijn) Magazijn=1
 	Set:'$G(CCPriority) CCPriority = 9
+	Set Datum=$ZD($H-CCDagenGeleden,3)
 	&sql(DECLARE crCCUsage CURSOR FOR 
 	     SELECT loc_id, sectie, product,(Qty_Pcs-Qty_Res),Extra_Int_5,Extra_Int_6,Extra_Int_7,Last_Cycle_Count
 	     INTO LocID,Sectie,PRNr,QtyPcs,AantalPick, AantalBijladen, AutoCCFlag,LastCount
 	     FROM EWMS.Inventory
 	     WHERE Extra_Int_7 < :CCPriority 
 	     AND   Loc_m = :Magazijn
 	     AND   (Extra_Int_5+(Extra_Int_6*2)) > :Bewegingen
+	     AND   Last_Cycle_Count<:Datum
 	     AND   Is_Full<>1
 		)
 	&sql(OPEN crCCUsage)
 	Kill LocIDs
 	Quit:(SQLCODE<0) 0
 	Set FatalErr=0
 	For  &sql(FETCH crCCUsage) Quit:(SQLCODE || FatalErr)  Do
+	. ;w LocID,LastCount,!
 	. ;WeekToLive kan niet op de SQL server uitgevoerd worden vermits de gemiddelde weekverkoop ontbreekt in het producten bestand
 	. Set oProd=##class(Prod.Product).%OpenId(+PRNr)
 	. Quit:('$IsObject(oProd))
 	. Set WeekVkp=oProd.GewogenGemiddeldeWeekVerkoop
-	. Quit:('WeekVkp || ((QtyPcs/WeekVkp)<WeekToLive))
+	. Quit:WeekToLive&&('WeekVkp || ((QtyPcs/WeekVkp)<WeekToLive))
 	. Set LocIDs(LocID,Sectie)="" ; De Inventory tabel kan niet onmiddellijk aangepast worden, Cache laat maar 1 cursor toe per process
 	&sql(CLOSE crCCUsage)