Index: TECH/Events/UGLYPickingStartedEventData.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/UGLYPickingStartedEventData.cls.xml	(.../UGLYPickingStartedEventData.cls.xml)	(revision 924)
+++ TECH/Events/UGLYPickingStartedEventData.cls.xml	(.../UGLYPickingStartedEventData.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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-02-18 14:53:18">
-<Class name="TECH.Events.UGLYPickingStartedEventData">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.EventData</Super>
-<TimeChanged>62140,53656.052136</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.OV.Order</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Order = Order
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="498124558"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:46">
+<Checksum value="4077963501"/>
 </Export>
Index: PVE/xlImport.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/xlImport.cls.xml	(.../xlImport.cls.xml)	(revision 734)
+++ PVE/xlImport.cls.xml	(.../xlImport.cls.xml)	(revision 1019)
@@ -1,344 +1,4 @@
 <?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:05">
-<Class name="PVE.xlImport">
-<Description>
-Import uit een csv-Bestand</Description>
-<ClassType>persistent</ClassType>
-<IncludeCode>BL.Prod,%Prod.Product,%VHMacro</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
-<TimeChanged>61755,28864.965049</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="%J">
-<Type>%Integer</Type>
-</Property>
-
-<Method name="Instantiate">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit ..%New()
-]]></Implementation>
-</Method>
-
-<Method name="Init">
-<Implementation><![CDATA[	Set ..%J=$$%J^vhRtn1
-]]></Implementation>
-</Method>
-
-<Method name="ImportActiviteit">
-<Description>
-Set bl=##class(PVE.xlImport).Instantiate() Do bl.ImportActiviteit()</Description>
-<Implementation><![CDATA[
- Do ..Init()
- Kill ^HULP(..%J)
- Do ..ImportTabel("klanttypering R02.csv")
- Do ..ImportTabel("klanttypering R03.csv")
- Do ..ImportTabel("klanttypering R20.csv")
- Do ..ImportTabel("klanttypering R21.csv")
- Do ..ImportTabel("klanttypering R22.csv")
- Do ..ImportTabel("klanttypering R23.csv")
- Do ..ImportTabel("klanttypering r24 jbb.csv")
- Do ..ImportTabel("klanttypering R25 +26.csv")
- Do ..ImportTabel("nr r 11.csv")
- Do ..ImportTabel("nr r 12.csv")
- Do ..ImportTabel("nr r 14 A.csv")
- Do ..ImportTabel("nr r16.csv")
- Do ..ImportTabel("nr r17.csv")
- Do ..ImportTabel("nr r15 17.12.09.csv")
- ;invullen lijst met niet gevonden klanten (staat in geen enkele excel-file)
- Set Code="",Aantal("Niet actief")=0
- For  Set Code=$O(^KKL(Code)) Quit:Code=""  Do
- . Set x0=$G(^KKL(Code,0)) Quit:x0=""
- . Set KLNr=$Piece(x0,"\"),Naam=$Piece(x0,"\",2),Regio=$P(x0,"\",20)
- . Quit:+KLNr<1000
- . Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
- . Quit:'$IsObject(oKlant)
- . If oKlant.CommNonActief||($L($P(^KKL(^KK1(KLNr),0),"\",30))) Do  Quit
- . . Set ^HULP(..%J,"Niet actief",KLNr)=""
- . . Set Aantal("Niet actief")=Aantal("Niet actief")+1
- . Quit:$D(^HULP(..%J,"Niet ingevuld",KLNr))
- . Quit:$D(^HULP(..%J,"Ingevuld",KLNr))
- . Set ^HULP(..%J,"Niet gevonden",KLNr)=Naam_"\"_Regio
- 
- 
- ;update niet-actieve klanten
- w !,"Update niet-actieve klanten "
- Set KLNr="",i=0
- For  Set KLNr=$o(^HULP(..%J,"Niet actief",KLNr)) Quit:KLNr=""  Do
- . Set Kwantitatief="0"
- . Set i=i+1
- . if i#100=0 w "."
- . If oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr).Sektor'=1 Do MODFIELD^KLANT(KLNr,411,Kwantitatief)
- ;update niet-gevonden klanten
- w !,"Update niet gevonden klanten "
- Set KLNr="",i=0
- For  Set KLNr=$o(^HULP(..%J,"Niet gevonden",KLNr)) Quit:KLNr=""  Do
- . Set i=i+1
- . if i#100=0 w "."
- . Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
- . If oKlant.Sektor'=1&(oKlant.Kwantitatief'="Z")&(oKlant.Kwantitatief'="0") Do
- . . Set Kwantitatief="X"
- . . Do MODFIELD^KLANT(KLNr,411,Kwantitatief)
- ;update niet-ingevulde klanten
- w !,"Update niet ingevulde klanten "
- Set KLNr="",i=0
- For  Set KLNr=$o(^HULP(..%J,"Niet ingevuld",KLNr)) Quit:KLNr=""  Do
- . Set i=i+1
- . if i#100=0 w "."
- . Set oKlant=##class(Derde.Klant.Klant).%OpenId(KLNr)
- . If oKlant.Sektor'=1&(oKlant.Kwantitatief'="Z")&(oKlant.Kwantitatief'="0") Do
- . . Set Kwantitatief="X"
- . . Do MODFIELD^KLANT(KLNr,411,Kwantitatief)
-   
- ;overzicht naar excel
- Set Dev=$$OPEN^vhDEV(,"Resultaat import.txt","W","T")
- Use Dev
- Write "KlantNr",*9,"Naam",*9,"Type",*9,"Regio",*9,"Activiteit",*9,"Kwalitatief",*9,"Kwantitatief",!
- For Type="Ingevuld","Niet ingevuld","Niet gevonden" Do
- . Set KLNr=1000,Aantal(Type)=0
- . For  Set KLNr=$O(^HULP(..%J,Type,KLNr)) Quit:'+KLNr  Do
- . . Set xx=^HULP(..%J,Type,KLNr)
- . . Write KLNr,*9,$Piece(xx,"\"),*9,Type,*9,$Piece(xx,"\",2),*9,$Piece(xx,"\",3),*9,$Piece(xx,"\",4),*9,$Piece(xx,"\",5),!
- . . Set Aantal(Type)=Aantal(Type)+1
- . Write !
- Write !,! 
- Set Type="" For  Set Type=$O(Aantal(Type)) Quit:Type=""  Write "Aantal ",Type,*9,Aantal(Type),!
- Write !,!
- Write "Bestand",*9,"Activiteit in excel",*9,"Aangepaste activiteit",*9,"Code",*9,"Aantal",!
- Set Act="" For  Set Act=$O(^HULP(..%J,"Activiteit",Act)) Quit:Act=""  Do
- . Set xx=^HULP(..%J,"Activiteit",Act),aangepast=$Piece(xx,"\"),code=$Piece(xx,"\",2),aantal=$Piece(xx,"\",3)
- . Set Bestand="" for  set Bestand=$o(^HULP(..%J,"Activiteit",Act,Bestand)) Quit:Bestand=""  Do
- . . Set AantRegio=^HULP(..%J,"Activiteit",Act,Bestand)
- . . Write Bestand,*9,Act,*9,aangepast,*9,code,*9,AantRegio,!
- Do CLOSE^vhDEV(Dev)
-]]></Implementation>
-</Method>
-
-<Method name="ImportTabel">
-<Description>
-Import van de speciale tabel met activiteiteninfo</Description>
-<FormalSpec>Bestand</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
- N VNR,arCsv
- Set FileNm=$$READ^vhDEV("\\notes01\shared\p v e\Regio aanpassing",Bestand,"X`Set arCsv($I(VNR))=Rec","B","P")
- ;juiste kolom zoeken
- Set lijn=$zcvt(arCsv(3),"U")
- for i=1:1:$L(lijn,";") do
- . if $Piece(lijn,";",i)="KWANTITATIEF" set KolKwant=i
- . if $Piece(lijn,";",i)="KWALITATIEF" set KolKwal=i
- . if $Piece(lijn,";",i)="ACTIVITEIT" set KolAct=i
- ;inlezen klantinfo
- s VNR="",Aantal=0
- For  Set VNR=$O(arCsv(VNR)) Quit:VNR=""  Do
- . Set rec=arCsv(VNR)
- . Set zcvt=$Tr(rec,"U")
- . Set KLNr=$Piece(rec,";",1)
- . Quit:'+KLNr
- . Quit:'$D(^KK1(KLNr))
- . Set KlantIndex=$Piece(^KK1(KLNr),"\")
- . Set Regio=$Piece(^KKL(KlantIndex,0),"\",20)
- . Set NonActief=##class(Derde.Klant.Klant).%OpenId(KLNr).CommNonActief
- . Quit:NonActief   ; alleen actieve klanten worden getoond
- . Set Naam=$Piece(rec,";",2)
- . Set Kwantitatief=$ZCVT($Piece(rec,";",KolKwant),"U")
- . Set Activiteit=$Piece(rec,";",KolAct)
- . Set Kwalitatief=$Piece(rec,";",KolKwal)
- . Set Kwantitatief=$Tr(Kwantitatief," ","")
- . If Kwantitatief="O" Set Kwantitatief=0
- . Set Kwalitatief=$Tr(Kwalitatief," ","")
- . Set Aantal=Aantal+1
- . If (Aantal#100)=0 w "."
- . Set ActCode=..ZoekActiviteit(Activiteit)
- . Set ActCode1=..ZoekActiviteit1(Activiteit)
- . 
- . ; update van de codes
- . If ActCode'="" Do
- . . If ActCode="ANDERE" w KLNr," ",Naam," <",Activiteit,"> ANDERE",!
- . . Do MODFIELD^KLANT(KLNr,211,ActCode)
- . . If $D(^HULP(..%J,"Niet ingevuld",KLNr)) Kill ^HULP(..%J,"Niet ingevuld",KLNr)
- . Do MODFIELD^KLANT(KLNr,410,Kwalitatief)
- . Do MODFIELD^KLANT(KLNr,411,Kwantitatief)
- . 
- . ;invullen van de hulpglobal => zo kan achteraf een excel-bestand ingevuld worden
- . If ActCode'=ActCode1 Do
- . . ;als de activiteit niet in het lijstje staat, dan wordt gezocht naar een overeenkomstige activitiet
- . . Set AangepasteActiviteit=$Piece(^RES("KLANT","PI","ACTIVITEIT","D",ActCode),"`",2)
- . . If $D(^HULP(..%J,"Activiteit",Activiteit)) Do
- . . . Set xx=^HULP(..%J,"Activiteit",Activiteit),$piece(xx,"\",3)=$piece(xx,"\",3)+1
- . . . Set ^HULP(..%J,"Activiteit",Activiteit,Bestand)=$G(^HULP(..%J,"Activiteit",Activiteit,Bestand))+1
- . . Else  Do
- . . . Set xx=AangepasteActiviteit_"\"_ActCode_"\"_1
- . . . Set ^HULP(..%J,"Activiteit",Activiteit,Bestand)=1
- . . Set ^HULP(..%J,"Activiteit",Activiteit)=xx
- . If ActCode="ANDERE" Do
- . . ; de activiteit komt niet in het lijstje voor (zelf met wat aanpassingen)
- . . If $D(^HULP(..%J,"Activiteit",Activiteit)) Do
- . . . Set xx=^HULP(..%J,"Activiteit",Activiteit),$piece(xx,"\",3)=$piece(xx,"\",3)+1
- . . . Set ^HULP(..%J,"Activiteit",Activiteit,Bestand)=$G(^HULP(..%J,"Activiteit",Activiteit,Bestand))+1
- . . Else  Do
- . . . Set xx="\\"_1
- . . . Set ^HULP(..%J,"Activiteit",Activiteit,Bestand)=1
- . . Set ^HULP(..%J,"Activiteit",Activiteit)=xx
- . If $Tr(Activiteit," ","")=""&($Tr(Kwantitatief," ","")="")&($Tr(Kwalitatief," ","")="") Do
- . . ;er is niets ingevuld
- . . Quit:$D(^HULP(..%J,"Ingevuld",KLNr))
- . . Set ^HULP(..%J,"Niet ingevuld",KLNr)=Naam_"\"_Regio_"\\"_Kwalitatief_"\"_Kwantitatief
- . Else  Do
- . . Set ^HULP(..%J,"Ingevuld",KLNr)=Naam_"\"_Regio_"\"_ActCode_"\"_Kwalitatief_"\"_Kwantitatief
- w " ",Aantal_" producten in "_$O(arCsv(""),-1)_" lijnen"
-]]></Implementation>
-</Method>
-
-<Method name="ZoekActiviteit">
-<Description>
-Opzoeken van de activiteit op basis van de omschrijving</Description>
-<FormalSpec>Activiteit:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
- If $TR(Activiteit," ","")="" Quit ""
- If $E(Activiteit,$L(Activiteit))=" " Set Activiteit=$E(Activiteit,1,$L(Activiteit)-1)
- Set Activiteit=$zcvt(Activiteit,"U") ; omzetten in hoofdletters
- If Activiteit["ARCHITECT" Quit "ARCHITECT"
- If Activiteit["BADKAMER" Quit "BADKAMER"
- If Activiteit["KEUKEN" Quit "KEUKENS"
- If Activiteit["WOON"&(Activiteit["SLAAPKAMER") Quit "W & S"
- ;
- If Activiteit="SCHOOL" Set Activiteit="SCHOLEN"
- If Activiteit="MEUBELHANDELL" Set Activiteit="MEUBELHANDEL"
- Set Code="",Gevonden=0,ActCode=""
- For  Set Code=$O(^RES("KLANT","PI","ACTIVITEIT","D",Code)) Quit:Code=""!Gevonden  Do
- . Set xCode=^RES("KLANT","PI","ACTIVITEIT","D",Code)
- . Set ActiviteitNaam=$Piece(xCode,"`",2)
- . Set ActiviteitNaam=$zcvt(ActiviteitNaam,"U")
- . If Activiteit=ActiviteitNaam Do
- . . Set Gevonden=1
- . . Set ActCode=Code
- . Else  Do   ;(IP&KS) wegdoen
- . . Set ActiviteitNaam=$p(ActiviteitNaam,"(IP&KS) ",1)_$p(ActiviteitNaam,"(IP&KS) ",2)
- . . If Activiteit=ActiviteitNaam Do
- . . . Set Gevonden=1
- . . . Set ActCode=Code
- If ActCode="" Set ActCode="ANDERE"
- Quit ActCode
-]]></Implementation>
-</Method>
-
-<Method name="ZoekActiviteit1">
-<Description>
-Opzoeken activiteit zonder conversie1</Description>
-<FormalSpec>Activiteit:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[
- If $TR(Activiteit," ","")="" Quit ""
- If $E(Activiteit,$L(Activiteit))=" " Set Activiteit=$E(Activiteit,1,$L(Activiteit)-1)
- Set Activiteit=$zcvt(Activiteit,"U") ; omzetten in hoofdletters
- ;
- Set Code="",Gevonden=0,ActCode=""
- For  Set Code=$O(^RES("KLANT","PI","ACTIVITEIT","D",Code)) Quit:Code=""!Gevonden  Do
- . Set xCode=^RES("KLANT","PI","ACTIVITEIT","D",Code)
- . Set ActiviteitNaam=$Piece(xCode,"`",2)
- . Set ActiviteitNaam=$zcvt(ActiviteitNaam,"U")
- . If Activiteit=ActiviteitNaam Do
- . . Set Gevonden=1
- . . Set ActCode=Code
- If ActCode="" Set ActCode="ANDERE"
- Quit ActCode
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/* 
-/1. De gewijzigde productgegevens "telbaar" terug inlezen in de DEV-ADMIN1 (later op Admin1)
-/2. Voor alle gemonteerde laden $P(GENTYP,"\")="TBX" de telbaarheid op 1 zetten (dit staat los van het excel document)
-Voor alle hoekkasten $P(GENTYP,"\",1,2)="TBX\HKS" de telbaarheid op 3 zetten
-*/
-]]></Content>
-</UDLText>
-
-<Method name="ImportTelbaar">
-<Description><![CDATA[
-Set bl=##class(PVE.xlImport).Instantiate() Do bl.ImportTelbaar("\\notes01\shared\p v e\productinfo1BEW06012010.txt") <br>
-Import van de speciale tabel met telbaar (tab is het scheidingsteken tussen de kolommen)]]></Description>
-<FormalSpec>Bestand</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
- N VNR,arTxt,PieceLen,Pad,BestandNaam
- Set %J=$$%J^vhRtn1
- Kill ^HULP(%J)
- Set PieceLen=$L(Bestand,"\")
- Set Pad=$Piece(Bestand,"\",1,PieceLen-1)
- Set BestandNaam=$Piece(Bestand,"\",PieceLen)
- Set FileNm=$$READ^vhDEV(Pad,BestandNaam,"X`Set ^HULP(%J,$I(VNR))=Rec","B","P")
- ;juiste kolom zoeken
- Set lijn=^HULP(%J,1)
- Set (KolTelbaar,KolPRNr)=0
- for i=1:1:25 do
- . if $Piece(lijn,$C(9),i)="PRNr" set KolPRNr=i
- . if $Piece(lijn,$C(9),i)="Telbaar" set KolTelbaar=i
- Quit:(KolTelbaar=0)!(KolPRNr=0)
- Set VNR="",(Aantal,AantNw)=0
- For  Set VNR=$O(^HULP(%J,VNR)) Quit:VNR=""  Do
- . Set rec=^HULP(%J,VNR)
- . Set PRNr=$Piece(rec,$C(9),KolPRNr)
- . Set Telbaar=$Piece(rec,$C(9),KolTelbaar)
- . Quit:'+PRNr
- . Quit:'$D(^KPR(PRNr))
- . Set Aantal=Aantal+1
- . Set x0=^KPR(PRNr,0)
- . Set x1=^KPR(PRNr,1)
- . Set KortTekst=$Piece(x0,"\")
- . Set oTelbaar=$Piece(x1,"\",7)
- . Set GenType=$$GENTYP^HAD(PRNr)
- . If $Piece(GenType,"\",1,2)="TBX\HKS" Do
- . . Set Telbaar=3
- . Else  If $Piece(GenType,"\")="TBX" Do
- . . Set Telbaar=1
- . If oTelbaar'=Telbaar Do
- . . ;quit:$zu(110)'="DEV-ADMIN1"  ;update alleen in het testsysteem
- . . D MODFIELD^PRODUKT(PRNr,207,Telbaar)
- . . W PRNr," ",oTelbaar,"=>",Telbaar,!
- . . Set AantNw=AantNw+1
- w "Aantal lijnen   : ",$O(^HULP(%J,""),-1),!
- W "Aantal producten: ",$J(Aantal,6),!
- W "Gewijzigd       : ",$J(AantNw,6),!
-]]></Implementation>
-</Method>
-
-<Method name="TestKlant">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Bestand</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
- Kill Lijst,VNR
- Set FileNm=$$READ^vhDEV("\\notes01\shared\p v e\labels",Bestand,"X`Set Lijst($I(VNR))=Rec","B","P")
- ;juiste kolom zoeken
- w $O(Lijst(""),-1),!
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^PVE.xlImportD</DataLocation>
-<DefaultData>xlImportDefaultData</DefaultData>
-<IdLocation>^PVE.xlImportD</IdLocation>
-<IndexLocation>^PVE.xlImportI</IndexLocation>
-<StreamLocation>^PVE.xlImportS</StreamLocation>
-<Data name="xlImportDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>%J</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="3767241805"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:44">
+<Checksum value="4036238467"/>
 </Export>
Index: APPS/LEV/LeverancierService.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1012)
+++ APPS/LEV/LeverancierService.cls.xml	(.../LeverancierService.cls.xml)	(revision 1019)
@@ -1,12 +1,19 @@
 <?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-04-18 16:03:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 13:53:18">
 <Class name="APPS.LEV.LeverancierService">
-<Description>
-JBL + 2011-04-18</Description>
+<Description><![CDATA[
+JBL + 2011-04-18
+
+Bij deploy :
+-> Do ##class(APPS.LEV.LeverancierService).InitSubscription()
+in %ZSTART Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand() aanroepen
+Eventueel
+	via ^cAB1 => DMA => instellen bij wijzigen/maken/verwijderen via admin dat de event worden getriggerd
+	]]></Description>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,57802.385485</TimeChanged>
+<TimeChanged>62200,50014.680245</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefLeverancierLijst">
@@ -33,13 +40,15 @@
 
 <Method name="MaakLeverancierBestand">
 <Description>
-Maak een xml bestand met alle leveranciers in. </Description>
-<ReturnType>%Status</ReturnType>
+Maak een xml bestand met alle leveranciers in. 
+Do ##class(APPS.LEV.LeverancierService).MaakLeverancierBestand()</Description>
+<ClassMethod>1</ClassMethod>
 <Implementation><![CDATA[
 	$$$TECHErrorTrapOn
+	Set LeverancierService = ##class(APPS.LEV.LeverancierService).%New()
 	Set LeverancierBestand = ##class(APPS.LEV.dto.LeverancierBestand).%New()
 	Set LeverancierBestand.Leveranciers = ##class(%ListOfObjects).%New()
-	Set Leveranciers = ..GeefLeverancierLijst()
+	Set Leveranciers = LeverancierService.GeefLeverancierLijst()
 	Set LeverancierIt = ##class(TECH.ListIterator).%New(Leveranciers)
 	While LeverancierIt.HasNext() {
 		Do LeverancierBestand.Leveranciers.Insert(LeverancierIt.Next())
@@ -48,7 +57,7 @@
 	Set Bestandsnaam = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.LEV.LeverancierService.LeverancierBestand")
 	
 	$$$TECHErrorTrapOff
-	Quit ..ExportXML(LeverancierBestand, Bestandsnaam)
+	Quit LeverancierService.ExportXML(LeverancierBestand, Bestandsnaam)
 ]]></Implementation>
 </Method>
 
@@ -74,6 +83,15 @@
 		Set LeverancierBestand = Object
 	}
 	
+	/// Indien de leverancier diezelfde dag al was gewijzigd, de vorige leverancierId eruit halen.
+	/// Want daarin kan reeds een verouderd adres staat.
+	/// Dit voorkomt ook duplicate data in het xml bestand.	
+	For i = 1 : 1 : LeverancierBestand.Leveranciers.Count() {
+		If (LeverancierBestand.Leveranciers.GetAt(i).Nummer = LeverancierNr){
+			Do LeverancierBestand.Leveranciers.RemoveAt(i)
+		}
+	}	
+	
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Leverancier = ToeleveringAPI.GeefLeverancier(LeverancierNr)
 	Set dtoLeverancierId = ..Leverancier2LeverancierId(Leverancier)			
@@ -112,9 +130,64 @@
 ]]></Implementation>
 </Method>
 
+<Method name="InitSubscription">
+<Description>
+Do ##class(APPS.LEV.LeverancierService).InitSubscription()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("WijzigLeverancierEvent","APPS.LEV.LeverancierService","LeverancierEventCatcher")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("VerwijderLeverancierEvent","APPS.LEV.LeverancierService","LeverancierEventCatcher")
+	Do Subscription.%Save()
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("MaakLeverancierEvent","APPS.LEV.LeverancierService","LeverancierEventCatcher")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+
+<Method name="LeverancierEventCatcher">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Event:TECH.PubSub.Event</FormalSpec>
+<Implementation><![CDATA[
+	
+	If ((Event.Type = "WijzigLeverancierEvent") || (Event.Type = "MaakLeverancierEvent") || (Event.Type = "VerwijderLeverancierEvent")){
+		Set LeverancierService = ##class(APPS.LEV.LeverancierService).%New()
+		Do LeverancierService.VulLevWijzigingenBestandAan(Event.Data.LeverancierNr)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="RaiseWijzigEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(DOM.LEV.impl.LeverancierEventData).%New(LeverancierNr)
+	Set Event = ##class(DOM.LEV.impl.WijzigLeverancierEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseVerwijderEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(DOM.LEV.impl.LeverancierEventData).%New(LeverancierNr)
+	Set Event = ##class(DOM.LEV.impl.VerwijderLeverancierEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
+<Method name="RaiseMaakEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<Implementation><![CDATA[
+	Set EventData = ##class(DOM.LEV.impl.LeverancierEventData).%New(LeverancierNr)
+	Set Event = ##class(DOM.LEV.impl.MaakLeverancierEvent).%New(EventData)
+	Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+]]></Implementation>
+</Method>
+
 <Method name="ExportXML">
 <FormalSpec>XML:APPS.LEV.dto.LeverancierBestand,Bestandsnaam:%String=""</FormalSpec>
-<Private>1</Private>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 		Set FileStream = ##class(%FileCharacterStream).%New()
@@ -152,5 +225,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3761868470"/>
+<Checksum value="1598972771"/>
 </Export>
Index: zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 995)
+++ zTryout/ARC/TECH/Persistentie/GlobalNode.cls.xml	(.../GlobalNode.cls.xml)	(revision 1019)
@@ -1,15 +1,17 @@
 <?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-04-07 17:21:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 15:05:54">
 <Class name="zTryout.ARC.TECH.Persistentie.GlobalNode">
 <Description>
 Toegang tot een global node.
 
 Zal uitgebreid moeten worden met kunnen opvragen van de dirty pieces (en hun vorige waarde).
-Dit opdat de gebruiker weet of en welke indexen te wijzigen.</Description>
+Dit opdat de gebruiker weet of en welke indexen te wijzigen.
+
+Zal locking moeten doen.</Description>
 <Import>zTryout.ARC.TECH.Persistentie.GlobalUtils</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62188,62495.7692</TimeChanged>
+<TimeChanged>62193,54365.069022</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Delimiter">
@@ -94,5 +96,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3182709321"/>
+<Checksum value="3381132019"/>
 </Export>
Index: DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml	(.../DwarslatOpMaatCreator.cls.xml)	(revision 903)
+++ DOM/PM/OLProduct/impl/DwarslatOpMaatCreator.cls.xml	(.../DwarslatOpMaatCreator.cls.xml)	(revision 1019)
@@ -1,25 +1,4 @@
 <?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-02-25 13:39:50">
-<Class name="DOM.PM.OLProduct.impl.DwarslatOpMaatCreator">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
-<TimeChanged>62147,49253.910299</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="GeefGenerischPRNr">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 566041
-]]></Implementation>
-</Method>
-
-<Method name="BepaalKortTekst">
-<FormalSpec>DossierNummer:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1120260768"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:31">
+<Checksum value="1804134097"/>
 </Export>
Index: zTryout/ARC/DOM/PM/TandemboxLade.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/PM/TandemboxLade.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/PM/TandemboxLade.cls.xml	(revision 1019)
@@ -0,0 +1,20 @@
+<?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-04-15 16:40:46">
+<Class name="zTryout.ARC.DOM.PM.TandemboxLade">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,60058.815034</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefWizardVersie">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="Accept">
+<Abstract>1</Abstract>
+<FormalSpec>Visitor:DOM.PM.TBXProduct.TBXProductVisitor</FormalSpec>
+</Method>
+</Class>
+<Checksum value="2465218061"/>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHoutSchroefv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHoutSchroefv001.cls.xml	(.../HFBuilderHoutSchroefv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHoutSchroefv001.cls.xml	(.../HFBuilderHoutSchroefv001.cls.xml)	(revision 1019)
@@ -1,44 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderHoutSchroefv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29584.383987</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Hout"
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-	Set HalffabItem.Aantal = 2
-	
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="194216728"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:29">
+<Checksum value="3710373900"/>
 </Export>
Index: APPS/MB/UGLYPicking/EventR.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/MB/UGLYPicking/EventR.cls.xml	(.../EventR.cls.xml)	(revision 917)
+++ APPS/MB/UGLYPicking/EventR.cls.xml	(.../EventR.cls.xml)	(revision 1019)
@@ -1,12 +1,4 @@
 <?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-02-18 16:32:32">
-<Class name="APPS.MB.UGLYPicking.EventR">
-<Description>
-</Description>
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
-<TimeChanged>62140,59609.740191</TimeChanged>
-</Class>
-<Checksum value="22695726"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:13">
+<Checksum value="3255171636"/>
 </Export>
Index: TECH/IO.cls.xml
===================================================================
diff -u -r748 -r1019
--- TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 748)
+++ TECH/IO.cls.xml	(.../IO.cls.xml)	(revision 1019)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408)" ts="2011-01-31 13:03:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:47">
 <Class name="TECH.IO">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -38,5 +38,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="947623154"/>
+<Checksum value="4119894618"/>
 </Export>
Index: APPS/Halux/Docs/MaatwerkProductLijst.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/Docs/MaatwerkProductLijst.cls.xml	(.../MaatwerkProductLijst.cls.xml)	(revision 917)
+++ APPS/Halux/Docs/MaatwerkProductLijst.cls.xml	(.../MaatwerkProductLijst.cls.xml)	(revision 1019)
@@ -1,35 +1,4 @@
 <?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-02-23 11:21:31">
-<Class name="APPS.Halux.Docs.MaatwerkProductLijst">
-<Description>
-Een productlijst die enkel maatwerkproducten met Familie "Lade" en de opgegeven hoofdvariant (parameter van de constructor) toelaat. 
-Deze hoofdvariant wordt ook gebruikt als LijstType, op basis waarvan een geschikte DossierBuilder kan gekozen worden.</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>APPS.Halux.Docs.impl.ProductLijst</Super>
-<TimeChanged>62145,40953.353061</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>Hoofdvariant:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##super(Hoofdvariant)
-]]></Implementation>
-</Method>
-
-<Method name="VoegToe">
-<FormalSpec>Product:DOM.PM.Product</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	Set Result = 0
-	If ((Product.GeefFamilie() = ##class(DOM.PM.enu.Familie).Lade()) && ($Piece(Product.GeefVariant(),"_") = Hoofdvariant))
-	{
-		Set Result = ##super(Product)
-	}
-	Quit Result
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="4043067936"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:09">
+<Checksum value="1999509639"/>
 </Export>
Index: PVE/CSP/Product.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/CSP/Product.cls.xml	(.../Product.cls.xml)	(revision 734)
+++ PVE/CSP/Product.cls.xml	(.../Product.cls.xml)	(revision 1019)
@@ -1,174 +1,4 @@
 <?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:05">
-<Class name="PVE.CSP.Product">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%CSP.Page</Super>
-<TimeChanged>61737,60691.198091</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="CHARSET">
-<Default>utf-8</Default>
-</Parameter>
-
-<Parameter name="CONTENTTYPE">
-<Default>text/html</Default>
-</Parameter>
-
-<Parameter name="CSPFILE">
-<Default>c:\cachesys\csp\admin1\product.cls</Default>
-</Parameter>
-
-<Method name="OnPage">
-<Description>
-Parameter CSPURL = "/csp/admin1/pve.product.cls";
-Parameter CSPURL = "/csp/olprodcat/ProductList.csp";</Description>
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- &html<<html>
- <head>
- </head>
- <body>>
- w "<B>Dag allemaal</B>"
- &html<</body>
- </html>>
-
- ;Do ..OnPageCSPROOT()
- Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnPageBODY">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- write "<body>",!
- Do ##class(PVE.CSP.Product).Listbox()
- 
- set ID=$get(%request.Data("resultaat",1),"")
- If ##class(Prod.Product).%ExistsId(ID) Do
- . Set product = ##class(Prod.Product).%OpenId(ID)
- Else  Do
- . Set product=##class(Prod.Product).%New(),ID=""
- 
- If ($Data(%request.Data("SAVE",1))) Do
- . Do ##class(PVE.CSP.Product).SaveProduct($G(%session.Data("ID")))
- Else  If ($Data(%request.Data("DELETE",1))) Do
- . Do ##class(PVE.CSP.Product).DeleteProduct($G(%session.Data("ID")))
- Do ##class(PVE.CSP.Product).LeesFormulier(product)
- Write "</body>"
-]]></Implementation>
-</Method>
-
-<Method name="OnPageCSPROOT">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[ Do ..OnPageHTML()
-]]></Implementation>
-</Method>
-
-<Method name="OnPageHEAD">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write "<HEAD>"
- Write !,!,"<TITLE> Test van een webpagina van een product</TITLE>",!
- Write !,"</HEAD>"
-]]></Implementation>
-</Method>
-
-<Method name="OnPageHTML">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write "<HTML>"
- Write !
- Do ..OnPageHEAD()
- Write !,!
- Do ..OnPageBODY()
- Write !,"</HTML>"
-]]></Implementation>
-</Method>
-
-<Method name="Listbox">
-<ClassMethod>1</ClassMethod>
-<Private>1</Private>
-<Implementation><![CDATA[
- Write "<form method=""POST"">",!
- Write "<table cols=3 width=50% border=3 cellpadding=3>",!
- Write "<select name=""resultaat"">",!  
- Set query = ##class(%ResultSet).%New()
- Set sqlStatement="Select ProductNr, KortTekst from Prod.Product Order by KortTekst"
- Do query.Prepare(sqlStatement)
- Do query.Execute()
- For  Quit:'(query.Next())  DO
- . Write "<option value="""_query.Data("ProductNr")_""">"_query.Data("KortTekst")_"</option>",!
- Write "</select>",!
- Write "<input type=""submit"" />",!
- Write "</form>",!
-]]></Implementation>
-</Method>
-
-<Method name="SaveProduct">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%String</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
- // If "SUBMIT" is defined, then this is a submit
- // Write the posted data into the object and save it
- Quit
- Write "<br>ID= ",ID,"</br>",!
- If ID'="" Set product = ##class(Prod.Product).%OpenId(ID)
- Set KortTekst=$Get(%request.Data("KortTekst",1)) Quit:KortTekst=""
- Set product.KortTekst = KortTekst
- Set Omschrijving=$Get(%request.Data("Omschrijving",1))
- If Omschrijving'="" Set product.OmschrijvingN1 = Omschrijving
- Set Voorraad=$Get(%request.Data("Voorraad",1)) Quit:Voorraad=""
- Set product.Voorraad = Voorraad
- Set Stat=product.%Save()
- if Stat'=1 Do
- . Write "<br><b>",$System.Status.DisplayError(Stat),"</b></br>"
- Else  Do
- . Set ID=product.%Id()
- . Write "<br><b>Opgeslagen met ID: ",ID,"</b></br>"
-]]></Implementation>
-</Method>
-
-<Method name="DeleteProduct">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>ID:%String</FormalSpec>
-<Implementation><![CDATA[
- Quit
- If ID'="" Do
- . Set rs=##class(%ResultSet).%New()
- . Do rs.Prepare("Delete from Prod.Product where ProductNr='"_ID_"'")
- . Do rs.Execute()
- . Write "<br><b>product met nummer ",ID," is verwijderd uit de database!</b></br>"
-]]></Implementation>
-</Method>
-
-<Method name="LeesFormulier">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>product:%ResultSet</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
- Write "<form name=Formulier method=""POST"">",!
- Write "<Table cols=3 width=50%>",!
- Write "<tr><td>PRNr:</td><td>",..EscapeHTML(product.ProductNr()),"</td></tr>",!
- Set %session.Data("ID")=..EscapeHTML(product.%Id())
- Write "<tr><td>KortTekst:</td>",!
- Write "<td><input type=""TEXT"" name=""KortTekst"" value=""",..EscapeHTML(product.KortTekst),"""></td></tr>",!
- Write "<tr><td>OmschrijvingN1:</td>"
- Set Omschrijving=..EscapeHTML(product.OmschrijvingN1)
- Write "<td><input type=""TEXT"" name=""OmschrijvingN1"" value=""",Omschrijving,"""></td></tr>",!
- Write "<tr><td>Voorraad:</td>",!
- Write "<td><input type=""TEXT"" name=""Voorraad"" value=""",..EscapeHTML(product.Voorraad),"""></td></tr>",!
- Write "<tr><td><input type=""SUBMIT"" name=""SAVE"" value=""SAVE""></td>",!
- Write "<td><input type=""SUBMIT"" name=""DELETE"" value=""DELETE""></tr></table>",!
- Write "</form>"
- Set product = ""
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="345175844"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>
Index: vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml
===================================================================
diff -u -r915 -r1019
--- vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml	(.../TestLadeZijkantBeschrijver.cls.xml)	(revision 915)
+++ vhUnitTest/APPS/PM/Maatwerk/TBX/Productie/TestLadeZijkantBeschrijver.cls.xml	(.../TestLadeZijkantBeschrijver.cls.xml)	(revision 1019)
@@ -1,19 +1,4 @@
 <?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-02-18 14:48:56">
-<Class name="vhUnitTest.APPS.PM.Maatwerk.TBX.Productie.TestLadeZijkantBeschrijver">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","APPS.PM.Maatwerk.TBX.Productie.TestLadeZijkantBeschrijver")</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62140,53393.890116</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="TestLadeZijkantBeschrijver">
-<Implementation><![CDATA[
-	Set LadeZijkantBeschrijver = ##class(APPS.PM.Maatwerk.TBX.Productie.impl.LadeZijkantBeschrijver).%New()
-	Do $$$AssertTrue(1,"hoi")
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="410098993"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:50">
+<Checksum value="1327616826"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderSchroevenv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderSchroevenv001.cls.xml	(.../HFBuilderSchroevenv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderSchroevenv001.cls.xml	(.../HFBuilderSchroevenv001.cls.xml)	(revision 1019)
@@ -1,35 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderSchroevenv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</Super>
-<TimeChanged>62101,29628.965022</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Schroeven"
-	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderHoutSchroefv001).%New(##this)
-	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderEuroSchroefv001).%New(##this)
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="2818113590"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:30">
+<Checksum value="1783270630"/>
 </Export>
Index: TECH/FileInfo.cls.xml
===================================================================
diff -u -r788 -r1019
--- TECH/FileInfo.cls.xml	(.../FileInfo.cls.xml)	(revision 788)
+++ TECH/FileInfo.cls.xml	(.../FileInfo.cls.xml)	(revision 1019)
@@ -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-02-03 16:56:49">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:47">
 <Class name="TECH.FileInfo">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
@@ -27,5 +27,5 @@
 <Type>%String</Type>
 </Property>
 </Class>
-<Checksum value="3409901325"/>
+<Checksum value="2714322487"/>
 </Export>
Index: DOM/PM/enu/KADVullingSoort.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/enu/KADVullingSoort.cls.xml	(.../KADVullingSoort.cls.xml)	(revision 734)
+++ DOM/PM/enu/KADVullingSoort.cls.xml	(.../KADVullingSoort.cls.xml)	(revision 1019)
@@ -1,15 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.enu.KADVullingSoort">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62096,52608.405426</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>;FG;FZ</Default>
-</Parameter>
-</Class>
-<Checksum value="4249858845"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:32">
+<Checksum value="1775130760"/>
 </Export>
Index: APPS/Halux/TBX/impl/PlaatMateiaalHelper.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/impl/PlaatMateiaalHelper.cls.xml	(.../PlaatMateiaalHelper.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/impl/PlaatMateiaalHelper.cls.xml	(.../PlaatMateiaalHelper.cls.xml)	(revision 1019)
@@ -1,7 +1,4 @@
 <?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-02-19 10:00:05">
-<Class name="APPS.Halux.TBX.impl.PlaatMateiaalHelper">
-<TimeChanged>62141,36064.586004</TimeChanged>
-</Class>
-<Checksum value="1199182451"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:12">
+<Checksum value="3284635651"/>
 </Export>
Index: APPS/Halux/TBX/ZaagServer.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/ZaagServer.cls.xml	(.../ZaagServer.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/ZaagServer.cls.xml	(.../ZaagServer.cls.xml)	(revision 1019)
@@ -1,101 +1,4 @@
 <?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-02-03 08:48:03">
-<Class name="APPS.Halux.TBX.ZaagServer">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62123,62241.438619</TimeChanged>
-<TimeCreated>62123,54831.812352</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="BeschadigingLade">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="BeschadigingPlaat">
-<Description>
-</Description>
-<FormalSpec>BodemOfRug:APPS.Halux.TBX.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="ControleMeting">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,BodemOfRug:APPS.Halux.TBX.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="GetBatchLijst">
-<Description>
-</Description>
-<FormalSpec>LijnNr:%String</FormalSpec>
-<ReturnType>%XML.DataSet</ReturnType>
-<Implementation><![CDATA[
-	Set ZaagSturing=..GetImplementatie()
-	Set DataSet=ZaagSturing.GetBatchLijst(LijnNr)
-	Quit DataSet
-]]></Implementation>
-</Method>
-
-<Method name="GetBatchStatus">
-<Description>
-</Description>
-<FormalSpec>BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="GetZaagLijst">
-<Description>
-</Description>
-<FormalSpec>BatchID:%String,SubBatch:%String,LijnNr:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="PrintLabel">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="PrintLabelManueel">
-<Description>
-</Description>
-<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="RegistreerStilstand">
-<Description>
-</Description>
-<FormalSpec>DuurStilstand:%Integer,RedenStilstand:%String,ZaagID:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="SetSettings">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="SetStatus">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,StatusType:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="GetImplementatie">
-<Private>1</Private>
-<Implementation><![CDATA[	Quit ##class(APPS.Halux.TBX.impl.ZaagOpdrachten).%New()
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1097467041"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:11">
+<Checksum value="3246468698"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml	(.../KostContext.cls.xml)	(revision 1012)
+++ DOM/PM/Maatwerk/Calc/Kost/KostContext.cls.xml	(.../KostContext.cls.xml)	(revision 1019)
@@ -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-04-11 11:08:45">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:48:55">
 <Class name="DOM.PM.Maatwerk.Calc.Kost.KostContext">
 <Description>
 De kostcontext heeft referenties naar allerlei tabellen en dient als facade voor het gebruik van die tabellen.
@@ -23,7 +23,7 @@
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62192,40135.852809</TimeChanged>
+<TimeChanged>62200,56951.192245</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Familie">
@@ -200,16 +200,16 @@
 <Method name="LogExceptie">
 <FormalSpec>Exceptie:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
-	Set LogString =	"Context: [ Familie: "_..Familie_", Variant: "_..Variant_" ]"_$c(10)_$c(13)
+	Set LogString =	"Context: [ Familie: "_..Familie_", Variant: "_..Variant_" ]"_$C(10,13)
 	If ($IsObject(..BerekeningsSpecificatie))
 	{
-		Set LogString = LogString_"BerekeningsSpecificatie: [ BerekenDatum: "_..BerekeningsSpecificatie.GeefBerekenDatum()_", BerekenTag: "_..BerekeningsSpecificatie.GeefBerekenTag()_", Hoeveelheid: "_..BerekeningsSpecificatie.GeefHoeveelheid()_", KlantID: "_..BerekeningsSpecificatie.GeefKlantID()_", Personality: "_..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer_" ]"_$c(10)_$c(13)
+		Set LogString = LogString_"BerekeningsSpecificatie: [ BerekenDatum: "_..BerekeningsSpecificatie.GeefBerekenDatum()_", BerekenTag: "_..BerekeningsSpecificatie.GeefBerekenTag()_", Hoeveelheid: "_..BerekeningsSpecificatie.GeefHoeveelheid()_", KlantID: "_..BerekeningsSpecificatie.GeefKlantID()_", Personality: "_..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer_" ]"_$C(10,13)
 	}
 	Set LogString = LogString_"Exceptie: [ "_Exceptie.ToString()_" ]"
 
 	Do ##class(vhLib.Logger).%New("Maatwerk framework").Error("Exceptie kostcontext",LogString)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1425934557"/>
+<Checksum value="1896148303"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 903)
+++ DOM/PM/Maatwerk/Calc/Common/impl/KADKenmerken.cls.xml	(.../KADKenmerken.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-03-08 13:44:06">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:47:23">
 <Class name="DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Super>
-<TimeChanged>62158,49445.901849</TimeChanged>
+<TimeChanged>62200,56858.867114</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Breedte">
@@ -89,29 +89,29 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set String = ""
-	Set String = String _ "Breedte: "_..Breedte_$C(10)_$C(13)
-	Set String = String _ "Hoogte: "_..Hoogte_$C(10)_$C(13)
-	Set String = String _ "ProfielType: "_..ProfielType_$C(10)_$C(13)
-	Set String = String _ "ProfielAfwerking: "_..ProfielAfwerking_$C(10)_$C(13)
-	Set String = String _ "Ophangplaats: "_..Ophangplaats_$C(10)_$C(13)
-	Set String = String _ "Montage: "_..Montage_$C(10)_$C(13)
-	Set String = String _ "Verpakking: "_..Verpakking_$C(10)_$C(13)
-	Set String = String _ "Vulling: "_..Vulling.VullingType_$C(10)_$C(13)
+	Set String = String _ "Breedte: "_..Breedte_$C(13,10)
+	Set String = String _ "Hoogte: "_..Hoogte_$C(13,10)
+	Set String = String _ "ProfielType: "_..ProfielType_$C(13,10)
+	Set String = String _ "ProfielAfwerking: "_..ProfielAfwerking_$C(13,10)
+	Set String = String _ "Ophangplaats: "_..Ophangplaats_$C(13,10)
+	Set String = String _ "Montage: "_..Montage_$C(13,10)
+	Set String = String _ "Verpakking: "_..Verpakking_$C(13,10)
+	Set String = String _ "Vulling: "_..Vulling.VullingType_$C(13,10)
 	
-	Set String = String _$C(10)_$C(13)_ "--- Boringen  --- "_$C(10)_$C(13)_$C(10)_$C(13)
+	Set String = String _$C(13,10)_ "--- Boringen  --- "_$C(13,10)_$C(13,10)
 	Set BoringIterator = ##class(TECH.ListIterator).%New(..Boringen)
 	While (BoringIterator.HasNext())
 	{
 		Set Boring = BoringIterator.Next()
-		Set String = String _ "   " _ Boring.ToString() _$C(10)_$C(13)
+		Set String = String _ "   " _ Boring.ToString() _$C(13,10)
 	}
 	
-	Set String = String _$C(10)_$C(13)_ "--- Beslag  --- "_$C(10)_$C(13)_$C(10)_$C(13)
+	Set String = String _$C(13,10)_ "--- Beslag  --- "_$C(13,10)_$C(13,10)
 	Set BeslagIterator = ##class(TECH.ListIterator).%New(..Beslag)
 	While (BeslagIterator.HasNext())
 	{
 		Set Beslag = BeslagIterator.Next()
-		Set String = String _ "   " _ Beslag.ToString() _$C(10)_$C(13)
+		Set String = String _ "   " _ Beslag.ToString() _$C(13,10)
 	}
 	
 	Quit String
@@ -169,5 +169,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3597386560"/>
+<Checksum value="435023482"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 1012)
+++ DOM/PM/Maatwerk/Calc/HF/impl/HFItemBerekenException.cls.xml	(.../HFItemBerekenException.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-04-11 10:35:46">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:48:26">
 <Class name="DOM.PM.Maatwerk.Calc.HF.impl.HFItemBerekenException">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject,TECH.IException</Super>
-<TimeChanged>62192,38156.824409</TimeChanged>
+<TimeChanged>62200,56922.09184</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="HFItemBuilder">
@@ -49,19 +49,19 @@
 <Method name="ToString">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set ExceptieString = "Fout bij het berekenen van halffabitems voor rol "_..HFItemBuilder.GeefRol()_$c(10)_$c(13)
-						_"Inner exception: "_..InnerException.ToString()_$c(10)_$c(13)_
+	Set ExceptieString = "Fout bij het berekenen van halffabitems voor rol "_..HFItemBuilder.GeefRol()_$C(10,13)
+						_"Inner exception: "_..InnerException.ToString()_$C(10,13)_
 						 "SelectieKenmerken: "
 	Set Iterator = ##class(TECH.ListIterator).%New(..SelectieKenmerken)
 	While (Iterator.HasNext())
 	{
 		Set Waarde = Iterator.Next()
-		Set ExceptieString = ExceptieString_$c(10)_$c(13)_"    "_Iterator.Key()_": "_Waarde
+		Set ExceptieString = ExceptieString_$C(10,13)_"    "_Iterator.Key()_": "_Waarde
 	}
 		
 	Quit ExceptieString
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="75385959"/>
+<Checksum value="577561114"/>
 </Export>
Index: zTryout/ARC/DOM/AKP/Aankoopmogelijkheid.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/AKP/Aankoopmogelijkheid.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/AKP/Aankoopmogelijkheid.cls.xml	(revision 1019)
@@ -0,0 +1,41 @@
+<?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-04-12 14:43:30">
+<Class name="zTryout.ARC.DOM.AKP.Aankoopmogelijkheid">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62193,53021.548484</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefLeverancier">
+<Abstract>1</Abstract>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[/* Geeft de aankoopprijs per stuk, ook als deze aankoopmogelijkheid niet per 1 stuk kan. */
+]]></Content>
+</UDLText>
+
+<Method name="GeefAankoopprijs">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="GeefLevertermijn">
+<Abstract>1</Abstract>
+</Method>
+
+<Method name="GeefMinBestelhoeveelheid">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefBestelreferentie">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefVerpakking">
+<Abstract>1</Abstract>
+</Method>
+</Class>
+<Checksum value="192293022"/>
+</Export>
Index: zTryout/ARC/DOM/PM/SamengesteldProduct.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/PM/SamengesteldProduct.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/PM/SamengesteldProduct.cls.xml	(revision 1019)
@@ -0,0 +1,15 @@
+<?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-04-15 16:42:34">
+<Class name="zTryout.ARC.DOM.PM.SamengesteldProduct">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,60167.248387</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefKostBouwstenenIterator">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+</Class>
+<Checksum value="3673660800"/>
+</Export>
Index: DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml	(.../ToelevLijnIndexOpPRNr.cls.xml)	(revision 1012)
+++ DOM/VKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml	(.../ToelevLijnIndexOpPRNr.cls.xml)	(revision 1019)
@@ -1,124 +1,4 @@
 <?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-04-13 14:01:56">
-<Class name="DOM.VKP.impl.DataM.ToelevLijnIndexOpPRNr">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<StorageStrategy>VHOpslag</StorageStrategy>
-<Super>%Persistent</Super>
-<TimeChanged>62194,50527.523865</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ProductNr">
-<Type>%String</Type>
-</Property>
-
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Toelevering">
-<Type>DOM.LEV.Toelevering</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Aantal">
-<Type>%String</Type>
-</Property>
-
-<Property name="Leverdag">
-<Type>%Date</Type>
-</Property>
-
-<Property name="StockInfo">
-<Type>%String</Type>
-</Property>
-
-<Property name="ToelevNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="ToelevLijnNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="ToelevDatum">
-<Type>%Date</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="WSubscript">
-<Type>%String</Type>
-</Property>
-
-<Index name="PrimKey">
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>ProductNr,WSubscript</Properties>
-<Unique>1</Unique>
-</Index>
-
-<Method name="%OnOpen">
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..ProductNr)
-	set ..Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(..ToelevNr) 
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ToelevNrGet">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $extract(..WSubscript,18,23)
-]]></Implementation>
-</Method>
-
-<Method name="ToelevDatumGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	set JJJJMMDD = $extract(..WSubscript,10,17)
-	quit $$INTDATE^vhDTyp(JJJJMMDD)
-]]></Implementation>
-</Method>
-
-<Method name="ToelevLijnNrGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	quit $translate($extract(..WSubscript,24,26)," ","")+100
-]]></Implementation>
-</Method>
-
-<Storage name="VHOpslag">
-<Type>%CacheSQLStorage</Type>
-<StreamLocation>^DOM.VKP.imp5D4.ToelevLijnIn815S</StreamLocation>
-<SQLMap name="Main">
-<Type>data</Type>
-<Global>^KPR</Global>
-<Subscript name="1">
-<Expression>{ProductNr}</Expression>
-<StartValue>0.1</StartValue>
-</Subscript>
-<Subscript name="2">
-<Expression>{WSubscript}</Expression>
-<StartValue>"W    0.0T"</StartValue>
-<StopValue>"W    0.0Tz"</StopValue>
-</Subscript>
-<Data name="Aantal">
-<Delimiter>"\"</Delimiter>
-<Piece>1</Piece>
-</Data>
-<Data name="Leverdag">
-<Delimiter>"\"</Delimiter>
-<Piece>2</Piece>
-</Data>
-<Data name="StockInfo">
-<Delimiter>"\"</Delimiter>
-<Piece>3</Piece>
-</Data>
-</SQLMap>
-</Storage>
-</Class>
-<Checksum value="86806330"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:33">
+<Checksum value="1745629887"/>
 </Export>
Index: zTryout/ARC/DOM/PM/ProductAPI.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 995)
+++ zTryout/ARC/DOM/PM/ProductAPI.cls.xml	(.../ProductAPI.cls.xml)	(revision 1019)
@@ -1,31 +1,41 @@
 <?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-03-31 12:16:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-15 16:39:00">
 <Class name="zTryout.ARC.DOM.PM.ProductAPI">
 <Abstract>1</Abstract>
 <Import>zTryout.ARC.DOM.PM.impl.DataM,zTryout.ARC.DOM.PM.dto</Import>
 <ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62181,44193.965863</TimeChanged>
+<TimeChanged>62196,59953.241834</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefProduct">
+<Abstract>1</Abstract>
 <FormalSpec>Nr:%Integer</FormalSpec>
 <ReturnType>Product</ReturnType>
 </Method>
 
 <Method name="GeefClassificatie">
+<Abstract>1</Abstract>
 <FormalSpec>Nr:%Integer</FormalSpec>
 <ReturnType>ProductClassificatie</ReturnType>
 </Method>
 
 <Method name="GeefProductGeschiktheid">
+<Abstract>1</Abstract>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <ReturnType>ProductGeschiktheid</ReturnType>
 </Method>
 
 <Method name="GeefFysiekProduct">
+<Abstract>1</Abstract>
 <FormalSpec>PRNr:%Integer</FormalSpec>
 <ReturnType>zTryout.ARC.DOM.PM.FysiekProduct</ReturnType>
 </Method>
+
+<Method name="GeefAdministratiefProduct">
+<Abstract>1</Abstract>
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>zTryout.ARC.DOM.PM.AdministratiefProduct</ReturnType>
+</Method>
 </Class>
-<Checksum value="3565499438"/>
+<Checksum value="2503534098"/>
 </Export>
Index: DOM/PM/enu/TBXBlumotion1.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/enu/TBXBlumotion1.cls.xml	(.../TBXBlumotion1.cls.xml)	(revision 903)
+++ DOM/PM/enu/TBXBlumotion1.cls.xml	(.../TBXBlumotion1.cls.xml)	(revision 1019)
@@ -1,33 +1,4 @@
 <?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-02-16 16:36:30">
-<Class name="DOM.PM.enu.TBXBlumotion1">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62138,59845.59946</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,I,T,Z</Default>
-</Parameter>
-
-<Method name="Zonder">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "Z"
-]]></Implementation>
-</Method>
-
-<Method name="Geintegreerd">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "I"
-]]></Implementation>
-</Method>
-
-<Method name="TipOn">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "T"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="3738144715"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:32">
+<Checksum value="1775130760"/>
 </Export>
Index: csp/vhlogging.cls.xml
===================================================================
diff -u -r734 -r1019
--- csp/vhlogging.cls.xml	(.../vhlogging.cls.xml)	(revision 734)
+++ csp/vhlogging.cls.xml	(.../vhlogging.cls.xml)	(revision 1019)
@@ -1,360 +1,4 @@
 <?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:57">
-<Class name="csp.vhlogging">
-<Description>
-CSP page for viewing the FOP Queue items via SQL</Description>
-<Import>User</Import>
-<IncludeCode>vhLib.Macro</IncludeCode>
-<Language>cache</Language>
-<Super>%CSP.Page</Super>
-<TimeChanged>62105,37499.630884</TimeChanged>
-<TimeCreated>62105,37499.603805</TimeCreated>
-
-<Method name="CustomEHandlerInit">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<FormalSpec>lbErrTypes</FormalSpec>
-<Language>cache</Language>
-<ReturnType/>
-<Implementation><![CDATA[
- 		#Include vhLib.cspError
- 
- 		#define EmailTo "jcl@vanhoecke.be"
- 		Do ##class(csp.errorvh).DefaultEHandlerInit(.lbErrTypes)
- 	
- 		#If $$$Server="WWW01"
- 		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("Email","ErrPage")
- 	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","Email")=$LB("""CSPserver "_$system.Server.HostName()_""" <ICT@vanhoecke.be>",$LB($$$EmailTo),"CSP - Error - "_$ZDT($H,4),"§DFL_HTML§",,1)
- 	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("csp.errorvh","OnPageMinimum")
- 		#Else
- 		Set %cspEHandler($$$etPageLoadError,"ACTIONS")=$LB("ErrPage")
- 	 	Set %cspEHandler($$$etPageLoadError,"ACTIONS","ErrPage")=$LB("%CSP.Error","OnPage")
- 		#EndIf
- 		
- 		Quit
- 
-]]></Implementation>
-</Method>
-
-<Method name="OnPage">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- Do ..OnPagePREHTML()
- Do ..OnPageCSPROOT()
- Do ..OnPagePOSTHTML()
- Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OnPageBODY">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write "<BODY>"
- Write !,$c(9)_"<P class=""clsWSOrdTitle"">"_($$$UCase($G(CspPageTitle, ..%ClassName(0)))_$G(OnServer))_"</P>",!
- Write !
- If '((blnSQED)) Goto %csp00001 ;{
-     Write !,$c(9)_"<BR>",!
-     Write $c(9)_"<PRE>"_(sqlAll)_"</PRE>",!
-     Write $c(9)
-     Write "<form name=""theForm"" method=""post"">"
-     Write !,..InsertHiddenFields(""),!
-     Write !,$c(9,9)
-     Write "<input type=""hidden"" name=""QITEM"" value="""_($G(QItemID))_""">"
-     Write !,$c(9,9)
-     Write "<input type=""hidden"" name=""QARCH"" value="""_($G(QArchID))_""">"
-     Write !,$c(9,9)_"<table cellspacing=""5"">",!
-     Write $c(9,9,9)_"<tr valign=""top"">",!
-     Write $c(9,9,9,9)_"<td align=""left"">",!
-     Write $c(9,9,9,9,9)_"<P class=""clsSubHeader"">SQL Query:</P>",!
-     Write $c(9,9,9,9,9)
-     Write "<textarea name=QUERY rows=6 cols=100>"
-     Write (sqlActive)
-     Write "</textarea>"
-     Write !,$c(9,9,9,9)_"</td>",!
-     Write $c(9,9,9,9)_"<td>",!
-     Write $c(9,9,9,9,9)_"<P class=""clsSubHeader"">&nbsp;</P>",!
-     Write $c(9,9,9,9,9)_"<BR><BR>",!
-     Write $c(9,9,9,9,9)
-     Write "<!-- <input type=checkbox name=SQED size=""6"" value=""#(blnSQED)#"" #($S(blnSQED:""checked"",1:""""))#>Query&nbsp;Editor&nbsp;visible -->"
-     Write !,$c(9,9,9,9,9)_"<BR>",!
-     Write $c(9,9,9,9,9)
-     Write "<input type=submit name=btnSubmit style=""width:60; font-weight:bold;"" value=""Go"">"
-     Write !,$c(9,9,9,9)_"</td>",!
-     Write $c(9,9,9)_"</tr>",!
-     Write $c(9,9)_"</table>",!
-     Write $c(9,9)_"&nbsp;",!
-     Write $c(9,9)
-     Write "<INPUT type=""button"" style=""width:90;"" value=""RESET"" onclick=""window.location.href='vhLogging.csp';"">"
-     Write "&nbsp;",!
-     Write $c(9)
-     Write "</form>"
-     Write !
-     Goto %csp00002 ;}
-%csp00001 ;{
-     Write !,$c(9)_"<BR>",!
-     Write $c(9)
-     Write "<A href="""_(..Link(($G(arUrl("ToggleQED")))))_""">"
-     Write "Show Query Editor"
-     Write "</A>"
-     Write !
-%csp00002 ;}
- Write !,$c(9)_"<BR>",!
- Write $c(9)_"<BR>",!
- Write "<HR>",!
- If '(($L(sqlActive))) Goto %csp00003 ;{
-     Write !,$c(9)
-     // Open instance of ResultSet for runtime mode of DISPLAY.
-     Set queryA = ##class(%ResultSet).%New()
-     Set queryA.RuntimeMode=2
-     Set sqlStatement=$zstrip($tr((sqlActive),$C(9,13,10),"   "),"<>W")
-     If $zcvt($extract(sqlStatement,1,6),"U")'="SELECT" {
-         Do ..ShowError($$$ERROR($$$CSPSQLOnlySelect,96))
-         Quit
-     }
-     // translate tab/cr/nl to spaces
-     Set %sc = queryA.Prepare(sqlStatement,0,"RUNTIME")
-     If (+%sc=0) {
-         Do ..ShowError(%sc)
-         QUIT
-     }
-     Set %sc = queryA.Execute(($G(%request.Data("P1",1),"A")))
-     If (+%sc=0) {
-         Do ..ShowError(%sc)
-         QUIT
-     }
-     Write !,$c(9)
-     Set qryAColCount=queryA.GetColumnCount()
-     Write !,$c(9)
-     Write "<FORM id=""frmQItemsList"" name=""frmQItemsList"" action=""vhLogging.csp"" target=""_blank"" method=""post"">"
-     Write !,..InsertHiddenFields("vhLogging.csp"),!
-     Write !,$c(9)_"<table width="""" border=""1"" bordercolor=""darkblue"" cellspacing=""0"" cellpadding=""1"" class=""clsQryTable"">",!
-     Write $c(9,9)_"<COLGROUP>"_$c(9,9),!
-     Write $c(9,9,9)_"<COL align=""center"">"_$c(9,9,9),!
-     Write $c(9,9,9)
-     Set col=0
-%csp00005 If '((col<qryAColCount)) Goto %csp00004 ;{
-         Set col=col+1
-         Write "   "
-         Write !,$c(9,9,9)_"<COL align="_($S($$$UCase(queryA.GetColumnName(col))="PARAMETERS":"""left""",1:"""center"""))_">"_$c(9,9,9),!
-         Write $c(9,9,9)
-         Goto %csp00005
-%csp00004 ;}
-     Write !,$c(9,9)_"</COLGROUP>"_$c(9,9),!
-     Write $c(9,9)
-     Kill arColSpecial
-     Set blnAddLink=0
-     Write !,$c(9,9)_"<tr>",!
-     Write $c(9,9,9)_"<th align=""center""><b>&nbsp;</b></th>",!
-     Write $c(9,9,9)
-     Set col=0
-%csp00007 If '((col<qryAColCount)) Goto %csp00006 ;{
-         Set col=col+1
-         Write "   "
-         Write !,$c(9,9,9)
-         Set ColumnName=queryA.GetColumnName(col)
-         //Set:($$$UCase(ColumnName)="TASK") arColSpecial(col)="Task"
-         Write !,$c(9,9,9)_"<th><b>"_(ColumnName)_"</b></th>",!
-         Write $c(9,9,9)
-         Goto %csp00007
-%csp00006 ;}
-     Write !,$c(9,9)_"</tr>",!
-     Write $c(9,9)
-     Set row=0
-%csp00009 If '(queryA.Next()) Goto %csp00008 ;{
-         Set row=row+1
-         Write "            "
-         Write !,$c(9,9)_"<tr class="_($S(row#2:"DarkRow",1:"LightRow"))_" ",!
-         Write $c(9,9)_" "_($S(queryA.GetDataByName("Niveau")?1(1"E"):"style=""color:#CC0033;""",queryA.GetDataByName("Niveau")?1(1"W"):"style=""color:#FF9900;""", 1:""))_">",!
-         Write $c(9,9,9)
-         ;Set blnAddLink=(queryA.GetDataByName("ID")?1(1"MAINPAGE",1"WIZARD_CALC"))
-         Write !,$c(9,9,9)_"<td>"_($S(blnAddLink:"<A href="""_"#"_""" target=""_blank"">></A>", 1:" "))_"</td>",!
-         Write $c(9,9,9)
-         Set col=0
-%csp00011 If '((col<qryAColCount)) Goto %csp00010 ;{
-             Set col=col+1
-             Write !,$c(9,9,9)
-             Set tmpVal=queryA.GetData(col)
-             Write !,$c(9,9,9)_"<td>"_($S($L(tmpVal):tmpVal,1:" "))_"</td>",!
-             Write $c(9,9,9)
-             Goto %csp00011
-%csp00010 ;}
-         Write !,$c(9,9)_"</tr>",!
-         Write $c(9,9)
-         Goto %csp00009
-%csp00008 ;}
-     Write !,$c(9)_"</table>",!
-     Write $c(9)
-     Write "</FORM>"
-     Write !,$c(9)_"<BR>",!
-%csp00003 ;}
- Write !,!,"</BODY>"
-]]></Implementation>
-</Method>
-
-<Method name="OnPageCSPROOT">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write !,!
- Do ..OnPageHTML()
-]]></Implementation>
-</Method>
-
-<Method name="OnPageHEAD">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write "<HEAD>"
- Write !,!
- Set BodyBgColor=##class(TECH.Config.ConfigMgr).Instance().GetString("WebpaginaAchtergrondKleur")
- Set OnServer = "&nbsp;&nbsp;["_$$$NSpace_"]"
- Write !,!,"<STYLE type=""text/css"">"
- Write !,$c(9,9)_"BODY               { color:black; background:"_(BodyBgColor)_"; font-family:Verdana,Sans-serif,Arial,Helvetica,sans-serif; font-size:12pt; }",!
- Write "     "_$c(9)_"A                  { font-size:10pt; color:darkblue; }",!
- Write "        TABLE              { font-size:12pt; }",!
- Write $c(9,9)_"TD                 { padding-left:5px; padding-right:5px; }",!
- Write $c(9,9)_"P                  { margin:0; font-size:10pt; }",!
- Write $c(9,9)_"PRE                { margin:0; font-size:11px; }",!
- Write $c(9,9)_"FORM               { font-size:10pt; margin:0; }",!
- Write $c(9,9)_".Small             { font-size:9pt; }",!
- Write $c(9,9)_".DarkRow           { background:#E6E6E6; }",!
- Write $c(9,9)_".LightRow          { background:#FCFCFC; }",!
- Write "        .clsQryTable       { background-color:#DDDDFF; border-collapse:collapse; font-size:9pt; }",!
- Write "        .clsQryTable A     { color:#FF460A; text-decoration:none; }",!
- Write "        .clsQryTable INPUT { margin:0; }",!
- Write "        .clsWSOrdTitle     { text-align:center; width:60%; font-size:15pt; font-weight:bold; color:darkblue; padding:10px; }",!
- Write "        .clsSubHeader      { font-size:12pt; font-weight:bold; }",!
- Write "        .clsQActions       { background-color:#DDDDFF; border:solid 1px darkblue; padding:5px;}",!
- Write "        .clsQStatusON      { color:#008010; font-weight:bold; }",!
- Write "        .clsQStatusOFF     { color:#FF0000; font-weight:bold; }",!
- Write "</STYLE>"
- Write $c(9),!
- Write !,$c(9)_"<TITLE>"_($G(CspPageTitle, ..%ClassName(0))_$G(OnServer))_"</TITLE>",!
- Write $c(9),!
- Write $c(9)
- Write "<!-- <SCRIPT src=""VH_LibIO.js"" language=""javascript"" type=""text/javascript""></SCRIPT> -->"
- Write !,"<!-- <CSP:Include Page=""incMsgBoxCustomVB.csp""> -->"
- Write " ",!
- Write "<!--",!
- Write $c(9)_"<SCRIPT language=""javascript"">",!
- Write $c(9)_"var winDlgQuery;",!
- Write $c(9)_"function ShowDlgQueryWin () {",!
- Write $c(9,9)_"alert ('Not implemented');",!
- Write $c(9,9)_"var sURL='DLGqueryVH.csp';",!
- Write $c(9,9)_"winDlgQuery=window.open(sURL,""winDlgQuery"",GetSettings());",!
- Write $c(9,9)_"winDlgQuery.opener=window;",!
- Write $c(9,9)_"winDlgQuery.focus();",!
- Write $c(9)_"}"_$c(9,9),!
- Write $c(9)_"function GetSettings() {",!
- Write $c(9,9)_"var DlgDim,sFeat;",!
- Write $c(9,9)_"DlgDim={w:700, h:650};",!
- Write $c(9,9)_"sFeat=""location=1,menubar=1,scrollbars=1,resizable=1,status=0,titlebar=0,toolbar=1"";",!
- Write $c(9,9)_"var s="""";",!
- Write $c(9,9)_"s += ""width="" + DlgDim.w + "",height="" + DlgDim.h;",!
- Write $c(9,9)_"s += "","" + sFeat;",!
- Write $c(9,9)_"return s;",!
- Write $c(9)_"}  ",!
- Write $c(9),!
- Write $c(9)_"</SCRIPT>  -->"
- Write !,!,"</HEAD>"
-]]></Implementation>
-</Method>
-
-<Method name="OnPageHTML">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- Write "<HTML>"
- Write !,!
- Do ..OnPageHEAD()
- Write !,!
- Do ..OnPageBODY()
- Write !,"</HTML>"
-]]></Implementation>
-</Method>
-
-<Method name="OnPagePOSTHTML">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[ Set queryA=$$$NULLOREF
-]]></Implementation>
-</Method>
-
-<Method name="OnPagePREHTML">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[ Set queryA=$$$NULLOREF
-]]></Implementation>
-</Method>
-
-<Method name="OnPreHTTP">
-<ClassMethod>1</ClassMethod>
-<CodeMode>code</CodeMode>
-<FormalSpec/>
-<Language>cache</Language>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
- #define CvtSqlMatch(%v)   $TR($$$LCase(%v)," ","")
- #define CvtNOBR(%v)       "('<NOBR>'||"_%v_"||'</NOBR>') "_%v
- #define CvtNOBRhtml(%v)   "('&lt;NOBR&gt;'||"_%v_"||'&lt;/NOBR&gt;') "_%v
- 
- 	/***   INPUT PARAMETERS   ***/
- 	/***   ================   ***/
- 	;  Request Parameters
- 	Kill:($G(%request.Data("QUERY",1))="") %request.Data("QUERY")
-     Set name=""
-     For  Set name=$O(%request.Data(name)) Quit:(name="")  Merge tmpRq(name)=%request.Data(name,1)
- 
- 	Set blnSQED=$G(%request.Data("SQED",1),0)
- 	Set sqlAll=""
- 	
- 
- 	/***   SQL STATEMENTS   ***/
- 	/***   ==============   ***/
- 	; SQL-statement for FOP Queue 
- 	Set sqlLOG="SELECT Top 100  Datum , Tijd , Groep, Niveau , Actie , JobID , Detail"
- 	Set sqlLOG=sqlLOG_$C(13,10)_"  FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' "
- 	Set sqlLOG=sqlLOG_$C(13,10)_"  ORDER BY Datum DESC, Tijd DESC"
- 	
- 	; SQLs to be displayed
- 	Set sqlDFL=$S(1:sqlLOG)
- 	Set sqlActive=$G(%request.Data("QUERY",1),sqlDFL)
-     ; URL for ToggleQueryEditor
- 	Merge tmpAr=tmpRq
- 	Kill tmpAr("SQED")
- 	Set tmpAr("SQED")=('blnSQED)
- 	Set arUrl("ToggleQED")="?"_##class(vhLib.cspBasis).CQueryString(.tmpAr)
- 	
-     ; Check if SQL-statement does not alter the tables data !!!
- 	Set lbAvoidSQL=$LB("CREATE TABLE","ALTER TABLE","DROP TABLE","CREATE QUERY","DROP QUERY","INSERT","UPDATE","DELETE")
- 	
- 
- 	Set CspPageTitle="VH LOGGING"
- 	Quit 1
- 
-]]></Implementation>
-</Method>
-
-<Parameter name="CSPFILE">
-<Default>c:\cachesys\csp\admin1\vhLogging.csp</Default>
-</Parameter>
-
-<Parameter name="CSPURL">
-<Default>/csp/admin1/vhLogging.csp</Default>
-</Parameter>
-
-<Parameter name="FileTimestamp">
-<Default>62105,37472</Default>
-</Parameter>
-</Class>
-<Checksum value="2045756296"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:50">
+<Checksum value="1327616826"/>
 </Export>
Index: APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1012)
+++ APPS/Halux/Planning/impl/ResourceGebruikCalculator.cls.xml	(.../ResourceGebruikCalculator.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-04-18 09:01:18">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:46:38">
 <Class name="APPS.Halux.Planning.impl.ResourceGebruikCalculator">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,32494.401175</TimeChanged>
+<TimeChanged>62200,56814.472411</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Toelevering">
@@ -116,6 +116,7 @@
 			
 			Set ProductInfo.Aantal = ProductLijn.GeefAantal()
 			Set ProductInfo.ProductCode = ProductLijn.GeefProduct().GeefKorttekst()
+			Set ProductInfo.ProductNummer = ProductLijn.GeefProduct().GeefPRNr()
 			Set ProductInfo.ToeleveringLijnNr = ProductLijn.GeefLijnNr()
 			If (ProductLijn.HeeftFysiekStockProbleem())
 			{
@@ -129,7 +130,7 @@
 			}
 
 			Set Status = ProductInfo.%Save()
-			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ProductInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+			If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ProductInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 			
 			Set ActiviteitInfoIterator = ##class(TECH.ListIterator).%New(ActiviteitInfoLijst)
 			While (ActiviteitInfoIterator.HasNext())
@@ -138,7 +139,7 @@
 				Set ActiviteitInfoClone = ActiviteitInfo.%ConstructClone(1)
 				Set ActiviteitInfoClone.ProductInfoID = ProductInfo.%Id()
 				Set Status = ActiviteitInfoClone.%Save()
-				If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ActiviteitInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+				If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Kon ActiviteitInfo niet opslaan!","Toelevering: "_..Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 			}
 		}
 	}
@@ -173,5 +174,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="907019415"/>
+<Checksum value="766785133"/>
 </Export>
Index: APPS/PM/Maatwerk/TBX/Productie/dto/Beschrijving.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/PM/Maatwerk/TBX/Productie/dto/Beschrijving.cls.xml	(.../Beschrijving.cls.xml)	(revision 917)
+++ APPS/PM/Maatwerk/TBX/Productie/dto/Beschrijving.cls.xml	(.../Beschrijving.cls.xml)	(revision 1019)
@@ -1,28 +1,4 @@
 <?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-02-18 15:23:44">
-<Class name="APPS.PM.Maatwerk.TBX.Productie.dto.Beschrijving">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62140,55482.129648</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Groep">
-<Type>%String</Type>
-</Property>
-
-<Property name="Hoeveelheid">
-<Description>
-Dit is een string omdat dit de beschrijving is van "een" hoeveelheid</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="Korttekst">
-<Type>%String</Type>
-</Property>
-
-<Property name="Langtekst">
-<Type>%String</Type>
-</Property>
-</Class>
-<Checksum value="777573818"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:14">
+<Checksum value="3343576241"/>
 </Export>
Index: APPS/PM/dto/Kenm/ProductenKenmerken.cls.xml
===================================================================
diff -u -r976 -r1019
--- APPS/PM/dto/Kenm/ProductenKenmerken.cls.xml	(.../ProductenKenmerken.cls.xml)	(revision 976)
+++ APPS/PM/dto/Kenm/ProductenKenmerken.cls.xml	(.../ProductenKenmerken.cls.xml)	(revision 1019)
@@ -1,18 +1,4 @@
 <?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-03-03 11:43:53">
-<Class name="APPS.PM.dto.Kenm.ProductenKenmerken">
-<Description>
-JBL + 2011-02-28</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62153,29159.394229</TimeChanged>
-<TimeCreated>62153,42301.626963</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Kenmerken">
-<Type>ProductKenmerken</Type>
-<Collection>list</Collection>
-</Property>
-</Class>
-<Checksum value="1337772997"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:16">
+<Checksum value="3301849311"/>
 </Export>
Index: DOM/Halux/TBX/impl/ZaagBatches.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/impl/ZaagBatches.cls.xml	(.../ZaagBatches.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/impl/ZaagBatches.cls.xml	(.../ZaagBatches.cls.xml)	(revision 1019)
@@ -1,90 +1,4 @@
 <?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-02-01 20:24:06">
-<Class name="DOM.Halux.TBX.impl.ZaagBatches">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
-<TimeChanged>62123,73487.064699</TimeChanged>
-<TimeCreated>62123,54831.264395</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="rsQueue">
-<Type>%ResultSet</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Batch">
-<Type>DS.PPS.TBX.Batch</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="ProductAPI">
-<Type>%RegisteredObject</Type>
-<Transient>1</Transient>
-</Property>
-
-<Method name="Test">
-<Implementation><![CDATA[
-		Set bl=..%New(BatchID)
-		Do bl.RemoveBatches()
-		Do bl.BuildBatchesFromQueue()
-]]></Implementation>
-</Method>
-
-<Method name="%OnNew">
-<FormalSpec>BatchID</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Batch=##class(DS.PPS.TBX.Batch).%OpenId(BatchID)
-	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
-
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="BuildBatchesFromQueue">
-<Description>
-</Description>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="AddFromQueue">
-<FormalSpec>oQueue</FormalSpec>
-<Implementation><![CDATA[	Set Tandembox = ..ProductAPI.GeefProduct(MPRNr)
-]]></Implementation>
-</Method>
-
-<Method name="RemoveBatches">
-<Implementation><![CDATA[
-	&sql(
-	Delete 
-	FROM DOM_Halux_TBX.ZaagOpdrachten
-	WHERE Batch=:BatchID)
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^DOM.Halux.TBX.i60C.ZaagBatchesD</DataLocation>
-<DefaultData>ZaagBatchesDefaultData</DefaultData>
-<IdLocation>^DOM.Halux.TBX.i60C.ZaagBatchesD</IdLocation>
-<IndexLocation>^DOM.Halux.TBX.i60C.ZaagBatchesI</IndexLocation>
-<StreamLocation>^DOM.Halux.TBX.i60C.ZaagBatchesS</StreamLocation>
-<Data name="ZaagBatchesDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>ZaagOpdracht</Value>
-</Value>
-<Value name="3">
-<Value>ZaagSturing</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="1528939341"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:28">
+<Checksum value="3706042939"/>
 </Export>
Index: zTryout/Verdeling.mac.rou
===================================================================
diff -u -r948 -r1019
--- zTryout/Verdeling.mac.rou	(.../Verdeling.mac.rou)	(revision 948)
+++ zTryout/Verdeling.mac.rou	(.../Verdeling.mac.rou)	(revision 1019)
@@ -1,7 +1 @@
- 
- 
- 
- 
-	Set Key = $Random(4)+1
-	write $CASE(Key,1:"CSC",2:"JCL",3:"WV",4:"JBL",5:"CW")
-	
\ No newline at end of file
Index: zTryout/ARC/DOM/PM/ProductKenmerken.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/PM/ProductKenmerken.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/PM/ProductKenmerken.cls.xml	(revision 1019)
@@ -0,0 +1,20 @@
+<?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-04-15 16:30:55">
+<Class name="zTryout.ARC.DOM.PM.ProductKenmerken">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,59468.62007</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefMultiples">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfDataTypes</ReturnType>
+</Method>
+
+<Method name="GeefMultipleGroepen">
+<Abstract>1</Abstract>
+<ReturnType>TECH.Iterator</ReturnType>
+</Method>
+</Class>
+<Checksum value="1889670400"/>
+</Export>
Index: vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml
===================================================================
diff -u -r915 -r1019
--- vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml	(.../UTKenmUpgWrapperv01v02.cls.xml)	(revision 915)
+++ vhUnitTest/APPS/PM/Maatwerk/UTKenmUpgWrapperv01v02.cls.xml	(.../UTKenmUpgWrapperv01v02.cls.xml)	(revision 1019)
@@ -1,31 +1,4 @@
 <?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-03-03 12:24:16">
-<Class name="vhUnitTest.APPS.PM.Maatwerk.UTKenmUpgWrapperv01v02">
-<Description>
-Deze wrapper doet zich in alles voor als TBXKenmerkenV02.
-
-Wanneer de waarde van een kenmerk (property) wordt opgevraagd, kijkt
-de wrapper of het kenmerk al een waarde heeft in het basisobject van
-klasse TBXKenmerkenV2. Indien dit het geval is, wordt deze waarde
-teruggegeven.  Indien dit niet het geval is, wordt de waarde berekend
-uit een of meerdere kenmerken van het gewrapte object van klasse
-TBXKenmerkenV1, en opgeslagen in het basisobject.  De volgende keer
-dat de waarde wordt gevraagd kan deze meteen gegeven worden vermits
-ze al eens berekend is.  Op deze manier wordt on the fly een
-conversie gedaan.
-
-Wanneer een wrapper-object gesaved wordt, moet het alle waarden
-converteren vooraleer te saven.</Description>
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenV02</Super>
-<TimeChanged>62153,44725.352261</TimeChanged>
-<TimeCreated>62153,33910.500773</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="UTKenmerkenV01">
-<Type>vhUnitTest.APPS.PM.Maatwerk.impl.UTKenmerkenV01</Type>
-</Property>
-</Class>
-<Checksum value="4053255154"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:50">
+<Checksum value="1327616826"/>
 </Export>
Index: APPS/Halux/Planning/impl/Queries.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 1012)
+++ APPS/Halux/Planning/impl/Queries.cls.xml	(.../Queries.cls.xml)	(revision 1019)
@@ -1,15 +1,15 @@
 <?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-04-18 16:04:07">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 16:10:14">
 <Class name="APPS.Halux.Planning.impl.Queries">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,57863.082972</TimeChanged>
+<TimeChanged>62199,58229.83601</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Query name="qGeefStockProblemen">
 <Type>%SQLQuery</Type>
 <FormalSpec>ToeleveringNummer:%Integer</FormalSpec>
-<SqlQuery>	SELECT * FROM APPS_Halux_Planning_impl.ProductInfo</SqlQuery>
+<SqlQuery>	SELECT ProductCode, ProductNummer FROM APPS_Halux_Planning_impl.ProductInfo WHERE ToeleveringInfoID = :ToeleveringNummer AND StockProbleem is not null</SqlQuery>
 </Query>
 
 <Query name="qGeefPlanningOverzicht">
@@ -191,5 +191,5 @@
 <SqlQuery>	SELECT DISTINCT ToeleveringNummer FROM APPS_Halux_Planning_impl.ToeleveringInfo ORDER BY ToeleveringNummer ASC</SqlQuery>
 </Query>
 </Class>
-<Checksum value="860481427"/>
+<Checksum value="959687345"/>
 </Export>
Index: zTryout/ARC/DOM/VKP/VerkoopbaarProduct.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/VKP/VerkoopbaarProduct.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/VKP/VerkoopbaarProduct.cls.xml	(revision 1019)
@@ -0,0 +1,20 @@
+<?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-04-15 16:44:37">
+<Class name="zTryout.ARC.DOM.VKP.VerkoopbaarProduct">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,60290.312423</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefLinkType">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.LinkType</ReturnType>
+</Method>
+
+<Method name="GeefActiefStatus">
+<Abstract>1</Abstract>
+<ReturnType>DOM.PM.enu.ActiefStatus</ReturnType>
+</Method>
+</Class>
+<Checksum value="3116282640"/>
+</Export>
Index: PVE/XML/Aventos.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/XML/Aventos.cls.xml	(.../Aventos.cls.xml)	(revision 734)
+++ PVE/XML/Aventos.cls.xml	(.../Aventos.cls.xml)	(revision 1019)
@@ -1,108 +1,4 @@
 <?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:05">
-<Class name="PVE.XML.Aventos">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>61712,38862.353884</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Lijst">
-<Type>BL.MB.UGLYPicking.Aventosbak.Doc.Aventos</Type>
-<Collection>list</Collection>
-</Property>
-
-<Method name="ImportXML">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	     
-    Set reader = ##class(%XML.Reader).%New()
-
-    // Begin processing of the file
-
-    set sc=reader.OpenFile("\\notes01\shared\P V E\aventostemp_30186.xml")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML") Quit
-    // Associate a class name with the XML element name
-    w "OK",!
-    Do reader.Correlate("DOCS","BL.MB.UGLYPicking.Aventosbak.Doc.Aventos")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    
-    // Read objects from xml file
-    set i=0
-    For  Quit:'(reader.Next(.object,.sc))  Do
-    . set Aantal=object.Bakken.Count()
-    . For i=1:1:Aantal Do
-    . . set Bak=object.Bakken.GetAt(i)
-    . . w Bak.VolgNr," ",Bak.TransportRef,!,!
-    . . For j=1:1:Bak.Vakken.Count() Do
-    . . . Set Vak=Bak.Vakken.GetAt(j)
-    . . . w $J(Vak.Nr,3),$J(Vak.KlantRitNr,20),$J(Vak.KlantProductCode,20),$J(Vak.ProductReferentie.GetAt(1),25),$J(Vak.VolgNr,5),!
-    . . . f k=2:1:Vak.ProductReferentie.Count() w $J(Vak.ProductReferentie.GetAt(k),68),!
-    . . w !,!
-    . ;if $system.Status.IsError(savestatus) Do WARN^vhTXTPOP($$ParseStatus^vhLib(Status),"Fout bij invullen bakken voor aventosproducten")
-    // If error found during processing, show it
-    If $system.Status.IsError(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-]]></Implementation>
-</Method>
-
-<Method name="ConvertToXL">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set bl=..%New()
-	Set reader = ##class(%XML.Reader).%New()
-
-    ; Begin import van het XML-bestand
-
-    set sc=reader.OpenFile("\\notes01\shared\P V E\aventostemp_30186.xml")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML") Quit
-    
-    ; Associate a class name with the XML element name
-    Do reader.Correlate("DOCS","BL.MB.UGLYPicking.Aventosbak.Doc.Aventos")
-    If $$$ISERR(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    
-    ;Inlezen van objecten van een xml-bestand
-    set i=0
-    For  Quit:'(reader.Next(.object,.sc))  Do
-    . Do bl.Lijst.Insert(object)
-    If $system.Status.IsError(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen XML")
-    Do reader.Close()
-   	
-   	;opslaan in een excelbestand
-   	Set Dev=$$OPEN^vhDEV(,"ExportXL.csv","W","T")
-	Use Dev
-	For nr=1:1:bl.Lijst.Count() Do
-	. Set AventosBak=bl.Lijst.GetAt(nr)
-	. set Aantal=AventosBak.Bakken.Count()
-    . For i=1:1:Aantal Do
-    . . set Bak=AventosBak.Bakken.GetAt(i)
-    . . w "Transportrefernetie;",Bak.TransportRef,!
-    . . W "Verpakkingsnummer;",Bak.VolgNr,!,!
-    . . W "Vak;Koker;RitNr;Product;Product referentie van Hoecke;VolgNr",!
-    . . For j=1:1:Bak.Vakken.Count() Do
-    . . . Set Vak=Bak.Vakken.GetAt(j)
-    . . . w Vak.Nr,";",Vak.Koker,";",Vak.KlantRitNr,";",Vak.KlantProductCode,";",Vak.ProductReferentie.GetAt(1),";",Vak.VolgNr,!
-    . . . f k=2:1:Vak.ProductReferentie.Count() w ";;;;",Vak.ProductReferentie.GetAt(k),!
-	. . w !,!
-	Do CLOSE^vhDEV(Dev)
-]]></Implementation>
-</Method>
-
-<Method name="ShowElements">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-    // Create an instance of %XML.TextReader (returned by reference)
-    Set sc = ##class(%XML.TextReader).ParseFile("\\notes01\shared\P V E\aventostemp_30186.xml",.reader)
-    
-    // Read all elements within the document
-    If ($$$ISOK(sc)) Do
-    . For  Quit:'(reader.Read())  Do
-    . . if reader.Value'="" w ": ",reader.Value
-    . . ;if reader.Value'="" w reader.NodeType,! r test
-    . . ;if reader.NodeType'="" w "..",reader.NodeType,!
-    . . if reader.NodeType="element" w !,reader.Name
-    . . 
-    . . ;W reader.NodeType," ",reader.Name," ",reader.Value,!
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2543179861"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>
Index: DOM/Halux/TBX/IZaagSturing.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/IZaagSturing.cls.xml	(.../IZaagSturing.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/IZaagSturing.cls.xml	(.../IZaagSturing.cls.xml)	(revision 1019)
@@ -1,108 +1,4 @@
 <?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-02-01 17:12:47">
-<Class name="DOM.Halux.TBX.IZaagSturing">
-<Abstract>1</Abstract>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62123,62009.026632</TimeChanged>
-<TimeCreated>62123,54832.085244</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ZaagServer">
-<Description>
-</Description>
-<Type>APPS.Halux.TBX.ZaagServer</Type>
-</Property>
-
-<Method name="BeschadigingLade">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec/>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="BeschadigingPlaat">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>BodemOfRug:%String,Kleur:String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="ControleMeting">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>QueueID:%Integer,BodemOfRug:%String,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="GetBatchLijst">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>LijnNr:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="GetBatchStatus">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="GetZaagLijst">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>BatchID:%String,SubBatch:%String,LijnNr:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="PrintLabel">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>QueueID:%Integer,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="PrintLabelManueel">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="RegistreerStilstand">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>DuurStilstand:%Integer,RedenStilstand:String,ZaagID:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="SetSettings">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec/>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="SetStatus">
-<Description>
-</Description>
-<Abstract>1</Abstract>
-<FormalSpec>QueueID:%Integer,StatusType:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-</Class>
-<Checksum value="635666277"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:25">
+<Checksum value="3560778088"/>
 </Export>
Index: zTryout/ARC/DOM/PM/FysiekProduct.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/DOM/PM/FysiekProduct.cls.xml	(.../FysiekProduct.cls.xml)	(revision 995)
+++ zTryout/ARC/DOM/PM/FysiekProduct.cls.xml	(.../FysiekProduct.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-04-07 12:11:31">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-15 16:43:22">
 <Class name="zTryout.ARC.DOM.PM.FysiekProduct">
 <Abstract>1</Abstract>
 <Import>zTryout.ARC.DOM.common.fysiek</Import>
 <ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62188,43898.784073</TimeChanged>
+<TimeChanged>62196,60215.451985</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefGewicht">
@@ -14,6 +14,15 @@
 <Method name="GeefAfmeting">
 <ReturnType>Afmeting3D</ReturnType>
 </Method>
+
+<Method name="IsLangGoed">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="Save">
+<Abstract>1</Abstract>
+</Method>
 </Class>
-<Checksum value="2137162811"/>
+<Checksum value="2984916923"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/ITestCaseKAD.cls.xml
===================================================================
diff -u -r734 -r1019
--- vhUnitTest/DOM/PM/Maatwerk/HF/ITestCaseKAD.cls.xml	(.../ITestCaseKAD.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/ITestCaseKAD.cls.xml	(.../ITestCaseKAD.cls.xml)	(revision 1019)
@@ -1,133 +1,4 @@
 <?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:13">
-<Class name="vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseKAD">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.KAD") 
-	</Description>
-<Abstract>1</Abstract>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62115,42548.055414</TimeChanged>
-<TimeCreated>62012,63523.617197</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<Abstract>1</Abstract>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 0
-]]></Implementation>
-</Method>
-
-<Property name="DataKAD">
-<Type>vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD</Type>
-</Property>
-
-<Property name="ContextPROD">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
-</Property>
-
-<Property name="ContextUT">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabContext</Type>
-</Property>
-
-<Method name="OnBeforeAllTests">
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..DataKAD=##class(vhUnitTest.DOM.PM.Maatwerk.HF.CreateDataKAD).%New()
-	Set ..ContextPROD=..GeefContextPROD(##class(DOM.PM.enu.AluKaderVariant).Basis())
-	Set ..ContextUT=..GeefContextUT()
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<Abstract>1</Abstract>
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
-<Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
-]]></Implementation>
-</Method>
-
-<Method name="aTestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
-
-<Method name="GeefHalffabSpec">
-<FormalSpec>Familie:%String,ProductType:%String</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabSpec</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabRepository = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New()
-	Set HalffabSpec=HalffabRepository.GeefSpecDatum(Familie,ProductType)
-	Quit HalffabSpec
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabTabelPROD">
-<FormalSpec>Klant:%String,Personality:%String,ProductType:%String</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.HalffabRepository).%New().GeefHalffabTabel(Klant, Personality, ProductType)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabTabelUT">
-<FormalSpec>Klant:%String,Personality:%String</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabTabel=##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT).%New(Klant, Personality, "")
-	Do ..HalffabTabelVullen(HalffabTabel)
-	Quit HalffabTabel
-]]></Implementation>
-</Method>
-
-<Method name="GeefContextPROD">
-<FormalSpec>Variant:DOM.PM.enu.Variant</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
-<Implementation><![CDATA[
-	Quit:($$$Not(..IsBuilderMeestRecenteVersie())) ""
-	
-	
-	Set Familie = ##class(DOM.PM.enu.Familie).AluKader()
-	Set KlantID = 1000
-	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
-	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant, BerekeningsSpecificatie)
-	Quit Context
-]]></Implementation>
-</Method>
-
-<Method name="GeefContextUT">
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.HalffabContext</ReturnType>
-<Implementation><![CDATA[
-	Set Klant=""
-	Set Personality=""
-	Set Familie = ##class(DOM.PM.enu.Familie).AluKader()
-	Set Variant = ##class(DOM.PM.enu.AluKaderVariant).Basis()
-	Set KlantID = 1000
-	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
-	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
-
-	Set HalffabTabel=..GeefHalffabTabelUT(Klant, Personality)
-	
-	Set Context=##class(vhUnitTest.DOM.PM.Maatwerk.HF.impl.UTHalffabContext).%New(Familie,Variant,BerekeningsSpecificatie,HalffabTabel)
-	Quit Context
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="14386286"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:51">
+<Checksum value="1323546893"/>
 </Export>
Index: APPS/PM/dto/ProductZoekResultaat.cls.xml
===================================================================
diff -u -r946 -r1019
--- APPS/PM/dto/ProductZoekResultaat.cls.xml	(.../ProductZoekResultaat.cls.xml)	(revision 946)
+++ APPS/PM/dto/ProductZoekResultaat.cls.xml	(.../ProductZoekResultaat.cls.xml)	(revision 1019)
@@ -1,48 +1,4 @@
 <?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-03-15 08:34:05">
-<Class name="APPS.PM.dto.ProductZoekResultaat">
-<Description>
-JBL + 2011-02-24
-Een restultaat product van een zoekopdracht, met enkele property's van een product.</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62153,29166.407612</TimeChanged>
-<TimeCreated>62165,30924.77405</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Identnr">
-<Description>
-Identnr van het product</Description>
-<Type>%String</Type>
-</Property>
-
-<Property name="Korttekst">
-<Description>
-Korttekst van het product</Description>
-<Type>%String</Type>
-</Property>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.PM.dto.ProductZoekR82FD</DataLocation>
-<DefaultData>ProductZoekResultaatDefaultData</DefaultData>
-<IdLocation>^APPS.PM.dto.ProductZoekR82FD</IdLocation>
-<IndexLocation>^APPS.PM.dto.ProductZoekR82FI</IndexLocation>
-<StreamLocation>^APPS.PM.dto.ProductZoekR82FS</StreamLocation>
-<Data name="ProductZoekResultaatDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Identnr</Value>
-</Value>
-<Value name="3">
-<Value>Korttekst</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="43242828"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:14">
+<Checksum value="3343576241"/>
 </Export>
Index: APPS/Halux/Planning/enu/GeplandStatus.cls.xml
===================================================================
diff -u -r954 -r1019
--- APPS/Halux/Planning/enu/GeplandStatus.cls.xml	(.../GeplandStatus.cls.xml)	(revision 954)
+++ APPS/Halux/Planning/enu/GeplandStatus.cls.xml	(.../GeplandStatus.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-03-24 14:29:37">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:24:50">
 <Class name="APPS.Halux.Planning.enu.GeplandStatus">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%String</Super>
-<TimeChanged>62174,52263.042793</TimeChanged>
+<TimeChanged>62200,55505.770926</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
@@ -20,15 +20,17 @@
 
 <Method name="Later">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Planning.enu.GeplandStatus</ReturnType>
 <Implementation><![CDATA[	Quit "Later"
 ]]></Implementation>
 </Method>
 
 <Method name="Impliciet">
 <ClassMethod>1</ClassMethod>
+<ReturnType>APPS.Halux.Planning.enu.GeplandStatus</ReturnType>
 <Implementation><![CDATA[	Quit "Impliciet"
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2358691722"/>
+<Checksum value="2831740922"/>
 </Export>
Index: DOM/Halux/TBX/enu/SubBatch.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/enu/SubBatch.cls.xml	(.../SubBatch.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/enu/SubBatch.cls.xml	(.../SubBatch.cls.xml)	(revision 1019)
@@ -1,23 +1,4 @@
 <?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-02-01 17:19:12">
-<Class name="DOM.Halux.TBX.enu.SubBatch">
-<Description><![CDATA[
-De finale assembly batch kan vooraf gegaan worden door een of meerder
-subbatches.
-<ul>
-	<li>Spoelbak en Syfon laden</li>
-	<li>Tipon</li>
-</ul>]]></Description>
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62123,62393.650127</TimeChanged>
-<TimeCreated>62123,54830.753447</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,SS,TO</Default>
-</Parameter>
-</Class>
-<Checksum value="1806556867"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:27">
+<Checksum value="3619290374"/>
 </Export>
Index: zTryout/ARC/APPS/PM/dto/ProductGewichtData.cls.xml
===================================================================
diff -u
--- zTryout/ARC/APPS/PM/dto/ProductGewichtData.cls.xml	(revision 0)
+++ zTryout/ARC/APPS/PM/dto/ProductGewichtData.cls.xml	(revision 1019)
@@ -0,0 +1,27 @@
+<?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-04-12 14:58:27">
+<Class name="zTryout.ARC.APPS.PM.dto.ProductGewichtData">
+<Import>zTryout.ARC.DOM.MAG.enu</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject,%XML.Adaptor</Super>
+<TimeChanged>62193,53918.207793</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="PRNr">
+<Type>%Integer</Type>
+</Property>
+
+<Property name="GewichtInGram">
+<Type>%Float</Type>
+</Property>
+
+<Property name="Cyclecounttype">
+<Type>Cyclecounttype</Type>
+</Property>
+
+<Property name="TelweegschaalTelwijze">
+<Type>TelweegschaalTelwijze</Type>
+</Property>
+</Class>
+<Checksum value="4178184546"/>
+</Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderEuroSchroefv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderEuroSchroefv001.cls.xml	(.../HFBuilderEuroSchroefv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderEuroSchroefv001.cls.xml	(.../HFBuilderEuroSchroefv001.cls.xml)	(revision 1019)
@@ -1,44 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderEuroSchroefv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29583.829909</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Euro"
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-	Set HalffabItem.Aantal = 4
-	
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="2872295322"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:29">
+<Checksum value="3710373900"/>
 </Export>
Index: zTryout/CSC/Try.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 995)
+++ zTryout/CSC/Try.cls.xml	(.../Try.cls.xml)	(revision 1019)
@@ -1,11 +1,11 @@
 <?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-04-08 13:38:51">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 14:08:59">
 <Class name="zTryout.CSC.Try">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62189,49138.503153</TimeChanged>
+<TimeChanged>62199,50954.734161</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Try">
@@ -67,22 +67,11 @@
 	{
 		Set Product = ProductAPI.GeefProduct(PRNr)
 		
-		Set Criteria=##class(APPS.PM.dto.ZoekCriteria).%New()
-		Set Criteria.SoortProductID=##class(APPS.PM.enu.SoortProductID).Korttekst()	
-		Set Criteria.ProductID = Product.GeefKorttekst()
-		Set ProductService =  ##class(APPS.PM.ProductService).%New()
-		Set ProductenLijst = ProductService.ZoekProducten(Criteria).HerkendeProducten
-		If (ProductenLijst.Count() '= 1)
+		If (Product.%Extends("DOM.PM.TBXProduct.TBXLade"))
 		{
-			If (ProductenLijst.Count() = 0) || (ProductenLijst.GetAt(1).MultipleNr = ""){
-				w "KT: "_Product.GeefKorttekst()_", Gevonden: "_ProductenLijst.Count(),!
-				For i=1:1:ProductenLijst.Count()
-				{
-					w "    "_ProductenLijst.GetAt(i).IdentNr_" "_ProductenLijst.GetAt(i).Korttekst,!
-				}
-			}
+			//w $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefPRNr(),"ODSP")),!
+			If ($L($LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",Product.GeefPRNr(),"ODSP")))) { w Product.GeefPRNr(),! }
 		}
-		
 		Set PRNr = $Order(^KPR(PRNr))
 	}
 ]]></Implementation>
@@ -129,16 +118,7 @@
 <Description>
 Do ##class(zTryout.CSC.Try).Try5()</Description>
 <ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set $ZTRAP = "Iets"
-	Set x = y
-	w "in",!
-	Set $ZTRAP = ""
-	w "uit"
-	Quit
-Iets
-	w "exceptie",!
-	Quit
+<Implementation><![CDATA[	
 ]]></Implementation>
 </Method>
 
@@ -158,5 +138,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3729925703"/>
+<Checksum value="3457588202"/>
 </Export>
Index: DOM/LEV/impl/WijzigLeverancierEvent.cls.xml
===================================================================
diff -u
--- DOM/LEV/impl/WijzigLeverancierEvent.cls.xml	(revision 0)
+++ DOM/LEV/impl/WijzigLeverancierEvent.cls.xml	(revision 1019)
@@ -0,0 +1,25 @@
+<?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-04-18 16:18:34">
+<Class name="DOM.LEV.impl.WijzigLeverancierEvent">
+<Description>
+JBL + 2011-04-18</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<TimeChanged>62199,58729.76222</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "WijzigLeverancierEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2977016400"/>
+</Export>
Index: APPS/MB/UGLYPicking/impl/EventCatcher.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/MB/UGLYPicking/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 917)
+++ APPS/MB/UGLYPicking/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 1019)
@@ -1,50 +1,4 @@
 <?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-02-18 17:00:38">
-<Class name="APPS.MB.UGLYPicking.impl.EventCatcher">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62140,61295.973225</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="InitSubscriptions">
-<Description>
-Do ##class(APPS.MB.UGLYPicking.impl.EventCatcher).InitSubscriptions()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("UGLYPickingStartedEvent","APPS.MB.UGLYPicking.impl.EventCatcher","UGLYPickStartedEventListener")
-	Do Subscription.%Save()
-	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("UGLYPickingRestartedEvent","APPS.MB.UGLYPicking.impl.EventCatcher","UGLYPickRestartedEventListener")
-	Do Subscription.%Save()
-]]></Implementation>
-</Method>
-
-<Method name="UGLYPickStartedEventListener">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Event:TECH.Events.UGLYPickingStartedEvent</FormalSpec>
-<Implementation><![CDATA[
-	do ..PrintAventosBakDocument(Event.Data.ConsNr)
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="UGLYPickRestartedEventListener">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Event:TECH.Events.UGLYPickingRestartedEvent</FormalSpec>
-<Implementation><![CDATA[	quit
-]]></Implementation>
-</Method>
-
-<Method name="PrintAventosBakDocument">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>CONSNr</FormalSpec>
-<Implementation><![CDATA[
-	Set blAventos=##class(BL.MB.UGLYPicking.Aventosbak.Aventosbak).Instantiate()
-	Quit:'blAventos.OrdHasAventos(CONSNr)
-	Do blAventos.AfdrukkenBakken(CONSNr,0)
-	h 1 ; eventjes wachten om een aparte afdruk te hebben
-	Do blAventos.AfdrukkenBakken(CONSNr,1)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1282782419"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:14">
+<Checksum value="3343576241"/>
 </Export>
Index: DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml	(.../HoofdgroepClassificatieImpl.cls.xml)	(revision 903)
+++ DOM/PM/impl/HoofdgroepClassificatieImpl.cls.xml	(.../HoofdgroepClassificatieImpl.cls.xml)	(revision 1019)
@@ -1,27 +1,4 @@
 <?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-03-07 14:31:37">
-<Class name="DOM.PM.impl.HoofdgroepClassificatieImpl">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.PM.impl.SuperGroepClassificatie</Super>
-<TimeChanged>62157,52369.264464</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SortSleutel:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Classificatie = ##class(DOM.PM.impl.DataM.DataMHoofdgroepClassificatie).%New(SortSleutel)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="GeefGroepClassificaties">
-<ReturnType>TECH.Iterator</ReturnType>
-<Implementation><![CDATA[	Quit ..Classificatie.GeefGroepClassificaties()
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1912652645"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:32">
+<Checksum value="1775130760"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderZijwandVerpv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderZijwandVerpv001.cls.xml	(.../HFBuilderZijwandVerpv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderZijwandVerpv001.cls.xml	(.../HFBuilderZijwandVerpv001.cls.xml)	(revision 1019)
@@ -1,44 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderZijwandVerpv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29585.507715</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Zijwand()
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-	Set HalffabItem.Aantal = 2
-	
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="1770411067"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:30">
+<Checksum value="1783270630"/>
 </Export>
Index: zTryout/CSC/Snelheidstest.cls.xml
===================================================================
diff -u
--- zTryout/CSC/Snelheidstest.cls.xml	(revision 0)
+++ zTryout/CSC/Snelheidstest.cls.xml	(revision 1019)
@@ -0,0 +1,143 @@
+<?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-04-15 15:06:37">
+<Class name="zTryout.CSC.Snelheidstest">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62196,54409.877122</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Do">
+<Description>
+Do ##class(zTryout.CSC.Snelheidstest).Do()</Description>
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set OrgaluxIterator = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefOrgaluxProductIterator()
+	While (OrgaluxIterator.HasNext())
+	{
+		Set Product = OrgaluxIterator.Next()
+		Do ..Do2(Product.GeefPRNr())
+		do StartTimer^vhLib
+		Set ResultSet = ##class(%ResultSet).%New("zTryout.CSC.Snelheidstest:StockOverKind")
+		Do ResultSet.Execute(Product.GeefPRNr())
+		Set PraktischeStock = ""
+		While (ResultSet.Next())
+		{
+			Set KindPRNr = ResultSet.Data("KindProduct")
+			Set AantalKindGevraagd = ResultSet.Data("AantalKindGevraagd")
+			Set AantalOpOrder = ResultSet.Data("AantalOpOrder")
+			Set Fysisch = ..FysischeStockVan(KindPRNr)
+			Set Praktisch = (Fysisch-AantalOpOrder)/AantalKindGevraagd
+			If (PraktischeStock = "") || (Praktisch < PraktischeStock)
+			{
+				Set PraktischeStock = Praktisch
+			}
+		}
+		do StopTimer^vhLib
+		w "Tijd: "_$$GetInterval^vhLib()_"  - Product "_Product.GeefPRNr()_": "_PraktischeStock,!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="Do2">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>MPRNr:%Integer</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
+	Do StartTimer^vhLib
+	Kill Teller
+	Set BSKey=""
+	For  Set BSKey=$O(^PRBS("BS",MPRNr,BSKey)) Quit:BSKey=""  Do
+	. Quit:$P(^PRBS("BS",MPRNr,BSKey),"\",3)'="K"
+	. Set KPRNr=$P(^PRBS("BS",MPRNr,BSKey),"\",1)
+	. Quit:'KPRNr
+	. Set lbOrder=$$GetOrders(KPRNr)
+	. Set lbToeLev=$$GetToeLev(KPRNr)
+	. Set Teller("KIND")=$G(Teller("KIND"))+1
+	. set AantalKinderenNodig = $P(^PRBS("BS",MPRNr,BSKey),"\",2)
+	. Set Rec=$G(^PRSTOCK("D",KPRNr))
+	. set FysischKind = $P(Rec,D,1)
+	. set idxMoeder = ""
+	. set AantalMoedersMogelijk=""
+	. for  set idxMoeder = $o(arMoeders(idxMoeder)) q:idxMoeder=""  do
+	. . Quit:AantalKinderenNodig=0
+	. . set AantalMogelijk = ##class(TECH.Math).Floor(arMoeders(idxMoeder)/AantalKinderenNodig)
+	. . quit:AantalMogelijk<0
+	. . if '$length(AantalMoedersMogelijk) set AantalMoedersMogelijk = AantalMogelijk 
+	. . else  if (AantalMoedersMogelijk > AantalMogelijk) set AantalMoedersMogelijk = AantalMogelijk
+	. . 
+	
+	Do StopTimer^vhLib
+	//w @F11,@F1
+	w !,MPRNr," ",$P(^KPR(MPRNr,0),"\")_" "_"aantal mogelijk : "_AantalMoedersMogelijk,!
+	Write $$GetInterval^vhLib(),!
+	zw Teller
+	
+	
+	
+	Quit
+	
+GetOrders(KPRNr)
+	New MPRNr,BSKey
+	Set MPRNr=""
+	For  Set MPRNr=$O(^PRBS("IP",KPRNr,MPRNr)) Quit:MPRNr=""  Do
+	. Set BSKey=""
+	. Set Found=0
+	. For  Set BSKey=$O(^PRBS("IP",KPRNr,MPRNr,BSKey)) Quit:BSKey=""  Quit:Found  Do
+	. . Set Found=$P(^PRBS("IP",KPRNr,MPRNr,BSKey),"\")="K"
+	. . Set:Found Teller("KINDMOEDER")=$G(Teller("KINDMOEDER"))+1
+	. Set:Found lbOrder=$$GetMoederOrders(MPRNr)
+	. Set:Found Teller("MOEDER")=$G(Teller("MOEDER"))+1
+	. Set Rec=$G(^PRSTOCK("D",MPRNr))
+	. set arOrder(MPRNr)=Rec
+	Quit $G(lbOrder)
+	
+GetMoederOrders(MPRNr)
+	Set ORDNr=""
+	For  Set ORDNr=$O(^ORD("IP",MPRNr,ORDNr)) Quit:ORDNr=""  Do
+	. Set OLUNr=""
+	. For  Set OLUNr=$O(^ORD("IP",MPRNr,ORDNr,OLUNr)) Quit:OLUNr=""  Do
+	. . Set OLNr=^(OLUNr)
+	. . Set KLNr=$P(^KO1(ORDNr,"F"),"\")
+	. . Set Qty=$P(^KOD(KLNr,"F",ORDNr,OLNr),"\",3)
+	. . Set Teller("ORDER")=$G(Teller("ORDER"))+1
+	. . Set arMoeders(MPRNr)=$Get(arMoeders(MPRNr))+Qty
+	Quit ""
+	
+GetToeLev(KPRNr)
+	Set TOENr=""
+	For  Set TOENr=$O(^TO("IP",KPRNr,TOENr)) Quit:TOENr=""  Do
+	. Set TLUNr=""
+	. For  Set TLUNr=$O(^TO("IP",KPRNr,TOENr,TLUNr)) Quit:TLUNr=""  Do
+	. . Set TLNr=^(TLUNr)
+	. . Set LEVNr=$P(^KTO1(TOENr),"\")
+	. . Set Qty=$P(^KTO(LEVNr,TOENr,TLNr),"\",3)
+	. . Set Teller("TOE")=$G(Teller("TOE"))+1
+	. . set arToe(KPRNr)=$G(arToe(KPRNr))+Qty
+	
+	Quit ""
+]]></Implementation>
+</Method>
+
+<Method name="FysischeStockVan">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[	Quit +$piece($Get(^KPR(PRNr,0)),"\",14)
+]]></Implementation>
+</Method>
+
+<Query name="StockOverKind">
+<Type>%SQLQuery</Type>
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<SqlQuery><![CDATA[	SELECT KindVanGevraagdeMoeder.KindProductnr AS KindProduct, KindDataVanGevraagdeMoeder.Aantal AS AantalKindGevraagd , SUM( orders.Aantal * KindVanAndereMoeders.Aantal ) AS AantalOpOrder
+ 	FROM DOM_PM_impl_DataM_Bouwstenen.BouwsteenKindIndex AS KindVanGevraagdeMoeder
+ 	JOIN DOM_PM_Bouwstenen.BouwsteenKind AS KindDataVanGevraagdeMoeder On KindVanGevraagdeMoeder.MoederProductNr = KindDataVanGevraagdeMoeder.Moeder AND KindVanGevraagdeMoeder.KindProductNr = KindDataVanGevraagdeMoeder.KindProduct
+ 	JOIN DOM_PM_impl_DataM_Bouwstenen.BouwsteenKindIndex AS AndereMoeders On KindVanGevraagdeMoeder.KindProductNr = AndereMoeders.KindProductNr
+ 	JOIN DOM_OV_impl_DataM.OrderLijnIndexOpPRNr AS Orders ON (orders.ProductNr = AndereMoeders.MoederProductNr)
+ 	JOIN DOM_PM_Bouwstenen.BouwsteenKind AS KindVanAndereMoeders ON (KindVanAndereMoeders.Moeder = AndereMoeders.MoederProductNr AND KindVanAndereMoeders.KindProduct = KindVanGevraagdeMoeder.KindProductnr)
+ 	WHERE KindVanGevraagdeMoeder.MoederProductNr = :PRNr AND KindVanGevraagdeMoeder.BouwsteenType = 'K' AND KindDataVanGevraagdeMoeder.Aantal > 0 
+ 	GROUP BY KindVanGevraagdeMoeder.KindProductnr]]></SqlQuery>
+</Query>
+</Class>
+<Checksum value="585951698"/>
+</Export>
Index: BL/Prod/Kenmerk/pxMetaDefinitie.cls.xml
===================================================================
diff -u -r734 -r1019
--- BL/Prod/Kenmerk/pxMetaDefinitie.cls.xml	(.../pxMetaDefinitie.cls.xml)	(revision 734)
+++ BL/Prod/Kenmerk/pxMetaDefinitie.cls.xml	(.../pxMetaDefinitie.cls.xml)	(revision 1019)
@@ -1,107 +1,4 @@
 <?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:53">
-<Class name="BL.Prod.Kenmerk.pxMetaDefinitie">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>60180,51133.703722</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ID">
-<Type>%String</Type>
-</Property>
-
-<Property name="Decimalen">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="DisableWhen">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Eenheid">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Format">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Intern">
-<Type>%Library.Boolean</Type>
-</Property>
-
-<Property name="Kenmerk">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="LangtekstTransform">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="LangtekstVolgNr">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="Lengte">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="MaxValue">
-<Type>%Library.Float</Type>
-</Property>
-
-<Property name="MinValue">
-<Type>%Library.Float</Type>
-</Property>
-
-<Property name="Multiple">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="MultipleDisplay">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="Omschrijving">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="SubGroep">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="SortType">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Verplicht">
-<Type>%Library.Boolean</Type>
-</Property>
-
-<Property name="VolgNr">
-<Type>%Library.Integer</Type>
-</Property>
-
-<Property name="WaardenSortering">
-<Type>%Library.String</Type>
-<Collection>list</Collection>
-</Property>
-
-<Property name="ValuesAreSorted">
-<Type>%Library.Boolean</Type>
-</Property>
-
-<Property name="WijzigGebruiker">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="WijzigTijdstip">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="ToelatenEC">
-<Type>%Boolean</Type>
-</Property>
-</Class>
-<Checksum value="777475546"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:17">
+<Checksum value="3305919208"/>
 </Export>
Index: DOM/Halux/TBX/enu/Status.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/enu/Status.cls.xml	(.../Status.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/enu/Status.cls.xml	(.../Status.cls.xml)	(revision 1019)
@@ -1,16 +1,4 @@
 <?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-02-01 17:18:59">
-<Class name="DOM.Halux.TBX.enu.Status">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62123,62381.054338</TimeChanged>
-<TimeCreated>62123,54830.484983</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,W,X,F,B</Default>
-</Parameter>
-</Class>
-<Checksum value="1027880345"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:27">
+<Checksum value="3619290374"/>
 </Export>
Index: zTryout/CSC/TimingCopy/Writer.cls.xml
===================================================================
diff -u -r946 -r1019
--- zTryout/CSC/TimingCopy/Writer.cls.xml	(.../Writer.cls.xml)	(revision 946)
+++ zTryout/CSC/TimingCopy/Writer.cls.xml	(.../Writer.cls.xml)	(revision 1019)
@@ -1,111 +1,4 @@
 <?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-03-10 10:51:37">
-<Class name="zTryout.CSC.TimingCopy.Writer">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62160,39172.002386</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Context">
-<Type>%String</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Context:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Context = Context
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="Toon">
-<FormalSpec>StartLabel:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Index = ##class(%ArrayOfObjects).%New()
-	
-	Set Root = ##class(zTryout.CSC.TimingCopy.TimingUnit).%New()
-	Set Root.Label = StartLabel
-	Do Index.SetAt(Root,StartLabel)
-	
-	Set LabelsQueue = ##class(%ListOfDataTypes).%New()
-	Set ResultSet = ##class(%ResultSet).%New("zTryout.CSC.Timing.Writer:GeefKnopen")
-	Do ResultSet.Execute(..Context, StartLabel)	
-	While (ResultSet.Next())
-	{
-		Do LabelsQueue.Insert(ResultSet.Data("Label"))
-		
-		Set TimingUnit = ##class(zTryout.CSC.TimingCopy.TimingUnit).%New()
-		Set TimingUnit.Label = ResultSet.Data("Label")
-		Set TimingUnit.ParentLabel = ResultSet.Data("ParentLabel")
-		Set TimingUnit.Aantal = ResultSet.Data("Aantal")
-		Set TimingUnit.Minimum = ResultSet.Data("Minimum")
-		Set TimingUnit.Average = ResultSet.Data("Average")
-		Set TimingUnit.Maximum = ResultSet.Data("Maximum")
-		
-		Do Root.Children.Insert(TimingUnit)
-		Do Index.SetAt(TimingUnit, TimingUnit.Label)
-	}
-	
-	While (LabelsQueue.Count() > 0)
-	{
-		Set ParentLabel = LabelsQueue.GetAt(1)
-		Set ParentTimingUnit = Index.GetAt(ParentLabel)
-		Do LabelsQueue.RemoveAt(1)
-		
-		Set ResultSet = ##class(%ResultSet).%New("zTryout.CSC.Timing.Writer:GeefKnopen")
-		Do ResultSet.Execute(..Context, ParentLabel)
-		While (ResultSet.Next())
-		{
-			Do LabelsQueue.Insert(ResultSet.Data("Label"))
-			
-			Set TimingUnit = ##class(zTryout.CSC.TimingCopy.TimingUnit).%New()
-			Set TimingUnit.Label = ResultSet.Data("Label")
-			Set TimingUnit.ParentLabel = ResultSet.Data("ParentLabel")
-			Set TimingUnit.Aantal = ResultSet.Data("Aantal")
-			Set TimingUnit.Minimum = ResultSet.Data("Minimum")
-			Set TimingUnit.Average = ResultSet.Data("Average")
-			Set TimingUnit.Maximum = ResultSet.Data("Maximum")
-			
-			Do Index.SetAt(TimingUnit, TimingUnit.Label)
-			Do ParentTimingUnit.Children.Insert(TimingUnit)
-		}
-	}
-	
-	Do ..Verwerk(Index.GetAt(StartLabel))
-]]></Implementation>
-</Method>
-
-<Method name="Verwerk">
-<FormalSpec>Knoop:zTryout.CSC.TimingCopy.TimingUnit,Niveau:%Integer=0</FormalSpec>
-<Implementation><![CDATA[
-	Set Indentatie = ""
-	For i=0:1:Niveau Set Indentatie = Indentatie _ "  "
-	w !,Indentatie_Knoop.Label
-	If (Niveau > 0)
-	{
-		w ", Aant: "_Knoop.Aantal_", Avg: "_$Piece(Knoop.Average,".")_"."_$Extract($Piece(Knoop.Average,".",2),1,2)
-		w !,Indentatie_"Min: "_Knoop.Minimum_", Max: "_Knoop.Maximum
-	}
-	
-	Set Iterator = ##class(TECH.ListIterator).%New(Knoop.Children)
-	While (Iterator.HasNext())
-	{
-		Do ..Verwerk(Iterator.Next(),(Niveau+1))
-	}
-]]></Implementation>
-</Method>
-
-<Query name="GeefKnopen">
-<Type>%SQLQuery</Type>
-<FormalSpec>Context:%String,ParentLabel:%String</FormalSpec>
-<SqlQuery>	SELECT Label, ParentLabel, count(1) as Aantal, min(Duurtijd) as Minimum, avg(Duurtijd) as Average, max(Duurtijd) as Maximum
- 	FROM TECH_Timing.Timer
- 	WHERE Context = :Context AND ParentLabel = :ParentLabel
- 	GROUP BY ParentLabel, Label</SqlQuery>
-</Query>
-</Class>
-<Checksum value="3841804308"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:52">
+<Checksum value="1285883732"/>
 </Export>
Index: DOM/Halux/TBX/dto/Batch.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/dto/Batch.cls.xml	(.../Batch.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/dto/Batch.cls.xml	(.../Batch.cls.xml)	(revision 1019)
@@ -1,60 +1,4 @@
 <?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-02-01 17:48:09">
-<Class name="DOM.Halux.TBX.dto.Batch">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62123,64130.579057</TimeChanged>
-<TimeCreated>62123,54829.389539</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="BatchDisplayKey">
-<Description><![CDATA[
-BatchID+SubBatch
-De subbatch is voor de <b>PRE</b>batch voor TipOn, Spoelbak, Sifon]]></Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="BatchID">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="DueoutTime">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Lijn">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="StartTime">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="SubBatch">
-<Description>
-</Description>
-<Type>DOM.Halux.TBX.enu.SubBatch</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-</Class>
-<Checksum value="1588571142"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:26">
+<Checksum value="3598423857"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1012)
+++ DOM/PM/Maatwerk/Calc/HF/HalffabContext.cls.xml	(.../HalffabContext.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-04-11 09:55:31">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:47:58">
 <Class name="DOM.PM.Maatwerk.Calc.HF.HalffabContext">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62192,35742.023827</TimeChanged>
+<TimeChanged>62200,56894.089117</TimeChanged>
 <TimeCreated>62010,56862.299184</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -106,16 +106,16 @@
 <Method name="LogExceptie">
 <FormalSpec>Exceptie:TECH.IException</FormalSpec>
 <Implementation><![CDATA[
-	Set LogString =	"Context: [ Familie: "_..Familie_", Variant: "_..Variant_" ]"_$c(10)_$c(13)
+	Set LogString =	"Context: [ Familie: "_..Familie_", Variant: "_..Variant_" ]"_$C(10,13)
 	If ($IsObject(..BerekeningsSpecificatie))
 	{
-		Set LogString = LogString_"BerekeningsSpecificatie: [ BerekenDatum: "_..BerekeningsSpecificatie.GeefBerekenDatum()_", BerekenTag: "_..BerekeningsSpecificatie.GeefBerekenTag()_", Hoeveelheid: "_..BerekeningsSpecificatie.GeefHoeveelheid()_", KlantID: "_..BerekeningsSpecificatie.GeefKlantID()_", Personality: "_..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer_" ]"_$c(10)_$c(13)
+		Set LogString = LogString_"BerekeningsSpecificatie: [ BerekenDatum: "_..BerekeningsSpecificatie.GeefBerekenDatum()_", BerekenTag: "_..BerekeningsSpecificatie.GeefBerekenTag()_", Hoeveelheid: "_..BerekeningsSpecificatie.GeefHoeveelheid()_", KlantID: "_..BerekeningsSpecificatie.GeefKlantID()_", Personality: "_..BerekeningsSpecificatie.GeefPersonality().GeefKlant().Nummer_" ]"_$C(10,13)
 	}
 	Set LogString = LogString_"Exceptie: [ "_Exceptie.ToString()_" ]"
 
 	Do ##class(vhLib.Logger).%New("Maatwerk framework").Error("Exceptie halffabcontext",LogString)
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3583771076"/>
+<Checksum value="290017335"/>
 </Export>
Index: APPS/PM/KenmerkenService.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1012)
+++ APPS/PM/KenmerkenService.cls.xml	(.../KenmerkenService.cls.xml)	(revision 1019)
@@ -1,12 +1,12 @@
 <?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-04-18 16:02:49">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 08:08:30">
 <Class name="APPS.PM.KenmerkenService">
 <Description>
 JBL + 2011-02-28</Description>
 <IncludeCode>TECH.Error</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,57785.078382</TimeChanged>
+<TimeChanged>62200,29327.371165</TimeChanged>
 <TimeCreated>62159,61291.134957</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -139,27 +139,42 @@
 			 
 			Set KenmerkMetadata = ##class(APPS.PM.dto.Kenm.KenmerkMetadata).%New()
 			
-			/// JBL : TO DO : niet duidelijk van waar de data moet komen om verschillende mogelijkheden in te vullen
-			///Do KenmerkMetadata.Mogelijkheden.Insert("Mogelijkheid1")
-			///
 			Set KenmerkMetadata.Multipliciteit = ##class(APPS.PM.dto.Kenm.Multipliciteit).%New()
 			Set KenmerkMetadata.Multipliciteit.Minimum = RS.Get("Verplicht")
 			Set KenmerkMetadata.Multipliciteit.Maximum = RS.Get("Multiple")
 			Set KenmerkMetadata.Naam = RS.Get("Kenmerk")
 			Set KenmerkMetadata.NieuweWaardeToegelaten = RS.Get("NieuweWaardeToegelaten")
 			If (KenmerkMetadata.NieuweWaardeToegelaten = "") Set KenmerkMetadata.NieuweWaardeToegelaten  = "0"
+			Set KenmerkMetadata.SuggereerGeenWaarden = RS.Get("SuggereerGeenWaarden")
+			If (KenmerkMetadata.SuggereerGeenWaarden = "") Set KenmerkMetadata.SuggereerGeenWaarden  = "0"
+			Set KenmerkMetadata.IsReadOnly = RS.Get("IsReadOnly")
+			If (KenmerkMetadata.IsReadOnly = "") Set KenmerkMetadata.IsReadOnly  = "0"
 			
 			/// -------------------------------------------------------------------------
 			/// Als er geen nieuwe waarden zijn toegelaten dan de mogelijkheden invullen.
 			/// -------------------------------------------------------------------------
-			/// In het veld “Mogelijkheden” op de DTO moet dan – afhankelijk van NieuweWaardeToegelaten 
-			/// – ofwel alle mogelijke waarden ofwel alle reeds gebruikte waarden zitten.
+			/// In het veld “Mogelijkheden” op de DTO moet ofwel alle mogelijke waarden ofwel 
+			/// alle reeds gebruikte waarden zitten.
 			/// We nemen als uitgangspunt dat de velden “WaardenSortering*” op “Prod_kenmerk.metadefinitie” 
 			/// gebruikt worden voor gesorteerde en voor vaste lijsten.
 			/// En dat voor niet-gesorteerde niet-vaste lijsten een query moet uitgevoerd worden om de reeds 
 			/// gebruikte waarden te vinden.
+			/// 
+			/// 1) Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
+			/// Daarom een flag "read-only" op de kenmerken metadata.
+			/// 
+			/// Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.
+			/// 2) Bovendien een flag "gebruikte waarden niet suggereren" voorzien. Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.
 			
-			If (KenmerkMetadata.NieuweWaardeToegelaten = 0)
+			Set ToonMogelijkheden = 'KenmerkMetadata.SuggereerGeenWaarden
+			If (KenmerkMetadata.IsReadOnly) {
+				Set ToonMogelijkheden = 0
+			}
+			If ('KenmerkMetadata.NieuweWaardeToegelaten){
+				Set ToonMogelijkheden = 1
+			}
+			
+			If (ToonMogelijkheden)
 			{
 				/// WaardenSortering nagaan en als mogelijkheden invullen
 				Set WaardenSorteringLijst = $ListBuild("WaardenSortering","WaardenSortering2","WaardenSortering3")
@@ -219,7 +234,6 @@
 <FormalSpec>ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	$$$TECHErrorTrapOn
 	$$$chkRequiredParameter(ProductenKenmerken)
 	$$$chkIsObject(ProductenKenmerken)
 	/// Scope ophalen
@@ -273,10 +287,9 @@
 	}Else{
 		Do OperatieScope.Gefaald(ErrorMsg)
 	}
-	$$$TECHErrorTrapOff
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="415583471"/>
+<Checksum value="2884295255"/>
 </Export>
Index: Derde/Klant/Klant.cls.xml
===================================================================
diff -u -r1012 -r1019
--- Derde/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1012)
+++ Derde/Klant/Klant.cls.xml	(.../Klant.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-04-13 15:59:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 11:22:05">
 <Class name="Derde.Klant.Klant">
 <ClassType>persistent</ClassType>
 <StorageStrategy>DataM</StorageStrategy>
 <Super>%Library.Persistent,Derde.Abstract.Derde</Super>
-<TimeChanged>62194,57566.429611</TimeChanged>
+<TimeChanged>62200,40941.495658</TimeChanged>
 <TimeCreated>58449,45194</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -479,6 +479,10 @@
 <Type>%Library.String</Type>
 </Property>
 
+<Property name="VerzendOffertes">
+<Type>%Library.String</Type>
+</Property>
+
 <Property name="CSPKey">
 <Description>
 Geïncripteerde sleutel voor toegang tot de CSP WebWizard</Description>
@@ -1181,6 +1185,11 @@
 <Node>7</Node>
 <Piece>9</Piece>
 </Data>
+<Data name="VerzendOffertes">
+<Delimiter>"\"</Delimiter>
+<Node>3</Node>
+<Piece>9</Piece>
+</Data>
 <Data name="Verzendwijze">
 <Delimiter>"\"</Delimiter>
 <Node>2</Node>
@@ -1204,5 +1213,5 @@
 </SQLMap>
 </Storage>
 </Class>
-<Checksum value="1325874992"/>
+<Checksum value="2237519481"/>
 </Export>
Index: zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml	(.../StockeerbaarProduct.cls.xml)	(revision 995)
+++ zTryout/ARC/DOM/MAG/impl/DataM/StockeerbaarProduct.cls.xml	(.../StockeerbaarProduct.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-04-08 16:54:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 15:07:11">
 <Class name="zTryout.ARC.DOM.MAG.impl.DataM.StockeerbaarProduct">
 <Import>zTryout.ARC.TECH.Persistentie,zTryout.ARC.DOM.MAG.enu</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62189,60877.427401</TimeChanged>
+<TimeChanged>62193,54442.559695</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="PRNr">
@@ -68,12 +68,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetCyclecounttype">
+<FormalSpec>Cyclecounttype:Cyclecounttype</FormalSpec>
+<Implementation><![CDATA[	Do ..KprPrnr1.ZetPiece(2, Cyclecounttype)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTelweegschaalTelwijze">
 <ReturnType>TelweegschaalTelwijze</ReturnType>
 <Implementation><![CDATA[		Quit ..KprPrnr2.GeefPiece(11)
 ]]></Implementation>
 </Method>
 
+<Method name="ZetTelweegschaalTelwijze">
+<FormalSpec>TelweegschaalTelwijze:TelweegschaalTelwijze</FormalSpec>
+<Implementation><![CDATA[		Do ..KprPrnr2.ZetPiece(11, TelweegschaalTelwijze)
+]]></Implementation>
+</Method>
+
 <Method name="KprPrnr0Get">
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
@@ -106,6 +118,14 @@
 	Quit r%KprPrnr2
 ]]></Implementation>
 </Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+	Do ..KprPrnr0.Save()
+	Do ..KprPrnr1.Save()
+	Do ..KprPrnr2.Save()
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="701316469"/>
+<Checksum value="1337318398"/>
 </Export>
Index: TECH/DataTime.cls.xml
===================================================================
diff -u -r946 -r1019
--- TECH/DataTime.cls.xml	(.../DataTime.cls.xml)	(revision 946)
+++ TECH/DataTime.cls.xml	(.../DataTime.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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-03-15 08:14:21">
-<Class name="TECH.DataTime">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62165,29740.476939</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="HorologeToSeconds">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Horologe:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit $Piece(Horologe,",",1)*24*60*60+$Piece(Horologe,",",2)
-]]></Implementation>
-</Method>
-
-<Method name="TimestampToSeconds">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Timestamp:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ..HorologeToSeconds($zdth(Timestamp,3))
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="3327194472"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:45">
+<Checksum value="4048975540"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderFrontBevestiv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderFrontBevestiv001.cls.xml	(.../HFBuilderFrontBevestiv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderFrontBevestiv001.cls.xml	(.../HFBuilderFrontBevestiv001.cls.xml)	(revision 1019)
@@ -1,43 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderFrontBevestiv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29584.119669</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).FrontBevestiging()
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-	Set HalffabItem.Aantal = 2
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="4128577942"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:29">
+<Checksum value="3710373900"/>
 </Export>
FishEye: Tag 1019 refers to a dead (removed) revision in file `zTryout/CSC/DataSet.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: zTryout/PRA/TbxStatistiek.cls.xml
===================================================================
diff -u -r734 -r1019
--- zTryout/PRA/TbxStatistiek.cls.xml	(.../TbxStatistiek.cls.xml)	(revision 734)
+++ zTryout/PRA/TbxStatistiek.cls.xml	(.../TbxStatistiek.cls.xml)	(revision 1019)
@@ -1,76 +1,4 @@
 <?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:19">
-<Class name="zTryout.PRA.TbxStatistiek">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>61739,32432.313429</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<UDLText name="T">
-<Content><![CDATA[
-// Formaat van startMaand en eindMaand : MM/DD/YYYY
-
-]]></Content>
-</UDLText>
-
-<Method name="BerekenTbxStatistiek">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>klnr:%Integer=9899,startMaand:%String="",eindMaand:%String=""</FormalSpec>
-<Implementation><![CDATA[
-	// Initialiseren van datum-bereik.
-	Set SystemDate = +$HOROLOG
-	IF (startMaand = "") {
-		SET startMaand = $$CALCDATE^vhDTyp(SystemDate,"M",-12) // Moet wsch -13 zijn??
-	}
-	IF (eindMaand = "") {
-		SET eindMaand = $$CALCDATE^vhDTyp(startMaand,"M",12)
-	}
-    Set StartMaandFormatted = $$EXTDATE^vhDTyp(startMaand,"DM4")_" "	
-    Set EindMaandFormatted = $$EXTDATE^vhDTyp(eindMaand,"DM4")_" "	
-
-	SET PRNr = $ORDER(^KSTKL(klnr, 0))
-	WHILE( PRNr '= "")
-	{
-		SET GenType = $PIECE($$GENTYP^HAD(PRNr),"\")
-		IF (GenType = "TBX")
-		{
-			WRITE "Product : ", PRNr, " ; Gen Type : ", GenType, !
-			
-			SET ProdExists = ##class(Prod.Kenmerk.DataDefinitie).Exists(PRNr, "TBX")
-			WRITE "  ProdExists: ", ProdExists, !
-			
-			
-			Set LadeCode = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LC"))
-			WRITE "    LadeCode: ", LadeCode, !
-			Set LadeDiepte = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"LD"))
-			WRITE "    LadeDiepte: ", LadeDiepte, !
-			
-			SET ASCENDING = 1
-		 	SET MaandFormatted = $ORDER(^KSTKL(klnr, PRNr ,0), ASCENDING, statistiek)
-		 	WHILE(MaandFormatted '= "") { // Loop over maanden.
-		 		WRITE MaandFormatted
-		 		
-		 		// Tijdelijk geen filtering op maanden, omdat in DEV geen recente data zit.
-		     	//IF ((MaandFormatted >= StartMaandFormatted) && (MaandFormatted < EindMaandFormatted)) {
-			     	SET AANTALSTUKSINDEX = 1
-			     	SET DELIMITER = "\"
-			     	SET aantal = $PIECE(statistiek, DELIMITER, AANTALSTUKSINDEX)
-			     	WRITE "    Aantal: ", aantal, !
-
-					
-			     	// TO DO: Toevoegen data aan array.
-		     	//}
-		     	
-			     SET MaandFormatted = $ORDER(^KSTKL(klnr, PRNr, MaandFormatted), ASCENDING, statistiek)
-		 	}
-		}
-
-	 	SET PRNr = $ORDER(^KSTKL(klnr, PRNr))
-	}
- 	
- 	QUIT
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2557589443"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:52">
+<Checksum value="1285883732"/>
 </Export>
Index: DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml	(.../OrgaluxOpMaatCreator.cls.xml)	(revision 903)
+++ DOM/PM/OLProduct/impl/OrgaluxOpMaatCreator.cls.xml	(.../OrgaluxOpMaatCreator.cls.xml)	(revision 1019)
@@ -1,25 +1,4 @@
 <?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-02-25 15:23:22">
-<Class name="DOM.PM.OLProduct.impl.OrgaluxOpMaatCreator">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.impl.DataM.DataMProductCreator</Super>
-<TimeChanged>62147,55466.328279</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="GeefGenerischPRNr">
-<Private>1</Private>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit 566041
-]]></Implementation>
-</Method>
-
-<Method name="BepaalKortTekst">
-<FormalSpec>DossierNummer:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ""
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2991430934"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:31">
+<Checksum value="1804134097"/>
 </Export>
Index: APPS/Halux/Planning/PlanningService.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1012)
+++ APPS/Halux/Planning/PlanningService.cls.xml	(.../PlanningService.cls.xml)	(revision 1019)
@@ -1,12 +1,12 @@
 <?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-04-18 16:00:25">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:08:02">
 <Class name="APPS.Halux.Planning.PlanningService">
 <Description>
 Service voor de Halux planningstool.
 Ondersteunt het visulaliseren van het resourcegebruik voor alle toeleveringen die reeds ingegeven zijn.</Description>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62199,57640.655921</TimeChanged>
+<TimeChanged>62200,58097.877526</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="ApplicatieNaam">
@@ -138,20 +138,95 @@
 <ReturnType>APPS.Halux.Planning.dto.ToeleveringDetail</ReturnType>
 <Implementation><![CDATA[
 	Set ToeleveringDetail = ##class(APPS.Halux.Planning.dto.ToeleveringDetail).%New()
-	
 	Set ToeleveringDetail.ToeleveringNummer = ToeleveringNummer
+
+	// Tekstuele informatie
+	Set AnalyseLijst = ##class(%ListOfDataTypes).%New()
+	Set ActieLijst = ##class(%ListOfDataTypes).%New()
 	
-	Set ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefStockProblemen")
-	Do ResultSet.Execute(ToeleveringNummer)
-	While (ResultSet.Next())
-	{
-		Set StockProbleemInfo = ##class(APPS.Halux.Planning.dto.StockProbleemInfo).%New()
+	Set DisplayString = ""
+	
+	Set ToeleveringInfo = ##class(APPS.Halux.Planning.impl.ToeleveringInfo).%OpenId(ToeleveringNummer)
+	
+	If ($IsObject(ToeleveringInfo))
+	{		
+		Set ResultSet = ##class(%ResultSet).%New("APPS.Halux.Planning.impl.Queries:qGeefStockProblemen")
+		Do ResultSet.Execute(ToeleveringNummer)
+		While (ResultSet.Next())
+		{
+			Set StockProbleemInfo = ##class(APPS.Halux.Planning.dto.StockProbleemInfo).%New()
+			
+			Set StockProbleemInfo.ProductCode = ResultSet.Data("ProductCode")
+			
+			Do ToeleveringDetail.StockProbleemInfoLijst.Insert(StockProbleemInfo)
+		}
 		
-		Set StockProbleemInfo.ProductCode = ResultSet.Data("ProductCode")
+		If (ToeleveringDetail.StockProbleemInfoLijst.Count() > 0)
+		{
+			Set ActieInfo = ##class(APPS.Halux.Planning.dto.ActieInfo).%New()
+			Set ActieInfo.ActieCode = ##class(APPS.Halux.Planning.enu.ActieCode).VerplaatsVerwacht()
+			Set ActieInfo.ActieTekst = "Naar verwacht"
+			Set ActieInfo.IcoonNaam = "Icoon.PNG"
+			Set ActieInfo.IsIngeschakeld = 1
+			
+			Do ToeleveringDetail.ActieInfoLijst.Insert(ActieInfo)
+			
+			If (ToeleveringInfo.GeplandStatus '= ##class(APPS.Halux.Planning.enu.GeplandStatus).Vroeger())
+			{
+				Do AnalyseLijst.Insert("Vroeger ingepland maar stockprobleem!")
+				Do ActieLijst.Insert("Verplaatsen naar datum waarop we de toelevering voor de stockproblemen verwachten.")
+			}
+			
+			Set Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(ToeleveringNummer)
+			Set BijhorendeBatch = ##class(APPS.Halux.common.BatchService).%New().GeefBijhorendeBatch(Toelevering)
+			
+			If ($IsObject(BijhorendeBatch))
+			{
+				Do AnalyseLijst.Insert("In batch met stockprobleem!")
+				Do ActieLijst.Insert("Uit batch halen.")
+			}
+		}
 		
-		Do ToeleveringDetail.StockProbleemInfoLijst.Insert(StockProbleemInfo)
+		If (AnalyseLijst.Count() > 0)
+		{
+			Set DisplayString = DisplayString_"Analyse:"_$C(13,10)
+			Set Iterator = ##class(TECH.ListIterator).%New(AnalyseLijst)
+			While (Iterator.HasNext())
+			{
+				Set DisplayString = DisplayString_"- "_Iterator.Next()_$C(13,10)
+			}
+			Set DisplayString = DisplayString_$C(13,10)
+		}
+		
+		If (ActieLijst.Count() > 0)
+		{
+			Set DisplayString = DisplayString_"Acties:"_$C(13,10)
+			Set Iterator = ##class(TECH.ListIterator).%New(ActieLijst)
+			While (Iterator.HasNext())
+			{
+				Set DisplayString = DisplayString_"- "_Iterator.Next()_$C(13,10)
+			}
+			Set DisplayString = DisplayString_$C(13,10)
+		}
+		
+		If (ToeleveringInfo.GeplandStatus '= ##class(APPS.Halux.Planning.enu.GeplandStatus).Impliciet())
+		{
+			Set ActieInfo = ##class(APPS.Halux.Planning.dto.ActieInfo).%New()
+			Set ActieInfo.ActieCode = ##class(APPS.Halux.Planning.enu.ActieCode).VerplaatsDueOut()
+			Set ActieInfo.ActieTekst = "Naar dueout"
+			Set ActieInfo.IcoonNaam = "Icoon.PNG"
+			Set ActieInfo.IsIngeschakeld = 1
+			
+			Do ToeleveringDetail.ActieInfoLijst.Insert(ActieInfo)
+		}
 	}
+	Else
+	{
+		Set DisplayString = "Toelevering "_ToeleveringNummer_" bestaat niet"
+	}
 	
+	Set ToeleveringDetail.DisplayString = DisplayString
+	
 	Quit ToeleveringDetail
 ]]></Implementation>
 </Method>
@@ -325,7 +400,6 @@
 	Set Resultaat = ##class(APPS.Halux.Planning.dto.SplitsToeleveringResultaat).%New()
 	Set Resultaat.Wijzigingen = ##class(%XML.DataSet).%New()
 	
-	Set NieuwLijnNummer = 102
 	Set ToeleveringAPI = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI()
 	Set Toelevering = ToeleveringAPI.GeefToelevering(ToeleveringNummer)
 	
@@ -345,61 +419,65 @@
 				Set Aantal = ProductToeleveringLijn.GeefAantal()
 				Set AantalPerToelevering = ##class(TECH.Math).Floor(Aantal / AantalToeleveringen)
 				If ((Aantal/AantalToeleveringen) '= AantalPerToelevering) { Set AantalPerToelevering = AantalPerToelevering + 1 }
-				//w Aantal_" "_AantalPerToelevering,!
 				Set NieuweLijnNummers = ##class(%ListOfDataTypes).%New()
 				While (Aantal > AantalPerToelevering)
 				{
 					Set Aantal = Aantal - AantalPerToelevering
 					Set $ZTRAP="SplitsFout"
-					//w "SplitsLijn("_ToeleveringNummer_" As %Integer, "_ProductToeleveringLijn.GeefLijnNr()_" As %Integer, "_Aantal_" As %Integer) As %Integer",!
+					Set NieuwLijnNummer = $$SplitsLijn^FLOWTOE6(ToeleveringNummer,ProductToeleveringLijn.GeefUniekLijnNr(),Aantal)
 					Set $ZTRAP = ""
+					If (ProductToeleveringLijnIterator.HasNext()) { Do ProductToeleveringLijnIterator.Next() } // Skip de aangemaakte lijn
 					Do NieuweLijnNummers.Insert(NieuwLijnNummer)
-					Set NieuwLijnNummer = NieuwLijnNummer + 1
 				}
 				
 				If (NieuweLijnNummers.Count() > 0) { Do NieuweLijnenPerLijn.Insert(NieuweLijnNummers) }
 			}
 		}
 		
+		Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New()
+		
 		For i = 1:1:AantalToeleveringen-1
 		{
 			Set AfTeSplitsenLijnen = ##class(%ListOfDataTypes).%New()
-			//w "Splits toelevering "
 			For j = 1:1:NieuweLijnenPerLijn.Count()
 			{
 				If (NieuweLijnenPerLijn.GetAt(j).Count() '< i)
 				{
 					Do AfTeSplitsenLijnen.Insert(NieuweLijnenPerLijn.GetAt(j).GetAt(i))
-					//w NieuweLijnenPerLijn.GetAt(j).GetAt(i)_" "
 				}
 			}
-			//w !
 			Set $ZTRAP="SplitsFout"
-			// Splits toelevering en gooi event voor nieuwe toelevering
+			Set NieuweToeleveringNummer = $$SplitsToelevering^FLOWTOE6(ToeleveringNummer,AfTeSplitsenLijnen)
 			Set $ZTRAP=""
+			
+			Set NieuweToelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(NieuweToeleveringNummer)
+ 			Set ToeleveringCreatedEventData = ##class(TECH.Events.ToeleveringCreatedEventData).%New(NieuweToelevering)
+ 			Set ToeleveringCreatedEvent = ##class(TECH.Events.ToeleveringCreatedEvent).%New(ToeleveringCreatedEventData)
+ 			Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringCreatedEventListener(ToeleveringCreatedEvent)
+ 			
+ 			Do GewijzigdeToeleveringen.Insert(NieuweToelevering)
 		}
 		
 		TCOMMIT
+
+ 		Set ToeleveringModifiedEventData = ##class(TECH.Events.ToeleveringModifiedEventData).%New(Toelevering)
+ 		Set ToeleveringModifiedEvent = ##class(TECH.Events.ToeleveringModifiedEvent).%New(ToeleveringModifiedEventData)
+ 		Do ##class(APPS.Halux.Planning.impl.EventCatcher).ToeleveringModEventListener(ToeleveringModifiedEvent)
 		
-		// Gooi event voor gewijzigde toelevering
-		
-		Set GewijzigdeToeleveringen = ##class(%ListOfObjects).%New()
-		If (NieuweLijnenPerLijn.Count() > 0)
+		If (GewijzigdeToeleveringen.Count() > 0)
 		{
 			Do GewijzigdeToeleveringen.Insert(Toelevering)
+			Set DataSet = ##class(%XML.DataSet).%New()
+			Do DataSet.Prepare(##class(APPS.Halux.Planning.impl.Queries).GeefPlanningDetailVoor(GewijzigdeToeleveringen))
+			Set Resultaat.Wijzigingen = DataSet
 		}
 		
-	
-		Set DataSet = ##class(%XML.DataSet).%New()
-		Do DataSet.Prepare(##class(APPS.Halux.Planning.impl.Queries).GeefPlanningDetailVoor(GewijzigdeToeleveringen))
-		Set Resultaat.Wijzigingen = DataSet
-		
 		Set Resultaat.Boodschap = "Splitsen van toelevering "_ToeleveringNummer_" geslaagd"
 		
 	}
 	Else
 	{
-		Set Resultaat.Boodschap = ToeleveringNummer_" bestaat niet"
+		Set Resultaat.Boodschap = "Toelevering "_ToeleveringNummer_" bestaat niet"
 	}
 		
 	Quit Resultaat
@@ -571,5 +649,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3671732665"/>
+<Checksum value="3164984454"/>
 </Export>
Index: PVE/BRL.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/BRL.cls.xml	(.../BRL.cls.xml)	(revision 734)
+++ PVE/BRL.cls.xml	(.../BRL.cls.xml)	(revision 1019)
@@ -1,681 +1,4 @@
 <?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:05">
-<Class name="PVE.BRL">
-<Description>
-bedrijfsrondleiding</Description>
-<ClassType>persistent</ClassType>
-<IncludeCode>%Prod.Product,BL.Derde.LevSpecifiek</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent,%Populate,%XML.Adaptor</Super>
-<TimeChanged>61633,34599.220442</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="AantalJaren">
-<Default>0</Default>
-</Parameter>
-
-<Method name="AantalSoortenKarton">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-    Set aantal=0,x=..%New()
-    set totaal=0 ;alleen voor test
-	&sql(declare ObjCursor cursor for Select Objref into :objref from Prod.Optibox_BoxData where ObjType="PR")
-	&sql(Open ObjCursor)
-	for  Quit:SQLCODE'=0  Do
-	. Set totaal=totaal+1
-	. &Sql(fetch ObjCursor)
-	. Quit:objref=""
-	. if x.ObjectIsOrgalux(objref) Set aantal=aantal+1
-	&sql(close ObjCursor)
-	Do WLIP^vhDBG(127,"aantal soorten kartons orgalux: "_aantal)
-	Do WLIP^vhDBG(127,"totaal aantal soorten kartons:  "_totaal)
-	Quit aantal
-]]></Implementation>
-</Method>
-
-<Method name="AantalCommissiesPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld aantal commissies per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantalCommissies=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set KlantNr="" For  Set KlantNr=$O(^KUL(KlantNr)) Quit:KlantNr=""  Do
-    . Set BONNr="" For  Set BONNr=$O(^KUL(KlantNr,"G",BONNr)) Quit:BONNr=""  Do
-    . . Set LevDatum=$Piece(^KUL(KlantNr,"G",BONNr,1),"\",2)
-    . . Set xLevDatum=20_$Piece(LevDatum,".",3)_$Piece(LevDatum,".",2)_$Piece(LevDatum,".")
-    . . Quit:xLevDatum>=EindDat  Quit:xLevDatum<StartDat  Quit:'x.OrderIsOrgalux(BONNr)
-    . . If '$D(^HULP($J,"Aantal",1,xLevDatum)) Do
-    . . . Set AantalDagen=AantalDagen+1
-    . . . Set ^HULP($J,"Aantal",1,xLevDatum)=1
-    . . Else  Set ^HULP($J,"Aantal",1,xLevDatum)=^HULP($J,"Aantal",1,xLevDatum)+1
-    . . ;w KlantNr," ",BONNr,!
-    . . Set AantalCommissies=AantalCommissies+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalVerpakkingenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld aantal verpakkingen per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantalVerpakkingen=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-    Set KlantNr="" For  Set KlantNr=$O(^KUL(KlantNr)) Quit:KlantNr=""  Do
-    . Set BONNr="" For  Set BONNr=$O(^KUL(KlantNr,"G",BONNr)) Quit:BONNr=""  Do
-    . . Set LevDatum=$Piece(^KUL(KlantNr,"G",BONNr,1),"\",2)
-    . . Set xLevDatum=20_$Piece(LevDatum,".",3)_$Piece(LevDatum,".",2)_$Piece(LevDatum,".")
-    . . Quit:xLevDatum>=EindDat  Quit:xLevDatum<StartDat
-    . . Set Aantal=0
-    . . Set LNr=100 For  Set LNr=$Order(^KUL(KlantNr,"G",BONNr,LNr)) Q:'LNr  Do
-    . . . ;loopt de lijnen af van een leverbon
-	. . . Set XLN=^(LNr)
-	. . . Set LNTYP=$Piece(XLN,"\",17)
-	. . . Set PRNr=$Piece(XLN,"\",2)
-	. . . Quit:LNTYP'="KF6"                  ;het moet een productlijn zijn
-	. . . Quit:'x.ObjectIsOrgalux(PRNr)      ;het moet een product van Orgalux zijn
-	. . . Quit:$ZCVT(##class(BL.Prod.OptiBox.Diverse).FetchDisplayName(PRNr),"U")="VOLUME"
-	. . .                                    ;het moet een verpakking hebben
-	. . . Set Aantal=$Piece(XLN,"\",3)+Aantal
-	. . Quit:Aantal=0
-	. . ; W BONNr," ",Aantal," ",LevDatum,!
-    . . Set AantalVerpakkingen=AantalVerpakkingen+Aantal
-    . . If '$D(^HULP($J,"Aantal",1,xLevDatum)) Do
-    . . . Set AantalDagen=AantalDagen+1
-    . . . Set ^HULP($J,"Aantal",1,xLevDatum)=Aantal
-    . . Else  Set ^HULP($J,"Aantal",1,xLevDatum)=^HULP($J,"Aantal",1,xLevDatum)+Aantal
-    . . . ;w KlantNr," ",BONNr,!
-    . . . Set AantalVerpakkingen=AantalVerpakkingen+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalPalletPlaatsen">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Magazijn:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-    ;Aantal palletplaasten => 2 mogelijkheden
-    ;"Ugly" of "Auto"
-    ;
-	Set Magazijn=$ZCVT(Magazijn,"U")
-	If Magazijn'="UGLY"&(Magazijn'="AUTO") Quit 0
-	Set Magazijn=$S(Magazijn="UGLY":2,1:1)
-	&sql(Select Count(*) into :Aantal from EWMS.Locations where loc_m=:Magazijn and (state=1 or state=2 or state=3 or state=4) group by loc_m)
-	Quit Aantal
-]]></Implementation>
-</Method>
-
-<Method name="AantalArtikels">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Magazijn:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Aantal palletplaasten => 2 mogelijkheden
-    ;"Ugly" of "Auto"
-    ;
-	Set Magazijn=$ZCVT(Magazijn,"U")
-	If Magazijn'="UGLY"&(Magazijn'="AUTO") Quit 0
-	Set Magazijn=$S(Magazijn="UGLY":2,1:1)
-	&sql(Select Count(*) into :Aantal from (Select distinct loc_m, product from EWMS.Inventory where loc_m=:Magazijn ) as TT group by loc_m)
-	Quit Aantal
-]]></Implementation>
-</Method>
-
-<Method name="AantalZendingenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Transporteur:%String,Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld aantal zendingen per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Transporteur) Set Transporteur="GLS"
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantalZendingen=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set TransportNr="" For  Set TransportNr=$O(^TRANSP("D",TransportNr)) Quit:TransportNr=""  Do
-	. Set Rec=^(TransportNr),TransNr=$Piece(Rec,"\",1),LevDatum=$Zd($Piece(Rec,"\",8),8)
-	. Set xTransporteur=$G(^TRANSP("T",TransNr))
-	. Quit:$Piece(xTransporteur,"\",1)'=Transporteur
-	. Quit:LevDatum>=EindDat  Quit:LevDatum<StartDat
-    . If '$D(^HULP($J,"Aantal",1,LevDatum)) Do
-    . . Set AantalDagen=AantalDagen+1
-    . . Set ^HULP($J,"Aantal",1,LevDatum)=1
-    . Else  Set ^HULP($J,"Aantal",1,LevDatum)=^HULP($J,"Aantal",1,LevDatum)+1
-    . Set AantalZendingen=AantalZendingen+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="TransportGewichtPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Transporteur:%String,Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld getransporteerd gewicht per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Transporteur) Set Transporteur="GLS"
-    If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),TotGewicht=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set TransportNr="" For  Set TransportNr=$O(^TRANSP("D",TransportNr)) Quit:TransportNr=""  Do
-	. Set Rec=^(TransportNr),TransNr=$Piece(Rec,"\",1),Gewicht=$Piece(Rec,"\",3),LevDatum=$Zd($Piece(Rec,"\",8),8)
-	. Set xTransporteur=$G(^TRANSP("T",TransNr))
-	. Quit:$Piece(xTransporteur,"\",1)'=Transporteur
-	. Quit:LevDatum>=EindDat  Quit:LevDatum<StartDat
-    . If '$D(^HULP($J,"Aantal",1,LevDatum)) Do
-    . . Set AantalDagen=AantalDagen+1
-    . . Set ^HULP($J,"Aantal",1,LevDatum)=Gewicht
-    . Else  Set ^HULP($J,"Aantal",1,LevDatum)=^HULP($J,"Aantal",1,LevDatum)+Gewicht
-    . Set TotGewicht=TotGewicht+Gewicht
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalPickingLijnenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SoftMagazijn:%String,Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal lijnen per dag per picking station : opsplitsing per magazijn
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If "\E\H\L\U\O\"'[SoftMagazijn Quit 0  ;Softmagazijn moet E,H,L,U of O zijn
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantLijnen=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set Aantal=0
-	. Set PickDatum=$Zd($Piece(^(ConsNr),"\",22),8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),Soft=$Piece(xOLU,"\",8) Quit:$E(Soft)'=SoftMagazijn
-	. . . Set SUBOLUNr="" For  Set SUBOLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr,SUBOLUNr)) Quit:SUBOLUNr=""  Do
-	. . . .Set Aantal=Aantal+1
-	.If '$D(^HULP($J,"Aantal",1,PickDatum)) Do
-    . . Set AantalDagen=AantalDagen+1
-    . . Set ^HULP($J,"Aantal",1,PickDatum)=Aantal
-    . Else  Set ^HULP($J,"Aantal",1,PickDatum)=^HULP($J,"Aantal",1,PickDatum)+Aantal
-    . Set AantLijnen=AantLijnen+Aantal
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalPickingLijnenPerUur">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>SoftMagazijn:%String,Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal lijnen per uur per picking station : opsplitsing per magazijn
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If "\E\H\L\U\O\"'[SoftMagazijn Quit 0  ;Softmagazijn moet E,H,L,U of O zijn
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantLijnen=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set Aantal=0
-	. Set PickDatum=$Zd($Piece(^(ConsNr),"\",22),8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),Soft=$Piece(xOLU,"\",8) Quit:$E(Soft)'=SoftMagazijn
-	. . . Set SUBOLUNr="" For  Set SUBOLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr,SUBOLUNr)) Quit:SUBOLUNr=""  Do
-	. . . . s XLN=^(SUBOLUNr),Uur=$Piece($Piece(XLN,"\",6),",",2)
-	. . . . S Uur=+$Piece($Zt(Uur),":")
-	. . . . Set ^HULP($J,"Aantal",1,PickDatum,Uur)=$G(^HULP($J,"Aantal",1,PickDatum,Uur))+1
-
-    Set AantLijnen=0,AantUren=0
-    Set Dat=""  For  Set Dat=$O(^HULP($J,"Aantal",1,Dat)) Quit:Dat=""  Do
-    . Set Uur="" For  Set Uur=$O(^HULP($J,"Aantal",1,Dat,Uur)) Quit:Uur=""  Do
-    . . Set Aantal=^(Uur)
-    . . If Aantal<60 Do
-    . . . Kill ^HULP($J,"Aantal",1,Dat,Uur)
-    . . Else  Do
-    . . . Set AantLijnen=^HULP($J,"Aantal",1,Dat,Uur)+AantLijnen
-    . . . Set AantUren=AantUren+1
-    if AantUren=0 Quit '$$$OK
-    Set Gemiddelde=AantLijnen/AantUren
-    
-    ; verfijning gemiddelde
-	For Vnr=2:1:10 Do
-    . Merge ^HULP($J,"Aantal",Vnr)=^HULP($J,"Aantal",1)
-    . Set AantalUren=0,AantalWaarden=0
-    . Set Dat="" For  Set Dat=$o(^HULP($J,"Aantal",Vnr,Dat)) Quit:Dat=""  Do
-    . . Set Uur="" For  Set Uur=$O(^HULP($J,"Aantal",Vnr,Dat,Uur)) Quit:Uur=""  Do
-    . . . Set Aantal=^(Uur)
-    . . . If Aantal<(Gemiddelde*(1-Marge)) Do
-    . . . . ;w Dat," ",Uur," ",$j(Aantal,8)," < ",Gemiddelde*(1-Marge),!
-    . . . . Kill ^HULP($J,"Aantal",Vnr,Dat,Uur)
-    . . . Else  If Aantal>(Gemiddelde*(1+Marge)) Do
-    . . . . Kill ^HULP($J,"Aantal",Vnr,Dat,Uur)
-    . . . . ;w Dat," ",Uur," ",$j(Aantal,8)," > ",Gemiddelde*(1+Marge),!
-    . . . Else  Do
-    . . . . Set AantalUren=AantalUren+1
-    . . . . Set AantalWaarden=AantalWaarden+Aantal
-    . . . . ;w Dat,Uur," "," ",$j(Aantal,8)," OK ",!
-    . Set Gemiddelde1=AantalWaarden/AantalUren
-    . If Gemiddelde1=Gemiddelde Set Vnr=99
-    . Do WLIP^vhDBG(127,"Berekening "_Vnr)
-    . Do WLIP^vhDBG(127,"Gemiddelde: "_$J(Gemiddelde1,5)_"   Aantal dagen: "_AantalDagen)	
-    . Set Gemiddelde=Gemiddelde1
-    Quit Gemiddelde1
-]]></Implementation>
-</Method>
-
-<Method name="AantalTonPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld gewicht per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),TotGewicht=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-    Set KlantNr="" For  Set KlantNr=$O(^KUL(KlantNr)) Quit:KlantNr=""  Do
-    . Set BONNr="" For  Set BONNr=$O(^KUL(KlantNr,"G",BONNr)) Quit:BONNr=""  Do
-    . . Set X1=^KUL(KlantNr,"G",BONNr,1)
-    . . Set LevDatum=$Piece(X1,"\",2),Port=$Piece(X1,"\",13)
-    . . Set Gewicht=$Piece(Port,"#",3)
-    . . Set xLevDatum=20_$Piece(LevDatum,".",3)_$Piece(LevDatum,".",2)_$Piece(LevDatum,".")
-    . . Quit:xLevDatum>=EindDat  Quit:xLevDatum<StartDat
-    . . If '$D(^HULP($J,"Aantal",1,xLevDatum)) Do
-    . . . Set AantalDagen=AantalDagen+1
-    . . . Set ^HULP($J,"Aantal",1,xLevDatum)=Gewicht
-    . . Else  Set ^HULP($J,"Aantal",1,xLevDatum)=^HULP($J,"Aantal",1,xLevDatum)+Gewicht
-    . . Set TotGewicht=TotGewicht+Gewicht
-    Quit x.BerekenGemiddelde(10,Marge)/1000
-]]></Implementation>
-</Method>
-
-<Method name="AantalLeverAdressenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld aantal leveradressen per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantalAdressen=0,AantalDagen=0
-	Set StartDat=x.StartDat(),EindDat=x.EindDat()
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set KlantNr="" For  Set KlantNr=$O(^KUL(KlantNr)) Quit:KlantNr=""  Do
-    . Set BONNr="" For  Set BONNr=$O(^KUL(KlantNr,"G",BONNr)) Quit:BONNr=""  Do
-    . . Set X1=^KUL(KlantNr,"G",BONNr,1),LevDatum=$Piece(X1,"\",2)
-    . . Set xLevDatum=20_$Piece(LevDatum,".",3)_$Piece(LevDatum,".",2)_$Piece(LevDatum,".")
-    . . Quit:xLevDatum>=EindDat  Quit:xLevDatum<StartDat
-    . . Set Xadres=^KUL(KlantNr,"G",BONNr,3) I $P(Xadres,"\",5,7)="\\" Do
-    . . . Set KlantIndex=$G(^KK1(KlantNr)) If KlantIndex="" Set Xadres="" Quit
-    . . . Set Xadres=$G(^KKL(KlantIndex))
-    . . Set AdresInfo=$P(Xadres,"\",5,7)
-    . . Quit:AdresInfo=""
-    . . If '$D(^HULP($J,"Aantal",1,xLevDatum)) Set AantalDagen=AantalDagen+1
-    . . If '$D(^HULP($J,"Aantal",1,xLevDatum,AdresInfo)) Do
-    . . . Set AantalAdressen=AantalAdressen+1
-    . . . Set ^HULP($J,"Aantal",1,xLevDatum)=$G(^HULP($J,"Aantal",1,xLevDatum))+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="InkomendGewichtPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Blum:%Boolean,Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld gewicht per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Blum) Set Blum=1
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),TotGewicht=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set PRNr="" For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
-	. Quit:Blum'=$$ISBLUM^PRODUKT2(PRNr)
-	. Set GewPerEenh=$Piece($G(^KPR(PRNr,1)),"\",13)
-	. Set Vnr="" For  Set Vnr=$O(^PRHIST(PRNr,Vnr)) Quit:Vnr=""  Do
-	. . Set Rec=^(Vnr)
-	. . Set Dat=+$Piece(Rec,"\"),Aantal=$Piece(Rec,"\",2),Type=$Piece(Rec,"\",4)
-	. . Set YDat=$zd(Dat,8)
-	. . Quit:Dat<StartDat  Quit:Dat>=EindDat
-	. . Quit:Type'="I"  ;alleen inkomende bewegingen
-	. . ;W PRNr," ",$Zd(Dat,4)," ",Type,!
-	. . Set Gewicht=GewPerEenh*Aantal/1000
-    . . If '$D(^HULP($J,"Aantal",1,YDat)) Do
-    . . . Set AantalDagen=AantalDagen+1
-    . . . Set ^HULP($J,"Aantal",1,YDat)=Gewicht
-    . . Else  Do
-    . . . Set ^HULP($J,"Aantal",1,YDat)=^HULP($J,"Aantal",1,YDat)+Gewicht
-    . . Set TotGewicht=TotGewicht+Gewicht
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalReceptiePalettenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het gemiddeld aantal receptiepaletten per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantalPaletten=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ReceptieNr="" For  Set ReceptieNr=$O(^RCP("D",ReceptieNr)) Quit:ReceptieNr=""  Do
-	. Set Rec=^(ReceptieNr),Dat=+$P(Rec,"\",22)
-	. Set YDat=$zd(Dat,8)
-	. ;w ReceptieNr," ",Dat,!
-	. Quit:Dat<StartDat  Quit:Dat>=EindDat
-	. Set LNr="" For  Set LNr=$O(^RCP("D",ReceptieNr,"D",LNr)) Quit:LNr=""  Do
-	. . Set LUNr="" For  Set LUNr=$O(^RCP("D",ReceptieNr,"D",LNr,LUNr)) Quit:LUNr=""  Do
-	. . . Set SUBNr="" For  Set SUBNr=$O(^RCP("D",ReceptieNr,"D",LNr,LUNr,SUBNr)) Quit:SUBNr=""  Do
-	. . . . Set xLUNr=^(SUBNr),BarCode=$Piece(xLUNr,"\",5) Quit:BarCode=""
-	. . . . Quit:$D(^HULP($J,"BarCode",BarCode))
-    . . . . If '$D(^HULP($J,"Aantal",1,YDat)) Do
-    . . . . . Set AantalDagen=AantalDagen+1
-    . . . . . Set ^HULP($J,"Aantal",1,YDat)=1
-    . . . . Else  Do
-    . . . . . Set ^HULP($J,"Aantal",1,YDat)=^HULP($J,"Aantal",1,YDat)+1
-    . . . . Set AantalPaletten=AantalPaletten+1
-    . . . . Set ^HULP($J,"BarCode",BarCode)=""
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalProducten">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Aantal prodcuten
-	&sql(Select Count(*) into :Aantal from (Select distinct loc_m, product from EWMS.Inventory where (loc_m=3)) as TT group by loc_m)
-	Quit Aantal
-]]></Implementation>
-</Method>
-
-<Method name="AantalOrgaLuxLijnenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal lijnen van Orgalux per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantLijnen=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set Aantal=0
-	. Set PickDatum=+$Piece(^(ConsNr),"\",22),YDat=$Zd(PickDatum,8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),PRNr=$Piece(xOLU,"\",1) Quit:'x.ObjectIsOrgalux(PRNr)
-	. . . If '$D(^HULP($J,"Aantal",1,YDat)) Do
-    . . . . Set AantalDagen=AantalDagen+1
-    . . . . Set ^HULP($J,"Aantal",1,YDat)=1
-    . . . Else  Set ^HULP($J,"Aantal",1,YDat)=^HULP($J,"Aantal",1,YDat)+1
-    . . . Set AantLijnen=AantLijnen+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalOrgaLuxSubLijnenPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal sublijnen van Orgalux per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),AantLijnen=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set Aantal=0
-	. Set PickDatum=+$Piece(^(ConsNr),"\",22),YDat=$Zd(PickDatum,8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),PRNr=$Piece(xOLU,"\",1) Quit:'x.ObjectIsOrgalux(PRNr)
-	. . . Set SUBOLUNr="" For  Set SUBOLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr,SUBOLUNr)) Quit:SUBOLUNr=""  Do
-	. . . . If '$D(^HULP($J,"Aantal",1,YDat)) Do
-    . . . . . Set AantalDagen=AantalDagen+1
-    . . . . . Set ^HULP($J,"Aantal",1,YDat)=1
-    . . . . Else  Set ^HULP($J,"Aantal",1,YDat)=^HULP($J,"Aantal",1,YDat)+1
-    . . . . Set AantLijnen=AantLijnen+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="AantalStuksHaluxPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal lijnen van Orgalux per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),Totaal=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set Aantal=0
-	. Set PickDatum=+$Piece(^(ConsNr),"\",22),YDat=$Zd(PickDatum,8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),PRNr=$Piece(xOLU,"\",1),Aantal=$Piece(xOLU,"\",5)
-	. . . Quit:'$D(^KPR(PRNr))
-	. . . Quit:$$$PRGet($$$LeveranciersNr)'=$$$LevHalux
-	. . . If '$D(^HULP($J,"Aantal",1,YDat)) Do
-    . . . . Set AantalDagen=AantalDagen+1
-    . . . . Set ^HULP($J,"Aantal",1,YDat)=Aantal
-    . . . Else  Set ^HULP($J,"Aantal",1,YDat)=^HULP($J,"Aantal",1,YDat)+Aantal
-    . . . Set Totaal=Totaal+Aantal
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="VerschillendeTandemBoxPerDag">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Marge:%Numeric</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;Berekent het aantal verschillende tandemboxproducten per dag
-	;periode: laatste 2 volledige maanden
-	;marge: de waarden die buiten de marge rond het gemiddelde vallen worden niet meegeteld
-	;
-	If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-	Set x=..%New(),Aantal=0,AantalDagen=0
-	Set StartDat=x.StartDat("H"),EindDat=x.EindDat("H")
-    Do WLIP^vhDBG(127,"startdatum: "_StartDat_"   einddatum: "_EindDat)
-	Kill ^HULP($J)
-	Set ConsNr="" For  Set ConsNr=$O(^ORDW("D",ConsNr)) Quit:ConsNr=""  Do
-	. Set PickDatum=+$Piece(^(ConsNr),"\",22),YDat=$Zd(PickDatum,8)
-	. Quit:PickDatum>=EindDat  Quit:PickDatum<StartDat
-	. Set ORDNr="" For  Set ORDNr=$O(^ORDW("D",ConsNr,"D",ORDNr)) Quit:ORDNr=""  Do
-	. . Set OLUNr="" For  Set OLUNr=$O(^ORDW("D",ConsNr,"D",ORDNr,OLUNr)) Quit:OLUNr=""  Do
-	. . . Set xOLU=^(OLUNr),PRNr=$Piece(xOLU,"\",1)
-	. . . Quit:'$D(^KPR(PRNr))
-	. . . Quit:$Piece($$GENTYP^HAD(PRNr),"\")'="TBX"
-	. . . If '$D(^HULP($J,"Product",1,YDat,PRNr)) Do
-    . . . . Set ^HULP($J,"Aantal",1,YDat)=$G(^HULP($J,"Aantal",1,YDat))+1
-    . . . . Set ^HULP($J,"Product",1,YDat,PRNr)=""
-    . . . . Set Aantal=Aantal+1
-    Quit x.BerekenGemiddelde(10,Marge)
-]]></Implementation>
-</Method>
-
-<Method name="BerekenGemiddelde">
-<FormalSpec>AantalBerekeningen:%Integer,Marge:%Numeric</FormalSpec>
-<ReturnType>%Numeric</ReturnType>
-<Implementation><![CDATA[
-	;eerste berkening: gemiddelde van alle waarden
-    If '$D(Marge) Set Marge=0.2   ;standaard 20% marge
-    Set AantalDagen=0,AantalWaarden=0
-    Set Dat="" For  Set Dat=$o(^HULP($J,"Aantal",1,Dat)) Quit:Dat=""  Do
-    . Set Aantal=^(Dat)
-    . Set AantalDagen=AantalDagen+1
-    . Set AantalWaarden=AantalWaarden+Aantal
-    If AantalDagen=0 Do WLIP^vhDBG(127," Geen waarden voor deze periode!") Quit '$$$OK
-    Set Gemiddelde=AantalWaarden/AantalDagen
-    Do WLIP^vhDBG(127,"Berekening 1")
-    Do WLIP^vhDBG(127,"Gemiddelde: "_Gemiddelde_"   Aantal dagen: "_AantalDagen)
-    
-    ;volgende berekeningen: de extremen buiten de marge worden weggelaten
-	For Vnr=2:1:AantalBerekeningen Do
-	. ;w Gemiddelde,! r test
-    . Merge ^HULP($J,"Aantal",Vnr)=^HULP($J,"Aantal",1)
-    . Set AantalDagen=0,AantalWaarden=0
-    . Set Dat="" For  Set Dat=$o(^HULP($J,"Aantal",Vnr,Dat)) Quit:Dat=""  Do
-    . . Set Aantal=^(Dat)
-    . . If Aantal<(Gemiddelde*(1-Marge)) Do
-    . . . ;w Dat," ",$j(Aantal,8)," < ",Gemiddelde*(1-Marge),!
-    . . . Kill ^HULP($J,"Aantal",Vnr,Dat)
-    . . Else  If Aantal>(Gemiddelde*(1+Marge)) Do
-    . . . Kill ^HULP($J,"Aantal",Vnr,Dat)
-    . . . ;w Dat," ",$j(Aantal,8)," > ",Gemiddelde*(1+Marge),!
-    . . Else  Do
-    . . . Set AantalDagen=AantalDagen+1
-    . . . Set AantalWaarden=AantalWaarden+Aantal
-    . . . ;w Dat," ",$j(Aantal,8)," OK ",!
-    . If AantalDagen=0 Do WLIP^vhDBG(127,Vnr_" Geen waarden binnen de marge van "_(100*Marge)_"%") S Gemiddelde1=Gemiddelde,Vnr=99 Quit
-    . Set Gemiddelde1=AantalWaarden/AantalDagen
-    . Do WLIP^vhDBG(127,"Berekening "_Vnr)
-    . If Gemiddelde>1 Do
-    . .Do WLIP^vhDBG(127,"Gemiddelde: "_$J(Gemiddelde1,0,2)_"   Aantal dagen: "_AantalDagen)
-    . Else  Do WLIP^vhDBG(127,"Gemiddelde: "_$J(Gemiddelde1,0,5)_"   Aantal dagen: "_AantalDagen)
-    . If Gemiddelde1=Gemiddelde Set Vnr=99
-    . Set Gemiddelde=Gemiddelde1
-    Quit Gemiddelde1
-]]></Implementation>
-</Method>
-
-<Method name="StartDat">
-<FormalSpec>Formaat:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-	;berekent begin van de maand Aantaljaren + 2 maand terug (standaardformaat JJJJMMDD)
-	Set Dat=$zd($h,8)
-	Set Jaar=$e(Dat,1,4)-..#AantalJaren
-	Set Maand=$e(Dat,5,6)
-	Set Maand=Maand-2
-	If Maand<1 Set Maand=12+Maand,Jaar=Jaar-1
-	Set StartDat=Jaar_$E(Maand+100,2,3)_"01"
-	If '$D(Formaat) Quit StartDat
-	If Formaat ="H" Quit $Zdh(StartDat,8)
-	Quit StartDat
-]]></Implementation>
-</Method>
-
-<Method name="EindDat">
-<FormalSpec>Formaat:%String</FormalSpec>
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[
-   ;berekent begin van de maand AantJaren terug (standaardformaat JJJJMMDD)
-	Set Dat=$zd($h-(365*..#AantalJaren),8)
-	Set EindDat=$E(Dat,1,6)_"01"
-    If '$D(Formaat) Quit EindDat
-    If Formaat ="H" Quit $Zdh(EindDat,8)
-    Quit EindDat
-]]></Implementation>
-</Method>
-
-<Method name="ObjectIsOrgalux">
-<Description>
-Is een Orgalux product ?</Description>
-<FormalSpec>objref</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	New D
-	Set D="\"
-	Quit $$ISORGAL^ORGALUX(objref)
-]]></Implementation>
-</Method>
-
-<Method name="OrderIsOrgalux">
-<Description>
-Is een Orgalux order ?</Description>
-<FormalSpec>BONNr</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	New D
-	Set D="\"
-	Quit $$ORGALBON^FLOWCHK(BONNr)
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^PVE.BRLD</DataLocation>
-<DefaultData>BRLDefaultData</DefaultData>
-<IdLocation>^PVE.BRLD</IdLocation>
-<IndexLocation>^PVE.BRLI</IndexLocation>
-<StreamLocation>^PVE.BRLS</StreamLocation>
-<Data name="BRLDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="2260412039"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:42">
+<Checksum value="4095303729"/>
 </Export>
Index: WS/TAPI/SMSService.cls.xml
===================================================================
diff -u
--- WS/TAPI/SMSService.cls.xml	(revision 0)
+++ WS/TAPI/SMSService.cls.xml	(revision 1019)
@@ -0,0 +1,47 @@
+<?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-04-19 15:41:59">
+<Class name="WS.TAPI.SMSService">
+<Description>
+JBL + 2011-04-19
+</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>WS.WebService</Super>
+<TimeChanged>62200,56534.636058</TimeChanged>
+<TimeCreated>62200,54153.627356</TimeCreated>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="SERVICENAME">
+<Default>WS.TAPI.SMSService</Default>
+</Parameter>
+
+<Method name="StuurBericht">
+<Description>
+SMS verzenden
+Recepient moet met landcode bij vermeld worden.</Description>
+<FormalSpec>Recepient:%String,Message:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	$$$TECHErrorTrapOn
+	
+	$$$chkMaxLength(Message,160)
+	If '(Recepient?.N){
+		$$$ThrowError($$$errParameterInvalid,"GsmNummer niet correct, het mag alleen numerieke tekens bevatten.")
+	}
+	Set Result = ##class(WS.TAPI.SMSMessageSingle).SendMessage(Recepient,Message)
+	
+	/// Log resultaat van sms te versturen
+	set Logger = ##class(vhLib.Logger).%New("WS.TAPI.SMS")
+	If Result '= ""	{
+		do Logger.ErrorMail("Send","Kon SMS niet verzenden naar "_Recepient_" : "_Message)
+	}Else{
+		do Logger.Info("Send","SMS verzonden naar "_Recepient_" : "_Message)
+	}
+			
+	$$$TECHErrorTrapOff
+	Quit Result
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3373226415"/>
+</Export>
Index: TECH/CSP/CSPApplicatie.cls.xml
===================================================================
diff -u -r792 -r1019
--- TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 792)
+++ TECH/CSP/CSPApplicatie.cls.xml	(.../CSPApplicatie.cls.xml)	(revision 1019)
@@ -1,8 +1,8 @@
 <?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-02-04 13:42:52">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:44">
 <Class name="TECH.CSP.CSPApplicatie">
 <Super>%RegisteredObject</Super>
-<TimeChanged>62126,49417.65126</TimeChanged>
+<TimeChanged>62123,38239.510612</TimeChanged>
 <TimeCreated>62118,40201.147412</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -78,7 +78,7 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#if $system.Version.GetMajor()=5
-
+	
 	set result = $listget($get(^%SYS("CSP","Applications",CSPApplicatie)),9)
 	
 	#else
@@ -164,5 +164,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="536497852"/>
+<Checksum value="3570443524"/>
 </Export>
Index: DOM/Halux/TBX/ZaagOpdrachten.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/ZaagOpdrachten.cls.xml	(.../ZaagOpdrachten.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/ZaagOpdrachten.cls.xml	(.../ZaagOpdrachten.cls.xml)	(revision 1019)
@@ -1,66 +1,4 @@
 <?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-02-01 20:24:39">
-<Class name="DOM.Halux.TBX.ZaagOpdrachten">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
-<TimeChanged>62123,73520.158078</TimeChanged>
-<TimeCreated>62123,54831.536178</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Batch">
-<Type>DS.PPS.TBX.Batch</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="BodemRug">
-<Description>
-</Description>
-<Type>DOM.Halux.TBX.enu.BodemRug</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ControleMeting">
-<Description>
-Resultaat van de meeting</Description>
-<Type>%Float</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="QueueID">
-<Description>
-</Description>
-<Type>DS.PPS.TBX.Queue</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Status">
-<Description>
-</Description>
-<Type>DOM.Halux.TBX.enu.Status</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="SubBatch">
-<Description>
-</Description>
-<Type>DOM.Halux.TBX.enu.SubBatch</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ZaagID">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-</Class>
-<Checksum value="1555296313"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:26">
+<Checksum value="3598423857"/>
 </Export>
Index: zTryout/JBL/Proc.cls.xml
===================================================================
diff -u
--- zTryout/JBL/Proc.cls.xml	(revision 0)
+++ zTryout/JBL/Proc.cls.xml	(revision 1019)
@@ -0,0 +1,155 @@
+<?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-04-13 10:47:35">
+<Class name="zTryout.JBL.Proc">
+<ClassType>persistent</ClassType>
+<Super>%Persistent</Super>
+<TimeChanged>62194,38867.828078</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Query name="GeefLoggingTop">
+<Type>%SQLQuery</Type>
+<FormalSpec>Aantal:%Integer</FormalSpec>
+<SqlProc>1</SqlProc>
+<SqlQuery>	SELECT Top :Aantal  Datum , Tijd , Groep, Niveau , Actie , JobID , Detail
+  	FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' 
+  	ORDER BY Datum DESC, Tijd DESC</SqlQuery>
+</Query>
+
+<Query name="GeefLogging">
+<Type>%SQLQuery</Type>
+<SqlQuery>	SELECT Top 20 Datum , Tijd , Groep, Niveau , Actie , JobID , Detail
+  	FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' 
+  	ORDER BY Datum DESC, Tijd DESC</SqlQuery>
+<SqlView>1</SqlView>
+</Query>
+
+<Query name="VerschilOmzetProdGrp">
+<Description>
+Query wordt gebruikt door PVH in een Excel dd 31-05-2005
+As %Library.SQLQuery(CONTAINID = 1) [ SqlView ]
+///Query VerschilOmzetProdGrp(VorigVan As %Integer, VorigTot  As %Integer, HuidigVan  As %Integer, HuidigTot  As %Integer ) As %Library.SQLQuery(CONTAINID = 1) [ SqlView ]</Description>
+<Type>%Query</Type>
+<FormalSpec>VorigVan:%Integer,VorigTot:%Integer,HuidigVan:%Integer,HuidigTot:%Integer</FormalSpec>
+<SqlProc>1</SqlProc>
+<SqlQuery>	</SqlQuery>
+<Parameter name="CONTAINID" value="0"/>
+<Parameter name="ROWSPEC" value="KLNr:%Integer,Naam:%String,Tel1:%String,Straat:%String,Postkode:%String,Gemeente:%String,Regio:%String,Aktiviteit:%String,Kwantiteit:%String,Kwaliteit:%String,NonAkt:%Integer,Vervallen:%Integer,AantalBezoeken:%String,KlachtenJr:%Integer,KlachtenMnd:%Integer,Codex:%String,Uitz:%String,Trend:%String,VoBlum:%Float,VoHAL:%Float,VoTBX:%Float,VoGRP:%Float,VoRest:%Float,VoOL:%Float,HuBlum:%Float,HuHAL:%Float,HuTBX:%Float,HuGRP:%Float,HuRest:%Float,HuOL:%Float,VoMaBlum:%Float,VoMaHAL:%Float,VoMaTBX:%Float,VoMaGRP:%Float,VoMaRest:%Float,VoMaOL:%Float,HuMaBlum:%Float,HuMaHAL:%Float,HuMaTBX:%Float,HuMaGRP:%Float,HuMaRest:%Float,HuMaOL:%Float"/>
+</Query>
+
+<Method name="VerschilOmzetProdGrpExecute">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,VorigVan:%Integer,VorigTot:%Integer,HuidigVan:%Integer,HuidigTot:%Integer]]></FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set %VOKLId=0
+	Set %VOVorigVan=$$EXTDATE^vhDTyp(VorigVan,"DM4")_" "
+	Set %VOVorigTot=$$EXTDATE^vhDTyp(VorigTot,"DM4")_" "
+	Set %VOHuidigVan=$$EXTDATE^vhDTyp(HuidigVan,"DM4")_" "
+	Set %VOHuidigTot=$$EXTDATE^vhDTyp(HuidigTot,"DM4")_" "
+	Set %HuidigVan=$$CALCDATE^vhDTyp(HuidigVan,"M","FD")
+	Set %HuidigTot=$$CALCDATE^vhDTyp(HuidigTot,"M","LD")
+	Set %HuidigTotFD=$$CALCDATE^vhDTyp(HuidigTot,"M","FD")
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerschilOmzetProdGrpFetch">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
+<PlaceAfter>VerschilOmzetProdGrpExecute</PlaceAfter>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set D="\",U=";",Q="K"
+
+	Set %VOKLId=$O(^KKL(%VOKLId))
+	;w %VOKLId,!
+	If %VOKLId="" Do  Quit $$$OK
+	. Set Row=""
+	. Set AtEnd=1
+	Else  Do 
+	. Set KLNr=$P(^KKL(%VOKLId,0),"\")
+	
+	Kill SumOmzetVorig,SumOmzetHuidig,SumMargeHuidig,SumMargeVorig
+	Set PRNr=0
+	For  Set PRNr=$O(^KSTKL(KLNr,PRNr)) Quit:PRNr=""  Do
+	. Set Vorig=$$KLANT^STAT(KLNr,PRNr,%VOVorigVan,%VOVorigTot,"3,4")
+	. Set Huidig=$$KLANT^STAT(KLNr,PRNr,%VOHuidigVan,%VOHuidigTot,"3,4")
+	. Set ProdGrp=$$gpvProdGrp^Prod.Product.KPRPropViaNr(PRNr)
+	. Set:ProdGrp="" ProdGrp="REST"
+	. Set SumOmzetVorig(ProdGrp)=$G(SumOmzetVorig(ProdGrp))+$P(Vorig,D,1)
+	. Set SumOmzetHuidig(ProdGrp)=$G(SumOmzetHuidig(ProdGrp))+$P(Huidig,D,1)
+	. Set SumMargeVorig(ProdGrp)=$G(SumMargeVorig(ProdGrp))+$P(Vorig,D,2)
+	. Set SumMargeHuidig(ProdGrp)=$G(SumMargeHuidig(ProdGrp))+$P(Huidig,D,2)
+	Set Klant=##class(Derde.Klant.Klant).%OpenId(KLNr)
+	Set LevAdr=$$DEFAULT^LEVADR(KLNr)
+	Set (OmzetHuidigList,OmzetVorigList,MargeVorigList,MargeHuidigList)=""
+	Set Vervallen=$P($$WAARDIG^KREDIET(KLNr,"D"),D,6) ; Aantal dagen vervallen fakturen
+	Set Vervallen=$S(Vervallen&&($H-Vervallen>0):$H-Vervallen,1:"")
+	Set HeeftUtz=$S($D(^KLPUTZ("N",KLNr))>1:"+",1:"")
+	Set AantalBezoeken=##class(BL.Derde.Agenda.Agenda).AantalBezoeken(KLNr,%HuidigVan,%HuidigTot)
+	Set AantalKlachtenJr=##class(Derde.Klacht).AantalKlachten("K",KLNr,%HuidigVan,%HuidigTot)
+	Set AantalKlachtenMnd=##class(Derde.Klacht).AantalKlachten("K",KLNr,%HuidigTotFD,%HuidigTot)
+	Set Trend=##class(BL.Derde.Klant.Main).OmzetTrend(KLNr)
+	Set Kwantitatief=$$DisplayKwantitatief^KLANT5(KLNr)
+	Set Kwantitatief=$LG(Kwantitatief,1)_" "_$LG(Kwantitatief,2)
+	Set Kwalitatief=$$DisplayKwalitatief^KLANT5(KLNr)
+	Set Kwalitatief=$LG(Kwalitatief,1)_" "_$LG(Kwalitatief,2)
+	Set Row=$LB(KLNr,Klant.Naam,Klant.Telefoon1,$P(LevAdr,"\",5),$P(LevAdr,"\",6),$P(LevAdr,"\",7),Klant.Sektor,Klant.Aktiviteit,Kwantitatief,Kwalitatief,Klant.CommNonActief,Vervallen,AantalBezoeken,AantalKlachtenJr,AantalKlachtenMnd,Klant.Prijsklasse,HeeftUtz,Trend)
+	Set ProdGrp=""
+	For  Set ProdGrp=$O(^RES("PRODUKT","PI","PRODUKTGROEP","D",ProdGrp)) Quit:ProdGrp=""  Do
+	. Set VolgNr=$P(^RES("PRODUKT","PI","PRODUKTGROEP","D",ProdGrp),"`")
+	. Set $LI(OmzetVorigList,VolgNr)=$LG(OmzetVorigList,VolgNr)+$G(SumOmzetVorig(ProdGrp))
+	. Set $LI(OmzetHuidigList,VolgNr)=$LG(OmzetHuidigList,VolgNr)+$G(SumOmzetHuidig(ProdGrp))
+	. Set $LI(MargeVorigList,VolgNr)=$LG(MargeVorigList,VolgNr)+$G(SumMargeVorig(ProdGrp))
+	. Set $LI(MargeHuidigList,VolgNr)=$LG(MargeHuidigList,VolgNr)+$G(SumMargeHuidig(ProdGrp))
+	Set Row=Row_OmzetVorigList_OmzetHuidigList_MargeVorigList_MargeHuidigList
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="VerschilOmzetProdGrpClose">
+<ClassMethod>1</ClassMethod>
+<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
+<PlaceAfter>VerschilOmzetProdGrpExecute</PlaceAfter>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Kill %VOKLId,%VORegion,%VOVorigVan,%VOVorigTot,%VOHuidigTot,%VOHuidigVan,%HuidigVan,%HuidigTot
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+ClassMethod VerschilOmzetProdGrpFetchODBC(ByRef qHandle  As %Binary,array As %String,ByRef qacn As %Integer,AtEnd As %Integer,SQLCODE As %Integer) As %Status
+{
+	Quit $$$OK	
+}
+
+ClassMethod VerschilOmzetProdGrpFetchRows(ByRef qHandle  As %Binary,FetchCount As %Integer,RowSet As %List,ReturnCount As %Integer,AtEnd As %Integer) As %Status
+{
+	Quit $$$OK
+}
+*/
+]]></Content>
+</UDLText>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^zTryout.JBL.ProcD</DataLocation>
+<DefaultData>ProcDefaultData</DefaultData>
+<IdLocation>^zTryout.JBL.ProcD</IdLocation>
+<IndexLocation>^zTryout.JBL.ProcI</IndexLocation>
+<StreamLocation>^zTryout.JBL.ProcS</StreamLocation>
+<Data name="ProcDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+<Checksum value="3792523981"/>
+</Export>
Index: zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml	(.../FysiekProduct.cls.xml)	(revision 995)
+++ zTryout/ARC/DOM/PM/impl/DataM/FysiekProduct.cls.xml	(.../FysiekProduct.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-04-07 17:21:42">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 15:07:42">
 <Class name="zTryout.ARC.DOM.PM.impl.DataM.FysiekProduct">
 <Import>zTryout.ARC.TECH.Persistentie</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>zTryout.ARC.DOM.PM.FysiekProduct,%RegisteredObject</Super>
-<TimeChanged>62188,62508.935747</TimeChanged>
+<TimeChanged>62193,54473.3658</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="PRNr">
@@ -43,6 +43,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetGewicht">
+<FormalSpec>Gewicht:Gewicht</FormalSpec>
+<Implementation><![CDATA[		Do ..KprPrnr1.ZetPiece(13, Gewicht.GeefGewichtInGram())
+]]></Implementation>
+</Method>
+
 <Method name="GeefAfmeting">
 <ReturnType>Afmeting3D</ReturnType>
 <Implementation><![CDATA[
@@ -64,6 +70,11 @@
 	Quit r%KprPrnr1
 ]]></Implementation>
 </Method>
+
+<Method name="Save">
+<Implementation><![CDATA[	Do ..KprPrnr1.Save()
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1730630935"/>
+<Checksum value="1394985374"/>
 </Export>
Index: Prod/Kenmerk/MetaDefinitie.cls.xml
===================================================================
diff -u -r1013 -r1019
--- Prod/Kenmerk/MetaDefinitie.cls.xml	(.../MetaDefinitie.cls.xml)	(revision 1013)
+++ Prod/Kenmerk/MetaDefinitie.cls.xml	(.../MetaDefinitie.cls.xml)	(revision 1019)
@@ -1,11 +1,11 @@
 <?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-04-12 10:18:29">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 17:37:26">
 <Class name="Prod.Kenmerk.MetaDefinitie">
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Library.Persistent</Super>
-<TimeChanged>62193,37120.171664</TimeChanged>
+<TimeChanged>62199,63461.727566</TimeChanged>
 <TimeCreated>59275,52589.182</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -182,6 +182,21 @@
 <InitialExpression>0</InitialExpression>
 </Property>
 
+<Property name="IsReadOnly">
+<Description>
+Bepaalde kenmerken mogen niet rechtstreeks door de gebruiker gewijzigd worden.
+Voor read-only kenmerken moet geen lijst van de gebruikte waarden opgezocht en doorgegeven worden aan de GUI.</Description>
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="SuggereerGeenWaarden">
+<Description>
+Indien die opstaat, moeten we ook geen lijst van de gebruikte waarden opzoeken en doorgeven aan de GUI.</Description>
+<Type>%Boolean</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
 <Method name="WaardenSorteringGet">
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%List</ReturnType>
@@ -477,12 +492,12 @@
 <SqlQuery>SELECT ID,Groep,Decimalen,DisableWhen,Eenheid,Format,
  Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,
  Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,
- Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,WaardenSortering2,WaardenSortering3
+ Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerGeenWaarden,WaardenSortering2,WaardenSortering3
 FROM Prod_Kenmerk.MetaDefinitie
 WHERE (Groep=:paGroep)
 ORDER BY VolgNr</SqlQuery>
 <Parameter name="CONTAINID" value="1"/>
-<Parameter name="ROWSPEC" value="ID,Groep,Decimalen,DisableWhen,Eenheid,Format,Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,WaardenSortering2,WaardenSortering3"/>
+<Parameter name="ROWSPEC" value="ID,Groep,Decimalen,DisableWhen,Eenheid,Format,Intern,Kenmerk,LangtekstTransform,LangtekstVolgNr,Lengte,MaxValue,MinValue,Multiple,MultipleDisplay,Omschrijving,Verplicht,VolgNr,WaardenSortering,ToelatenEC,SubGroep,SortType,NieuweWaardeToegelaten,IsReadOnly,SuggereerGeenWaarden,WaardenSortering2,WaardenSortering3"/>
 </Query>
 
 <Query name="LijstPerGroep">
@@ -586,8 +601,20 @@
 <Value name="25">
 <Value>NieuweWaardeToegelaten</Value>
 </Value>
+<Value name="26">
+<Value>ReadOnly</Value>
+</Value>
+<Value name="27">
+<Value>SuggereerWaarden</Value>
+</Value>
+<Value name="28">
+<Value>SuggereerGeenWaarden</Value>
+</Value>
+<Value name="29">
+<Value>IsReadOnly</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
-<Checksum value="2810120500"/>
+<Checksum value="219682334"/>
 </Export>
Index: zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml	(.../StockeerbaarProduct.cls.xml)	(revision 995)
+++ zTryout/ARC/DOM/MAG/StockeerbaarProduct.cls.xml	(.../StockeerbaarProduct.cls.xml)	(revision 1019)
@@ -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-04-08 16:51:12">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-15 16:42:54">
 <Class name="zTryout.ARC.DOM.MAG.StockeerbaarProduct">
 <Description>
 De interface (naar een product) die slaat op het behandelen van een product in ons magazijn.</Description>
 <Abstract>1</Abstract>
 <Import>zTryout.ARC.DOM.MAG.enu</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62189,60678.893289</TimeChanged>
+<TimeChanged>62196,60187.130228</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="IsStockProduct">
@@ -30,10 +30,29 @@
 <ReturnType>Cyclecounttype</ReturnType>
 </Method>
 
+<Method name="ZetCyclecounttype">
+<Abstract>1</Abstract>
+<FormalSpec>Cyclecounttype:Cyclecounttype</FormalSpec>
+</Method>
+
 <Method name="GeefTelweegschaalTelwijze">
 <Abstract>1</Abstract>
 <ReturnType>TelweegschaalTelwijze</ReturnType>
 </Method>
+
+<Method name="ZetTelweegschaalTelwijze">
+<Abstract>1</Abstract>
+<FormalSpec>TelweegschaalTelwijze:TelweegschaalTelwijze</FormalSpec>
+</Method>
+
+<Method name="IsStockOverKinderen">
+<Abstract>1</Abstract>
+<ReturnType>%Boolean</ReturnType>
+</Method>
+
+<Method name="Save">
+<Abstract>1</Abstract>
+</Method>
 </Class>
-<Checksum value="1841833751"/>
+<Checksum value="439235717"/>
 </Export>
Index: APPS/Halux/Docs/impl/DocumentBuilder.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/Docs/impl/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 917)
+++ APPS/Halux/Docs/impl/DocumentBuilder.cls.xml	(.../DocumentBuilder.cls.xml)	(revision 1019)
@@ -1,21 +1,4 @@
 <?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-02-24 08:36:41">
-<Class name="APPS.Halux.Docs.impl.DocumentBuilder">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62146,31064.10147</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Naam">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="MaakDocument">
-<Abstract>1</Abstract>
-<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
-<ReturnType>APPS.Halux.Docs.impl.Document</ReturnType>
-</Method>
-</Class>
-<Checksum value="883185490"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:10">
+<Checksum value="3225633901"/>
 </Export>
Index: zTryout/CSC/TestKlasjeuuuh.cls.xml
===================================================================
diff -u -r946 -r1019
--- zTryout/CSC/TestKlasjeuuuh.cls.xml	(.../TestKlasjeuuuh.cls.xml)	(revision 946)
+++ zTryout/CSC/TestKlasjeuuuh.cls.xml	(.../TestKlasjeuuuh.cls.xml)	(revision 1019)
@@ -1,21 +1,4 @@
 <?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-03-01 12:05:22">
-<Class name="zTryout.CSC.TestKlasjeuuuh">
-<Import>DOM.OV</Import>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62151,43589.805976</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="Order">
-<Type>Order</Type>
-<Private>1</Private>
-</Property>
-</Class>
-<Checksum value="1846057637"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:52">
+<Checksum value="1285883732"/>
 </Export>
Index: APPS/PM/dto/Kenm/ProductKenmerken.cls.xml
===================================================================
diff -u -r976 -r1019
--- APPS/PM/dto/Kenm/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 976)
+++ APPS/PM/dto/Kenm/ProductKenmerken.cls.xml	(.../ProductKenmerken.cls.xml)	(revision 1019)
@@ -1,23 +1,4 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 09:26:36">
-<Class name="APPS.PM.dto.Kenm.ProductKenmerken">
-<Description>
-JBL + 2011-02-28
-</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62164,33996.637107</TimeChanged>
-<TimeCreated>62153,42301.382673</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Kenmerken">
-<Type>ProductKenmerk</Type>
-<Collection>list</Collection>
-</Property>
-
-<Property name="IDs">
-<Type>APPS.PM.dto.ProductIDs</Type>
-</Property>
-</Class>
-<Checksum value="1557978897"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:16">
+<Checksum value="3301849311"/>
 </Export>
Index: zTryout/CSC/PersistenteKlasse.cls.xml
===================================================================
diff -u -r734 -r1019
--- zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 734)
+++ zTryout/CSC/PersistenteKlasse.cls.xml	(.../PersistenteKlasse.cls.xml)	(revision 1019)
@@ -1,40 +1,16 @@
 <?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:17">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 13:03:22">
 <Class name="zTryout.CSC.PersistenteKlasse">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62110,37962.724096</TimeChanged>
+<TimeChanged>62199,47018.399258</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
-<Method name="Try">
-<Description>
-Do ##class(zTryout.CSC.PersistenteKlasse).Try()</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Id</FormalSpec>
-<Implementation><![CDATA[
-	Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(..%ClassName(1))
-	w CompiledClass.Storages.GetAt(1).DataLocation_"("_Id_")"
-]]></Implementation>
-</Method>
+<Property name="Batch">
+<Type>APPS.Halux.common.Batch</Type>
+</Property>
 
-<Method name="%Lock">
-<FormalSpec>Shared:%Boolean</FormalSpec>
-<Implementation><![CDATA[
-	Set CompiledClass = ##class(%Dictionary.CompiledClass).%OpenId(..%ClassName(1))
-	Set x = CompiledClass.Storages.GetAt(1).DataLocation_"("_..%Id()_")"
-	Lock @x
-]]></Implementation>
-</Method>
-
-<Method name="%AcquireLock">
-<FormalSpec>locktype</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit ##super(locktype)
-]]></Implementation>
-</Method>
-
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^zTryout.CSC.PersistenteKlasseD</DataLocation>
@@ -51,5 +27,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="3698831846"/>
+<Checksum value="3525328615"/>
 </Export>
Index: APPS/Halux/TBX/enu/Bewerking.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/enu/Bewerking.cls.xml	(.../Bewerking.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/enu/Bewerking.cls.xml	(.../Bewerking.cls.xml)	(revision 1019)
@@ -1,43 +1,4 @@
 <?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-02-05 18:59:45">
-<Class name="APPS.Halux.TBX.enu.Bewerking">
-<Description><![CDATA[
-Enumeratie Bewerking op bodem
-<ul>
-	<li>Spoelbak en Syfon laden</li>
-	<li>Tipon</li>
-</ul>]]></Description>
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62127,68431.753909</TimeChanged>
-<TimeCreated>62123,54830.753447</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,G,F,Z</Default>
-</Parameter>
-
-<Method name="Groef">
-<ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["G"
-]]></Implementation>
-</Method>
-
-<Method name="Frezing">
-<ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["F"
-]]></Implementation>
-</Method>
-
-<Method name="Zonder">
-<ClassMethod>1</ClassMethod>
-<CodeMode>expression</CodeMode>
-<Implementation><![CDATA["Z"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1347461805"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:12">
+<Checksum value="3284635651"/>
 </Export>
Index: TECH/Events/OrderModifiedEventData.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderModifiedEventData.cls.xml	(.../OrderModifiedEventData.cls.xml)	(revision 924)
+++ TECH/Events/OrderModifiedEventData.cls.xml	(.../OrderModifiedEventData.cls.xml)	(revision 1019)
@@ -1,30 +1,4 @@
 <?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-02-16 13:33:50">
-<Class name="TECH.Events.OrderModifiedEventData">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.EventData</Super>
-<TimeChanged>62138,48886.073972</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.OV.Order</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Order = Order
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheSerialState</Type>
-</Storage>
-</Class>
-<Checksum value="1587113738"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:46">
+<Checksum value="4077963501"/>
 </Export>
Index: APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml
===================================================================
diff -u -r976 -r1019
--- APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml	(.../KenmerkMetadataList.cls.xml)	(revision 976)
+++ APPS/PM/dto/Kenm/KenmerkMetadataList.cls.xml	(.../KenmerkMetadataList.cls.xml)	(revision 1019)
@@ -1,19 +1,4 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 10:37:38">
-<Class name="APPS.PM.dto.Kenm.KenmerkMetadataList">
-<Description>
-JBL + 2011-03-03 
-ifv webservice </Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62164,38258.467687</TimeChanged>
-<TimeCreated>62153,42300.444393</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Items">
-<Type>APPS.PM.dto.Kenm.KenmerkMetadata</Type>
-<Collection>list</Collection>
-</Property>
-</Class>
-<Checksum value="2413835301"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:15">
+<Checksum value="3330836102"/>
 </Export>
Index: vhLib/Logger.cls.xml
===================================================================
diff -u -r909 -r1019
--- vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 909)
+++ vhLib/Logger.cls.xml	(.../Logger.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-02-16 13:28:34">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 13:15:51">
 <Class name="vhLib.Logger">
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62138,48570.379282</TimeChanged>
+<TimeChanged>62200,47767.38487</TimeChanged>
 <TimeCreated>62137,61022.12517</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -153,13 +153,21 @@
 </Method>
 
 <Method name="ClearOldLogItems">
+<Description>
+Do ##class(vhLib.Logger).ClearOldLogItems(30,30,10,10)</Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>Days:%Integer=30</FormalSpec>
+<FormalSpec>DaysError:%Integer=30,DaysWarning:%Integer=30,DaysInformation:%Integer=10,DaysDebug:%Integer=10</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-	Set OldDateTime = $h-Days	
+	Set OldDateTimeError = $h-DaysError	
+	Set OldDateTimeWarning = $h-DaysWarning
+	Set OldDateTimeInformation = $h-DaysInformation
+	Set OldDateTimeDebug = $h-DaysDebug
 	Set Server = $$$Server
-	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTime AND Server=:Server)	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeError AND Server=:Server AND Niveau = 'E')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeWarning AND Server=:Server AND Niveau = 'W')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeInformation AND Server=:Server AND Niveau = 'I')	
+	&sql(DELETE FROM vhLib.Logging WHERE Datum<:OldDateTimeDebug AND Server=:Server AND Niveau = 'D')	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -186,5 +194,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2185134709"/>
+<Checksum value="1238874269"/>
 </Export>
Index: TECH/File.cls.xml
===================================================================
diff -u -r788 -r1019
--- TECH/File.cls.xml	(.../File.cls.xml)	(revision 788)
+++ TECH/File.cls.xml	(.../File.cls.xml)	(revision 1019)
@@ -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-02-03 16:56:48">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:46">
 <Class name="TECH.File">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Library.File</Super>
@@ -61,5 +61,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="3819800779"/>
+<Checksum value="845424074"/>
 </Export>
Index: TECH/Events/OrderCreatedEventData.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderCreatedEventData.cls.xml	(.../OrderCreatedEventData.cls.xml)	(revision 924)
+++ TECH/Events/OrderCreatedEventData.cls.xml	(.../OrderCreatedEventData.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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-02-16 13:34:14">
-<Class name="TECH.Events.OrderCreatedEventData">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.EventData</Super>
-<TimeChanged>62138,48910.102067</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.OV.Order</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Order = Order
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="970822235"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:45">
+<Checksum value="4048975540"/>
 </Export>
Index: DOM/Halux/TBX/enu/TransferLijn.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/enu/TransferLijn.cls.xml	(.../TransferLijn.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/enu/TransferLijn.cls.xml	(.../TransferLijn.cls.xml)	(revision 1019)
@@ -1,16 +1,4 @@
 <?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-02-01 17:19:24">
-<Class name="DOM.Halux.TBX.enu.TransferLijn">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62123,62406.355526</TimeChanged>
-<TimeCreated>62123,54831.022184</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,L1,L2,DI</Default>
-</Parameter>
-</Class>
-<Checksum value="1118231293"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:27">
+<Checksum value="3619290374"/>
 </Export>
Index: zTryout/ARC/DOM/PM/AdministratiefProduct.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/PM/AdministratiefProduct.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/PM/AdministratiefProduct.cls.xml	(revision 1019)
@@ -0,0 +1,41 @@
+<?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-04-15 16:29:40">
+<Class name="zTryout.ARC.DOM.PM.AdministratiefProduct">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,59393.076174</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefKorttekst">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefLangtekst">
+<Abstract>1</Abstract>
+<FormalSpec>Taal:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefOmschrijving">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="GeefOpeningDatum">
+<Abstract>1</Abstract>
+<ReturnType>%Date</ReturnType>
+</Method>
+
+<Method name="GeefPRNr">
+<Abstract>1</Abstract>
+<ReturnType>%Integer</ReturnType>
+</Method>
+
+<Method name="GeefIdentNr">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+</Class>
+<Checksum value="2688184657"/>
+</Export>
Index: zTryout/JBL/Proc/1.int.rou
===================================================================
diff -u
--- zTryout/JBL/Proc/1.int.rou	(revision 0)
+++ zTryout/JBL/Proc/1.int.rou	(revision 1019)
@@ -0,0 +1,515 @@
+	;zTryout.JBL.Proc.1
+	;(C)InterSystems, generated for class zTryout.JBL.Proc.  Do NOT edit. 04/13/2011 10:26:32AM
+	;;6C099F9A6818C9DD;zTryout.JBL.Proc
+	Quit
+	;
+%AcquireLock(%this,locktype) n id,sc
+	s id=..%Id() QUIT:$g(id)="" $$Error^%apiOBJ(5812)
+	s sc=1
+	i $g(locktype)="e" l +(^zTryout.JBL.ProcD(id)):$zu(115,4) s:'$t sc=$$Error^%apiOBJ(5803) QUIT sc
+	i $g(locktype)="s" l +(^zTryout.JBL.ProcD(id)#"S"):$zu(115,4) s:'$t sc=$$Error^%apiOBJ(5804) QUIT sc
+	QUIT $$Error^%apiOBJ(5806,locktype)
+%BMEBuilt(bmeName) Quit 1
+%BuildIndices(idxlist) Set idxlist=$get(idxlist) QUIT 1
+%CheckUnique(idxlist) public { Set idxlist=$get(idxlist) QUIT $$Error^%apiOBJ(5758,"%Persistent::%CheckUnique") }
+%ClassName(fullname) public { Quit $select($get(fullname,0):"zTryout.JBL.Proc",1:"Proc") }
+%Close(%this) Quit ..%Close()
+%Destruct(%this) public { Set oid=$zobjval(,0,,,,3)
+	If oid'="" { If $zobjval(,1,0,3,1)=3 { Do ..%ReleaseLock("s") } ElseIf $zobjval(,1,0,3,1)=4 { Do ..%ReleaseLock("e") } s $zobjoid($lg(oid,2),$lg(oid))="" }
+	Kill %objtxLIST(+%this),%objtxOIDASSIGNED(+%this),%objtxMODIFIED(+%this)
+	Quit 1 }
+%ConstructClone(%this,deep,cloned) public { Set deep=$get(deep,0) Set object=%this
+	If $data(cloned(+object)) Do (cloned(+object)).%IncrementCount() Quit cloned(+object)
+	Set %this=$zobjnew("zTryout.JBL.Proc")
+	Set cloned(+object)=%this,cloned(+object,0)=object
+	s $zobjmod(,0)=1
+	Set $zobjval(,1)=$zobjval(object,1),$zobjval(,2)=$zobjval(object,2)
+	Quit %this }
+%Delete(oid,concurrency) public { Set oid=$get(oid),concurrency=$get(concurrency,-1) Quit:oid="" $$Error^%apiOBJ(5813) Set id=$lg(oid) Quit:id="" $$Error^%apiOBJ(5812)
+	If concurrency = -1 Set concurrency=$zu(115,10)
+	If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828)
+	Set class=$lg(oid,2)
+	If class="" { Set sc=##class(zTryout.JBL.Proc).%OnDetermineClass(oid,.class) Quit:('sc) sc Set oid=$s(oid="":"",1:$lb($lg(oid),class)) } Else { Set class=$s(class[".":class,$e(class)'="%":"User."_class,1:"%Library."_$e(class,2,$l(class))) }
+	If "zTryout.JBL.Proc"'=class Quit $zobjclassmethod(class,"%Delete",oid)
+	If +$g(%objtxSTATUS)=0 { Set traninit=1 k %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxOIDUNASSIGNED,%objtxMODIFIED k:'$TLevel %0CacheLock i '$zu(115,9) { s %objtxSTATUS=1 } else { s %objtxSTATUS=2 TStart } } Else { Set traninit=0 }
+	s oref=$zobjoid($lg(oid,2),$lg(oid))
+	If $isobject(oref) { New %this Set %this=oref If %this.%Concurrency>2 { s sc=%this.%ReleaseLock($Select(%this.%Concurrency=3:"s",1:"e")) } i $g(%objtxSTATUS)=2 { s %objtxOIDUNASSIGNED(+oref)=oid,%objtxLIST(+oref)=oref s %objtxMODIFIED(+oref)=$zobjval(oref,0) } s $zobjmod(oref,0)=1 Set $zobjval(oref,0,,,,3)="" s $zobjoid($lg(oid,2),$lg(oid))="" }
+	Set sc=##class(zTryout.JBL.Proc).%DeleteData(id,concurrency)
+%DeleteEnd	If traninit { If (+sc) { i $g(%objtxSTATUS)=1 { k %objtxSTATUS } else { TCommit  k %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxOIDUNASSIGNED,%objtxMODIFIED k:'$TLevel %0CacheLock } } Else { i $g(%objtxSTATUS)=2 { k %0CacheLock s sc=$select(+sc:$$%TRollBack^%occTransaction(),1:$$AppendStatus^%occSystem(sc,$$%TRollBack^%occTransaction())) } else { k %objtxSTATUS } } }
+	Quit sc }
+%DeleteData(id,concurrency) QUIT:id="" $$Error^%apiOBJ(5812)
+	n extentlock,sc
+	s extentlock=0,sc=""
+	If concurrency { If '$tlevel { Kill %0CacheLock } If $i(%0CacheLock("zTryout.JBL.Proc"))>1000 { Lock +(^zTryout.JBL.ProcD):$zu(115,4) Set extentlock=$test Lock:extentlock -(^zTryout.JBL.ProcD) } If 'extentlock { Lock +(^zTryout.JBL.ProcD(id)):$zu(115,4) } If '$test { QUIT $$Error^%apiOBJ(5803) }}
+	s:($d(^zTryout.JBL.ProcD(id))) sc=1
+	i (+sc) DO
+	. k ^zTryout.JBL.ProcD(id)
+	If (concurrency) && ('extentlock) { Lock -(^zTryout.JBL.ProcD(id)) }
+	QUIT $s(sc'="":sc,1:$$Error^%apiOBJ(5810))
+%DeleteExtent(concurrency,deletecount,instancecount) public { Set concurrency=$get(concurrency,-1) If concurrency = -1 Set concurrency=$zu(115,10)
+	If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828)
+	Set deletecount=0,instancecount=0
+	Set sc=##class(zTryout.JBL.Proc).ExtentExecute(.qh) Quit:('sc) sc
+	For  Set sc=##class(zTryout.JBL.Proc).ExtentFetch(.qh,.row,.atend) Quit:$select(row="":1,('sc):1,1:0)  Set id=$listget(row) If id'="" Set sc=##class(zTryout.JBL.Proc).%Delete($listbuild(id),concurrency) Set instancecount=instancecount+1 Set:(+sc) deletecount=deletecount+1 Quit:atend
+	Do ##class(zTryout.JBL.Proc).ExtentClose(qh)
+	If instancecount = deletecount { Do ##class(zTryout.JBL.Proc).%PurgeIndices() }
+	Quit 1 }
+%DeleteId(id,concurrency) public { Set concurrency=$get(concurrency,-1) Quit ##class(zTryout.JBL.Proc).%Delete($s(id="":"",1:$lb(id_"")),.concurrency) }
+%DowngradeConcurrency(%this,concurrency) public { Set concurrency=$get(concurrency,0) If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828)
+	Set current=$zobjval(,1,0,3,1)
+	If concurrency>current Quit 1
+	If current<3||(current=concurrency) Set:concurrency<current $zobjval(,1,0,3,1)=concurrency Quit 1
+	If concurrency>2 Set sc=..%AcquireLock($select(concurrency=3:"s",1:"e")) Quit:('sc) sc
+	Do ..%ReleaseLock($select(current=3:"s",1:"e"))
+	Set $zobjval(,1,0,3,1)=concurrency
+	Quit 1 }
+%Exists(oid) Set oid=$get(oid) Quit ##class(zTryout.JBL.Proc).%ExistsId($lg(oid))
+%ExistsId(id) Quit ($s($g(id)="":0,($d(^zTryout.JBL.ProcD(id))):1,1:0))
+%Extends(isclass) public { Quit "~zTryout.JBL.Proc~%Library.Persistent~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") }
+%GetParameter(paramname) public { Set paramname=$get(paramname) Quit $case(paramname,"DEFAULTCONCURRENCY":"$zu(115,10)","EXTENTSIZE":100000,"OBJJOURNAL":0,"PROPERTYVALIDATION":2,"READONLY":0,"SQLENABLED":1,"STORAGECOMPILERCLASS":"%Compiler.Storage.Cache",:"") }
+%GetSwizzleObject(%this,force,oid) public { Set force=$get(force,0) Set oid="" If force=0 Set oid=(..%Oid()) Quit 1
+	If force=2 Set sc=..%Save(1) Set:(+sc) oid=(..%Oid()) Quit sc
+	Set oid=(..%Oid()) Quit:oid'="" 1
+	Set sc=..%Save(0) Set:(+sc) oid=..%Oid()
+	Quit sc }
+%Id(%this) Quit $lg($zobjval(%this,0,,,,3))
+%IdSet(%this,id) public { Set oid=$s(id="":"",1:$lb(id_"","zTryout.JBL.Proc"))
+	If $zobjval(,0,,,,3)'="",$zobjval(,0,,,,3)'=oid Quit $$Error^%apiOBJ(5814)
+	Set $zobjval(,0,,,,3)=oid s $zobjoid($lg(oid,2),$lg(oid))=%this
+	Quit 1 }
+%IncrementCount(%this) Quit ..%IncrementCount()
+%IsA(isclass) public { Quit "~zTryout.JBL.Proc~%Library.Persistent~%Library.RegisteredObject~"[("~"_$s(isclass[".":isclass,$e(isclass)'="%":"User."_isclass,1:"%Library."_$e(isclass,2,$l(isclass)))_"~") }
+%IsModified(%this) public { Quit $zobjmod(,0) }
+%KillExtent() n sc,subextent
+	s subextent="" f  s subextent=$o(^oddMAP("zTryout.JBL.Proc","Z",subextent)) q:subextent=""  s sc=$zobjclassmethod(subextent,"%KillExtent")
+	s sc=##class(zTryout.JBL.Proc).%PurgeIndices() q:('sc) sc
+	k ^zTryout.JBL.ProcD
+	QUIT 1
+%Load(%this,id) public { Set sc=..%IdSet(id) Quit:('sc) sc
+	Set sc=..%LoadData(id) Quit:('sc) sc
+	Quit 1 }
+%LoadData(%this,id) n sc
+	s sc=""
+	i $zobjval(,1,0,3,1)=4 l +(^zTryout.JBL.ProcD(id)):$zu(115,4) i '$t QUIT $$Error^%apiOBJ(5803)
+	i $zobjval(,1,0,3,1)'=4,$zobjval(,1,0,3,1)>1 l +(^zTryout.JBL.ProcD(id)#"S"):$zu(115,4) i '$t QUIT $$Error^%apiOBJ(5804)
+	i '$d(^zTryout.JBL.ProcD(id)) DO
+	e  DO
+	. n %s1
+	. s sc=1
+	. s %s1=$g(^zTryout.JBL.ProcD(id))
+	i $zobjval(,1,0,3,1)=2 l -(^zTryout.JBL.ProcD(id)#"SI")
+	QUIT $s(sc'="":sc,1:$$Error^%apiOBJ(5809))
+%New(initvalue) public { Quit ##class(zTryout.JBL.Proc).%New($get(initvalue))
+}
+%Construct(%this,p1,p2,p3,p4,p5,p6,p7,p8,p9,p10) Set $zobjval(,1,0,3,1)=$zu(115,10),$zobjval(,2,0,3,2)=0
+	Quit 1
+%NormalizeObject(%this) Quit 1
+%ObjectModified(%this) public { Quit ''$zobjmod(,0) }
+%Oid(%this) Quit $zobjval(%this,0,,,,3)
+%OnDetermineClass(oid,class) n id,idclass
+	Set id=$lg($get(oid)) QUIT:id="" $$Error^%apiOBJ(5812)
+	s idclass=$lg($g(^zTryout.JBL.ProcD(id)),1)
+	i idclass="" s class="zTryout.JBL.Proc" Quit 1
+	s class=$p(idclass,$e(idclass),$l(idclass,$e(idclass))-1)
+	s:class'["." class="User."_class
+	QUIT 1
+%Open(oid,concurrency,sc) public { Set concurrency=$get(concurrency,-1),sc=$get(sc,1) If $lg($g(oid))="" Set sc = $$Error^%apiOBJ(5813) Quit ""
+	If concurrency = -1 Set concurrency=$zu(115,10)
+	If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Set sc = $$Error^%apiOBJ(5828) Quit ""
+	New %this Set class=$lg(oid,2)
+	If class="" { Set sc=##class(zTryout.JBL.Proc).%OnDetermineClass(oid,.class) Quit:('sc) "" Set oid=$s(oid="":"",1:$lb($lg(oid),class)) } Else { Set class=$s(class[".":class,$e(class)'="%":"User."_class,1:"%Library."_$e(class,2,$l(class))) }
+	If "zTryout.JBL.Proc"'=class Quit $zobjclassmethod(class,"%Open",oid,concurrency,.sc)
+	s %this=$zobjoid($lg(oid,2),$lg(oid))
+	If %this'="" { If concurrency>$zobjval(,1,0,3,1) { Set sc=..%UpgradeConcurrency(concurrency) If ('sc) { Quit "" } } d %this.%IncrementCount() Quit %this }
+	Set %this=$zobjnew("zTryout.JBL.Proc")
+	Set $zobjval(,1,0,3,1)="",$zobjval(,1,0,3,1)=concurrency
+	Set sc=..%Load($lg(oid)) If ('sc) Do ..%Close() Quit ""
+	Set $zobjval(,2,0,3,2)=0
+	s $zobjmod(,0)=0
+	Quit %this
+}
+%OpenId(id,concurrency,sc) public { Set concurrency=$get(concurrency,-1),sc=$get(sc,1) Quit ##class(zTryout.JBL.Proc).%Open($s(id="":"",1:$lb(id_"")),.concurrency,.sc) }
+%PackageName() Quit "zTryout.JBL"
+%PurgeIndices(idxlist) Set idxlist=$get(idxlist) QUIT 1
+%ReleaseLock(%this,locktype) n id,sc
+	s id=..%Id() QUIT:$g(id)="" $$Error^%apiOBJ(5812)
+	s sc=1
+	i $g(locktype)="e" l -(^zTryout.JBL.ProcD(id)) QUIT 1
+	i $g(locktype)="s" l -(^zTryout.JBL.ProcD(id)#"S") QUIT 1
+	i $g(locktype)="si" l -(^zTryout.JBL.ProcD(id)#"SI") QUIT 1
+	QUIT $$Error^%apiOBJ(5806,locktype)
+%Reload(%this) public { If ..%Id()="" Quit $$Error^%apiOBJ(5813)
+	Set cur=$zobjval(,1,0,3,1),$zobjval(,1,0,3,1)=0
+	Set sc=..%Load(..%Id()) Set $zobjval(,1,0,3,1)=cur If ('sc) Do ..%Close() Quit ""
+	Set $zobjval(,2,0,3,2)=0
+	s $zobjmod(,0)=0
+	Quit 1 }
+%RollBack(%this) public { If $data(%objtxMODIFIED(+%this)) s $zobjval(,0)=%objtxMODIFIED(+%this)
+	Quit 1 }
+%Save(%this,related) public { Set related=$get(related,1) Set $ZTrap="%SaveERR"
+	New %objTX Set sc=1,traninit=0
+	If $zobjval(,2,0,3,2) Set sc=..%AddToSaveSet(1) Quit:('sc) sc Set intRef=+%this,objValue=$get(%objTX(1,intRef,1)),sc=..%SerializeObject(.objValue,1) Set:(+sc) %objTX(1,intRef,1)=objValue Quit sc
+	If +$g(%objtxSTATUS)=0 { Set traninit=1 Kill %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxMODIFIED If '$zu(115,9) { Set %objtxSTATUS=1 } Else { Set %objtxSTATUS=2,%objtxLIST(+%this)="" TStart } }
+	Set sc=..%AddToSaveSet(related+2) If ('sc) ZTrap "SG"
+	Set intRef = $Order(%objTX(4,""),1,objRef)
+	While intRef '= "" {
+		If '$Data(%objTX(5,intRef)) { Set sc=objRef.%AddToSaveSet(related+2) Set %objTX(5,intRef) = objRef If ('sc) { ZTrap "SG" } }
+		Kill %objTX(4,intRef)
+		Set intRef = $Order(%objTX(4,""),1,objRef)
+	}
+	If '$data(%objTX(2)) s sc=1 GoTo %SaveCOMMIT
+	Set %objTX(3)=0,intRef="" For  Set intRef=$order(%objTX(2,intRef)) Quit:intRef=""  If '$data(%objTX(1,intRef,2)) Set %objTX(3,$increment(%objTX(3)))=%objTX(1,intRef) Kill %objTX(2,intRef)
+	For  Quit:%objTX(3)<1  Set ptr=%objTX(3),objRef=%objTX(3,ptr),%objTX(3)=%objTX(3)-1 Kill %objTX(3,ptr) Set intRef=+objRef,objValue=$get(%objTX(1,intRef,1)),sc=objRef.%SerializeObject(.objValue) Do  Set %objTX(1,intRef,1)=objValue Kill %objTX(1,intRef,3) s $zobjmod(objRef,0)=0
+	. If ('sc) Kill:$g(%objtxSTATUS)=2 %objtxLIST(+objRef),%objtxMODIFIED(+objRef) ZTrap "SG"
+	. If $g(%objtxSTATUS)=2,objRef.%IsModified() s %objtxMODIFIED(+objRef)=$zobjval(objRef,0)
+	. Set intSucc="" For  Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc=""  Kill %objTX(1,intRef,3,intSucc),%objTX(1,intSucc,2,intRef) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$increment(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc)
+	For  Set pserial=0 Do  Quit:'pserial
+	. Set intRef="" For  Set intRef=$order(%objTX(2,intRef)) Quit:intRef=""  Set intPred="" For  Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred=""  If %objTX(1,intPred,6)=1 Set objValue=$get(%objTX(1,intPred,1)),sc=(%objTX(1,intPred)).%SerializeObject(.objValue,1) If (+sc) Set pserial=1,%objTX(1,intPred,1)=objValue Do
+	. . Set intSucc="" For  Set intSucc=$order(%objTX(1,intPred,3,intSucc)) Quit:intSucc=""  Kill %objTX(1,intPred,3,intSucc),%objTX(1,intSucc,2,intPred) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$i(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc)
+	. . For  Quit:%objTX(3)<1  Set ptr=%objTX(3),objSerialize=%objTX(3,ptr),%objTX(3)=%objTX(3)-1 Kill %objTX(3,ptr) Set intSerialize=+objSerialize,objValue=$get(%objTX(1,intSerialize,1)),sc=objSerialize.%SerializeObject(.objValue) Do  Set %objTX(1,intSerialize,1)=objValue Kill %objTX(1,intSerialize,3) s $zobjmod(objSerialize,0)=0
+	. . . If ('sc) Kill:$g(%objtxSTATUS)=2 %objtxLIST(+objSerialize),%objtxMODIFIED(+objSerialize) ZTrap "SG"
+	. . . If $g(%objtxSTATUS)=2,objSerialize.%IsModified() s %objtxMODIFIED(+objSerialize)=$zobjval(objSerialize,0)
+	. . . Set intSucc="" For  Set intSucc=$order(%objTX(1,intSerialize,3,intSucc)) Quit:intSucc=""  Kill %objTX(1,intSerialize,3,intSucc),%objTX(1,intSucc,2,intSerialize) If '$data(%objTX(1,intSucc,2)) Set %objTX(3,$i(%objTX(3)))=%objTX(1,intSucc) Kill %objTX(2,intSucc)
+	If $data(%objTX(2))>2 Set sc=$$Error^%apiOBJ(5827) ZTrap "SG"
+%SaveCOMMIT	If traninit { If $g(%objtxSTATUS)=1 { Kill %objtxSTATUS } Else { TCommit  Kill %objtxSTATUS,%objtxLIST,%objtxOIDASSIGNED,%objtxMODIFIED Set sc=1 } }
+	s $zobjmod(,0)=0 Quit sc
+%SaveERR	Set $ZTrap="" If $extract($zerror,1,5)'="<ZSG>" Set sc=$$Error^%apiOBJ(5002,$ZE)
+	Set:traninit sc=$select(+sc:$$%TRollBack^%occTransaction(),1:$$AppendStatus^%occSystem(sc,$$%TRollBack^%occTransaction()))
+	Quit sc }
+%SaveData(%this,id) n idassigned,idclass,insert,lock,sc
+	Set sc=1,id=..%Id() If id'="" { Set insert=0,idassigned=1 } Else { Set insert=1,idassigned=0 }
+	s idclass=""
+	Set lock=0
+	i 'insert,'(($d(^zTryout.JBL.ProcD(id)))) s insert=1
+	If insert DO
+	. s:'idassigned id=$i(^zTryout.JBL.ProcD)
+	. i $zobjval(,1,0,3,1)=4 l +(^zTryout.JBL.ProcD(id)):$zu(115,4) e  s sc=$$Error^%apiOBJ(5803) q
+	. i 'idassigned s sc=..%IdSet(id) q:('sc)  s:$g(%objtxSTATUS)=2 %objtxOIDASSIGNED(+%this)=""
+	. s ^zTryout.JBL.ProcD(id)=$lb("")
+	. i $zobjval(,1,0,3,1)=3 l +(^zTryout.JBL.ProcD(id)#"S")
+	If 'insert DO
+	. i $zobjval(,1,0,3,1) l +(^zTryout.JBL.ProcD(id)):$zu(115,4) s lock=$t e  s sc=$$Error^%apiOBJ(5803) q
+	. s ^zTryout.JBL.ProcD(id)=$lb("")
+	i lock l -(^zTryout.JBL.ProcD(id))
+	QUIT sc
+%SerializeObject(%this,serial,partial) Set partial=$get(partial,0) New %objOBJ,sc,id
+	Set $Ztrap = "%SerializeObjectERR"
+	If $zobjval(,2,0,3,2) { Set partial = 1 } ElseIf ('partial) { Set $zobjval(,2,0,3,2) = 1 }
+	Set sc=..%ValidateObject() If ('sc) { Ztrap "SO" }
+	Set sc=..%NormalizeObject() If ('sc) { Ztrap "SO" }
+	s:$g(%objtxSTATUS)=2 %objtxLIST(+%this)=%this
+	Set id=$lg(serial),sc=..%SaveData(.id) If ('sc) { Ztrap "SO" }
+	Set serial=(..%Oid())
+	If 'partial { Set $zobjval(,2,0,3,2) = 0 }
+	Quit sc
+%SerializeObjectERR	Set $ZTrap="" If $extract($zerror,1,5)'="<ZSO>" Set sc=$$Error^%apiOBJ(5002,$ZE)
+	If 'partial { Set $zobjval(,2,0,3,2) = 0 }
+	Quit sc
+%AddToSaveSet(%this,depth,refresh,norecurseon) public { Set depth=$get(depth,3),refresh=$get(refresh,0),norecurseon=$get(norecurseon) If ($data(%objTX(1,+%this))) && ('refresh) Quit 1
+	Set sc=1,intOref=+%this
+	If refresh {
+		Set intPoref=$order(%objTX(1,intOref,2,""))
+		While intPoref'="" { Kill %objTX(1,intPoref,3,intOref),%objTX(1,intOref,2,intPoref) Set intPoref=$order(%objTX(1,intOref,2,intPoref)) }
+	}
+	Set serial=..%Oid(),%objTX(1,intOref)=%this,%objTX(1,intOref,1)=serial,%objTX(1,intOref,6)=1 If (serial '= "") && (depth<2) Quit 1
+	Set tDepth=$select(depth'=2:depth,1:1)
+	If ..%ObjectModified() Set %objTX(2,intOref)=1
+exit	Quit sc }
+%RemoveFromSaveSet(%this) public {
+	If '($data(%objTX(1,+%this))) Quit 1
+	Set intRef=+%this
+	Set intSucc="" For  Set intSucc=$order(%objTX(1,intRef,3,intSucc)) Quit:intSucc=""  Kill %objTX(1,intSucc,2,intRef)
+	Set intPred="" For  Set intPred=$order(%objTX(1,intRef,2,intPred)) Quit:intPred=""  Kill %objTX(1,intPred,3,intRef)
+	Kill %objTX(1,intRef),%objTX(2,intRef)
+	Quit 1 }
+%SetModified(%this,value) public { s $zobjmod(,0)=value
+	Quit 1 }
+%SortBegin(idxlist,excludeunique) Set idxlist=$get(idxlist),excludeunique=$get(excludeunique,0) QUIT 1
+%SortEnd(idxlist,commit) Set idxlist=$get(idxlist),commit=$get(commit,1) QUIT 1
+%UpgradeConcurrency(%this,concurrency) public { Set concurrency=$get(concurrency,0) If (concurrency > 4) || (concurrency < 0) || (concurrency '= (concurrency\1)) Quit $$Error^%apiOBJ(5828)
+	Set current=$zobjval(,1,0,3,1)
+	Quit:concurrency<current 1
+	If concurrency<3||(current=concurrency) Set:concurrency>current $zobjval(,1,0,3,1)=concurrency Quit 1
+	Set sc=..%AcquireLock($select(concurrency=3:"s",1:"e")) Quit:('sc) sc
+	If current=3 Do ..%ReleaseLock("s")
+	Set $zobjval(,1,0,3,1)=concurrency
+	Quit 1 }
+%ValidateObject(%this,force) Set force=$get(force,0) Quit 1
+%ConcurrencyIsModified(%this) Quit $zobjmod(,1)
+%ConcurrencyIsValid(value) public { Quit 1 }
+%ConcurrencySetModified(%this,newvalue) public { Set $zobjmod(,1)=newvalue Quit 1 }
+%IsInSaveIsModified(%this) Quit $zobjmod(,2)
+%IsInSaveIsValid(value) public { Quit 1 }
+%IsInSaveSetModified(%this,newvalue) public { Set $zobjmod(,2)=newvalue Quit 1 }
+zExtentExecute(%qHandle) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 
+	Set sc=1
+	s %qHandle=$i(%objcn)
+	 ;---&sql(DECLARE Q27 CURSOR FOR
+		 ;---		 SELECT ID FROM zTryout_JBL.Proc)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	
+	 ;---&sql(OPEN Q27)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	Do %Q270o
+	If SQLCODE Set sc=$$Error^%apiOBJ(5821,"SQLCODE = "_SQLCODE)
+	Quit sc }
+zExtentClose(%qHandle) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1 
+	 ;---&sql(CLOSE Q27)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	Do %Q270c
+	Kill %objcsc(%qHandle),%objcsp(%qHandle),%objcss(%qHandle),%objcst(%qHandle),%objcsl(%qHandle),%objcsR(%qHandle),%objcsZ(%qHandle),%objcsd(%qHandle)
+	Quit $select('SQLCODE:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) }
+zExtentFetch(%qHandle,Row,AtEnd) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1  Set AtEnd=$get(AtEnd,0) Set Row="",AtEnd=0
+	 ;---&sql(FETCH Q27 INTO :c1)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE, c1
+	Do %0Do
+	If 'SQLCODE { Set Row=$lb(c1) } Else { Set AtEnd=1 }
+	Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) }
+zExtentFetchODBC(%qHandle,array,%qacn,AtEnd,SQLCODE) [ SQLCODE,array,c1 ] public { New c1  Set AtEnd=$get(AtEnd,0) Quit:$get(%qacn)="" $$Error^%apiOBJ(6024)
+	Kill array(%qacn)
+	Set SQLCODE=0
+	Set AtEnd=0
+	 ;---&sql(FETCH Q27 INTO :array(%qacn,1))
+		 ;--- ** SQL PUBLIC Variables: SQLCODE, array
+	Do %0Eo
+	If SQLCODE=100 { Set AtEnd=1 } ElseIf SQLCODE { Quit $$Error^%apiOBJ(5521,SQLCODE_":"_$get(%msg)) }
+	Quit 1 }
+zExtentFetchRows(%qHandle,FetchCount,RowSet,ReturnCount,AtEnd) [ SQLCODE,array,c1 ] public { New SQLCODE,array,c1  Set FetchCount=$get(FetchCount,0) Set RowSet="",ReturnCount=0,AtEnd=0
+	For  {
+		 ;---&sql(FETCH Q27 INTO :c1)
+			 ;--- ** SQL PUBLIC Variables: SQLCODE, c1
+		Do %0Fo
+		If 'SQLCODE { Set RowSet=RowSet_$lb(c1),ReturnCount=ReturnCount+1 Quit:(ReturnCount=FetchCount)||(($l(RowSet)+($l(RowSet)\ReturnCount))>24000) } Else { Set AtEnd=1 Quit }
+	}
+	Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$g(%msg))) }
+	q
+%Q270o s SQLCODE=$s($g(%objcsc(%qHandle)):-101,1:0) q:SQLCODE'=0  s %objcsd(%qHandle,4)=0 s %objcsd(%qHandle,5)=0,%objcsd(%qHandle,6)=""
+	s %objcsc(%qHandle)=1 q
+%0first 
+	; asl MOD# 2
+	s %objcsd(%qHandle,1)=""
+%0Bk1 s %objcsd(%qHandle,1)=$o(^zTryout.JBL.ProcD(%objcsd(%qHandle,1)))
+	i %objcsd(%qHandle,1)="" g %0Bdun
+	s %objcsd(%qHandle,3)=%objcsd(%qHandle,1)
+	g:$zu(115,2)=0 %0Buncommitted i $zu(115,2)=1 l +^zTryout.JBL.ProcD(%objcsd(%qHandle,1))#"S":$zu(115,4) i $t { s %objcsd(%qHandle,5)=1,%objcsd(%qHandle,6)=$name(^zTryout.JBL.ProcD(%objcsd(%qHandle,1)))_"#""SI""" } else { s SQLCODE=-114,%msg="Unable to acquire shared lock on table zTryout_JBL.Proc for RowID value: "_%objcsd(%qHandle,1) q  }
+	; asl MOD# 3
+	i %objcsd(%qHandle,1)'="",$d(^zTryout.JBL.ProcD(%objcsd(%qHandle,1)))
+	e  g %0Cdun
+	s %objcsd(%qHandle,3)=%objcsd(%qHandle,1)
+%0Buncommitted ;
+	s:$g(SQLCODE)'<0 SQLCODE=0 s %ROWCOUNT=$i(%objcsd(%qHandle,4)) s %objcsc(%qHandle)=10 q
+%Q270f i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q  } i %objcsc(%qHandle)=100 { s SQLCODE=100 q  } s SQLCODE=0
+	s $zt="%0err" s $ze="" g %0first:%objcsc(%qHandle)=1
+%0Cdun i $zu(115,2)=1,$g(%objcsd(%qHandle,5))=1 { l -@%objcsd(%qHandle,6) }
+	g %0Bk1
+%0Bdun 
+%0Adun 
+	s %ROWCOUNT=%objcsd(%qHandle,4),SQLCODE=100,%objcsc(%qHandle)=100 q
+%Q270c i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q  } s %ROWCOUNT=+$g(%objcsd(%qHandle,4))
+	i $zu(115,2)=1,$g(%objcsd(%qHandle,5))=1 { l -@%objcsd(%qHandle,6) } k %objcsd(%qHandle),%objcsc(%qHandle) s SQLCODE=0 q
+%0err s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg) s %objcsc(%qHandle)=100 q
+%0Do d %Q270f q:SQLCODE'=0
+	s c1=%objcsd(%qHandle,3)
+	q
+%0Eo d %Q270f q:SQLCODE'=0
+	s array(%qacn,1)=%objcsd(%qHandle,3)
+	q
+%0Fo d %Q270f q:SQLCODE'=0
+	s c1=%objcsd(%qHandle,3)
+	q
+zExtentGetInfo(colinfo,parminfo,idinfo,%qHandle,extoption,extinfo) public { Set extoption=$get(extoption,0) s parminfo=""
+	s:'($d(^oddCOM("zTryout.JBL.Proc","q","Extent",21),clientinfo)#2)&&'$s($d(^(2),clientinfo)#2:$d(^oddCOM(clientinfo,"q","Extent",21),clientinfo)#2||($d(^oddDEF(clientinfo,"q","Extent",21),clientinfo)#2),1:$d(^oddDEF("zTryout.JBL.Proc","q","Extent",21),clientinfo)#2) clientinfo=$g(^%qCacheObjectKey(1,"q",21))
+	Set:extoption extinfo=$s($d(^oddCOM("zTryout.JBL.Proc","q","Extent",38))#2:^(38),$d(^oddCOM($g(^(2),"zTryout.JBL.Proc"),"q","Extent",38))#2:^(38),1:$s($d(^oddDEF($g(^(2),"zTryout.JBL.Proc"),"q","Extent",38))#2:^(38),1:$g(^%qCacheObjectKey(1,"q",38))))
+	If clientinfo'="" Set colinfo=$listget(clientinfo,1),parminfo=$listget(clientinfo,2),idinfo=$listget(clientinfo,3) Quit 1
+	Set colinfo="",parminfo="",idinfo=$listbuild(0)
+	Set sc=$$externaltype^%apiOLE("%Library.Integer",.exttypes,"0")
+	Quit:('sc) sc
+	s:'($d(^oddCOM("zTryout.JBL.Proc","q","Extent",23),names)#2)&&'$s($d(^(2),names)#2:$d(^oddCOM(names,"q","Extent",23),names)#2||($d(^oddDEF(names,"q","Extent",23),names)#2),1:$d(^oddDEF("zTryout.JBL.Proc","q","Extent",23),names)#2) names=$g(^%qCacheObjectKey(1,"q",23))
+	s:'($d(^oddCOM("zTryout.JBL.Proc","q","Extent",22),captions)#2)&&'$s($d(^(2),captions)#2:$d(^oddCOM(captions,"q","Extent",22),captions)#2||($d(^oddDEF(captions,"q","Extent",22),captions)#2),1:$d(^oddDEF("zTryout.JBL.Proc","q","Extent",22),captions)#2) captions=$g(^%qCacheObjectKey(1,"q",22))
+	For i=1:1:1 Set colinfo=colinfo_$listbuild($listbuild($listget(names,i),$piece(exttypes,",",i),$listget(captions,i)))
+	Set idinfo=$listbuild(1)
+	s ^oddCOM("zTryout.JBL.Proc","q","Extent",21)=$listbuild(colinfo,parminfo,idinfo)
+	Quit 1 }
+zExtentGetODBCInfo(colinfo,parminfo,qHandle) public { Set version = $Select($Get(%protocol,31)>30:3,%protocol>14:2,1:1)
+	If $Get(^oddPROC("ZTRYOUT_JBL","PROC_EXTENT",21))'="" { Set sc = 1, metadata=$Select(version=3:^oddPROC("ZTRYOUT_JBL","PROC_EXTENT",12),1:^oddPROC("ZTRYOUT_JBL","PROC_EXTENT",12,version)) }
+	ElseIf $Data(^oddPROC("ZTRYOUT_JBL","PROC_EXTENT")) { Set sc = $$CompileSignature^%ourProcedure("ZTRYOUT_JBL","PROC_EXTENT",.metadata,.signature) }
+	Else { Set sc = $$Error^%apiOBJ(5068,"zTryout.JBL.Proc:Extent") }
+	If (+sc) { Set colcount=$li(metadata,2),cmdlen=colcount*$Case(version,3:9,2:9,1:7,:9),colinfo=$li(metadata,2,2+cmdlen),parmcount=$li(metadata,cmdlen+3),pmdlen=parmcount*$Case(version,3:6,:4),parminfo=$li(metadata,cmdlen+3,cmdlen+pmdlen+3) }
+	Quit sc }
+zExtentPrepare(qHandle,statement,containid,optional) public { Set containid=$get(containid,0) Quit 1 }
+zExtentSendODBC(qHandle,array,qacn,%qrc,piece,ColumnCount) public {
+SPInnerLoop	Set rc=##class(zTryout.JBL.Proc).ExtentFetchODBC(.qHandle,.array,qacn,,.%qrc)
+	If ('rc) { Do ProcessError^%ourProcedure(rc,%sqlcontext,.%qrc,.%msg) Do Logerr^%qserver(%qrc,"","SP",.%msg) }
+	If %qrc Set piece=0 Quit
+	For piece=1:1:ColumnCount { Goto:$zobjexport(array(qacn,piece),7) SPDone }
+	Goto SPInnerLoop
+SPDone	Quit }
+zGeefLoggingExecute(%qHandle) [ SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 ] public { New SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 
+	s sc=1
+	s %qHandle=$i(%objcn)
+	 ;---&sql(DECLARE Q63 CURSOR FOR
+		 ;---			SELECT Top 20 Datum , Tijd , Groep, Niveau , Actie , JobID , Detail
+		 ;---		  	FROM vhLib.Logging WHERE Niveau = 'E' OR Niveau = 'W' 
+		 ;---		  	ORDER BY Datum DESC, Tijd DESC)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	
+	 ;---&sql(OPEN Q63)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	Do %Q630o
+	If SQLCODE Set sc=$$Error^%apiOBJ(5821,"SQLCODE = "_SQLCODE)
+	Quit sc }
+zGeefLoggingClose(%qHandle) [ SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 ] public { New SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 
+	 ;---&sql(CLOSE Q63)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE
+	Do %Q630c
+	Kill %objcsc(%qHandle),%objcsp(%qHandle),%objcss(%qHandle),%objcst(%qHandle),%objcsl(%qHandle),%objcsR(%qHandle),%objcsZ(%qHandle),%objcsd(%qHandle)
+	Quit $select('SQLCODE:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) }
+zGeefLoggingFetch(%qHandle,Row,AtEnd) [ SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 ] public { New SQLCODE,array,x1,x2,x3,x4,x5,x6,x7  Set AtEnd=$get(AtEnd,0) Set Row="",AtEnd=0
+	 ;---&sql(FETCH Q63 INTO :x1,:x2,:x3,:x4,:x5,:x6,:x7)
+		 ;--- ** SQL PUBLIC Variables: SQLCODE, x1, x2, x3, x4, x5, x6, x7
+	Do %0Po
+	If 'SQLCODE { Set Row=$lb(x1)_$lb(x2)_$lb(x3)_$lb(x4)_$lb(x5)_$lb(x6)_$lb(x7) } Else { Set AtEnd=1 }
+	Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) }
+zGeefLoggingFetchODBC(%qHandle,array,%qacn,AtEnd,SQLCODE) [ SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 ] public { New x1,x2,x3,x4,x5,x6,x7  Set AtEnd=$get(AtEnd,0) Quit:$get(%qacn)="" $$Error^%apiOBJ(6024)
+	Kill array(%qacn)
+	Set SQLCODE=0
+	Set AtEnd=0
+	 ;---&sql(FETCH Q63 INTO :array(%qacn,1),:array(%qacn,2),:array(%qacn,3),:array(%qacn,4),:array(%qacn,5),:array(%qacn,6),:array(%qacn,7))
+		 ;--- ** SQL PUBLIC Variables: SQLCODE, array
+	Do %0Qo
+	If SQLCODE=100 { Set AtEnd=1 } ElseIf SQLCODE { Quit $$Error^%apiOBJ(5521,SQLCODE_":"_$get(%msg)) }
+	Quit 1 }
+zGeefLoggingFetchRows(%qHandle,FetchCount,RowSet,ReturnCount,AtEnd) [ SQLCODE,array,x1,x2,x3,x4,x5,x6,x7 ] public { New SQLCODE,array,x1,x2,x3,x4,x5,x6,x7  Set FetchCount=$get(FetchCount,0) Set RowSet="",ReturnCount=0,AtEnd=0
+	For {
+		 ;---&sql(FETCH Q63 INTO :x1,:x2,:x3,:x4,:x5,:x6,:x7)
+			 ;--- ** SQL PUBLIC Variables: SQLCODE, x1, x2, x3, x4, x5, x6, x7
+		Do %0Ro
+		If 'SQLCODE { Set RowSet=RowSet_$lb(x1)_$lb(x2)_$lb(x3)_$lb(x4)_$lb(x5)_$lb(x6)_$lb(x7),ReturnCount=ReturnCount+1 Quit:(ReturnCount=FetchCount)||(($l(RowSet)+($l(RowSet)\ReturnCount))>24000) } Else { Set AtEnd=1 Quit }
+	}
+	Quit $select('SQLCODE:1,SQLCODE=100:1,1:$$Error^%apiOBJ(5521,SQLCODE_" "_$get(%msg))) }
+	q
+%0GAs1(%val) ;
+	Quit $in(%val,"","")
+%0GBs1(%val) ;
+	q $s(%val="":"",1:$zd(%val,3))
+%0GBs2(%val) ;
+	Quit $s(%val="":"",1:$zd(%val,,,4))
+%0GBs3(%val) ;
+	q $s(%val="":"",1:$zt(%val))
+%0GBs4(%val) ;
+	Quit $s(%val="":"",1:$zt(%val))
+%Q630o s SQLCODE=$s($g(%objcsc(%qHandle)):-101,1:0) q:SQLCODE'=0  s %objcsd(%qHandle,26)=0 s %objcsd(%qHandle,27)=0,%objcsd(%qHandle,28)=""
+	s %objcsd(%qHandle,1)=$s($zu(115,5)=2:$$%0GAs1(20),1:20),%objcsd(%qHandle,9)="E",%objcsd(%qHandle,10)="W"
+	s %objcst(%qHandle,1)=$i(^mtemp0)
+	k %objcsd(%qHandle,15) s %objcsd(%qHandle,15,$s((" "_$s(%objcsd(%qHandle,9)="":"",$zstrip(%objcsd(%qHandle,9),">W")'="":$zcvt($zstrip(%objcsd(%qHandle,9),">W"),"U"),1:$c(0)))'="":(" "_$s(%objcsd(%qHandle,9)="":"",$zstrip(%objcsd(%qHandle,9),">W")'="":$zcvt($zstrip(%objcsd(%qHandle,9),">W"),"U"),1:$c(0))),1:-1E14))="" s %objcsd(%qHandle,15,$s((" "_$s(%objcsd(%qHandle,10)="":"",$zstrip(%objcsd(%qHandle,10),">W")'="":$zcvt($zstrip(%objcsd(%qHandle,10),">W"),"U"),1:$c(0)))'="":(" "_$s(%objcsd(%qHandle,10)="":"",$zstrip(%objcsd(%qHandle,10),">W")'="":$zcvt($zstrip(%objcsd(%qHandle,10),">W"),"U"),1:$c(0))),1:-1E14))=""
+	s %objcsc(%qHandle)=1 q
+%0Gfirst 
+	k ^mtemp0(%objcst(%qHandle,1),0) s ^mtemp0(%objcst(%qHandle,1),0)=$H_"^"_$J_"^"_$zu(67,11,$j)_"^"_$zu(67,12,$j)_"^"_$zu(67,15,$j)_"^"_$ZN_"^"_$zu(67,6,$j)
+	i $sortbegin(^mtemp0(%objcst(%qHandle,1),0))
+	; asl MOD# 3
+	d %0GBMod
+	i $sortend(^mtemp0(%objcst(%qHandle,1),0))
+	s %objcss(%qHandle,2)=""
+%0GCk1 s %objcss(%qHandle,2)=$zp(^mtemp0(%objcst(%qHandle,1),0,%objcss(%qHandle,2)))
+	i %objcss(%qHandle,2)="" g %0GCdun
+	s %objcsd(%qHandle,2)=$s(%objcss(%qHandle,2)=-1E14:"",1:%objcss(%qHandle,2))
+	s %objcss(%qHandle,3)=""
+%0GCk2 s %objcss(%qHandle,3)=$zp(^mtemp0(%objcst(%qHandle,1),0,%objcss(%qHandle,2),%objcss(%qHandle,3)))
+	i %objcss(%qHandle,3)="" g %0GCk1
+	s %objcsd(%qHandle,3)=$s(%objcss(%qHandle,3)=-1E14:"",1:%objcss(%qHandle,3))
+	s %objcss(%qHandle,16)=""
+%0GCk3 s %objcss(%qHandle,16)=$o(^mtemp0(%objcst(%qHandle,1),0,%objcss(%qHandle,2),%objcss(%qHandle,3),%objcss(%qHandle,16)))
+	i %objcss(%qHandle,16)="" g %0GCk2
+	s %objcsd(%qHandle,16)=$s(%objcss(%qHandle,16)=-1E14:"",1:%objcss(%qHandle,16))
+	s %objcsd(%qHandle,44)=$g(^mtemp0(%objcst(%qHandle,1),0,%objcss(%qHandle,2),%objcss(%qHandle,3),%objcss(%qHandle,16)))
+	s %objcsd(%qHandle,4)=$lg(%objcsd(%qHandle,44),6) s %objcsd(%qHandle,5)=$lg(%objcsd(%qHandle,44),10) s %objcsd(%qHandle,6)=$lg(%objcsd(%qHandle,44),2) s %objcsd(%qHandle,7)=$lg(%objcsd(%qHandle,44),8) s %objcsd(%qHandle,8)=$lg(%objcsd(%qHandle,44),4) s %objcsd(%qHandle,21)=$lg(%objcsd(%qHandle,44),5) s %objcsd(%qHandle,22)=$lg(%objcsd(%qHandle,44),9) s %objcsd(%qHandle,23)=$lg(%objcsd(%qHandle,44),1) s %objcsd(%qHandle,24)=$lg(%objcsd(%qHandle,44),7) s %objcsd(%qHandle,25)=$lg(%objcsd(%qHandle,44),3)
+	s %objcsd(%qHandle,19)=$s($zu(115,5)=1:$$%0GBs1(%objcsd(%qHandle,2)),$zu(115,5)=2:$$%0GBs2(%objcsd(%qHandle,2)),1:%objcsd(%qHandle,2))
+	s %objcsd(%qHandle,20)=$s($zu(115,5)=1:$$%0GBs3(%objcsd(%qHandle,3)),$zu(115,5)=2:$$%0GBs4(%objcsd(%qHandle,3)),1:%objcsd(%qHandle,3))
+	g:$zu(115,2)=0 %0GCuncommitted i $zu(115,2)=1 l +^vhLib.LoggingD($p(%objcsd(%qHandle,16),"||",1),$p(%objcsd(%qHandle,16),"||",2),$p(%objcsd(%qHandle,16),"||",3))#"S":$zu(115,4) i $t { s %objcsd(%qHandle,27)=1,%objcsd(%qHandle,28)=$name(^vhLib.LoggingD($p(%objcsd(%qHandle,16),"||",1),$p(%objcsd(%qHandle,16),"||",2),$p(%objcsd(%qHandle,16),"||",3)))_"#""SI""" } else { s SQLCODE=-114,%msg="Unable to acquire shared lock on table vhLib.Logging for RowID value: "_%objcsd(%qHandle,16) q  }
+	; asl MOD# 4
+	s %objcsd(%qHandle,17)=$p(%objcsd(%qHandle,16),"||"),%objcsd(%qHandle,2)=$p(%objcsd(%qHandle,16),"||",2),%objcsd(%qHandle,18)=$p(%objcsd(%qHandle,16),"||",3)
+	i %objcsd(%qHandle,17)'="",%objcsd(%qHandle,2)'="",%objcsd(%qHandle,18)'="",$d(^vhLib.LoggingD(%objcsd(%qHandle,17),%objcsd(%qHandle,2),%objcsd(%qHandle,18)))
+	e  g %0GDdun
+	s %objcsd(%qHandle,49)=$g(^vhLib.LoggingD(%objcsd(%qHandle,17),%objcsd(%qHandle,2),%objcsd(%qHandle,18)))
+	s %objcsd(%qHandle,3)=$lg(%objcsd(%qHandle,49),9) s %objcsd(%qHandle,4)=$lg(%objcsd(%qHandle,49),4) s %objcsd(%qHandle,5)=$lg(%objcsd(%qHandle,49),6) s %objcsd(%qHandle,6)=$lg(%objcsd(%qHandle,49),2) s %objcsd(%qHandle,7)=$lg(%objcsd(%qHandle,49),10) s %objcsd(%qHandle,8)=$lg(%objcsd(%qHandle,49),3)
+	s %objcsd(%qHandle,23)=%objcsd(%qHandle,6)
+	s %objcsd(%qHandle,19)=$s($zu(115,5)=1:$$%0GBs1(%objcsd(%qHandle,2)),$zu(115,5)=2:$$%0GBs2(%objcsd(%qHandle,2)),1:%objcsd(%qHandle,2))
+	s %objcsd(%qHandle,25)=%objcsd(%qHandle,8)
+	s %objcsd(%qHandle,21)=%objcsd(%qHandle,4)
+	s %objcsd(%qHandle,24)=%objcsd(%qHandle,7)
+	s %objcsd(%qHandle,22)=%objcsd(%qHandle,5)
+	s %objcsd(%qHandle,20)=$s($zu(115,5)=1:$$%0GBs3(%objcsd(%qHandle,3)),$zu(115,5)=2:$$%0GBs4(%objcsd(%qHandle,3)),1:%objcsd(%qHandle,3))
+	s %objcsd(%qHandle,12)=(" "_$s(%objcsd(%qHandle,5)="":"",$zstrip(%objcsd(%qHandle,5),">W")'="":$zcvt($zstrip(%objcsd(%qHandle,5),">W"),"U"),1:$c(0)))
+	g:'$d(%objcsd(%qHandle,15,$s(%objcsd(%qHandle,12)'="":%objcsd(%qHandle,12),1:-1E14))) %0GDdun
+%0GCuncommitted ;
+	s:$g(SQLCODE)'<0 SQLCODE=0 s %ROWCOUNT=$i(%objcsd(%qHandle,26)) s %objcsc(%qHandle)=10 q
+%Q630f i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q  } i %objcsc(%qHandle)=100 { s SQLCODE=100 q  } s SQLCODE=0
+	s $zt="%0Gerr" s $ze="" i $g(%objcsd(%qHandle,26))'<%objcsd(%qHandle,1) { s SQLCODE=100,%ROWCOUNT=%objcsd(%qHandle,26),%objcsc(%qHandle)=100 q  } g %0Gfirst:%objcsc(%qHandle)=1
+%0GDdun i $zu(115,2)=1,$g(%objcsd(%qHandle,27))=1 { l -@%objcsd(%qHandle,28) }
+	g %0GCk3
+%0GCdun 
+%0GAdun 
+	s %ROWCOUNT=%objcsd(%qHandle,26),SQLCODE=100,%objcsc(%qHandle)=100 q
+%Q630c i '$g(%objcsc(%qHandle)) { s SQLCODE=-102 q  } s %ROWCOUNT=+$g(%objcsd(%qHandle,26)) f %objcsd(%qHandle,29)=1 { i $sortend(^mtemp0(%objcst(%qHandle,%objcsd(%qHandle,29)),0),0) } k ^mtemp0(%objcst(%qHandle,1))
+	i $zu(115,2)=1,$g(%objcsd(%qHandle,27))=1 { l -@%objcsd(%qHandle,28) } k %objcsd(%qHandle),%objcsc(%qHandle),%objcss(%qHandle),%objcst(%qHandle) s SQLCODE=0 q
+%0Gerr s $zt="" d SQLRunTimeError^%apiSQL($ze,.SQLCODE,.%msg) s %objcsc(%qHandle)=100
+	f %objcsd(%qHandle,29)=1 i $sortend(^mtemp0(%objcst(%qHandle,%objcsd(%qHandle,29)),0),0)
+	q
+%0GBMod ; asl MOD# 2
+	s %objcsd(%qHandle,33)=""
+%0GBk1 s %objcsd(%qHandle,33)=$o(%objcsd(%qHandle,15,%objcsd(%qHandle,33)))
+	g:%objcsd(%qHandle,33)="" %0GBdun
+	s %objcsd(%qHandle,12)=$s(%objcsd(%qHandle,33)'=-1E14:%objcsd(%qHandle,33),1:"")
+	i %objcsd(%qHandle,12)="" g %0GBk1
+	s %objcsd(%qHandle,17)=""
+%0GBk2 s %objcsd(%qHandle,17)=$o(^vhLib.LoggingI("IndexOnNiveau",%objcsd(%qHandle,12),%objcsd(%qHandle,17)))
+	i %objcsd(%qHandle,17)="" g %0GBk1
+	s %objcsd(%qHandle,2)=""
+%0GBk3 s %objcsd(%qHandle,2)=$o(^vhLib.LoggingI("IndexOnNiveau",%objcsd(%qHandle,12),%objcsd(%qHandle,17),%objcsd(%qHandle,2)))
+	i %objcsd(%qHandle,2)="" g %0GBk2
+	s %objcsd(%qHandle,18)=""
+%0GBk4 s %objcsd(%qHandle,18)=$o(^vhLib.LoggingI("IndexOnNiveau",%objcsd(%qHandle,12),%objcsd(%qHandle,17),%objcsd(%qHandle,2),%objcsd(%qHandle,18)))
+	i %objcsd(%qHandle,18)="" g %0GBk3
+	s %objcsd(%qHandle,16)=(%objcsd(%qHandle,17))_"||"_(%objcsd(%qHandle,2))_"||"_(%objcsd(%qHandle,18))
+	s %objcsd(%qHandle,19)=$s($zu(115,5)=1:$$%0GBs1(%objcsd(%qHandle,2)),$zu(115,5)=2:$$%0GBs2(%objcsd(%qHandle,2)),1:%objcsd(%qHandle,2))
+	s %objcsd(%qHandle,17)=$p(%objcsd(%qHandle,16),"||"),%objcsd(%qHandle,2)=$p(%objcsd(%qHandle,16),"||",2),%objcsd(%qHandle,18)=$p(%objcsd(%qHandle,16),"||",3)
+	i %objcsd(%qHandle,17)'="",%objcsd(%qHandle,2)'="",%objcsd(%qHandle,18)'="",$d(^vhLib.LoggingD(%objcsd(%qHandle,17),%objcsd(%qHandle,2),%objcsd(%qHandle,18)))
+	e  g %0GBk4
+	s %objcsd(%qHandle,42)=$g(^vhLib.LoggingD(%objcsd(%qHandle,17),%objcsd(%qHandle,2),%objcsd(%qHandle,18)))
+	s %objcsd(%qHandle,3)=$lg(%objcsd(%qHandle,42),9) s %objcsd(%qHandle,4)=$lg(%objcsd(%qHandle,42),4) s %objcsd(%qHandle,5)=$lg(%objcsd(%qHandle,42),6) s %objcsd(%qHandle,6)=$lg(%objcsd(%qHandle,42),2) s %objcsd(%qHandle,7)=$lg(%objcsd(%qHandle,42),10) s %objcsd(%qHandle,8)=$lg(%objcsd(%qHandle,42),3)
+	s %objcsd(%qHandle,23)=%objcsd(%qHandle,6)
+	s %objcsd(%qHandle,25)=%objcsd(%qHandle,8)
+	s %objcsd(%qHandle,21)=%objcsd(%qHandle,4)
+	s %objcsd(%qHandle,24)=%objcsd(%qHandle,7)
+	s %objcsd(%qHandle,22)=%objcsd(%qHandle,5)
+	s %objcsd(%qHandle,20)=$s($zu(115,5)=1:$$%0GBs3(%objcsd(%qHandle,3)),$zu(115,5)=2:$$%0GBs4(%objcsd(%qHandle,3)),1:%objcsd(%qHandle,3))
+	s %objcss(%qHandle,2)=$s(%objcsd(%qHandle,2)'="":%objcsd(%qHandle,2),1:-1E14),%objcss(%qHandle,3)=$s(%objcsd(%qHandle,3)'="":%objcsd(%qHandle,3),1:-1E14),%objcss(%qHandle,16)=$s(%objcsd(%qHandle,16)'="":%objcsd(%qHandle,16),1:-1E14),%objcsd(%qHandle,43)="",$li(%objcsd(%qHandle,43),6)=%objcsd(%qHandle,4),$li(%objcsd(%qHandle,43),10)=%objcsd(%qHandle,5),$li(%objcsd(%qHandle,43),2)=%objcsd(%qHandle,6),$li(%objcsd(%qHandle,43),8)=%objcsd(%qHandle,7),$li(%objcsd(%qHandle,43),4)=%objcsd(%qHandle,8),$li(%objcsd(%qHandle,43),5)=%objcsd(%qHandle,21),$li(%objcsd(%qHandle,43),9)=%objcsd(%qHandle,22),$li(%objcsd(%qHandle,43),1)=%objcsd(%qHandle,23),$li(%objcsd(%qHandle,43),7)=%objcsd(%qHandle,24),$li(%objcsd(%qHandle,43),3)=%objcsd(%qHandle,25),^mtemp0(%objcst(%qHandle,1),0,%objcss(%qHandle,2),%objcss(%qHandle,3),%objcss(%qHandle,16))=%objcsd(%qHandle,43)
+	g %0GBk4
+%0GBdun 
+	q
+%0Po d %Q630f q:SQLCODE'=0
+	s x1=%objcsd(%qHandle,19),x2=%objcsd(%qHandle,20),x3=%objcsd(%qHandle,21),x4=%objcsd(%qHandle,22),x5=%objcsd(%qHandle,23),x6=%objcsd(%qHandle,24),x7=%objcsd(%qHandle,25)
+	q
+%0Qo d %Q630f q:SQLCODE'=0
+	s array(%qacn,1)=%objcsd(%qHandle,19),array(%qacn,2)=%objcsd(%qHandle,20),array(%qacn,3)=%objcsd(%qHandle,21),array(%qacn,4)=%objcsd(%qHandle,22),array(%qacn,5)=%objcsd(%qHandle,23),array(%qacn,6)=%objcsd(%qHandle,24),array(%qacn,7)=%objcsd(%qHandle,25)
+	q
+%0Ro d %Q630f q:SQLCODE'=0
+	s x1=%objcsd(%qHandle,19),x2=%objcsd(%qHandle,20),x3=%objcsd(%qHandle,21),x4=%objcsd(%qHandle,22),x5=%objcsd(%qHandle,23),x6=%objcsd(%qHandle,24),x7=%objcsd(%qHandle,25)
+	q
+zGeefLoggingGetInfo(colinfo,parminfo,idinfo,%qHandle,extoption,extinfo) public { Set extoption=$get(extoption,0) s:'($d(^oddCOM("zTryout.JBL.Proc","q","GeefLogging",21),clientinfo)#2)&&'$s($d(^(2),clientinfo)#2:$d(^oddCOM(clientinfo,"q","GeefLogging",21),clientinfo)#2||($d(^oddDEF(clientinfo,"q","GeefLogging",21),clientinfo)#2),1:$d(^oddDEF("zTryout.JBL.Proc","q","GeefLogging",21),clientinfo)#2) clientinfo=$g(^%qCacheObjectKey(1,"q",21))
+	If clientinfo'="" Set colinfo=$listget(clientinfo,1),parminfo=$listget(clientinfo,2),idinfo=$listget(clientinfo,3),extent=$listget(clientinfo,4) Set:extoption extinfo=$s($d(^oddCOM("zTryout.JBL.Proc","q","GeefLogging",38))#2:^(38),$d(^oddCOM($g(^(2),"zTryout.JBL.Proc"),"q","GeefLogging",38))#2:^(38),1:$s($d(^oddDEF($g(^(2),"zTryout.JBL.Proc"),"q","GeefLogging",38))#2:^(38),1:$g(^%qCacheObjectKey(1,"q",38)))) Quit 1
+	Quit $$GetInfoSQL^%ourQuery("zTryout.JBL.Proc","GeefLogging",.colinfo,.parminfo,.idinfo,.%qHandle,extoption,.extinfo) }
+zGeefLoggingGetODBCInfo(colinfo,parminfo,qHandle) public { Set version = $Select($Get(%protocol,31)>30:3,%protocol>14:2,1:1)
+	If $Get(^oddPROC("ZTRYOUT_JBL","PROC_GEEFLOGGING",21))'="" { Set sc = 1, metadata=$Select(version=3:^oddPROC("ZTRYOUT_JBL","PROC_GEEFLOGGING",12),1:^oddPROC("ZTRYOUT_JBL","PROC_GEEFLOGGING",12,version)) }
+	ElseIf $Data(^oddPROC("ZTRYOUT_JBL","PROC_GEEFLOGGING")) { Set sc = $$CompileSignature^%ourProcedure("ZTRYOUT_JBL","PROC_GEEFLOGGING",.metadata,.signature) }
+	Else { Set sc = $$Error^%apiOBJ(5068,"zTryout.JBL.Proc:GeefLogging") }
+	If (+sc) { Set colcount=$li(metadata,2),cmdlen=colcount*$Case(version,3:9,2:9,1:7,:9),colinfo=$li(metadata,2,2+cmdlen),parmcount=$li(metadata,cmdlen+3),pmdlen=parmcount*$Case(version,3:6,:4),parminfo=$li(metadata,cmdlen+3,cmdlen+pmdlen+3) }
+	Quit sc }
+zGeefLoggingPrepare(qHandle,statement,containid,optional) public { Set containid=$get(containid,0) Quit 1 }
+zGeefLoggingSendODBC(qHandle,array,qacn,%qrc,piece,ColumnCount) public {
+SPInnerLoop	Set rc=##class(zTryout.JBL.Proc).GeefLoggingFetchODBC(.qHandle,.array,qacn,,.%qrc)
+	If ('rc) { Do ProcessError^%ourProcedure(rc,%sqlcontext,.%qrc,.%msg) Do Logerr^%qserver(%qrc,"","SP",.%msg) }
+	If %qrc Set piece=0 Quit
+	For piece=1:1:ColumnCount { Goto:$zobjexport(array(qacn,piece),7) SPDone }
+	Goto SPInnerLoop
+SPDone	Quit }
\ No newline at end of file
Index: zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml
===================================================================
diff -u -r946 -r1019
--- zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml	(.../OLMIntegratieTest.cls.xml)	(revision 946)
+++ zTryout/CSC/PM/Maatwerk/HF/OLMIntegratieTest.cls.xml	(.../OLMIntegratieTest.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-03-21 13:40:36">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-11 15:22:15">
 <Class name="zTryout.CSC.PM.Maatwerk.HF.OLMIntegratieTest">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62171,49318.530832</TimeChanged>
+<TimeChanged>62192,55345.59274</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="Perform">
@@ -80,5 +80,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2102548987"/>
+<Checksum value="1738032856"/>
 </Export>
Index: APPS/MAG/Optibox/Optibox.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/MAG/Optibox/Optibox.cls.xml	(.../Optibox.cls.xml)	(revision 917)
+++ APPS/MAG/Optibox/Optibox.cls.xml	(.../Optibox.cls.xml)	(revision 1019)
@@ -1,10 +1,4 @@
 <?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-03-03 13:55:24">
-<Class name="APPS.MAG.Optibox.Optibox">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62153,50192.309431</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-</Class>
-<Checksum value="76050664"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:13">
+<Checksum value="3255171636"/>
 </Export>
Index: DOM/Halux/TBX/impl/ZaagSturing.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/impl/ZaagSturing.cls.xml	(.../ZaagSturing.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/impl/ZaagSturing.cls.xml	(.../ZaagSturing.cls.xml)	(revision 1019)
@@ -1,98 +1,4 @@
 <?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-02-01 20:26:40">
-<Class name="DOM.Halux.TBX.impl.ZaagSturing">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.Halux.TBX.IZaagSturing</Super>
-<TimeChanged>62123,73641.55398</TimeChanged>
-<TimeCreated>62123,54832.085244</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ZaagServer">
-<Description>
-</Description>
-<Type>APPS.Halux.TBX.ZaagServer</Type>
-</Property>
-
-<Method name="BeschadigingLade">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="BeschadigingPlaat">
-<Description>
-</Description>
-<FormalSpec>BodemOfRug:%String,Kleur:String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="ControleMeting">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,BodemOfRug:%String,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="GetBatchLijst">
-<Description>
-</Description>
-<FormalSpec>LijnNr:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-<Implementation><![CDATA[	
-]]></Implementation>
-</Method>
-
-<Method name="GetBatchStatus">
-<Description>
-</Description>
-<FormalSpec>BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="GetZaagLijst">
-<Description>
-</Description>
-<FormalSpec>BatchID:%String,SubBatch:%String,LijnNr:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="PrintLabel">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="PrintLabelManueel">
-<Description>
-</Description>
-<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="RegistreerStilstand">
-<Description>
-</Description>
-<FormalSpec>DuurStilstand:%Integer,RedenStilstand:String,ZaagID:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="SetSettings">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="SetStatus">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,StatusType:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-</Class>
-<Checksum value="4033807820"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:28">
+<Checksum value="3706042939"/>
 </Export>
Index: DOM/PM/impl/ProductClassificatieImpl.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/impl/ProductClassificatieImpl.cls.xml	(.../ProductClassificatieImpl.cls.xml)	(revision 903)
+++ DOM/PM/impl/ProductClassificatieImpl.cls.xml	(.../ProductClassificatieImpl.cls.xml)	(revision 1019)
@@ -1,42 +1,4 @@
 <?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-03-04 16:24:55">
-<Class name="DOM.PM.impl.ProductClassificatieImpl">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.PM.ProductClassificatie</Super>
-<TimeChanged>62154,59094.727946</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ProductClassificatie">
-<Type>DOM.PM.impl.DataM.DataMProductClassificatie</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>KKey:%Integer</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..ProductClassificatie = ##class(DOM.PM.impl.DataM.DataMProductClassificatie).%New(KKey)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="GeefKKey">
-<ReturnType>%Integer</ReturnType>
-</Method>
-
-<Method name="GeefOmschrijving">
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="GeefSubGroep">
-<ReturnType>%String</ReturnType>
-</Method>
-
-<Method name="GeefTag">
-<ReturnType>%String</ReturnType>
-</Method>
-</Class>
-<Checksum value="223874442"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:33">
+<Checksum value="1745629887"/>
 </Export>
Index: APPS/Halux/TBX/enu/PlaatKleur.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/enu/PlaatKleur.cls.xml	(.../PlaatKleur.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/enu/PlaatKleur.cls.xml	(.../PlaatKleur.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-02-05 14:28:24">
-<Class name="APPS.Halux.TBX.enu.PlaatKleur">
-<Description><![CDATA[
-Enumeratie Plaatkleuren
-<ul>
-	<li>Spoelbak en Syfon laden</li>
-	<li>Tipon</li>
-</ul>]]></Description>
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62127,52151.161378</TimeChanged>
-<TimeCreated>62123,54830.753447</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,WI,WS,GS,LG,DG,ZW,BE,EI</Default>
-</Parameter>
-</Class>
-<Checksum value="2214207642"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:12">
+<Checksum value="3284635651"/>
 </Export>
Index: TECH/Error.inc.rou
===================================================================
diff -u -r995 -r1019
--- TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 995)
+++ TECH/Error.inc.rou	(.../Error.inc.rou)	(revision 1019)
@@ -40,6 +40,7 @@
 #define chkIsObject(%obj)                        If '$isobject(%obj) $$$ThrowError($$$errObjectExpected,"%obj")
 #define chkValidateObject(%obj)                  Set sc=%obj.%ValidateObject()  If $$$ISERR(sc) $$$ThrowErrorStatus($$$errObjectValidationFailed,"%obj",sc)
 #define chkValidateDataType(%dt,%p)				 if '##class(%dt).IsValidDT(%p) $$$ThrowError($$$errInvalidInput,%p)	
+#define chkMaxLength(%var,%maxlength)			 if $length(%var) > %maxlength $$$ThrowError($$$errInvalidInput,%var_": "_$length(%var)_">"_%maxlength)	
  
 #define CreateStdErrorObject					 set %vhLastError = ##class(TECH.Error.ErrorObject).%New() 
 #define AddToErrorObject(%String)				 do %vhLastError.Info.Insert(%String)	
Index: DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersen.cls.xml
===================================================================
diff -u -r946 -r1019
--- DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersen.cls.xml	(.../PlanPersen.cls.xml)	(revision 946)
+++ DOM/PM/Maatwerk/Calc/Kost/impl/TBX/PlanPersen.cls.xml	(.../PlanPersen.cls.xml)	(revision 1019)
@@ -1,56 +1,4 @@
 <?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-03-21 14:02:02">
-<Class name="DOM.PM.Maatwerk.Calc.Kost.impl.TBX.PlanPersen">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder</Super>
-<TimeChanged>62171,50605.082498</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldKostItemBuilder:DOM.PM.Maatwerk.Calc.Kost.SamengesteldKostItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set Status = ##super(SamengesteldKostItemBuilder)
-	
-	Set ..Naam = "PersKost"
-	
-	Set MultiplierFixedNul = ##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(0)
-	Set MultiplierFixedEen = ##class(DOM.PM.Maatwerk.Calc.Kost.FixedMultiplier).%New(1)
-	
-	// TODO: Correcte kostenplaats definiëren
-	Set KostenPlaats = "TBZAAG"
-	
-	// Kosten voor het uitvoeren van de bewerkingen nodig voor een TIP-ON
-	Set ActiviteitNr = 5
-	Set Variabele = MultiplierFixedNul
-	Set Factor = MultiplierFixedEen
-	Set VariabeleKost = 0
-	Set VasteKost = 87
-	Set MinimumKost = 0
-	Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"TIP-ON bewerkingen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr)
-	Do KostBewerkenTipon.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.BevatTiponEvaluator).%New())
-	
-	// TODO: Correcte formule bepalen voor sifon/spoelbak bewerkingen
-	// Kosten voor het uitvoeren van bewerkingen nodig voor sifon/spoelbak
-	Set ActiviteitNr = 6
-	Set Variabele = MultiplierFixedNul
-	Set Factor = MultiplierFixedEen
-	Set VariabeleKost = 0
-	Set VasteKost = (694-393)/2
-	Set MinimumKost = 0
-	Set KostBewerkenTipon = ##class(DOM.PM.Maatwerk.Calc.Kost.StandaardActiviteitKostItemBuilder).%New(##this,"Sifon/spoelbak bewerkingen",KostenPlaats, Variabele, Factor, VariabeleKost, VasteKost, MinimumKost, ActiviteitNr)
-	Do KostBewerkenTipon.GebruikEvaluator(##class(DOM.PM.Maatwerk.Calc.Kost.impl.TBX.BevatTiponEvaluator).%New())
-	
-	Quit Status
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="3415553887"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:31">
+<Checksum value="1804134097"/>
 </Export>
Index: APPS/PM/dto/Kenm/Multipliciteit.cls.xml
===================================================================
diff -u -r976 -r1019
--- APPS/PM/dto/Kenm/Multipliciteit.cls.xml	(.../Multipliciteit.cls.xml)	(revision 976)
+++ APPS/PM/dto/Kenm/Multipliciteit.cls.xml	(.../Multipliciteit.cls.xml)	(revision 1019)
@@ -1,21 +1,4 @@
 <?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-03-03 11:43:52">
-<Class name="APPS.PM.dto.Kenm.Multipliciteit">
-<Description>
-JBL + 2011-02-28</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62153,29144.414896</TimeChanged>
-<TimeCreated>62153,42300.684183</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Minimum">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="Maximum">
-<Type>%Integer</Type>
-</Property>
-</Class>
-<Checksum value="1648876907"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:15">
+<Checksum value="3330836102"/>
 </Export>
Index: PVE/CSP/TEST.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/CSP/TEST.cls.xml	(.../TEST.cls.xml)	(revision 734)
+++ PVE/CSP/TEST.cls.xml	(.../TEST.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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:05">
-<Class name="PVE.CSP.TEST">
-<Description>
-</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%CSP.Page</Super>
-<TimeChanged>61737,60090.75144</TimeChanged>
-
-<Method name="OnPage">
-<ClassMethod>1</ClassMethod>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	&html<<html>
-	<head>
-	</head>
-	<body>>
-	;To do...
-	&html<</body>
-	</html>>
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="204028816"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>
Index: APPS/PM/enu/At.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/PM/enu/At.cls.xml	(.../At.cls.xml)	(revision 917)
+++ APPS/PM/enu/At.cls.xml	(.../At.cls.xml)	(revision 1019)
@@ -1,48 +1,4 @@
 <?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-03-04 10:48:40">
-<Class name="APPS.PM.enu.At">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62154,38989.829107</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Description>
-K=KortTekst, I=IdentNummer, R=LeveranciereReferentie, T=LangtTekst, B=ProductBoom,
-</Description>
-<Default>,K,I,R,T,B</Default>
-</Parameter>
-
-<Method name="Korttekst">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "K"
-]]></Implementation>
-</Method>
-
-<Method name="IdentNummer">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "I"
-]]></Implementation>
-</Method>
-
-<Method name="LeveranciersReferentie">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "R"
-]]></Implementation>
-</Method>
-
-<Method name="LangTekst">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "T"
-]]></Implementation>
-</Method>
-
-<Method name="ProductBoom">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "B"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="4070833375"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:16">
+<Checksum value="3301849311"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderCorpusProfiev001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderCorpusProfiev001.cls.xml	(.../HFBuilderCorpusProfiev001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderCorpusProfiev001.cls.xml	(.../HFBuilderCorpusProfiev001.cls.xml)	(revision 1019)
@@ -1,49 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderCorpusProfiev001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29583.539447</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).CorpusProfiel()
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set SamengesteldHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..Rol)
-
-	// Sub Items opbouwen 
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Links")
-	Do SamengesteldHalffabItem.VoegToe(HalffabItem)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Rechts")
-	Do SamengesteldHalffabItem.VoegToe(HalffabItem)
-	
-	Quit SamengesteldHalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="1359018478"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:28">
+<Checksum value="3706042939"/>
 </Export>
Index: zTryout/ARC/DOM/AKP/AankoopbaarProduct.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/AKP/AankoopbaarProduct.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/AKP/AankoopbaarProduct.cls.xml	(revision 1019)
@@ -0,0 +1,30 @@
+<?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-04-15 16:01:46">
+<Class name="zTryout.ARC.DOM.AKP.AankoopbaarProduct">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<TimeChanged>62196,57719.690743</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[/* @Return List of Aankoopmogelijkheid. */
+]]></Content>
+</UDLText>
+
+<Method name="GeefAankoopmogelijkheden">
+<Abstract>1</Abstract>
+<ReturnType>%ListOfObjects</ReturnType>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[/* Geeft de "referentieaankoopmogelijkheid". */
+]]></Content>
+</UDLText>
+
+<Method name="GeefRefAankoopmogelijkheid">
+<Abstract>1</Abstract>
+<ReturnType>Aankoopmogelijkheid</ReturnType>
+</Method>
+</Class>
+<Checksum value="196964336"/>
+</Export>
Index: APPS/Halux/TBX/impl/ZaagBatches.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/impl/ZaagBatches.cls.xml	(.../ZaagBatches.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/impl/ZaagBatches.cls.xml	(.../ZaagBatches.cls.xml)	(revision 1019)
@@ -1,401 +1,4 @@
 <?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-02-06 22:20:09">
-<Class name="APPS.Halux.TBX.impl.ZaagBatches">
-<IncludeCode>TECH.Error</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.PM.TBXProduct.TBXProductVisitor</Super>
-<TimeChanged>62128,80456.162861</TimeChanged>
-<TimeCreated>62123,54831.264395</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Batch">
-<Type>DS.PPS.TBX.Batch</Type>
-</Property>
-
-<Property name="ProductAPI">
-<Type>%RegisteredObject</Type>
-</Property>
-
-<Property name="Queue">
-<Type>DS.PPS.TBX.Queue</Type>
-</Property>
-
-<Property name="ZaagList">
-<Type>%SerialObject</Type>
-</Property>
-
-<Property name="MaxPosList">
-<Type>%Integer</Type>
-</Property>
-
-<Property name="IndexBodemChanges">
-<Type>%String</Type>
-<MultiDimensional>1</MultiDimensional>
-</Property>
-
-<Property name="IndexRugChanges">
-<Type>%String</Type>
-<MultiDimensional>1</MultiDimensional>
-</Property>
-
-<Method name="Test">
-<Description>
-Do ##class(APPS.Halux.TBX.impl.ZaagBatches).Test(8728,"TipOn")</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>BatchID,SubBatch</FormalSpec>
-<Implementation><![CDATA[
-	;Set BatchID=8728
-	Set bl=..%New(BatchID)
-	Do bl.RemoveBatches()
-	Do bl.BuildBatchesFromQueue()
-	Set rs=##class(%ResultSet).%New(..%ClassName(1)_":qActiveBatchList")
-	Set sc=rs.Execute()
-	While (rs.Next()){
-	 Write rs.Data("BatchKey")
-	 Write !
-	}
-	q
-	w !
-	Set rs=##class(%ResultSet).%New(..%ClassName(1)_":qZaagList")
-	Set sc=rs.Execute(BatchID,SubBatch)
-	While (rs.Next()){
-	 Write $G(rs.Data("ID"))
-	 k %d m %d=rs.Data zw %d
-	 Write !
-	}
-]]></Implementation>
-</Method>
-
-<Method name="%OnNew">
-<FormalSpec>BatchID</FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set:$G(BatchID) ..Batch=##class(DS.PPS.TBX.Batch).%OpenId(BatchID)
-	Set ..ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI() ; extends DOM.PM.TBXProduct.TBXLade
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Query name="qActiveBatchList">
-<Type>%SQLQuery</Type>
-<FormalSpec>LijnNr</FormalSpec>
-<SqlQuery><![CDATA[	Select DISTINCT Batch || isnull(SubBatch,"") as BatchKey, Batch, SubBatch from APPS_Halux_TBX.ZaagOpdrachten where isnull(Batch->NotActive,0)=0
-	order by Batch,SubBatch]]></SqlQuery>
-<Parameter name="CONTAINID" value="0"/>
-</Query>
-
-<Query name="qZaagList">
-<Description>
-ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,
-BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Integer,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,
-RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Integer,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer,</Description>
-<Type>%Query</Type>
-<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
-<SqlProc>1</SqlProc>
-<Parameter name="CONTAINID" value="1"/>
-<Parameter name="ROWSPEC" value="ZaagID:%Integer,PRNr:%Integer,KortTekst:%String,BatchID:%Integer,SubBatch:%String,KlantNaam:%String,TOENr:%Integer,DossierCode:%String,VolgNr:%Integer,SubNr:%Integer,Totaal:%Integer,Status:%String,Transferlijn:%String,Mode:%String,ModeTitel:%String,Opmerking1:%String,Opmerking2:%String,PrintXML:%String,OpmetenBodem:%Boolean,BodemAanslagSensor:%Boolean,BodemBewerking:%String,BodemChangeAfter:%Integer,BodemLengteUntilChange:%Integer,BodemChangeHoogte:%Boolean,BodemChangeKleur:%Boolean,BodemBreedte:%Integer,BodemHoogte:%Integer,BodemHoogteOms:%String,BodemHoogteSensor:%Boolean,BodemKleur2de:%String,BodemKleurZichtbaar:%String,BodemReturnsAfter:%Integer,RugAanslagSensor:%Boolean,RugBewerking:%String,RugChangeAfter:%Integer,RugLengteUntilChange:%Integer,RugChangeHoogte:%Boolean,RugChangeKleur:%Boolean,RugBreedte:%Integer,RugHoogte:%Integer,RugHoogteOms:%String,RugHoogteSensor:%Boolean,RugKleur2de:%String,RugKleurZichtbaar:%String,RugReturnsAfter:%Integer"/>
-</Query>
-
-<Method name="qZaagListExecute">
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&qHandle:%Binary,BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch]]></FormalSpec>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set bl=..%New()
-	Set %ZaagList=bl.GetZaagList(BatchID,SubBatch)
-	Set %ZaagListPos=""
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="qZaagListFetch">
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&qHandle:%Binary,&Row:%List,&AtEnd:%Integer=0]]></FormalSpec>
-<PlaceAfter>qZaagListExecute</PlaceAfter>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	
-	Set Opdracht=%ZaagList.GetNext(.%ZaagListPos)
-	If $isObject(Opdracht)
-	{
-		Set Row=Opdracht.BuildList()
-	}
-	Else 
-	{
-		Set Row=""
-		Set AtEnd=1
-	}
-	
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="qZaagListClose">
-<ClassMethod>1</ClassMethod>
-<FormalSpec><![CDATA[&qHandle:%Binary]]></FormalSpec>
-<PlaceAfter>qZaagListExecute</PlaceAfter>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Kill %ZaagList,%ZaagListPos
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="GetZaagList">
-<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
-<ReturnType>%ListOfObjects</ReturnType>
-<Implementation><![CDATA[
-	Set rsZaagList=##class(%ResultSet).%New(..%ClassName(1)_":qZaagListHelper")
-	Set sc=rsZaagList.Execute(BatchID,SubBatch)
-	w "execute:",$$ParseStatus^vhLib(sc),!
-	Set ..ZaagList=##class(%ListOfObjects).%New()
-	While rsZaagList.Next() 
-	{	
-		Set Opdracht=##class(APPS.Halux.TBX.dto.ZaagOpdracht).GetOpdracht(rsZaagList.Data("ID"))
-		Do ..Add2List(Opdracht)
-	}
-	
-	Do ..AddPlaatVerschil()
-	Quit ..ZaagList
-]]></Implementation>
-</Method>
-
-<Method name="Add2List">
-<FormalSpec>Opdracht</FormalSpec>
-<Implementation><![CDATA[
-	Quit:'$isObject(Opdracht)
-	Do ..ZaagList.Insert(Opdracht)
-	
-	; index voorbereiden
-	Set ListPos=..ZaagList.Count()
-	Set ..IndexBodemChanges(ListPos)=$S($isObject(Opdracht.Bodem):$LB(Opdracht.Bodem.GetPlaatKey(),Opdracht.Bodem.Breedte),1:"")
-	Set ..IndexRugChanges(ListPos)=$S($isObject(Opdracht.Rug):$LB(Opdracht.Rug.GetPlaatKey(),Opdracht.Rug.Breedte),1:"")
-]]></Implementation>
-</Method>
-
-<Method name="AddPlaatVerschil">
-<Implementation><![CDATA[
-	Set ..MaxPosList=..ZaagList.Count()
-	Set ListPos=""
-	Do 
-	{ 
-		Set Opdracht=..ZaagList.GetNext(.ListPos)
-		Continue:'ListPos
-		
-		If ..ChangesNextRug(ListPos)
-		{
-			Do ..AddRugChange(ListPos,Opdracht)
-		}
-		Do ..AddRugLength(ListPos,Opdracht)
-
-		
-		If ..ChangesNextBodem(ListPos)
-		{
-			Do ..AddBodemChange(ListPos,Opdracht)
-		}
-		Do ..AddBodemLength(ListPos,Opdracht)
-		
-	} While ListPos
-]]></Implementation>
-</Method>
-
-<Method name="AddBodemChange">
-<FormalSpec>ListPos,Opdracht</FormalSpec>
-<Implementation><![CDATA[
-	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
-	Do ..AddChange(Opdracht.Bodem,NextOpdracht.Bodem)
-]]></Implementation>
-</Method>
-
-<Method name="AddRugChange">
-<FormalSpec>ListPos,Opdracht</FormalSpec>
-<Implementation><![CDATA[
-	Set NextOpdracht=..ZaagList.GetAt(ListPos+1)
-	Do ..AddChange(Opdracht.Rug,NextOpdracht.Rug)
-]]></Implementation>
-</Method>
-
-<Method name="AddChange">
-<Description>
-Wijziging wordt aangebracht bij de NextPlaat</Description>
-<FormalSpec>Plaat,NextPlaat</FormalSpec>
-<Implementation><![CDATA[
-	Quit:'$isObject(NextPlaat)
-	
-	If '$isObject(Plaat)||(Plaat.KleurZichtbaar'=NextPlaat.KleurZichtbaar)||(Plaat.Kleur2de'=NextPlaat.Kleur2de)
-	{
-	 	Set NextPlaat.ChangeKleur=1
-	}
-	If '$isObject(Plaat)||(Plaat.Hoogte'=NextPlaat.Hoogte)
-	{
-		Set NextPlaat.ChangeHoogte=1
-	}
-]]></Implementation>
-</Method>
-
-<Method name="AddRugLength">
-<FormalSpec>ListPos,Opdracht</FormalSpec>
-<Implementation><![CDATA[
-	Quit:'$isObject(Opdracht.Rug)
-	Set (Cnt,Lengte)=0
-	Set NextListPos=ListPos
-	Do { 
-		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexRugChanges(NextListPos),2)
-		Quit:..ChangesNextRug(NextListPos)
-		Set NextListPos=NextListPos+1
-	} While NextListPos<..MaxPosList
-	
-	Set Opdracht.Rug.ChangeAfter=Cnt
-	Set Opdracht.Rug.LengteUntilChange=Lengte*1.05
-]]></Implementation>
-</Method>
-
-<Method name="AddBodemLength">
-<FormalSpec>ListPos,Opdracht</FormalSpec>
-<Implementation><![CDATA[
-	Quit:'$isObject(Opdracht.Bodem)
-	Set (Cnt,Lengte)=0
-	Set NextListPos=ListPos
-	Do { 
-		Set Cnt=Cnt+1
-		Set Lengte=Lengte+$LG(..IndexBodemChanges(NextListPos),2)
-		Quit:..ChangesNextBodem(NextListPos)
-		Set NextListPos=NextListPos+1
-	} While NextListPos<..MaxPosList
-	
-	Set Opdracht.Bodem.ChangeAfter=Cnt
-	Set Opdracht.Bodem.LengteUntilChange=Lengte*1.05
-]]></Implementation>
-</Method>
-
-<Method name="ZoekPlaatVerschil">
-<FormalSpec>ListPos</FormalSpec>
-<Implementation><![CDATA[
-	Set NextListPos=ListPos
-	Do { 
-		Quit:..ChangesNextRug(NextListPos)||..ChangesNextBodem(NextListPos)
-		Set NextListPos=NextListPos+1
-	} While NextListPos<..MaxPosList
-]]></Implementation>
-</Method>
-
-<Method name="ChangesNextRug">
-<CodeMode>expression</CodeMode>
-<FormalSpec>ListPos</FormalSpec>
-<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexRugChanges(ListPos))'=$LG(..IndexRugChanges(ListPos+1)))
-]]></Implementation>
-</Method>
-
-<Method name="ChangesNextBodem">
-<CodeMode>expression</CodeMode>
-<FormalSpec>ListPos</FormalSpec>
-<Implementation><![CDATA[(ListPos<..MaxPosList)&&($LG(..IndexBodemChanges(ListPos))'=$LG(..IndexBodemChanges(ListPos+1)))
-]]></Implementation>
-</Method>
-
-<Query name="qZaagListHelper">
-<Type>%SQLQuery</Type>
-<FormalSpec>BatchID:%Integer,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
-<Private>1</Private>
-<SqlQuery>	Select ID from APPS_Halux_TBX.ZaagOpdrachten where Batch = :BatchID and isnull(SubBatch,"*")=isnull(:SubBatch,"*")</SqlQuery>
-<Parameter name="CONTAINID" value="1"/>
-</Query>
-
-<Query name="qBatchQueue">
-<Type>%SQLQuery</Type>
-<FormalSpec>BatchID:%Integer</FormalSpec>
-<Private>1</Private>
-<SqlQuery>	Select %ID from PPS.TBX_Queue where BatchId = :BatchID
-	order by Sequence</SqlQuery>
-<Parameter name="CONTAINID" value="1"/>
-</Query>
-
-<Method name="BuildBatchesFromQueue">
-<Description>
-</Description>
-<Implementation><![CDATA[
-	Set rsQueue=##class(%ResultSet).%New(..%ClassName(1)_":qBatchQueue")
-	Set sc=rsQueue.Execute(..Batch.%Id())
-	While (rsQueue.Next()) 
-	{	
-		Set ..Queue=##class(DS.PPS.TBX.Queue).%OpenId(rsQueue.Data("ID"))
-		Continue:'$isObject(..Queue)
-		
-		Set Product = ..ProductAPI.GeefProduct(..Queue.Product.%Id())
-		Continue:'$isObject(Product)
-		w !,..Queue.Product.%Id()," ",..Queue.Product.KortTekst," ",Product.%ClassName(1)		
-		Do Product.Accept(##this) ; trigger visitor
-    }
- 
-	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkTBXSifonlade">
-<Description>
-Triggered by visitor</Description>
-<FormalSpec>Sifonlade:DOM.PM.TBXProduct.TBXSifonlade</FormalSpec>
-<Implementation><![CDATA[
-  w " visitor si"
-	Do ..AddZaagOpdracht(Sifonlade,##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon())
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkTBXSpoelbaklade">
-<Description>
-Triggered by visitor</Description>
-<FormalSpec>Spoelbaklade:DOM.PM.TBXProduct.TBXSpoelbaklade</FormalSpec>
-<Implementation><![CDATA[
-  w " visitor sp"
-	Do ..AddZaagOpdracht(Spoelbaklade,##class(APPS.Halux.TBX.enu.SubBatch).SpoelbakSifon())
-]]></Implementation>
-</Method>
-
-<Method name="VerwerkTBXLade">
-<Description>
-Triggered by visitor</Description>
-<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade</FormalSpec>
-<Implementation><![CDATA[
-	w " visitor L"
-	If Lade.BevatTipOn()
-	{
-		Do ..AddZaagOpdracht(Lade, ##class(APPS.Halux.TBX.enu.SubBatch).TipOn())
-	}
-	Else  ; standaard laden
-	{
-		Do ..AddZaagOpdracht(Lade, ##class(APPS.Halux.TBX.enu.SubBatch).Main())
-	}
-]]></Implementation>
-</Method>
-
-<Method name="AddZaagOpdracht">
-<FormalSpec>Lade:DOM.PM.TBXProduct.TBXLade,SubBatch:APPS.Halux.TBX.enu.SubBatch</FormalSpec>
-<Private>1</Private>
-<Implementation><![CDATA[
-	Set BodemRug=##class(APPS.Halux.TBX.ZaagOpdrachten).GetBodemRug(SubBatch,Lade)
-	Quit:BodemRug="" ;niets te zagen
-	Do ##class(APPS.Halux.TBX.ZaagOpdrachten).CreateFromQueue(..Batch,SubBatch,BodemRug,..Queue,Lade)
-]]></Implementation>
-</Method>
-
-<Method name="RemoveBatches">
-<Implementation><![CDATA[
-	Set BatchID=..Batch.%Id()
-	&sql(DECLARE DelBatch CURSOR FOR
-	SELECT ID into :ZaagID
-	FROM APPS_Halux_TBX.ZaagOpdrachten
-	WHERE Batch=:BatchID)
-   
- 	&sql(OPEN DelBatch)
- 	For  &sql(FETCH DelBatch) Quit:SQLCODE  Do
-  	. Set sc=##class(APPS.Halux.TBX.ZaagOpdrachten).%DeleteId(ZaagID)
-  	. If $$$ISERR(sc)  $$$ThrowErrorStatus($$$errSaveFailed,"RemoveBatches",sc) 
-
-  	&sql(CLOSE DelBatch)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2506000333"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:13">
+<Checksum value="3255171636"/>
 </Export>
Index: APPS/PM/Maatwerk/TBX/WizardBladCreator.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/PM/Maatwerk/TBX/WizardBladCreator.cls.xml	(.../WizardBladCreator.cls.xml)	(revision 917)
+++ APPS/PM/Maatwerk/TBX/WizardBladCreator.cls.xml	(.../WizardBladCreator.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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-02-16 15:01:53">
-<Class name="APPS.PM.Maatwerk.TBX.WizardBladCreator">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62138,54169.105238</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Boom">
-<Type>DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Boom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Boom = Boom
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2711548155"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:14">
+<Checksum value="3343576241"/>
 </Export>
Index: zTryout/ARC/APPS/PM/ProductService.cls.xml
===================================================================
diff -u -r995 -r1019
--- zTryout/ARC/APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 995)
+++ zTryout/ARC/APPS/PM/ProductService.cls.xml	(.../ProductService.cls.xml)	(revision 1019)
@@ -1,9 +1,10 @@
 <?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-04-07 13:14:17">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-12 15:03:28">
 <Class name="zTryout.ARC.APPS.PM.ProductService">
+<Import>zTryout.ARC.APPS.PM.dto</Import>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>APPS.PM.ProductService,%RegisteredObject</Super>
-<TimeChanged>62188,47664.214967</TimeChanged>
+<TimeChanged>62193,54219.467729</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefFysiekProduct">
@@ -23,6 +24,32 @@
 		Quit FysiekProductDto
 ]]></Implementation>
 </Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/* Dit is een fictieve functionaliteit, enkel om dubbele mapping op een global-node te tonen. 
+ * Het idee is dat men lichte producten met een nieuwe extra nauwkeurige weegschaal weegt,
+ * en op basis van de betrouwbaarheid van weging een TelweegschaalTelwijze en Cyclecounttype
+ * instelt.
+ */
+]]></Content>
+</UDLText>
+
+<Method name="WijzigProductGewichtData">
+<FormalSpec>ProductGewichtData:ProductGewichtData</FormalSpec>
+<Implementation><![CDATA[
+		Set ProductAPI = ##class(zTryout.ARC.APP.DomeinContext).Instance().GeefProductAPI()
+		Set FysiekProduct = ProductAPI.GeefFysiekProduct(ProductGewichtData.PRNr)
+		Do FysiekProduct.ZetGewicht(##class(zTryout.ARC.DOM.common.Gewicht).CreateKgPerDuizend(ProductGewichtData.GewichtInGram))
+		Do FysiekProduct.Save()
+		
+		Set MagazijnAPI = ##class(zTryout.ARC.APP.DomeinContext).Instance().GeefMagazijnAPI()
+		Set StockeerbaarProduct = MagazijnAPI.GeefStockeerbaarProduct(ProductGewichtData.PRNr)
+		Do StockeerbaarProduct.ZetCyclecounttype(ProductGewichtData.Cyclecounttype)
+		Do StockeerbaarProduct.ZetTelweegschaalTelwijze(ProductGewichtData.TelweegschaalTelwijze)
+		Do StockeerbaarProduct.Save()
+]]></Implementation>
+</Method>
 </Class>
-<Checksum value="1382965794"/>
+<Checksum value="3498390602"/>
 </Export>
Index: WS/TAPI/SMSMessageSingle.cls.xml
===================================================================
diff -u -r734 -r1019
--- WS/TAPI/SMSMessageSingle.cls.xml	(.../SMSMessageSingle.cls.xml)	(revision 734)
+++ WS/TAPI/SMSMessageSingle.cls.xml	(.../SMSMessageSingle.cls.xml)	(revision 1019)
@@ -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:01:15">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:31:35">
 <Class name="WS.TAPI.SMSMessageSingle">
 <Description>
 Queue om sms berichten te zenden. Berichten worden tijdelijk in global opgeslagen en verwerkt.</Description>
 <ClassType>persistent</ClassType>
 <IncludeCode>%VHMacro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>61761,51578.734234</TimeChanged>
+<TimeChanged>62200,55911.023216</TimeChanged>
 <TimeCreated>59918,56462.887145</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -62,67 +62,68 @@
 
 	If ..Parent.SingleCount>1 Do
 	. Set Msg=..VolgNr_"/"_..Parent.SingleCount_" "_Msg
+	
+	Set Status = ..SendMessage(..Recipient,Msg)	
+	
+	set $ZT=""
+	
+	Quit Status
 		
+OnError
+	Set $ZT=""
+	Set Status="Error message: "_$ZE
+	Set Body=Status_$$$CRLF
+	Set:isObject(..Parent.Creator) Body=Body_$$$CRLF_"SMS Creator:"_..Parent.Creator.Naam
+	Set From="SMSGateway@vanhoecke.be"
+	Set Subj="SMS ERROR report (ID="_..Parent.%Id()_")"
+	Set To=$LB("pv@vanhoecke.be","itadmin@vanhoecke.be")
+	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
+	Quit
+]]></Implementation>
+</Method>
+
+<Method name="SendMessage">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>Recipient:%String,Message:%String</FormalSpec>
+<Implementation><![CDATA[
 	Set Status = ""
-	
 	Set COMPort="COM6"
-	
 	Open COMPort::5		// trachten COM poort naar GSM te openen
+	if '$Test {
+		set Logger = ##class(vhLib.Logger).%New("WS.TAPI.SMS")
+		do Logger.ErrorMail("Send","GSM-toestel niet bereikbaar")
+		Set Status = "GSM is niet te contacteren, toestel waarschijnlijk uitgeschakeld"
+	}
 	
-	Else  Set Status = "GSM is niet te contacteren, toestel waarschijnlijk uitgeschakeld"
-	
 	Quit:$L(Status) Status  
-		
 	Use COMPort:("":"S") Write "AT+CPIN=4606",!  ; pincode ingeven.
 	Read Ans:5
 	H 1  		; secondje wachten 't GSMeke heeft wat tijd nodig om te processen.
-	
 	Use COMPort:("":"S") Write "AT+CMGF=1",!     ; sms type op simple zetten
 	Read Ans:5
 	H 1         
-	
-	Use COMPort:("":"S") Write "AT+CMGS="_..Recipient,!  ; sms sender opgeven.
+	Use COMPort:("":"S") Write "AT+CMGS="_Recipient,!  ; sms sender opgeven.
 	H 1         
-	
-	Use COMPort:("":"S") Write Msg_$C(26),!		; message in bericht plaatsen en verzenden via CTRL+Z $C(26)
+	Use COMPort:("":"S") Write Message_$C(26),!		; message in bericht plaatsen en verzenden via CTRL+Z $C(26)
 	Read Ans:5  
 	H 1			
-	
 	Set Status = "SMS verzonden, maar geen OK verkregen van GSM"
-	
 	; / Uitlezen van gegevens nogal redelijk vuil manier van aanpakken.
 	; / x aantal lijntjes uitlezen want testen op '$TEST dan stopt het vroeger dan gewenst..
 	; / 
 	; / Volgens testen staat de uiteindelijke ok ergens op lijn 20, vooral zekerheid maar een paar lijntjes meer trachten te lezen.
 	; /
 	Set Counter = 0
 	For  Set Counter=Counter + 1 Use COMPort:("":"S") Read @("Line"_Counter_":1") Quit:Counter=25 
-	
 	; / Lijntjes aflopen en kijken of er ergens een +CMGS: in staat indien ja zoeken naar OK
 	; / 
-	
 	Set LineCounter = Counter
 	Set QuitFlag = 0
 	For Counter = 1 : 1  : LineCounter  Quit:QuitFlag  If $G(@("Line"_Counter)) [ "+CMGS: " Do
 	. Set QuitFlag = 1
 	. For Counter=Counter:1:LineCounter If $G(@("Line"_Counter)) [ "OK" Set Status = ""
-	
-	Close COMPort
-	
-	Set $ZT=""
-	
+	close COMPort
 	Quit Status
-		
-OnError
-	Set $ZT=""
-	Set Status="Error message: "_$ZE
-	Set Body=Status_$$$CRLF
-	Set:isObject(..Parent.Creator) Body=Body_$$$CRLF_"SMS Creator:"_..Parent.Creator.Naam
-	Set From="SMSGateway@vanhoecke.be"
-	Set Subj="SMS ERROR report (ID="_..Parent.%Id()_")"
-	Set To=$LB("pv@vanhoecke.be","itadmin@vanhoecke.be")
-	Do SendMiniMail^vhLib(From,To,Subj,Body,,,,,)
-	Quit
 ]]></Implementation>
 </Method>
 
@@ -160,5 +161,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1144757781"/>
+<Checksum value="1788910894"/>
 </Export>
Index: APPS/Halux/Planning/impl/IResourceGebruikDataFactory.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/Planning/impl/IResourceGebruikDataFactory.cls.xml	(.../IResourceGebruikDataFactory.cls.xml)	(revision 917)
+++ APPS/Halux/Planning/impl/IResourceGebruikDataFactory.cls.xml	(.../IResourceGebruikDataFactory.cls.xml)	(revision 1019)
@@ -1,16 +1,4 @@
 <?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-02-07 09:59:08">
-<Class name="APPS.Halux.Planning.impl.IResourceGebruikDataFactory">
-<Abstract>1</Abstract>
-<ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62129,35997.027826</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="GeefResourceGebruikData">
-<Abstract>1</Abstract>
-<FormalSpec>ActiviteitID:%String</FormalSpec>
-<ReturnType>APPS.Halux.Planning.impl.ResourceGebruikData</ReturnType>
-</Method>
-</Class>
-<Checksum value="1840025925"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:11">
+<Checksum value="3246468698"/>
 </Export>
Index: DOM/PM/impl/SubgroepClassificatieImpl.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/impl/SubgroepClassificatieImpl.cls.xml	(.../SubgroepClassificatieImpl.cls.xml)	(revision 903)
+++ DOM/PM/impl/SubgroepClassificatieImpl.cls.xml	(.../SubgroepClassificatieImpl.cls.xml)	(revision 1019)
@@ -1,21 +1,4 @@
 <?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-03-07 14:30:53">
-<Class name="DOM.PM.impl.SubgroepClassificatieImpl">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,DOM.PM.impl.SuperGroepClassificatie</Super>
-<TimeChanged>62157,52325.776861</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SortSleutel:%String</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Classificatie = ##class(DOM.PM.impl.DataM.DataMSubgroepClassificatie).%New(SortSleutel)
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2877035512"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:33">
+<Checksum value="1745629887"/>
 </Export>
Index: DOM/LEV/impl/LeverancierEventData.cls.xml
===================================================================
diff -u
--- DOM/LEV/impl/LeverancierEventData.cls.xml	(revision 0)
+++ DOM/LEV/impl/LeverancierEventData.cls.xml	(revision 1019)
@@ -0,0 +1,28 @@
+<?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-04-18 16:21:14">
+<Class name="DOM.LEV.impl.LeverancierEventData">
+<Description>
+JBL + 2011-04-18</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.EventData</Super>
+<TimeChanged>62199,58889.609092</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="LeverancierNr">
+<Type>%Integer</Type>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>LeverancierNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..LeverancierNr = LeverancierNr
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="4150711983"/>
+</Export>
Index: TECH/Events/OrderCreatedEvent.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderCreatedEvent.cls.xml	(.../OrderCreatedEvent.cls.xml)	(revision 924)
+++ TECH/Events/OrderCreatedEvent.cls.xml	(.../OrderCreatedEvent.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-02-16 13:35:33">
-<Class name="TECH.Events.OrderCreatedEvent">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.Event</Super>
-<TimeChanged>62138,48989.657333</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>Data:TECH.Events.OrderCreatedEventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	Set ..Type = "OrderCreateddEvent"
-	Quit ##super(Data)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1596272706"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:45">
+<Checksum value="4048975540"/>
 </Export>
Index: APPS/Halux/TBX/enu/BodemBewerking.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/enu/BodemBewerking.cls.xml	(.../BodemBewerking.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/enu/BodemBewerking.cls.xml	(.../BodemBewerking.cls.xml)	(revision 1019)
@@ -1,40 +1,4 @@
 <?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-02-05 14:23:13">
-<Class name="APPS.Halux.TBX.enu.BodemBewerking">
-<Description><![CDATA[
-Enumeratie Werkposten
-<ul>
-	<li>Spoelbak en Syfon laden</li>
-	<li>Tipon</li>
-</ul>]]></Description>
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62127,51840.07225</TimeChanged>
-<TimeCreated>62123,54830.753447</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,G,F,Z</Default>
-</Parameter>
-
-<Method name="Groef">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "G"
-]]></Implementation>
-</Method>
-
-<Method name="Frezing">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "F"
-]]></Implementation>
-</Method>
-
-<Method name="Zonder">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "Z"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="3187325326"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:12">
+<Checksum value="3284635651"/>
 </Export>
Index: TECH/Events/OrderModifiedEvent.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderModifiedEvent.cls.xml	(.../OrderModifiedEvent.cls.xml)	(revision 924)
+++ TECH/Events/OrderModifiedEvent.cls.xml	(.../OrderModifiedEvent.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-02-16 13:35:18">
-<Class name="TECH.Events.OrderModifiedEvent">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.Event</Super>
-<TimeChanged>62138,48974.426443</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>Data:TECH.Events.OrderModifiedEventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	Set ..Type = "OrderModifiedEvent"
-	Quit ##super(Data)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2612026677"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:46">
+<Checksum value="4077963501"/>
 </Export>
Index: APPS/PM/enu/StockType.cls.xml
===================================================================
diff -u -r937 -r1019
--- APPS/PM/enu/StockType.cls.xml	(.../StockType.cls.xml)	(revision 937)
+++ APPS/PM/enu/StockType.cls.xml	(.../StockType.cls.xml)	(revision 1019)
@@ -1,5 +1,5 @@
 <?xml version="1.0" encoding="UTF-8"?>
-<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel) 5.0.21 (Build 6408U)" ts="2011-03-14 10:28:57">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:17">
 <Class name="APPS.PM.enu.StockType">
 <ClassType>datatype</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
@@ -34,5 +34,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1528338931"/>
+<Checksum value="1835044385"/>
 </Export>
Index: DOM/Halux/TBX/dto/Plaat.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/dto/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/dto/Plaat.cls.xml	(.../Plaat.cls.xml)	(revision 1019)
@@ -1,106 +1,4 @@
 <?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-02-01 17:49:14">
-<Class name="DOM.Halux.TBX.dto.Plaat">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62123,64196.162461</TimeChanged>
-<TimeCreated>62123,54829.925297</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="AanslagSensor">
-<Description>
-</Description>
-<Type>%Boolean</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Bewerking">
-<Description>
-Zonder, Groef, Frezing
-bij rug is dit steeds Zonder</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ChangeAfter">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ChangeHoogte">
-<Description>
-</Description>
-<Type>%Boolean</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ChangeKleur">
-<Description>
-</Description>
-<Type>%Boolean</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Hoogte">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="HoogteOms">
-<Description>
-uitgedrukt in 10x mm</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="HoogteSensor">
-<Description>
-</Description>
-<Type>%Boolean</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Kleur2de">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="KleurZichtbaar">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ReturnsAfter">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="ZaagOpdracht">
-<Description>
-</Description>
-<Type>DOM.Halux.TBX.impl.ZaagOpdracht</Type>
-</Property>
-</Class>
-<Checksum value="2325028878"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:26">
+<Checksum value="3598423857"/>
 </Export>
Index: DOM/PM/enu/DynamicSpace1.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/enu/DynamicSpace1.cls.xml	(.../DynamicSpace1.cls.xml)	(revision 903)
+++ DOM/PM/enu/DynamicSpace1.cls.xml	(.../DynamicSpace1.cls.xml)	(revision 1019)
@@ -1,45 +1,4 @@
 <?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-02-25 14:15:36">
-<Class name="DOM.PM.enu.DynamicSpace1">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.Enumeration</Super>
-<TimeChanged>62147,51399.582192</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,Voorraad,Opbergen,SpoelenEnAfval,Voorbereiden,KokenEnBakken</Default>
-</Parameter>
-
-<Method name="Voorraad">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[ 	Quit "Voorraad"
-]]></Implementation>
-</Method>
-
-<Method name="Opbergen">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[ 	Quit "Opbergen"
-]]></Implementation>
-</Method>
-
-<Method name="SpoelenEnAfval">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[ 	Quit "SpoelenEnAfval"
-]]></Implementation>
-</Method>
-
-<Method name="Voorbereiden">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[ 	Quit "Voorbereiden"
-]]></Implementation>
-</Method>
-
-<Method name="KokenEnBakken">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[ 	Quit "KokenEnBakken"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="86506690"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:32">
+<Checksum value="1775130760"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderOverdoosv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderOverdoosv001.cls.xml	(.../HFBuilderOverdoosv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderOverdoosv001.cls.xml	(.../HFBuilderOverdoosv001.cls.xml)	(revision 1019)
@@ -1,40 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderOverdoosv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29584.916974</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Overdoos"
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="2499258615"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:30">
+<Checksum value="1783270630"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderVerpakkingv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderVerpakkingv001.cls.xml	(.../HFBuilderVerpakkingv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderVerpakkingv001.cls.xml	(.../HFBuilderVerpakkingv001.cls.xml)	(revision 1019)
@@ -1,36 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderVerpakkingv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</Super>
-<TimeChanged>62101,29629.277221</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Verpakking"
-	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderHulsVerpv001).%New(##this)
-	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderZijwandVerpv001).%New(##this)
-	Do ##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderOverdoosv001).%New(##this)
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="681324550"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:30">
+<Checksum value="1783270630"/>
 </Export>
Index: APPS/Halux/TBX/dto/SyncBatches.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/dto/SyncBatches.cls.xml	(.../SyncBatches.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/dto/SyncBatches.cls.xml	(.../SyncBatches.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-02-18 16:01:00">
-<Class name="APPS.Halux.TBX.dto.SyncBatches">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62140,57718.155108</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="L1">
-<Type>SyncBatch</Type>
-</Property>
-
-<Property name="L2">
-<Type>SyncBatch</Type>
-</Property>
-
-<Property name="Direct">
-<Type>SyncBatch</Type>
-</Property>
-</Class>
-<Checksum value="2416483266"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:11">
+<Checksum value="3246468698"/>
 </Export>
Index: DOM/LEV/impl/VerwijderLeverancierEvent.cls.xml
===================================================================
diff -u
--- DOM/LEV/impl/VerwijderLeverancierEvent.cls.xml	(revision 0)
+++ DOM/LEV/impl/VerwijderLeverancierEvent.cls.xml	(revision 1019)
@@ -0,0 +1,23 @@
+<?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-04-18 16:29:03">
+<Class name="DOM.LEV.impl.VerwijderLeverancierEvent">
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<TimeChanged>62199,59359.255985</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "VerwijderLeverancierEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="2610120522"/>
+</Export>
Index: zTryout/ARC/DOM/AKP/AankoopAPI.cls.xml
===================================================================
diff -u
--- zTryout/ARC/DOM/AKP/AankoopAPI.cls.xml	(revision 0)
+++ zTryout/ARC/DOM/AKP/AankoopAPI.cls.xml	(revision 1019)
@@ -0,0 +1,16 @@
+<?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-04-12 14:14:39">
+<Class name="zTryout.ARC.DOM.AKP.AankoopAPI">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62193,51290.002631</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefAankoopbaarProduct">
+<Abstract>1</Abstract>
+<FormalSpec>PRNr:%Integer</FormalSpec>
+<ReturnType>AankoopbaarProduct</ReturnType>
+</Method>
+</Class>
+<Checksum value="1259715938"/>
+</Export>
Index: APPS/HR/ProTime/Synchronize.cls.xml
===================================================================
diff -u -r946 -r1019
--- APPS/HR/ProTime/Synchronize.cls.xml	(.../Synchronize.cls.xml)	(revision 946)
+++ APPS/HR/ProTime/Synchronize.cls.xml	(.../Synchronize.cls.xml)	(revision 1019)
@@ -1,29 +1,4 @@
 <?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-03-21 11:43:33">
-<Class name="APPS.HR.ProTime.Synchronize">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62171,42295.602292</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.HR.ProTime.SynchronizeD</DataLocation>
-<DefaultData>SynchronizeDefaultData</DefaultData>
-<IdLocation>^APPS.HR.ProTime.SynchronizeD</IdLocation>
-<IndexLocation>^APPS.HR.ProTime.SynchronizeI</IndexLocation>
-<StreamLocation>^APPS.HR.ProTime.SynchronizeS</StreamLocation>
-<Data name="SynchronizeDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>SQLConnection</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="233012255"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:09">
+<Checksum value="1999509639"/>
 </Export>
Index: BL/Prod/Kenmerk/pxDataDefinitie.cls.xml
===================================================================
diff -u -r734 -r1019
--- BL/Prod/Kenmerk/pxDataDefinitie.cls.xml	(.../pxDataDefinitie.cls.xml)	(revision 734)
+++ BL/Prod/Kenmerk/pxDataDefinitie.cls.xml	(.../pxDataDefinitie.cls.xml)	(revision 1019)
@@ -1,32 +1,4 @@
 <?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:53">
-<Class name="BL.Prod.Kenmerk.pxDataDefinitie">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>60180,33126.898667</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ID">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="KenmerkNaam">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Waarden">
-<Type>%Library.String</Type>
-<Collection>list</Collection>
-<Parameter name="MAXLEN" value="10000"/>
-</Property>
-
-<Property name="ProductNr">
-<Type>%Library.String</Type>
-</Property>
-
-<Property name="Groep">
-<Type>%Library.String</Type>
-</Property>
-</Class>
-<Checksum value="4126834914"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:17">
+<Checksum value="3305919208"/>
 </Export>
Index: APPS/Halux/Planning/impl/EventCatcher.cls.xml
===================================================================
diff -u -r994 -r1019
--- APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 994)
+++ APPS/Halux/Planning/impl/EventCatcher.cls.xml	(.../EventCatcher.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-03-28 08:01:47">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 15:46:17">
 <Class name="APPS.Halux.Planning.impl.EventCatcher">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62178,28907.368431</TimeChanged>
+<TimeChanged>62200,56792.879302</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="InitSubscriptions">
@@ -30,7 +30,7 @@
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
 		Set ToeleveringInfo = Calculator.BerekenToeleveringInfo()
 		Set Status = ToeleveringInfo.%Save()
-		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Aangemaakte ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Aangemaakte ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 	}
 ]]></Implementation>
 </Method>
@@ -45,7 +45,7 @@
 		Set Calculator = ##class(APPS.Halux.Planning.impl.ResourceGebruikCalculator).%New(Toelevering)
 		Set ToeleveringInfo = Calculator.BerekenToeleveringInfo()
 		Set Status = ToeleveringInfo.%Save()
-		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$c(10)_$c(13)_"Status: "_$$ParseStatus^vhLib(Status)) }
+		If ($$$ISERR(Status)) { Do ##class(vhLib.Logger).%New("Halux planningstool").Error("Gewijzigde ToeleveringInfo object kon niet gesaved worden!","Toelevering: "_Toelevering.GeefToeNr()_$C(13,10)_"Status: "_$$ParseStatus^vhLib(Status)) }
 	}
 ]]></Implementation>
 </Method>
@@ -59,5 +59,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1857567287"/>
+<Checksum value="366071724"/>
 </Export>
Index: DOM/PM/DynamicSpace.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/PM/DynamicSpace.cls.xml	(.../DynamicSpace.cls.xml)	(revision 903)
+++ DOM/PM/DynamicSpace.cls.xml	(.../DynamicSpace.cls.xml)	(revision 1019)
@@ -1,18 +1,4 @@
 <?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-02-25 14:37:58">
-<Class name="DOM.PM.DynamicSpace">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62147,52741.599299</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="GeefSVG">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Zone:%String</FormalSpec>
-<ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	quit "\\notes01\Images\Orgalux\DynSpace\"_Zone_".svg"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="559086258"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:28">
+<Checksum value="3706042939"/>
 </Export>
FishEye: Tag 1019 refers to a dead (removed) revision in file `zTryout/ARC/Client/TransportClient.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: vhLib/Logging.cls.xml
===================================================================
diff -u -r935 -r1019
--- vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 935)
+++ vhLib/Logging.cls.xml	(.../Logging.cls.xml)	(revision 1019)
@@ -1,12 +1,12 @@
 <?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-03-11 13:31:32">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 10:40:22">
 <Class name="vhLib.Logging">
 <ClassType>persistent</ClassType>
 <IncludeCode>vhLib.Macro</IncludeCode>
 <ProcedureBlock>1</ProcedureBlock>
 <StorageStrategy>Default</StorageStrategy>
 <Super>%Persistent</Super>
-<TimeChanged>62161,48766.593815</TimeChanged>
+<TimeChanged>62200,38438.404045</TimeChanged>
 <TimeCreated>61769,47367.516692</TimeCreated>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -125,6 +125,10 @@
 <Properties>Datum</Properties>
 </Index>
 
+<Index name="IndexOnTijd">
+<Properties>Tijd</Properties>
+</Index>
+
 <Index name="IndexOnNiveau">
 <Properties>Niveau</Properties>
 </Index>
@@ -137,6 +141,10 @@
 <Properties>Groep</Properties>
 </Index>
 
+<Index name="IndexOnSubID">
+<Properties>SubID</Properties>
+</Index>
+
 <UDLText name="T">
 <Content><![CDATA[
 //Method AAACompilerFirst() moet eerst staan in alfabetische lijst, want moet als eerste gecompileerd worden!
@@ -448,5 +456,5 @@
 </Data>
 </Storage>
 </Class>
-<Checksum value="1924367557"/>
+<Checksum value="1887876398"/>
 </Export>
Index: APPS/Halux/Planning/impl/ProductInfo.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/Halux/Planning/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 1012)
+++ APPS/Halux/Planning/impl/ProductInfo.cls.xml	(.../ProductInfo.cls.xml)	(revision 1019)
@@ -1,10 +1,10 @@
 <?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-04-12 12:13:52">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-18 16:09:47">
 <Class name="APPS.Halux.Planning.impl.ProductInfo">
 <ClassType>persistent</ClassType>
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%Persistent</Super>
-<TimeChanged>62193,44043.690545</TimeChanged>
+<TimeChanged>62199,58203.294811</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Property name="Aantal">
@@ -19,6 +19,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="ProductNummer">
+<Type>%Integer</Type>
+</Property>
+
 <Property name="StockProbleem">
 <Type>%String</Type>
 </Property>
@@ -88,8 +92,11 @@
 <Value name="7">
 <Value>VerpakkingType</Value>
 </Value>
+<Value name="8">
+<Value>ToeleveringLijnNr</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
-<Checksum value="3681576745"/>
+<Checksum value="1440934100"/>
 </Export>
Index: APPS/Halux/common/BatchAPI.cls.xml
===================================================================
diff -u -r946 -r1019
--- APPS/Halux/common/BatchAPI.cls.xml	(.../BatchAPI.cls.xml)	(revision 946)
+++ APPS/Halux/common/BatchAPI.cls.xml	(.../BatchAPI.cls.xml)	(revision 1019)
@@ -1,17 +1,4 @@
 <?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-03-09 14:24:50">
-<Class name="APPS.Halux.common.BatchAPI">
-<Abstract>1</Abstract>
-<ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62159,51964.707196</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="GeefNieuweBatch">
-<Description>
-Toeleveringen van het type DOM.LEV.Toelevering</Description>
-<FormalSpec>Toeleveringen:%ListOfObjects</FormalSpec>
-<ReturnType>APPS.Halux.common.Batch</ReturnType>
-</Method>
-</Class>
-<Checksum value="3605988068"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:13">
+<Checksum value="3255171636"/>
 </Export>
Index: APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml
===================================================================
diff -u -r994 -r1019
--- APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 994)
+++ APPS/PM/dto/Kenm/KenmerkMetadata.cls.xml	(.../KenmerkMetadata.cls.xml)	(revision 1019)
@@ -1,76 +1,4 @@
 <?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-04-07 13:54:12">
-<Class name="APPS.PM.dto.Kenm.KenmerkMetadata">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62188,50059.817047</TimeChanged>
-<TimeCreated>62153,42300.182934</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Mogelijkheden">
-<Type>%String</Type>
-<Collection>list</Collection>
-</Property>
-
-<Property name="Multipliciteit">
-<Type>APPS.PM.dto.Kenm.Multipliciteit</Type>
-</Property>
-
-<Property name="Naam">
-<Type>%String</Type>
-</Property>
-
-<Property name="VeldBreedteInTekens">
-<Description>
-De breedte van de kolom voor dit kenmer, uitgedrukt in antal tekens. </Description>
-<Type>%Integer</Type>
-</Property>
-
-<Property name="DataType">
-<Type>APPS.PM.enu.DataType</Type>
-</Property>
-
-<Property name="DataTypeBeperking">
-<Type>APPS.PM.dto.Kenm.DataTypeBeperking</Type>
-</Property>
-
-<Property name="NieuweWaardeToegelaten">
-<Type>%Boolean</Type>
-</Property>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^APPS.PM.dto54D.KenmerkMetad5EED</DataLocation>
-<DefaultData>KenmerkMetadataDefaultData</DefaultData>
-<IdLocation>^APPS.PM.dto54D.KenmerkMetad5EED</IdLocation>
-<IndexLocation>^APPS.PM.dto54D.KenmerkMetad5EEI</IndexLocation>
-<StreamLocation>^APPS.PM.dto54D.KenmerkMetad5EES</StreamLocation>
-<Data name="KenmerkMetadataDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>DataType</Value>
-</Value>
-<Value name="3">
-<Value>DataTypeBerperking</Value>
-</Value>
-<Value name="4">
-<Value>Mogelijkheden</Value>
-</Value>
-<Value name="5">
-<Value>Multipliciteit</Value>
-</Value>
-<Value name="6">
-<Value>Naam</Value>
-</Value>
-<Value name="7">
-<Value>VeldBreedteInTekens</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="3694729886"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:15">
+<Checksum value="3330836102"/>
 </Export>
Index: BL/Prod/Kenmerk/pxMetaDefinitieArray.cls.xml
===================================================================
diff -u -r734 -r1019
--- BL/Prod/Kenmerk/pxMetaDefinitieArray.cls.xml	(.../pxMetaDefinitieArray.cls.xml)	(revision 734)
+++ BL/Prod/Kenmerk/pxMetaDefinitieArray.cls.xml	(.../pxMetaDefinitieArray.cls.xml)	(revision 1019)
@@ -1,15 +1,4 @@
 <?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:53">
-<Class name="BL.Prod.Kenmerk.pxMetaDefinitieArray">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>60179,36645.72984</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Items">
-<Type>BL.Prod.Kenmerk.pxMetaDefinitie</Type>
-<Collection>list</Collection>
-</Property>
-</Class>
-<Checksum value="3612464553"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:17">
+<Checksum value="3305919208"/>
 </Export>
Index: APPS/PM/dto/Kenm/ProductKenmerk.cls.xml
===================================================================
diff -u -r976 -r1019
--- APPS/PM/dto/Kenm/ProductKenmerk.cls.xml	(.../ProductKenmerk.cls.xml)	(revision 976)
+++ APPS/PM/dto/Kenm/ProductKenmerk.cls.xml	(.../ProductKenmerk.cls.xml)	(revision 1019)
@@ -1,28 +1,4 @@
 <?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-03-03 12:53:23">
-<Class name="APPS.PM.dto.Kenm.ProductKenmerk">
-<Description>
-JBL + 2011-02-28</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>62153,46472.219108</TimeChanged>
-<TimeCreated>62153,42301.194572</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="KenmerkNaam">
-<Type>%String</Type>
-</Property>
-
-<Property name="Waarden">
-<Description>
-Waarden, opgeslaan als lijst van strings</Description>
-<Type>%String</Type>
-<Collection>list</Collection>
-</Property>
-
-<Property name="Groep">
-<Type>%String</Type>
-</Property>
-</Class>
-<Checksum value="2566587385"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:15">
+<Checksum value="3330836102"/>
 </Export>
Index: DOM/Halux/TBX/enu/BodemRug.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/enu/BodemRug.cls.xml	(.../BodemRug.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/enu/BodemRug.cls.xml	(.../BodemRug.cls.xml)	(revision 1019)
@@ -1,16 +1,4 @@
 <?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-02-01 17:17:43">
-<Class name="DOM.Halux.TBX.enu.BodemRug">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62123,62305.428923</TimeChanged>
-<TimeCreated>62123,54829.662635</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,B+R,B,R</Default>
-</Parameter>
-</Class>
-<Checksum value="2684494382"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:26">
+<Checksum value="3598423857"/>
 </Export>
Index: DOM/PM/enu/TBXBlumotion.cls.xml
===================================================================
diff -u -r979 -r1019
--- DOM/PM/enu/TBXBlumotion.cls.xml	(.../TBXBlumotion.cls.xml)	(revision 979)
+++ DOM/PM/enu/TBXBlumotion.cls.xml	(.../TBXBlumotion.cls.xml)	(revision 1019)
@@ -1,33 +1,4 @@
 <?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-02-16 16:38:44">
-<Class name="DOM.PM.enu.TBXBlumotion">
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62138,59979.737679</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,I,T,Z</Default>
-</Parameter>
-
-<Method name="Zonder">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "Z"
-]]></Implementation>
-</Method>
-
-<Method name="Geintegreerd">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "I"
-]]></Implementation>
-</Method>
-
-<Method name="TipOn">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[	Quit "T"
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2092903096"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:32">
+<Checksum value="1775130760"/>
 </Export>
Index: zTryout/ARC/Client/PMClient.cls.xml
===================================================================
diff -u
--- zTryout/ARC/Client/PMClient.cls.xml	(revision 0)
+++ zTryout/ARC/Client/PMClient.cls.xml	(revision 1019)
@@ -0,0 +1,30 @@
+<?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-04-12 16:32:57">
+<Class name="zTryout.ARC.Client.PMClient">
+<Import>zTryout.ARC.APPS.common</Import>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<TimeChanged>62193,59587.929542</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<UDLText name="T">
+<Content><![CDATA[/* Do ##class(zTryout.ARC.Client.PMClient).WijzigProduct() */
+]]></Content>
+</UDLText>
+
+<Method name="WijzigProduct">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+		Set ProductGewichtData = ##class(zTryout.ARC.APPS.PM.dto.ProductGewichtData).%New()
+		Set ProductGewichtData.PRNr = 64879
+		Set ProductGewichtData.GewichtInGram = 1.2345
+		Set ProductGewichtData.Cyclecounttype = ##class(zTryout.ARC.DOM.MAG.enu.Cyclecounttype).Altijd()
+		Set ProductGewichtData.TelweegschaalTelwijze = ##class(zTryout.ARC.DOM.MAG.enu.TelweegschaalTelwijze).ZonderBijsamplen()
+		
+		Set ProductService = ##class(ServiceContext).Instance().GeefProductService()
+		Do ProductService.WijzigProductGewichtData(ProductGewichtData)
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="1564948990"/>
+</Export>
Index: Stat/LevPerfOpenstaand.cls.xml
===================================================================
diff -u -r1013 -r1019
--- Stat/LevPerfOpenstaand.cls.xml	(.../LevPerfOpenstaand.cls.xml)	(revision 1013)
+++ Stat/LevPerfOpenstaand.cls.xml	(.../LevPerfOpenstaand.cls.xml)	(revision 1019)
@@ -1,470 +1,4 @@
 <?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-04-12 16:16:19">
-<Class name="Stat.LevPerfOpenstaand">
-<Description>
-Leveringsperformatie logging.
-Bij het op bon zetten wordt er gekeken of er een backorder wordt gekreëerd en hoe de stock op dat moment is.
-Tevens wordt 's nachts de log entries aangemaakt om te late leveringen te registreren.
-
-De nachtelijke log entries worden verdicht tot één lijn bij het op bon zetten van de orderlijn. Dit verdichten gebeurt ook door de nachtelijke job.
-Verwijderde orders worden ook verwijderd uit de leveringsperformantie door de nachtelijke job</Description>
-<ClassType>persistent</ClassType>
-<StorageStrategy>VHopslag</StorageStrategy>
-<Super>%Library.Persistent</Super>
-<TimeChanged>59284,43523.015</TimeChanged>
-<TimeCreated>59218,42417</TimeCreated>
-
-<Property name="ABCWaarde">
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="VALUELIST" value=";A;B;C"/>
-</Property>
-
-<Property name="AantalOrder">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="BeloofdeDatum">
-<Type>%Library.Date</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="Gebruiker">
-<Description>
-Order creator</Description>
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="GemWVK">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="IsKOM">
-<Description>
-Indien het order aan een KOM-bestelling gelinkt is of geweest is
-Leeg : Niet KOM
-T : Nog gelinkt aan toelevering
-K : Niet meer gelinkt aan toelevering</Description>
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="DISPLAYLIST" value=";Toelevering;InWMS;InStock"/>
-<Parameter name="VALUELIST" value=";T;W;K"/>
-</Property>
-
-<Property name="Klant">
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="KredietBeoordeling">
-<Description>
-Hoe het met de kredietlimiet gesteld is:
-
-Als de klant op Kode staat dan "K"
-Als de klant geen kredietlimiet heeft dan leeg
-Als de klant een kredietlimiet heeft en de openstaand krediet is kleiner dan "+"
-Anders "-" (betekend kredietlimiet overschreden)</Description>
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="DISPLAYLIST" value=";Kode;Neg tov KL;Pos tov KL"/>
-<Parameter name="VALUELIST" value=";K;-;+"/>
-</Property>
-
-<Property name="LeverDagVerschil">
-<Description>
-Verschil van de gevraagdeleverdatum met de geleverdedatum</Description>
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="SELECTIVITY" value="1.5"/>
-</Property>
-
-<Property name="Leverweek">
-<Type>%Library.Date</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="OLUNr">
-<Description>
-Uniek orderlijnnr</Description>
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="OrderDatum">
-<Type>%Date</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="OrderNr">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="OrderType">
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="VALUELIST" value=";C;P;A;K;M"/>
-</Property>
-
-<Property name="Product">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="ScanTijdStip">
-<Type>Sys.cTimeStampDisp</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="StockBeoordelingTermijn">
-<Description>
-De controle van de stock heeft 3 categoriëen (of strafpunten):
-0 : Er is voldoende dynamische theoretische stock
-1 : Er is onvoldoende dynamische theoretische stock excl. de toelevering van de laatste week
-2 : Er is onvoldoende dynamische theoretische stock incl. de toelevering van de laatste week
-5 : De toelevering is te laat</Description>
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="StockBeoordelingWeek">
-<Description>
-De controle van de stock heeft 3 categoriëen (of strafpunten):
-0 : Er is voldoende dynamische theoretische stock
-1 : Er is onvoldoende dynamische theoretische stock excl. de toelevering van de laatste week
-2 : Er is onvoldoende dynamische theoretische stock incl. de toelevering van de laatste week
-5 : De toelevering is te laat</Description>
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="StockTheoTermijn">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="StockTheoWeek">
-<Type>%Library.Integer</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Property name="StockType">
-<Type>%Library.String</Type>
-<Final>0</Final>
-<Calculated>0</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputed>0</SqlComputed>
-<Transient>0</Transient>
-<Parameter name="DISPLAYLIST" value=";Stock;NietStock;Contract"/>
-<Parameter name="VALUELIST" value=";S;N;C"/>
-</Property>
-
-<Property name="Waarde">
-<Type>%Library.Float</Type>
-<Final>0</Final>
-<Calculated>1</Calculated>
-<Collection/>
-<MultiDimensional>0</MultiDimensional>
-<Private>0</Private>
-<Relationship>0</Relationship>
-<Required>0</Required>
-<SqlComputeCode> Set {*}=##class(Prod.Product).GetPropViaNr({Product},"CifPPL")*{AantalOrder}
-</SqlComputeCode>
-<SqlComputed>1</SqlComputed>
-<Transient>0</Transient>
-</Property>
-
-<Index name="UniqueStatDatumIndex">
-<Description>
-Uniekheid index voor property StatDatum</Description>
-<Extent>0</Extent>
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>OrderNr,OLUNr</Properties>
-<Unique>1</Unique>
-</Index>
-
-<Storage name="VHopslag">
-<Type>%Library.CacheSQLStorage</Type>
-<SqlIdExpression/>
-<SqlRowIdName/>
-<SqlTableNumber/>
-<StreamLocation>^Stat.LevPerfOpenstaandS</StreamLocation>
-<SQLMap name="Data">
-<Type>data</Type>
-<Global>^LEVPERF</Global>
-<PopulationPct/>
-<PopulationType/>
-<Structure>delimited</Structure>
-<Subscript name="1">
-<AccessType/>
-<Delimiter/>
-<Expression>"O"</Expression>
-<StartValue/>
-<StopExpression/>
-<StopValue/>
-</Subscript>
-<Subscript name="3">
-<AccessType/>
-<Delimiter/>
-<Expression>{OrderNr}</Expression>
-<StartValue/>
-<StopExpression/>
-<StopValue/>
-</Subscript>
-<Subscript name="4">
-<AccessType/>
-<Delimiter/>
-<Expression>{OLUNr}</Expression>
-<StartValue/>
-<StopExpression/>
-<StopValue/>
-</Subscript>
-<Data name="ABCWaarde">
-<Delimiter>"\"</Delimiter>
-<Piece>27</Piece>
-</Data>
-<Data name="AantalOrder">
-<Delimiter>"\"</Delimiter>
-<Piece>14</Piece>
-</Data>
-<Data name="BeloofdeDatum">
-<Delimiter>"\"</Delimiter>
-<Piece>7</Piece>
-</Data>
-<Data name="Gebruiker">
-<Delimiter>"\"</Delimiter>
-<Piece>28</Piece>
-</Data>
-<Data name="GemWVK">
-<Delimiter>"\"</Delimiter>
-<Piece>26</Piece>
-</Data>
-<Data name="IsKOM">
-<Delimiter>"\"</Delimiter>
-<Piece>20</Piece>
-</Data>
-<Data name="Klant">
-<Delimiter>"\"</Delimiter>
-<Piece>1</Piece>
-</Data>
-<Data name="KredietBeoordeling">
-<Delimiter>"\"</Delimiter>
-<Piece>2</Piece>
-</Data>
-<Data name="LeverDagVerschil">
-<Delimiter>"\"</Delimiter>
-<Piece>17</Piece>
-</Data>
-<Data name="Leverweek">
-<Delimiter>"\"</Delimiter>
-<Piece>18</Piece>
-</Data>
-<Data name="OrderDatum">
-<Delimiter>"\"</Delimiter>
-<Piece>6</Piece>
-</Data>
-<Data name="OrderType">
-<Delimiter>"\"</Delimiter>
-<Piece>8</Piece>
-</Data>
-<Data name="Product">
-<Delimiter>"\"</Delimiter>
-<Piece>3</Piece>
-</Data>
-<Data name="ScanTijdStip">
-<Delimiter>"\"</Delimiter>
-<Piece>21</Piece>
-</Data>
-<Data name="StockBeoordelingTermijn">
-<Delimiter>"\"</Delimiter>
-<Piece>24</Piece>
-</Data>
-<Data name="StockBeoordelingWeek">
-<Delimiter>"\"</Delimiter>
-<Piece>22</Piece>
-</Data>
-<Data name="StockTheoTermijn">
-<Delimiter>"\"</Delimiter>
-<Piece>25</Piece>
-</Data>
-<Data name="StockTheoWeek">
-<Delimiter>"\"</Delimiter>
-<Piece>23</Piece>
-</Data>
-<Data name="StockType">
-<Delimiter>"\"</Delimiter>
-<Piece>19</Piece>
-</Data>
-</SQLMap>
-</Storage>
-</Class>
-<Checksum value="1319952019"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:44">
+<Checksum value="4036238467"/>
 </Export>
Index: BL/Prod/Kenmerk/pxDataDefinitieArray.cls.xml
===================================================================
diff -u -r734 -r1019
--- BL/Prod/Kenmerk/pxDataDefinitieArray.cls.xml	(.../pxDataDefinitieArray.cls.xml)	(revision 734)
+++ BL/Prod/Kenmerk/pxDataDefinitieArray.cls.xml	(.../pxDataDefinitieArray.cls.xml)	(revision 1019)
@@ -1,15 +1,4 @@
 <?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:53">
-<Class name="BL.Prod.Kenmerk.pxDataDefinitieArray">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>60179,48158.777804</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Items">
-<Type>BL.Prod.Kenmerk.pxDataDefinitie</Type>
-<Collection>list</Collection>
-</Property>
-</Class>
-<Checksum value="4166861110"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:17">
+<Checksum value="3305919208"/>
 </Export>
Index: APPS/Halux/TBX/dto/Batch.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/dto/Batch.cls.xml	(.../Batch.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/dto/Batch.cls.xml	(.../Batch.cls.xml)	(revision 1019)
@@ -1,60 +1,4 @@
 <?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-02-03 08:48:04">
-<Class name="APPS.Halux.TBX.dto.Batch">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62123,64130.579057</TimeChanged>
-<TimeCreated>62123,54829.389539</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="BatchDisplayKey">
-<Description><![CDATA[
-BatchID+SubBatch
-De subbatch is voor de <b>PRE</b>batch voor TipOn, Spoelbak, Sifon]]></Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="BatchID">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="DueoutTime">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="Lijn">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="StartTime">
-<Description>
-</Description>
-<Type>%String</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-
-<Property name="SubBatch">
-<Description>
-</Description>
-<Type>APPS.Halux.TBX.enu.SubBatch</Type>
-<Private>1</Private>
-<Required>1</Required>
-</Property>
-</Class>
-<Checksum value="3950487769"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:11">
+<Checksum value="3246468698"/>
 </Export>
Index: vhUnitTest/TECH/Error.cls.xml
===================================================================
diff -u -r946 -r1019
--- vhUnitTest/TECH/Error.cls.xml	(.../Error.cls.xml)	(revision 946)
+++ vhUnitTest/TECH/Error.cls.xml	(.../Error.cls.xml)	(revision 1019)
@@ -1,130 +1,4 @@
 <?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-03-21 08:21:19">
-<Class name="vhUnitTest.TECH.Error">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase,TECH.Error.ErrorAdaptor</Super>
-<TimeChanged>62171,30162.434236</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ResultTrap">
-<Description>
-do ##class(vhUnitTest.Manager).RunTest("/Display=all","TECH.Error")</Description>
-<Type>%Boolean</Type>
-<Private>1</Private>
-</Property>
-
-<Property name="ErrorMessage">
-<Type>%String</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="Tests">
-<Implementation><![CDATA[
-	do $$$LogMessage("TrapOff")
-	do ..TrapOff()
-	
-	do $$$LogMessage("TrapOffOnError")
-	do ..TrapOffOnError()
-	
-	do $$$LogMessage("TrapNotOffOnError")
-	do ..TrapNotOffOnError()	
-	
-	do $$$LogMessage("MultipleTrapping")
-	do ..MultipleTrapping()	
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="TrapOff">
-<Implementation><![CDATA[
-	$$$LocalErrorTrapOn
-	$$$LocalErrorTrapOff
-	
-	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="TrapOffOnError">
-<Implementation><![CDATA[
-	$$$LocalErrorTrapOn
-	do ..RaiseError() 
-	$$$LocalErrorTrapOff
-	
-	do $$$AssertTrue(..ResultTrap)
-	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="TrapNotOffOnError">
-<Implementation><![CDATA[
-	$$$LocalErrorTrapOn
-	do ..RaiseError() 
-	
-	do $$$AssertTrue(..ResultTrap)
-	do $$$AssertTrue($data(%TECHErrorLocalTrap),"Controle niet opgekuiste error trap")
-	do $$$AssertFalse($ETRAP="")
-	
-	$$$LocalErrorTrapOff
-	do $$$AssertFalse($data(%TECHErrorLocalTrap),"Controle mooie opkuis error trap")
-	do $$$AssertTrue($ETRAP="")
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="MultipleTrapping">
-<Implementation><![CDATA[
-	$$$LocalErrorTrapOnLabeled("Trap1","")
-	do ..MultiTrapMethod1()
-	
-	do $$$AssertTrue(..ResultTrap)
-	do $$$AssertEquals($ETRAP,"Do %TECHErrorLocalTrap(8).TrapHandler(""Trap1"","""")")
-	
-	do ..RaiseError()
-	
-	do $$$AssertEquals(..ErrorMessage,"Trap1","")
-	do $$$AssertTrue($data(%TECHErrorLocalTrap),"Controle niet opgekuiste error trap")
-
-	$$$LocalErrorTrapOff
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="MultiTrapMethod1">
-<Implementation><![CDATA[
-	$$$LocalErrorTrapOnLabeled("Trap2","")
-	do ..RaiseError()
-	$$$LocalErrorTrapOff
-	
-	do $$$AssertTrue(..ResultTrap)
-	do $$$AssertEquals(..ErrorMessage,"Trap2","Testen dat trap2 zeker uitgevoerd is")
-	do $$$AssertTrue($data(%TECHErrorLocalTrap),"Controle niet opgekuiste error trap")
-	do $$$AssertEquals($ETRAP,"")
-	
-	quit
-]]></Implementation>
-</Method>
-
-<Method name="RaiseError">
-<Implementation><![CDATA[	write 10/0  // Een error veroorzaken
-]]></Implementation>
-</Method>
-
-<Method name="TrapHandler">
-<FormalSpec>Label,Options</FormalSpec>
-<Implementation><![CDATA[
-	set ..ResultTrap = 1
-	set ..ErrorMessage = $get(Label)
-	$$$ClearLocalError
-	quit
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="2972232647"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:51">
+<Checksum value="1323546893"/>
 </Export>
Index: vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml
===================================================================
diff -u -r995 -r1019
--- vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml	(.../TestMaakPersoon.cls.xml)	(revision 995)
+++ vhUnitTest/DOM/CRM/TestMaakPersoon.cls.xml	(.../TestMaakPersoon.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-03-29 13:14:04">
-<Class name="vhUnitTest.DOM.CRM.TestMaakPersoon">
-<Description>
-JBL + 2011-03-29</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.TestCase</Super>
-<TimeChanged>62179,47644.235015</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="KlantNummer">
-<Type>%Integer</Type>
-<Private>1</Private>
-</Property>
-
-<Method name="TestMaakKlant">
-<Description>
- do ##class(vhUnitTest.Manager).RunTest("/Display=all","DOM.CRM.TestMaakPersoon")</Description>
-</Method>
-</Class>
-<Checksum value="4016928480"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:51">
+<Checksum value="1323546893"/>
 </Export>
Index: DOM/LEV/impl/MaakLeverancierEvent.cls.xml
===================================================================
diff -u
--- DOM/LEV/impl/MaakLeverancierEvent.cls.xml	(revision 0)
+++ DOM/LEV/impl/MaakLeverancierEvent.cls.xml	(revision 1019)
@@ -0,0 +1,25 @@
+<?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-04-18 16:28:30">
+<Class name="DOM.LEV.impl.MaakLeverancierEvent">
+<Description>
+JBL + 2011-04-18</Description>
+<ClassType>serial</ClassType>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.PubSub.Event</Super>
+<TimeChanged>62199,59325.744885</TimeChanged>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="%OnNew">
+<FormalSpec>Data:TECH.PubSub.EventData</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Data)
+	Set ..Type = "MaakLeverancierEvent"
+	Quit $$$OK
+]]></Implementation>
+</Method>
+</Class>
+<Checksum value="3222224294"/>
+</Export>
Index: DOM/Halux/TBX/enu/PrintDevice.cls.xml
===================================================================
diff -u -r903 -r1019
--- DOM/Halux/TBX/enu/PrintDevice.cls.xml	(.../PrintDevice.cls.xml)	(revision 903)
+++ DOM/Halux/TBX/enu/PrintDevice.cls.xml	(.../PrintDevice.cls.xml)	(revision 1019)
@@ -1,20 +1,4 @@
 <?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-02-01 17:18:33">
-<Class name="DOM.Halux.TBX.enu.PrintDevice">
-<Description>
-Aan de zaag zijn 2 printers gekoppeld.
-LabelApplicator
-LabelBackup</Description>
-<ClassType>datatype</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%String</Super>
-<TimeChanged>62123,62355.468537</TimeChanged>
-<TimeCreated>62123,54830.183627</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="VALUELIST">
-<Default>,LA,LB</Default>
-</Parameter>
-</Class>
-<Checksum value="3044523509"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:27">
+<Checksum value="3619290374"/>
 </Export>
Index: vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv002.cls.xml
===================================================================
diff -u -r734 -r1019
--- vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv002.cls.xml	(.../HFFrontRelingHouderv002.cls.xml)	(revision 734)
+++ vhUnitTest/DOM/PM/Maatwerk/HF/TBX/HFFrontRelingHouderv002.cls.xml	(.../HFFrontRelingHouderv002.cls.xml)	(revision 1019)
@@ -1,67 +1,4 @@
 <?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:13">
-<Class name="vhUnitTest.DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv002">
-<Description>
-Oproepen via 
-	do ##class(vhUnitTest.Manager).RunTest("/debug/display=all","DOM.PM.Maatwerk.HF.TBX.HFFrontRelingHouderv002") 
-	</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>vhUnitTest.DOM.PM.Maatwerk.HF.ITestCaseTBX</Super>
-<TimeChanged>62069,47921.956504</TimeChanged>
-<TimeCreated>62012,63523.617197</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="IsBuilderMeestRecenteVersie">
-<Description>
-Dient om aan te duiden of welke halffabTabel gebruikt wordt : Productie (persistent) of UnitTest (in-memory, artificial data) </Description>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit 1
-]]></Implementation>
-</Method>
-
-<Method name="HalffabTabelVullen">
-<FormalSpec>HalffabTabel:DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabTabel</ReturnType>
-<Implementation><![CDATA[
-	// HalffabTabel vullen met artificiële halffab data 
-	; Do HalffabTabel.AddHalffab(...)
-	; Do HalffabTabel.AddHalffab(...)
-]]></Implementation>
-</Method>
-
-<Method name="aTestFrontRelingHouder">
-<Implementation><![CDATA[
-	Set Context=..ContextPROD("Intivo")
-	Set IngegevenKenmerken=..DataTBX.GeefIngegevenKenmerken("I","SW","CLZ")
-	Set IngegevenKenmerken.VoorwandType="R"
-	Set HalffabItemFrontHouder=..DataTBX.GeefHFItemFrontHouder(Context)
-	Do Context.HalffabItemsBoom.AddHalffabItem(HalffabItemFrontHouder)
-	
-	Set HFBuilder=##class(DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFFrontRelingHouderv002).%New("")
-	Set HalffabItem=HFBuilder.Bereken(IngegevenKenmerken,Context)
-	
-	Do $$$AssertTrue($IsObject(HalffabItem),"HalffabItem is een object")
-	Do $$$AssertTrue(HalffabItem.%Extends("DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem"),"HalffabItem is een StandaardHalffabItem")
-	Do $$$AssertTrue($IsObject(HalffabItem.Halffab),"HalffabItem heeft een halffab")
-	Do $$$AssertEquals(HalffabItem.Halffab.UnID,449726,"Halffab UnID voor TBX Front RelingHouder")
-
-	Quit
-]]></Implementation>
-</Method>
-
-<Method name="TestXX">
-<Implementation><![CDATA[	; ToDo
-]]></Implementation>
-</Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-// Methods ter voorbereiding van de testen
-// ======= === ============= === == ====== 
-*/
-]]></Content>
-</UDLText>
-</Class>
-<Checksum value="2448291397"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:51">
+<Checksum value="1323546893"/>
 </Export>
Index: TECH/Events/OrderDeletedEventData.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderDeletedEventData.cls.xml	(.../OrderDeletedEventData.cls.xml)	(revision 924)
+++ TECH/Events/OrderDeletedEventData.cls.xml	(.../OrderDeletedEventData.cls.xml)	(revision 1019)
@@ -1,26 +1,4 @@
 <?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-02-16 13:34:07">
-<Class name="TECH.Events.OrderDeletedEventData">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.EventData</Super>
-<TimeChanged>62138,48903.410741</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-</Property>
-
-<Method name="%OnNew">
-<FormalSpec>Order:DOM.OV.Order</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Order = Order
-	Quit $$$OK
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="3405835983"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:46">
+<Checksum value="4077963501"/>
 </Export>
Index: zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml
===================================================================
diff -u -r946 -r1019
--- zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml	(.../IntegratieTest.cls.xml)	(revision 946)
+++ zTryout/CSC/PM/Maatwerk/HF/IntegratieTest.cls.xml	(.../IntegratieTest.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-03-21 13:40:22">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-11 11:11:55">
 <Class name="zTryout.CSC.PM.Maatwerk.HF.IntegratieTest">
 <ProcedureBlock>1</ProcedureBlock>
 <Super>%RegisteredObject</Super>
-<TimeChanged>62171,49305.163974</TimeChanged>
+<TimeChanged>62192,40326.241801</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="MaakProductTBXIntivo">
@@ -128,7 +128,7 @@
 	
 	Set Familie=##class(DOM.PM.enu.Familie).AluKader()
 	Set Variant=##class(DOM.PM.enu.AluKaderVariant).Basis()
-	Set KlantID = 1000
+	Set KlantID = 7587
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
@@ -180,7 +180,7 @@
 	Set Familie=##class(DOM.PM.enu.Familie).Lade()
 	Set Variant=##class(DOM.PM.enu.LadeVariant).TBXIntivo()
 	
-	Set KlantID = 1000
+	Set KlantID = 7587
 	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
 	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
 	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
@@ -222,5 +222,5 @@
 ]]></Implementation>
 </Method>
 </Class>
-<Checksum value="2028571002"/>
+<Checksum value="2678004561"/>
 </Export>
Index: DOM/LEV/Toelevering.cls.xml
===================================================================
diff -u -r994 -r1019
--- DOM/LEV/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 994)
+++ DOM/LEV/Toelevering.cls.xml	(.../Toelevering.cls.xml)	(revision 1019)
@@ -1,9 +1,9 @@
 <?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-04-06 08:51:05">
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 13:02:16">
 <Class name="DOM.LEV.Toelevering">
 <Abstract>1</Abstract>
 <ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62187,31872.301997</TimeChanged>
+<TimeChanged>62200,46952.696089</TimeChanged>
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Method name="GeefToeNr">
@@ -55,5 +55,5 @@
 <Implementation><![CDATA[]]></Implementation>
 </Method>
 </Class>
-<Checksum value="1301177534"/>
+<Checksum value="1256183517"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHulsVerpv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHulsVerpv001.cls.xml	(.../HFBuilderHulsVerpv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderHulsVerpv001.cls.xml	(.../HFBuilderHulsVerpv001.cls.xml)	(revision 1019)
@@ -1,44 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderHulsVerpv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29584.649603</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol="Huls"
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set HalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, ..Rol)
-	Set HalffabItem.Aantal = 2
-	
-	Quit HalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="2799034106"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:29">
+<Checksum value="3710373900"/>
 </Export>
Index: PVE/xlExport.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/xlExport.cls.xml	(.../xlExport.cls.xml)	(revision 734)
+++ PVE/xlExport.cls.xml	(.../xlExport.cls.xml)	(revision 1019)
@@ -1,121 +1,4 @@
 <?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:05">
-<Class name="PVE.xlExport">
-<IncludeCode>BL.Prod,%Prod.Product</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>61739,30312.054695</TimeChanged>
-<TimeCreated>61739,30450.134025</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="ExcelLijsten">
-<Description>
-d ##class(PVE.xlExport).ExcelLijsten()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	   Set bl=..%New()
-	   ;w "Begin export",!
-	   ;Do bl.ExportTabel("^KFAB","fabrikanten.csv")
-	   ;w "Fabrikanten ok",!
-	   ;Do bl.ExportTabel("^KVER","verdelers.csv")
-	   ;w "Verdelers ok",!
-	   Do bl.ExportProductGegevens("productinfo.csv")
-	   w "Einde",!
-]]></Implementation>
-</Method>
-
-<Method name="ExportTabel">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>Tabel:%String,FileName:%String</FormalSpec>
-<Implementation><![CDATA[
-    Set Dev=$$OPEN^vhDEV(,FileName,"W","T")
-	Use Dev
-	Write "Code;Afkorting;Nummer;Naam;Woonplaats",!
-    Set Code="A"
-    For  Set Code=$O(@Tabel@(Code)) Quit:Code=""  Do
-    . Set xCode=$G(@Tabel@(Code,0))
-    . Set Nr=$Piece(xCode,"\"),Naam=$Piece(xCode,"\",2),Woonplaats=$Piece(xCode,"\",7),Afkorting=$Piece(xCode,"\",10)
-    . Write Code,";",Afkorting,";",Nr,";",Naam,";",Woonplaats,!
-    Do CLOSE^vhDEV(Dev)
-]]></Implementation>
-</Method>
-
-<Method name="ExportProductGegevens">
-<Description>
-d ##class(PVE.xlExport).ExportProductGegevens("productinfo.txt")</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>FileName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set bl=..%New()
-	Set D="\"
-	Set Dev=$$OPEN^vhDEV(,FileName,"W","T")
-	Use Dev
-	Write "SortKey",*9,"Klassificatie",*9,"GroepTelbaar",*9,"SubGroepTelbaar",*9,"PRNr",*9,"KortTekst",*9,"LangTekst",*9,"Telbaar",!
-	Set PRNr=1000
-	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
-	. Set Product=##class(Prod.Product).%OpenId(PRNr)
-	. Set x0=^KPR(PRNr,0)
-	. Set x1=^KPR(PRNr,1)
-	. Set x6=$G(^KPR(PRNr,6))
-    . Set KortTekst=$Piece(x0,"\")
-    . Set tekst1=$Piece(x0,"\",2),tekst2=$Piece(x0,"\",11),tekst3=$Piece(x6,"\",1)
-	. Set LangTekst=tekst1_$S(tekst2'="":" "_tekst2,1:"")_$S(tekst3'="":" "_tekst3,1:"")
-	. Set Telbaar=$Piece(x1,"\",7)
-	. Set LinkType=$Piece(x0,"\",23)
-	. Set Type=$S($E(LinkType)="H":"Halffabr",$E(LinkType)="K":"Kind",1:"Beslag")
-	. Set KlassificatieKey=$$$PRGet($$$KlassificatieKey)
-	. Set Klassificatie=$$DISPL^KLASS(KlassificatieKey)
-	. Set Groep=$$$PRGet($$$Groep)
-	. Set SubGroep=$$$PRGet($$$SubGroep)
-	. Set GroepTelbaar=$Piece(^KPGR1(Groep),"\",5)
-	. Set SubGroepTelbaar=$Piece(^KPSG1(SubGroep),"\",5)
-	. Set SortKey=##class(Prod.Product).%OpenId(PRNr).SortKey
-	. Write SortKey,*9,Klassificatie,*9,GroepTelbaar,*9,SubGroepTelbaar,*9,PRNr,*9,KortTekst,*9,LangTekst,*9,Telbaar,!
-	Do CLOSE^vhDEV(Dev)  ;Close FileName
-]]></Implementation>
-</Method>
-
-<Method name="ExportProductOmzet">
-<Description>
-06/01/2010
-d ##class(PVE.xlExport).ExportProductOmzet("productomzet.txt")</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>FileName:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set bl=..%New()
-	Set D="\"
-	Set Dev=$$OPEN^vhDEV(,FileName,"W","T")
-	Use Dev
-    Write "Periode",*9,"Product",*9,"Aantal",*9,"Omzet",*9,"Marge",*9,"Telbaar",*9,"PRNr",!
-	Set PRNr=1000
-	For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
-	. Set x0=^KPR(PRNr,0)
-	. Set x1=^KPR(PRNr,1)
-	. Set KortTekst=$Piece(x0,"\")
-	. Set BeginTekst=$E($TR(KortTekst," ",""),1,3)
-	. Set GenType=$$GENTYP^HAD(PRNr)
-	. Set Telbaar=$Tr($Piece(x1,"\",7),".",",")
-	. Quit:(BeginTekst'=305)&(BeginTekst'=358)&(BeginTekst'=359)&($P(GenType,"\")'="TBX")
-	. Do bl.OmzetPeriode(PRNr,KortTekst,Telbaar,"07.2009 tot 12.2009","2009.07 ","2009.12 ")
-	. Do bl.OmzetPeriode(PRNr,KortTekst,Telbaar,"07.2009 tot 09.2009","2009.07 ","2009.09 ")
-	Do CLOSE^vhDEV(Dev)  ;Close FileName
-]]></Implementation>
-</Method>
-
-<Method name="OmzetPeriode">
-<FormalSpec>PRNr:%Integer,KortTekst:%String,Telbaar:%String,Periode:%String,Begin:%String,Einde:%String</FormalSpec>
-<Implementation><![CDATA[
-	Set Cumul=$$PROD^STAT(PRNr,0,Begin,Einde,"1,4")
-	Set CumulHalux=$$PROD^STAT(PRNr,7587,Begin,Einde,"1,4")
-	For i=1:1:$L(Cumul,"\") Set $Piece(Cumul,"\",i)=$Piece(Cumul,"\",i)-$Piece(CumulHalux,"\",i)
-	Set Cumul=$Tr(Cumul,".",",")
-	Set Aantal=$Piece(Cumul,"\",1)
-	Set Omzet=$Piece(Cumul,"\",3)
-	Set Marge=$Piece(Cumul,"\",4)
-	Quit:'+Aantal
-	Write Periode,*9,KortTekst,*9,Aantal,*9,Omzet,*9,Marge,*9,Telbaar,*9,PRNr,!
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1469449535"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:44">
+<Checksum value="4036238467"/>
 </Export>
Index: APPS/Halux/Docs/intf/IDocumentBuilder.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/Docs/intf/IDocumentBuilder.cls.xml	(.../IDocumentBuilder.cls.xml)	(revision 917)
+++ APPS/Halux/Docs/intf/IDocumentBuilder.cls.xml	(.../IDocumentBuilder.cls.xml)	(revision 1019)
@@ -1,16 +1,4 @@
 <?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-02-23 12:05:57">
-<Class name="APPS.Halux.Docs.intf.IDocumentBuilder">
-<Abstract>1</Abstract>
-<ProcedureBlock>1</ProcedureBlock>
-<TimeChanged>62145,43619.876464</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="MaakDocument">
-<Abstract>1</Abstract>
-<FormalSpec>Product:DOM.PM.Product</FormalSpec>
-<ReturnType>APPS.Halux.Docs.impl.Document</ReturnType>
-</Method>
-</Class>
-<Checksum value="1707886845"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:10">
+<Checksum value="3225633901"/>
 </Export>
Index: TECH/Events/OrderDeletedEvent.cls.xml
===================================================================
diff -u -r924 -r1019
--- TECH/Events/OrderDeletedEvent.cls.xml	(.../OrderDeletedEvent.cls.xml)	(revision 924)
+++ TECH/Events/OrderDeletedEvent.cls.xml	(.../OrderDeletedEvent.cls.xml)	(revision 1019)
@@ -1,22 +1,4 @@
 <?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-02-16 13:34:57">
-<Class name="TECH.Events.OrderDeletedEvent">
-<ClassType>serial</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>TECH.PubSub.Event</Super>
-<TimeChanged>62138,48953.268667</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>Data:TECH.Events.OrderDeletedEventData</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
- 	Set ..Type = "OrderDeletedEvent"
-	Quit ##super(Data)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="3968688931"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:45">
+<Checksum value="4048975540"/>
 </Export>
Index: APPS/PM/Maatwerk/OOM/ProductOpMaatFactory.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/PM/Maatwerk/OOM/ProductOpMaatFactory.cls.xml	(.../ProductOpMaatFactory.cls.xml)	(revision 917)
+++ APPS/PM/Maatwerk/OOM/ProductOpMaatFactory.cls.xml	(.../ProductOpMaatFactory.cls.xml)	(revision 1019)
@@ -1,10 +1,4 @@
 <?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-02-25 11:43:04">
-<Class name="APPS.PM.Maatwerk.OOM.ProductOpMaatFactory">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62147,42248.053473</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-</Class>
-<Checksum value="4188613943"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:14">
+<Checksum value="3343576241"/>
 </Export>
Index: DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderAfdekKapv001.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderAfdekKapv001.cls.xml	(.../HFBuilderAfdekKapv001.cls.xml)	(revision 734)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TBX/HFBuilderAfdekKapv001.cls.xml	(.../HFBuilderAfdekKapv001.cls.xml)	(revision 1019)
@@ -1,49 +1,4 @@
 <?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:59">
-<Class name="DOM.PM.Maatwerk.Calc.HF.impl.TBX.HFBuilderAfdekKapv001">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder</Super>
-<TimeChanged>62101,29583.278734</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
-<Private>1</Private>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	Set ..Rol=##class(DOM.PM.Maatwerk.Calc.HF.enu.TBXRol).Afdekkap()
-	Quit ##super(SamengesteldHalffabItemBuilder)
-]]></Implementation>
-</Method>
-
-<Method name="Bereken">
-<FormalSpec>IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,Context:HalffabContext</FormalSpec>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabItem</ReturnType>
-<Implementation><![CDATA[
-	Set SamengesteldHalffabItem=##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%New(Context, ..Rol)
-
-	// Sub Items opbouwen 
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Links")
-	Do SamengesteldHalffabItem.VoegToe(HalffabItem)
-	Set HalffabItem = ##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%New(Context, "Rechts")
-	Do SamengesteldHalffabItem.VoegToe(HalffabItem)
-	
-	Quit SamengesteldHalffabItem
-]]></Implementation>
-</Method>
-
-<Method name="GeefHalffabListToItemProcessor">
-<Private>1</Private>
-<ReturnType>DOM.PM.Maatwerk.Calc.HF.IHalffabListToItemProcessor</ReturnType>
-<Implementation><![CDATA[	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.Processor.HFItemProcessorDoeNiks).%New()
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-</Storage>
-</Class>
-<Checksum value="2854723044"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:28">
+<Checksum value="3706042939"/>
 </Export>
Index: APPS/Halux/TBX/impl/ZaagOpdrachtBasis.cls.xml
===================================================================
diff -u -r917 -r1019
--- APPS/Halux/TBX/impl/ZaagOpdrachtBasis.cls.xml	(.../ZaagOpdrachtBasis.cls.xml)	(revision 917)
+++ APPS/Halux/TBX/impl/ZaagOpdrachtBasis.cls.xml	(.../ZaagOpdrachtBasis.cls.xml)	(revision 1019)
@@ -1,102 +1,4 @@
 <?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-02-05 14:38:46">
-<Class name="APPS.Halux.TBX.impl.ZaagOpdrachtBasis">
-<IncludeCode>TECH.Error</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>62127,52772.64678</TimeChanged>
-<TimeCreated>62123,54831.812352</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="BeschadigingLade">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="BeschadigingPlaat">
-<Description>
-</Description>
-<FormalSpec>BodemOfRug:APPS.Halux.TBX.enu.BodemRug,Kleur:%String,Hoogte:%Integer,Lengte:%Float,Reden:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="ControleMeting">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,BodemOfRug:APPS.Halux.TBX.enu.BodemRug,GewensteLengte:%Float,GemetenLengte:%Float</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="GetBatchLijst">
-<Description>
-</Description>
-<FormalSpec>LijnNr:%String</FormalSpec>
-<ReturnType>%XML.DataSet</ReturnType>
-<Implementation><![CDATA[
-	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.impl.ZaagBatches:qActiveBatchList")
-	Quit DataSet
-]]></Implementation>
-</Method>
-
-<Method name="GetBatchStatus">
-<Description>
-</Description>
-<FormalSpec>BatchIDLijn1:%String,BatchIDLijn2:%String,BatchIDDirect:%String</FormalSpec>
-<ReturnType>%AbstractList</ReturnType>
-</Method>
-
-<Method name="GetZaagLijst">
-<Description>
-</Description>
-<FormalSpec>BatchID:%String,SubBatch:%String,LijnNr:%String</FormalSpec>
-<ReturnType>%XML.DataSet</ReturnType>
-<Implementation><![CDATA[
-	Set DataSet=##class(%XML.DataSet).%New("APPS.Halux.impl.ZaagBatches:qZaagList")
-	Set sc=DataSet.SetArgs(BatchID,SubBatch)
-	If $$$ISERR(sc) $$$ThrowErrorStatus($$$errGeneralError,"GetZaagLijst dataset prepare",sc) 
-
-	Quit DataSet
-]]></Implementation>
-</Method>
-
-<Method name="PrintLabel">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="PrintLabelManueel">
-<Description>
-</Description>
-<FormalSpec>Titel:%String,BodemHoogte:%Integer,BodemLengte:%Float,RugHoogte:%Integer,RugLengte:%Float,Device:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="RegistreerStilstand">
-<Description>
-</Description>
-<FormalSpec>DuurStilstand:%Integer,RedenStilstand:%String,ZaagID:%Integer</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-
-<Method name="SetSettings">
-<Description>
-</Description>
-<FormalSpec/>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[	Quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="SetStatus">
-<Description>
-</Description>
-<FormalSpec>QueueID:%Integer,StatusType:%String</FormalSpec>
-<ReturnType>%Boolean</ReturnType>
-</Method>
-</Class>
-<Checksum value="2437260465"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:13">
+<Checksum value="3255171636"/>
 </Export>
Index: DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml	(.../ToelevLijnIndexOpPRNr.cls.xml)	(revision 1012)
+++ DOM/AKP/impl/DataM/ToelevLijnIndexOpPRNr.cls.xml	(.../ToelevLijnIndexOpPRNr.cls.xml)	(revision 1019)
@@ -1,124 +1,4 @@
 <?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-04-13 14:02:37">
-<Class name="DOM.AKP.impl.DataM.ToelevLijnIndexOpPRNr">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<StorageStrategy>VHOpslag</StorageStrategy>
-<Super>%Persistent</Super>
-<TimeChanged>62194,50569.061386</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ProductNr">
-<Type>%String</Type>
-</Property>
-
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Toelevering">
-<Type>DOM.LEV.Toelevering</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Aantal">
-<Type>%String</Type>
-</Property>
-
-<Property name="Leverdag">
-<Type>%Date</Type>
-</Property>
-
-<Property name="StockInfo">
-<Type>%String</Type>
-</Property>
-
-<Property name="ToelevNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="ToelevLijnNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="ToelevDatum">
-<Type>%Date</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="WSubscript">
-<Type>%String</Type>
-</Property>
-
-<Index name="PrimKey">
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>ProductNr,WSubscript</Properties>
-<Unique>1</Unique>
-</Index>
-
-<Method name="%OnOpen">
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..ProductNr)
-	set ..Toelevering = ##class(DOM.DomeinContext).Instance().GeefToeleveringAPI().GeefToelevering(..ToelevNr) 
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="ToelevNrGet">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $extract(..WSubscript,18,23)
-]]></Implementation>
-</Method>
-
-<Method name="ToelevDatumGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	set JJJJMMDD = $extract(..WSubscript,10,17)
-	quit $$INTDATE^vhDTyp(JJJJMMDD)
-]]></Implementation>
-</Method>
-
-<Method name="ToelevLijnNrGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	quit $translate($extract(..WSubscript,24,26)," ","")+100
-]]></Implementation>
-</Method>
-
-<Storage name="VHOpslag">
-<Type>%CacheSQLStorage</Type>
-<StreamLocation>^DOM.VKP.imp5D4.ToelevLijnIn815S</StreamLocation>
-<SQLMap name="Main">
-<Type>data</Type>
-<Global>^KPR</Global>
-<Subscript name="1">
-<Expression>{ProductNr}</Expression>
-<StartValue>0.1</StartValue>
-</Subscript>
-<Subscript name="2">
-<Expression>{WSubscript}</Expression>
-<StartValue>"W    0.0T"</StartValue>
-<StopValue>"W    0.0Tz"</StopValue>
-</Subscript>
-<Data name="Aantal">
-<Delimiter>"\"</Delimiter>
-<Piece>1</Piece>
-</Data>
-<Data name="Leverdag">
-<Delimiter>"\"</Delimiter>
-<Piece>2</Piece>
-</Data>
-<Data name="StockInfo">
-<Delimiter>"\"</Delimiter>
-<Piece>3</Piece>
-</Data>
-</SQLMap>
-</Storage>
-</Class>
-<Checksum value="1223902776"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:25">
+<Checksum value="3560778088"/>
 </Export>
Index: APPS/PM/dto/Kenm/TekstBeperking.cls.xml
===================================================================
diff -u -r1012 -r1019
--- APPS/PM/dto/Kenm/TekstBeperking.cls.xml	(.../TekstBeperking.cls.xml)	(revision 1012)
+++ APPS/PM/dto/Kenm/TekstBeperking.cls.xml	(.../TekstBeperking.cls.xml)	(revision 1019)
@@ -1,17 +1,4 @@
 <?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-04-11 16:24:07">
-<Class name="APPS.PM.dto.Kenm.TekstBeperking">
-<Description>
-JBL + 2011-02-28</Description>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>DataTypeBeperking,%XML.Adaptor</Super>
-<TimeChanged>62192,59056.871429</TimeChanged>
-<TimeCreated>62153,42302.130769</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="MaxAantalTekens">
-<Type>%Integer</Type>
-</Property>
-</Class>
-<Checksum value="2296190693"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:16">
+<Checksum value="3301849311"/>
 </Export>
Index: DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml
===================================================================
diff -u -r1012 -r1019
--- DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml	(.../OrderLijnIndexOpPRNr.cls.xml)	(revision 1012)
+++ DOM/VKP/impl/DataM/OrderLijnIndexOpPRNr.cls.xml	(.../OrderLijnIndexOpPRNr.cls.xml)	(revision 1019)
@@ -1,123 +1,4 @@
 <?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-04-13 14:01:46">
-<Class name="DOM.VKP.impl.DataM.OrderLijnIndexOpPRNr">
-<ClassType>persistent</ClassType>
-<ProcedureBlock>1</ProcedureBlock>
-<StorageStrategy>VHOpslag</StorageStrategy>
-<Super>%Persistent</Super>
-<TimeChanged>62194,50518.414832</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="ProductNr">
-<Type>%String</Type>
-</Property>
-
-<Property name="Product">
-<Type>DOM.PM.Product</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Order">
-<Type>DOM.OV.Order</Type>
-<Transient>1</Transient>
-</Property>
-
-<Property name="Aantal">
-<Type>%String</Type>
-</Property>
-
-<Property name="Leverdag">
-<Type>%Date</Type>
-</Property>
-
-<Property name="StockInfo">
-<Type>%String</Type>
-</Property>
-
-<Property name="OrderNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="OrderLijnNr">
-<Type>%Integer</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="OrderDatum">
-<Type>%Date</Type>
-<Calculated>1</Calculated>
-</Property>
-
-<Property name="WSubscript">
-<Type>%String</Type>
-</Property>
-
-<Index name="PrimKey">
-<IdKey>1</IdKey>
-<PrimaryKey>1</PrimaryKey>
-<Properties>ProductNr,WSubscript</Properties>
-<Unique>1</Unique>
-</Index>
-
-<Method name="%OnOpen">
-<Private>1</Private>
-<ReturnType>%Status</ReturnType>
-<Implementation><![CDATA[
-	set ..Product = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefProduct(..ProductNr)
-	set ..Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(..OrderNr) 
-	quit $$$OK
-]]></Implementation>
-</Method>
-
-<Method name="OrderNrGet">
-<ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	quit $extract(..WSubscript,18,23)
-]]></Implementation>
-</Method>
-
-<Method name="OrderDatumGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[
-	set JJJJMMDD = $extract(..WSubscript,10,17)
-	quit $$INTDATE^vhDTyp(JJJJMMDD)
-]]></Implementation>
-</Method>
-
-<Method name="OrderLijnNrGet">
-<ReturnType>%Date</ReturnType>
-<Implementation><![CDATA[	quit $translate($extract(..WSubscript,24,26)," ","")+100
-]]></Implementation>
-</Method>
-
-<Storage name="VHOpslag">
-<Type>%CacheSQLStorage</Type>
-<SQLMap name="Main">
-<Type>data</Type>
-<Global>^KPR</Global>
-<Subscript name="1">
-<Expression>{ProductNr}</Expression>
-<StartValue>0.1</StartValue>
-</Subscript>
-<Subscript name="2">
-<Expression>{WSubscript}</Expression>
-<StartValue>"W    0.0R"</StartValue>
-<StopValue>"W    0.0Rz"</StopValue>
-</Subscript>
-<Data name="Aantal">
-<Delimiter>"\"</Delimiter>
-<Piece>1</Piece>
-</Data>
-<Data name="Leverdag">
-<Delimiter>"\"</Delimiter>
-<Piece>2</Piece>
-</Data>
-<Data name="StockInfo">
-<Delimiter>"\"</Delimiter>
-<Piece>3</Piece>
-</Data>
-</SQLMap>
-</Storage>
-</Class>
-<Checksum value="1991922041"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:33">
+<Checksum value="1745629887"/>
 </Export>
Index: PVE/test.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/test.cls.xml	(.../test.cls.xml)	(revision 734)
+++ PVE/test.cls.xml	(.../test.cls.xml)	(revision 1019)
@@ -1,350 +1,4 @@
 <?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:05">
-<Class name="PVE.test">
-<ClassType>persistent</ClassType>
-<IncludeCode>%Prod.Product</IncludeCode>
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%Persistent</Super>
-<TimeChanged>61800,60041.522985</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="Naam">
-<Type>%String</Type>
-</Property>
-
-<Parameter name="Mode">
-<Description><![CDATA[
-6 ->16bit, 7 ->32bit]]></Description>
-<Default>6</Default>
-</Parameter>
-
-<Method name="TestSearchIndex">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>tekst,usage</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	Kill Producten
-	Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New()
-	Set pxCriteria.Usage=usage
-	Set pxCriteria.At="K"
-	Set pxCriteria.SearchTxt=tekst
-    ;Set pxCriteria.CheckCallBack="CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux"
-    ;Set pxCriteria.CheckCallBack="F`ISORGAL^ORGALUX"
-	;Set pxCriteria.Alias=$LB("A")
-	Do ##class(BL.Prod.Search).SearchIndex(pxCriteria,.Producten)
-	set aantal=0,x="" f  s x=$o(Producten(x)) q:x=""  d
-	. Set PRNr=Producten(x) w $J(PRNr,8)," ",$P($G(^KPR(PRNr,0)),"\")," ",$P($G(^KPR(PRNr,2)),"\",25),!
-	. Set aantal=aantal+1
-	kill pxCriteria
-	w aantal,!
-]]></Implementation>
-</Method>
-
-<Method name="TestValues">
-<ClassMethod>1</ClassMethod>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
- s typ="" for  set typ=$o(^Prod.SearchIndexD(typ)) quit:typ=""  do
- . k lst
- . s vnr="" for  set vnr=$O(^Prod.SearchIndexD(typ,vnr)) quit:vnr=""  do
- . . s prnr="" for  set prnr=$o(^Prod.SearchIndexD(typ,vnr,prnr)) quit:prnr=""  do
- . . . s xx=^Prod.SearchIndexD(typ,vnr,prnr)
- . . . for i=2:1:9 do
- . . . . set waarde=$li(xx,i)
- . . . . if waarde="" set waarde=" "
- . . . . set lst(i,waarde)=$get(lst(i,waarde))+1
- . w typ,!
- . zw lst
-]]></Implementation>
-</Method>
-
-<Method name="TestSQL">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>tekst,usage</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	Kill Producten
-	Set pxCriteria=##class(BL.Prod.sub.pxSearchCriteria).%New()
-	Set pxCriteria.Usage=usage
-	Set pxCriteria.At="K"
-	Set pxCriteria.SearchTxt=tekst
-    ;Set pxCriteria.CheckCallBack="CF`BL.Prod.SearchBuildIndex`ObjectIsOrgalux"
-    ;Set pxCriteria.CheckCallBack="F`ISORGAL^ORGALUX"
-    Set pxSearchFormat=##class(BL.Prod.sub.pxSearchFormat).%New()
-    
-    Set pxSearchFormat.FormatCompact="KortTekst;StockType;LangTekstN"
-    Set pxSearchFormat.FormatExpand="KortTekst;IdentNr;StockType;LangTekstN;LevRef;Actief"
-    Set pxSearchFormat.LijnMax=1000
-    
-    Set rs=##class(%ResultSet).%New("BL.Prod.Search:Select")
-    Do rs.Execute(pxCriteria,pxSearchFormat)
-    Set Aantal=rs.GetColumnCount()
-    ;s fil="\\notes01\shared\p v e\producten.htm" o fil:"wns" u fil
-    For  Quit:'rs.Next()  Do
-    . ;w "<br>"
-    . for i=1:1:Aantal w rs.GetData(i)," "
-    . ;w "</br>"
-    . w !
-    ;c fil
-    ;w "export ok!",!
-]]></Implementation>
-</Method>
-
-<Method name="TestTipon">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
- k lst
- Set LevNr=10 For  Set LevNr=$O(^KTO(LevNr)) Quit:LevNr=""  Do
- . ; Keller=6332
- . Set TOENr=100000 For  Set TOENr=$O(^KTO(LevNr,TOENr)) Quit:TOENr=""  Do
- . . Set KLNr=$Piece($G(^KTO(LevNr,TOENr,1)),"\",8)
- . . Set TLNr=100
- . . For  Set TLNr=$O(^KTO(LevNr,TOENr,TLNr)) Quit:TLNr=""  Do
- . . . Set Rec=""
- . . . Set R=^KTO(LevNr,TOENr,TLNr),PRNr=$P(R,"\",2),Stuks=$P(R,"\",3),TLUNr=$P(R,"\",15)
- . . . Quit:'PRNr
- . . . Set VERPAK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
- . . . If (VERPAK="+")!(KLNr=1239) s lst(TOENr)=""
- . . . If $$ISTBX^PRODUKT2(PRNr) Set $P(Rec,"\",1)=$Piece(Rec,"\",1)+Stuks                                             ;tandembox-lades
- . . . If $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"BM"))="T" Set $P(Rec,"\",2)=$Piece(Rec,"\",2)+Stuks  ;tipon
- . . . Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS"))
- . . . If Klas="SP2"!(Klas="SY") Set $P(Rec,"\",3)=$Piece(Rec,"\",3)+Stuks                                             ; spoelbak
- . . . Set DC=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"DC"))
- . . . If DC="B"!(DC?1(1"L",1"A")) Set $P(Rec,"\",4)=$Piece(Rec,"\",4)+Stuks                                           ; Baliko
-
- . . Set Aantal(TOENr)=Rec
- . . If $P(Rec,"\",2,4)'="" Do
- . . . W TOENr,!
- . . . If $P(Rec,"\",2)'="" W ".....Tipon: ",$P(Rec,"\",2),!
- . . . If $P(Rec,"\",3)'="" W "..Spoelbak: ",$P(Rec,"\",3),!
- . . . If $P(Rec,"\",4)'="" W "....Baliko: ",$P(Rec,"\",4),!
- . . .
- s x="" f  s x=$o(lst(x)) q:x=""  w x,!
-]]></Implementation>
-</Method>
-
-<Method name="TestProduct">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Kill lst,lst1
-	Set lst1=""
-	Set rs=##class(%ResultSet).%New()
-	do rs.Prepare("Select distinct BatchID, TOENr, TLUNr, Product from PPS.TBX_Queue")
-	do rs.Execute()
-    for  quit:'rs.Next()  Do
-    . Set PRNr=rs.Data("Product")
-    . Set Batch=rs.Data("BatchID")
-    . if PRNr'=lst1 Do
-    . . Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat
-	. . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
-	. . ;w PRNr," ",ASM," ",VPK,!
-	. . s lst1=PRNr
-	. . if ((VPK="A")!(VPK="B"))&(ASM'=0) w Batch," ",PRNr," ",ASM," ",VPK,!
-	. . ;if ((VPK="O")!(VPK="B")) w PRNr," ",ASM," ",VPK,!
-     w "resultaat" r test
-]]></Implementation>
-</Method>
-
-<Method name="TestMat">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
- k lst
- Set LevNr=10 For  Set LevNr=$O(^KTO(LevNr)) Quit:LevNr=""  Do
- . ; Keller=6332
- . Set TOENr=100000 For  Set TOENr=$O(^KTO(LevNr,TOENr)) Quit:TOENr=""  Do
- . . Set KLNr=$Piece($G(^KTO(LevNr,TOENr,1)),"\",8)
- . . Set TLNr=100
- . . For  Set TLNr=$O(^KTO(LevNr,TOENr,TLNr)) Quit:TLNr=""  Do
- . . . Set Rec=""
- . . . Set R=^KTO(LevNr,TOENr,TLNr),PRNr=$P(R,"\",2),Stuks=$P(R,"\",3),TLUNr=$P(R,"\",15)
- . . . Quit:'PRNr
- . . . If $$ISTBX^PRODUKT2(PRNr) Set $P(Rec,"\",1)=$Piece(Rec,"\",1)+Stuks                                             ;tandembox-lades
- . . . Set ASM=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"ASM")) ; Antislipmat
- . . . Set VPK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK")) ; Verpakking
- . . . if ((VPK="A")!(VPK="B"))&(ASM'=0) w LevNr," ",TOENr," ",TLNr," ",PRNr," ",VPK," ",ASM,! s lst(TOENr)=KLNr Quit
- . . . if ((VPK="O")!(VPK="B")) w LevNr," ",TOENr," ",TLNr," ",PRNr," ",VPK," ",ASM,! s lst(TOENr)=KLNr Quit
- w !,!,!
- s x="" f  s x=$o(lst(x)) q:x=""  w x," ",lst(x),!
-]]></Implementation>
-</Method>
-
-<Method name="TestIP">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-  Set PRNr=1000 For  Set PRNr=$o(^KPR(PRNr)) Quit:PRNr=""  Do
-  . set Pool=$CASE($LG(##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"Pool")),"KS":"KS","I":"IP",:"NS")
-  . If Pool'="NS" w PRNr," ",Pool,!
-  . ;w PRNr," ",$LG(##class(Prod.Kenmerk.DataDefinitie).Get("OEI",PRNr,"Pool")),!
-]]></Implementation>
-</Method>
-
-<Method name="TestBodem">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
- k lst
- Set LevNr=10 For  Set LevNr=$O(^KTO(LevNr)) Quit:LevNr=""  Do
- . ; Keller=6332
- . Set TOENr=100000 For  Set TOENr=$O(^KTO(LevNr,TOENr)) Quit:TOENr=""  Do
- . . Set KLNr=$Piece($G(^KTO(LevNr,TOENr,1)),"\",8)
- . . Set TLNr=100
- . . For  Set TLNr=$O(^KTO(LevNr,TOENr,TLNr)) Quit:TLNr=""  Do
- . . . Set Rec=""
- . . . Set R=^KTO(LevNr,TOENr,TLNr),PRNr=$P(R,"\",2),Stuks=$P(R,"\",3),TLUNr=$P(R,"\",15)
- . . . Quit:'PRNr
- . . . Quit:'$$ISTBX^PRODUKT2(PRNr)                                            ;tandembox-lades
- . . . Set Klas=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"KLAS")) ; klasse
- . . . Quit:Klas="SP2" ; geen spoelbak
- . . . Set PlaatMat=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"MATKL")) ; Materiaal gezaagd
- . . . Quit:PlaatMat'?1(1"HZ",1"HA",1"KZ",1"KA")
- . . . Set VERPAK=$LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX",PRNr,"VERPAK"))
- . . . If (KLNr'=1239)&&((VERPAK="A")||(VERPAK="B")) set Type="A" w LevNr," ",TOENr," ",TLNr," ",PRNr," ",Type,! r test
- . . . w LevNr," ",TOENr," ",TLNr," ",PRNr,!
- . . . s lst(TOENr)=""
- s x="" f  s x=$o(lst(x)) q:x=""  w x,!
-]]></Implementation>
-</Method>
-
-<Method name="Testxslt">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	// XSL-Transformatie  (niet via \\Notes01\MSMGateway)
-	
-	Set XSLT="EDI-DECEUNINCK"
-	Set inDir=##class(%File).NormalizeDirectory("\\notes01\c$\data\shared\p v e\XSLT\")
-	Set outDir=inDir
-	Set FN="p4570041.xml"
-	Set outFN="output.xml"
-	Set sc=##class(BL.Sys.FOP.Interface).TransformXML(XSLT,inDir_FN,$LB($P(outFN,".xml",1),outDir))
-
-	H 1   ; Allows the DocBase process to release the file-lock 
-	If $$$ISERR(sc)	w $$ParseStatus^vhLib(sc),!  Quit sc
-	;; Else 
-
-	;// De gegenereerde xml (=output van XSLT) inlezen in Caché 
-	;Do ..ReadXML(outDir,outFN)   ; outDir t.o.v. van de Caché-server !!!
-
-	if $$$ISERR(sc) quit sc
-	Set reader = ##class(%XML.Reader).%New()
-
-    // Begin processing of the file
-    Do reader.OpenFile("\\notes01\c$\data\shared\p v e\XSLT\output.xml")
-
-    // Associate a class name with the XML element name
-    Do reader.Correlate("ORDER","BL.Flow.Offerte.pxHoofding")
-
-	;set bl=##class(BL.Flow.Offerte.XML2Offerte).%New()
-	;do bl.ReadXML("\\notes01\c$\data\shared\p v e\XSLT\","output.xml")
-	For  Quit:'(reader.Next(.pxofferte,.sc))  Do
-    . w $i(i),!
-    . w pxofferte.DocType,!
-	. w pxofferte.DocDate,!
-	. w pxofferte.Lijnen.Count(),!
-    . w "Klant: ",!
-    . s xx=pxofferte.Klant w xx.Naam,": ",xx.StraatNrBus,", ",xx.PostNummer," ",xx.Woonplaats,!
-    . w "Levering: ",! 
-    . s xx=pxofferte.LevAdres w xx.Naam,": ",xx.StraatNrBus,", ",xx.PostNummer," ",xx.Woonplaats,!
-    if $system.Status.IsError(sc) Do WARN^vhTXTPOP($$ParseStatus^vhLib(sc),"Fout bij inlezen")
-
-	Quit sc
-]]></Implementation>
-</Method>
-
-<Method name="TestAventos">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set bl=##class(BL.MB.UGLYPicking.Aventosbak.Aventosbak).%New()
-	Set CONSNr="" f  s CONSNr=$o(^ORDW("D",CONSNr)) q:CONSNr=""  D
-	. if bl.OrdHasAventos(CONSNr) w CONSNr,!
-]]></Implementation>
-</Method>
-
-<Method name="ZoekDubbel">
-<ClassMethod>1</ClassMethod>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	set x="" f  s x=$o(^ORDW("D",x)) q:x=""  d
-	. k dubbel,lst,dm
-	. s y="" f  s y=$o(^ORDW("D",x,"D",y)) q:y=""  d
-	. . s z="" f  s z=$o(^ORDW("D",x,"D",y,z)) q:z=""  d
-	. . . s prm=$p(^(z),"\")
-	. . . s a=""  f  s a=$o(^ORDW("D",x,"D",y,z,a)) q:a=""  d
-	. . . . s xx=^(a),prnr=$p(xx,"\") q:prnr=""
-	. . . . i $d(lst(prnr)) d
-	. . . . . i '$d(dubbel(prnr)) s dubbel(prnr)=2
-	. . . . . e  s dubbel(prnr)=dubbel(prnr)+1
-	. . . . s lst(prnr)=""
-	. . . . s dm(prnr,prm)=""
-	. s prnr="" f  s prnr=$o(dm(prnr)) q:prnr=""  d
-	. . s moeder=$o(dm(prnr,"")) i $o(dm(prnr,moeder))'="" w x," ",prnr," ",$p(^KPR(prnr,0),"\"),!
-	. ;i $d(dubbel) w x,! zw dubbel
-]]></Implementation>
-</Method>
-
-<Method name="ZoekPickingUser">
-<ClassMethod>1</ClassMethod>
-<ProcedureBlock>0</ProcedureBlock>
-<Implementation><![CDATA[
-	set x="" f  s x=$o(^ORDW("D",x)) q:x=""  d
-	. k dubbel,lst,dm
-	. s y="" f  s y=$o(^ORDW("D",x,"D",y)) q:y=""  d
-	. . s z="" f  s z=$o(^ORDW("D",x,"D",y,z)) q:z=""  d
-	. . . s a=""  f  s a=$o(^ORDW("D",x,"D",y,z,a)) q:a=""  d
-	. . . . s xx=^(a),prnr=$p(xx,"\") q:prnr=""
-	. . . . s user=$p(xx,"\",12),pallet=$p(xx,"\",6),aantal=$p(xx,"\",4)
-	. . . . q:user=""
-	. . . . s lst(prnr,user)=aantal
-	. . . . s lst1(prnr,pallet)=""
-	. s prnr="" f  s prnr=$o(lst(prnr)) q:prnr=""  d
-	. . s user=$o(lst(prnr,"")) q:$o(lst(prnr,user))=""
-	. . w x," ",prnr,": " s user="" f  s user=$o(lst(prnr,user)) q:user=""  w user," "
-	. . w !
-]]></Implementation>
-</Method>
-
-<Method name="TestAfbeelding">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
- 	Set bl=##class(BL.Prod.ImageLink).%New()
-	
-	Set PRNr=500000 For  Set PRNr=$O(^KPR(PRNr)) Quit:PRNr=""  Do
-	. Set ImageURL1=bl.GetProductImageURL(PRNr,"FOPEMBED"_"PS")
-	. Set URL1=$S($IsObject(ImageURL1):ImageURL1.Content,1:"")
-	. Set ImageURL2=bl.GetProductImageURL(PRNr,"FOPEMBED"_"PDF")
-	. Set URL2=$S($IsObject(ImageURL2):ImageURL1.Content,2:"")
-	. Write PRNr," ",URL1," ",URL2,!
-]]></Implementation>
-</Method>
-
-<Method name="TestTBX">
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	   Set x="" f  s x=$o(^KTO(6332,x)) q:x=""  d
-	   . s y=100 f  s y=$o(^KTO(6332,x,y)) q:y=""  d
-	   . . s prnr=$p(^(y),"\",2),aantal=$p(^(y),"\",3)
-	   . . q:prnr=""
-	   . . if $D(^PRBS("BS",prnr,"PRFRGLAS.001")) w x," ",y," ",prnr," ",aantal,!
-	   . .
-]]></Implementation>
-</Method>
-
-<Storage name="Default">
-<Type>%Library.CacheStorage</Type>
-<DataLocation>^PVE.testD</DataLocation>
-<DefaultData>testDefaultData</DefaultData>
-<IdLocation>^PVE.testD</IdLocation>
-<IndexLocation>^PVE.testI</IndexLocation>
-<StreamLocation>^PVE.testS</StreamLocation>
-<Data name="testDefaultData">
-<Structure>listnode</Structure>
-<Subscript/>
-<Value name="1">
-<Value>%%CLASSNAME</Value>
-</Value>
-<Value name="2">
-<Value>Naam</Value>
-</Value>
-</Data>
-</Storage>
-</Class>
-<Checksum value="2067895339"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:44">
+<Checksum value="4036238467"/>
 </Export>
Index: DOM/PM/OL/Gamma/dto/LadeVereisten.cls.xml
===================================================================
diff -u -r734 -r1019
--- DOM/PM/OL/Gamma/dto/LadeVereisten.cls.xml	(.../LadeVereisten.cls.xml)	(revision 734)
+++ DOM/PM/OL/Gamma/dto/LadeVereisten.cls.xml	(.../LadeVereisten.cls.xml)	(revision 1019)
@@ -1,62 +1,4 @@
 <?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:00">
-<Class name="DOM.PM.OL.Gamma.dto.LadeVereisten">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject,%XML.Adaptor</Super>
-<TimeChanged>61970,54401.516192</TimeChanged>
-<TimeCreated>61947,48025.26642</TimeCreated>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Property name="BreedteMaximum">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Required>1</Required>
-</Property>
-
-<Property name="BreedteMinimum">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Required>1</Required>
-</Property>
-
-<Property name="DiepteMaximum">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Required>1</Required>
-</Property>
-
-<Property name="DiepteMinimum">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Required>1</Required>
-</Property>
-
-<Property name="LadeKleuren">
-<Description>
-</Description>
-<Type>%String</Type>
-<Collection>list</Collection>
-<Required>1</Required>
-</Property>
-
-<Property name="Types">
-<Description>
-</Description>
-<Type>%String</Type>
-<Collection>list</Collection>
-<Required>1</Required>
-</Property>
-
-<Property name="VrijeHoogte">
-<Description>
-</Description>
-<Type>%Integer</Type>
-<Required>1</Required>
-</Property>
-</Class>
-<Checksum value="687843323"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:31">
+<Checksum value="1804134097"/>
 </Export>
Index: PVE/XML/SAXTEST.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/XML/SAXTEST.cls.xml	(.../SAXTEST.cls.xml)	(revision 734)
+++ PVE/XML/SAXTEST.cls.xml	(.../SAXTEST.cls.xml)	(revision 1019)
@@ -1,39 +1,4 @@
 <?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:05">
-<Class name="PVE.XML.SAXTEST">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%XML.SAX.ContentHandler</Super>
-<TimeChanged>61713,36352.110014</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Method name="characters">
-<FormalSpec>chars:%Library.String,length:%Library.Integer</FormalSpec>
-<Implementation><![CDATA[
- quit:$Tr(chars,$C(10)_$C(32),"")=""  ; niet afdrukken als het element allen <enter> of <tab> bevat
- w " ",chars
- ;f i=1:1:$L(chars) w i," ",$a($e(chars,i))," " r test
-]]></Implementation>
-</Method>
-
-<Method name="startElement">
-<FormalSpec>uri:%Library.String,localname:%Library.String,qname:%Library.String,attrs:%Library.List</FormalSpec>
-<Implementation><![CDATA[
-    // we've found an element
-    Write !,"Element: ",localname
-]]></Implementation>
-</Method>
-
-<Method name="ReadFile">
-<ClassMethod>1</ClassMethod>
-<FormalSpec>file:%String</FormalSpec>
-<Implementation><![CDATA[
-    // create an instance of MyHandler class
-    Set handler = ##class(PVE.XML.SAXTEST).%New()
-
-    // now parse the file using the handler
-    Set sc = ##class(%XML.SAX.Parser).ParseFile(file,handler)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="1049693563"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>
Index: PVE/parser.cls.xml
===================================================================
diff -u -r734 -r1019
--- PVE/parser.cls.xml	(.../parser.cls.xml)	(revision 734)
+++ PVE/parser.cls.xml	(.../parser.cls.xml)	(revision 1019)
@@ -1,39 +1,4 @@
 <?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:05">
-<Class name="PVE.parser">
-<ProcedureBlock>1</ProcedureBlock>
-<Super>%RegisteredObject</Super>
-<TimeChanged>61760,49158.79091</TimeChanged>
-<ClassDefinitionError>0</ClassDefinitionError>
-
-<Parameter name="SubPath">
-<Default>\EDICUST_IN\</Default>
-</Parameter>
-
-<Parameter name="ArchiveSubPath">
-<Default>ARCHIVE\</Default>
-</Parameter>
-
-<Parameter name="TempSubPath">
-<Default>TEMP\</Default>
-</Parameter>
-
-<Method name="TestParser">
-<Description>
-d ##class(PVE.parser).TestParser()</Description>
-<ClassMethod>1</ClassMethod>
-<Implementation><![CDATA[
-	Set TestPath="\\notes01\shared\p v e\dedecker"
-	Set DirRead=TestPath_..#SubPath
-	Set DirArchive=TestPath_..#SubPath_..#ArchiveSubPath
-	Set DirTemp=TestPath_..#SubPath_..#TempSubPath
-	Set DirRead="\\notes01\shared\p v e\dedecker"
-	Set FileName="franssen_be_BestellingSchuiven_090706102906.txt"
-	Set blScan=##class(BL.Flow.Offerte.ScanEDIMail).%New()
-	b "s+"
-	Do blScan.ProcessFile(DirRead,FileName,DirTemp,DirArchive)
-]]></Implementation>
-</Method>
-</Class>
-<Checksum value="543066162"/>
+<Export generator="Cache" version="9" zv="Cache for Windows NT (Intel/P4) 5.0.21 (Build 6408)" ts="2011-04-19 16:14:43">
+<Checksum value="4124772870"/>
 </Export>