Index: EWMS/Pick/PickPost.cls.xml
===================================================================
diff -u -r734 -r905
--- EWMS/Pick/PickPost.cls.xml	(.../PickPost.cls.xml)	(revision 734)
+++ EWMS/Pick/PickPost.cls.xml	(.../PickPost.cls.xml)	(revision 905)
@@ -1,21 +1,60 @@
 <?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:01:02">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-02-17 07:04:09">
 <Class name="EWMS.Pick.PickPost">
 <ClassType>persistent</ClassType>
 <SqlRowIdPrivate>1</SqlRowIdPrivate>
 <StorageStrategy>GSQLStorage</StorageStrategy>
 <Super>%Library.Persistent</Super>
-<TimeChanged>59288,50573.5</TimeChanged>
+<TimeChanged>62139,25507.365916</TimeChanged>
 <TimeCreated>59235,33757.315</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="ControleOpBonMaarNogActief">
+<Description>
+d ##class(EWMS.Pick.PickPost).ControleOpBonMaarNogActief()</Description>
+<ClassMethod>1</ClassMethod>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	Set result=##class(%ResultSet).%New(..%ClassName(1)_":GetActiveConsNrs")
+	Do result.Execute()
+	Set BodyBon=""
+	For  Quit:'result.Next()  Do
+	. Set CONSNr=result.Data("CONSNr")
+	. Quit:CONSNr=""
+	. Quit:'..OpBon(CONSNr)
+	. Set BodyBon=BodyBon_$C(13)_CONSNr_$C(9)_"LocG="_result.Data("LocG")_$C(9)_"LocX="_result.Data("LocX")
+	Quit:BodyBon=""
+	Set Body="Er zijn consolidaties die nog actief zijn in het automatisch magazijn maar die reeds op bon staan"
+	Set Body=Body_$C(13)_"Deze bons moeten uit de Pick_Post tabel verwijderd worden"
+	Set Body=Body_$C(13)_BodyBon
+	Set sc=$$SendMiniMail^vhLib("Cache01@vanhoecke.be",$lb("pv@vanhoecke.be"),"ERROR:Pickpost met actieve picking maar staat reeds op bon",Body)
+]]></Implementation>
+</Method>
+
+<Method name="OpBon">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>CONSNr</FormalSpec>
+<ProcedureBlock>1</ProcedureBlock>
+<Implementation><![CDATA[
+	Set CONSNr=$E($$TRIMN^vhRtn1(CONSNr),1,6) ; CONSNr in het EWMS begint met een blanko en ik kan door opsplitsing van een groot order een extra 7de cijfer hebben 
+	Quit:'$D(^ORDW("D",CONSNr)) 1
+	Quit $P(^ORDW("D",CONSNr),"\",20)?1(1"B")
+]]></Implementation>
+</Method>
+
 <Query name="GetAutoPickPostViaConsNr">
 <Type>%SQLQuery</Type>
 <FormalSpec>paConsNr:%String</FormalSpec>
 <SqlQuery>SELECT assign_seq FROM EWMS_Pick.PickPost
- WHERE (order_nr = :paConsNr) AND (loc_m=13)
-</SqlQuery>
+ WHERE (order_nr = :paConsNr) AND (loc_m=13)</SqlQuery>
 </Query>
 
+<Query name="GetActiveConsNrs">
+<Type>%SQLQuery</Type>
+<SqlQuery><![CDATA[SELECT order_nr as CONSNr, Loc_g as LocG, loc_x as LocX FROM EWMS_Pick.PickPost
+ WHERE (loc_m=13) and isnull(order_nr,'')<>'']]></SqlQuery>
+</Query>
+
 <Parameter name="CONNECTION">
 <Default>EWMS SQL,NOCREATE</Default>
 </Parameter>
@@ -428,5 +467,5 @@
 <StreamLocation>^EWMS.Pic.PickPostS</StreamLocation>
 </Storage>
 </Class>
-<Checksum value="656494730"/>
+<Checksum value="3345888911"/>
 </Export>