Index: JBL Product AMF.prj.xml
===================================================================
diff -u -r1785 -r2047
--- JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 1785)
+++ JBL Product AMF.prj.xml	(.../JBL Product AMF.prj.xml)	(revision 2047)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="JBL Product AMF" LastModified="2011-08-04 11:37:38">
+<Project name="JBL Product AMF" LastModified="2011-08-30 12:01:16">
   <Items>
     <ProjectItem name="%Prod.Product.INC" type="MAC"/>
     <ProjectItem name="APPS.PM.KenmerkenService" type="CLS"/>
@@ -78,6 +78,8 @@
     <ProjectItem name="TECH.Concurrency.TxScope" type="CLS"/>
     <ProjectItem name="TECH.Concurrency.TxScopeOptie" type="CLS"/>
     <ProjectItem name="TECH.Concurrency.VhPersistent" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.BaseException1" type="CLS"/>
+    <ProjectItem name="TECH.Exceptions.Exception" type="CLS"/>
     <ProjectItem name="TECH.ListUtils" type="CLS"/>
     <ProjectItem name="TECH.OperatieScope" type="CLS"/>
     <ProjectItem name="UI.PR.Kenm.MainForm" type="CLS"/>
@@ -101,6 +103,11 @@
     <ProjectItem name="vhUnitTest.TECH.Concurrency.TestOperationScope" type="CLS"/>
     <ProjectItem name="vhUnitTest.TECH.Concurrency.TestTransactie" type="CLS"/>
     <ProjectItem name="vhUnitTest.TECH.Concurrency.TestTxScopeGenestRequired" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseA" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseB" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.KlasseC" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.TestExceptions" type="CLS"/>
+    <ProjectItem name="vhUnitTest.TECH.Exceptions.mac" type="MAC"/>
     <ProjectItem name="zJBLProduct.MAC" type="MAC"/>
     <ProjectItem name="zJBLTestZoekKenmerken.mac" type="MAC"/>
     <ProjectItem name="zTryout.JBL.TestKlasse" type="CLS"/>
Index: BL/Etiket/TBXLadeInVHoss2D.cls.xml
===================================================================
diff -u -r2037 -r2047
--- BL/Etiket/TBXLadeInVHoss2D.cls.xml	(.../TBXLadeInVHoss2D.cls.xml)	(revision 2037)
+++ BL/Etiket/TBXLadeInVHoss2D.cls.xml	(.../TBXLadeInVHoss2D.cls.xml)	(revision 2047)
@@ -89,6 +89,12 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="DossierBarcode">
+<Description>
+Temp : om werking te kunnen laten doorgaan</Description>
+<Type>%String</Type>
+</Property>
+
 <Method name="WriteRow">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
@@ -109,6 +115,7 @@
 	Write ..ProductImg,$C(9)
 	Write LadeID,$C(9)
 	Write ..Referentie,$C(9)
+	Write ..DossierBarcode,$C(9)
 	Write $C(13,10)
 	Quit $$$OK
 ]]></Implementation>
Index: BL/PPS/TBX/DocsV1.cls.xml
===================================================================
diff -u -r2039 -r2047
--- BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2039)
+++ BL/PPS/TBX/DocsV1.cls.xml	(.../DocsV1.cls.xml)	(revision 2047)
@@ -34,7 +34,7 @@
 </Parameter>
 
 <Parameter name="LabelKlantTemplate5x10">
-<Default>TBXLadeInVHoss2D 5x10</Default>
+<Default>TBXLadeInVHoss2DTemp 5x10</Default>
 </Parameter>
 
 <Parameter name="LabelExtraCommissie">
@@ -1303,6 +1303,8 @@
 	Set pxLabel.VHossInfo=$G(VHossID)
 	Set pxLabel.ProductImg=##class(BL.Prod.ImageLink).%New().GetProductImageURL(PRNr, "LABEL")
 	
+	Set pxLabel.DossierBarcode=$TR($$BARCODE^HAD(PRNr,"F"),".")
+	
 	/// LadeID, VHoss 2D data matrix
 	Set pxLabel.VHossSeqNr = WPVerpak.UnitNr
 	Set pxLabel.VHossZijkant = WPVerpak.SubNr
Index: TECH/File.cls.xml
===================================================================
diff -u -r1074 -r2047
--- TECH/File.cls.xml	(.../File.cls.xml)	(revision 1074)
+++ TECH/File.cls.xml	(.../File.cls.xml)	(revision 2047)
@@ -5,6 +5,13 @@
 <Super>%Library.File</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Method name="GeefBestandsnaam">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>BestandLocatie:%String</FormalSpec>
+<Implementation><![CDATA[	Quit ##class(%File).GetFilename(BestandLocatie)
+]]></Implementation>
+</Method>
+
 <Method name="ParentDirectoryName">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>directory:%String</FormalSpec>
Index: PV VisiDot.prj.xml
===================================================================
diff -u -r2037 -r2047
--- PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2037)
+++ PV VisiDot.prj.xml	(.../PV VisiDot.prj.xml)	(revision 2047)
@@ -1,6 +1,6 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
-<Project name="PV VisiDot" LastModified="2011-09-12 09:50:23">
+<Project name="PV VisiDot" LastModified="2011-09-12 16:55:02">
   <Items>
     <ProjectItem name="APPS.Halux.common.BatchService" type="CLS"/>
     <ProjectItem name="APPS.Halux.common.impl.BatchImpl" type="CLS"/>
@@ -68,10 +68,14 @@
     <ProjectItem name="DS.PPS.TBX.Queue" type="CLS"/>
     <ProjectItem name="DS.PPS.TBX.sub.emWPVerpak" type="CLS"/>
     <ProjectItem name="HADETIK.MAC" type="MAC"/>
+    <ProjectItem name="TECH.File" type="CLS"/>
+    <ProjectItem name="TECH.Files" type="CLS"/>
     <ProjectItem name="TECH.Print.PrintUtils" type="CLS"/>
     <ProjectItem name="WS.VisiDot.OperatorServer" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110909x0827" type="CLS"/>
     <ProjectItem name="vhDeploy.JBL.Deploy20110909x1339" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110912x1020" type="CLS"/>
+    <ProjectItem name="vhDeploy.JBL.Deploy20110912x1337" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestCaptureHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestDetectionHelper" type="CLS"/>
     <ProjectItem name="vhUnitTest.APPS.VisiDot.TestVHoss" type="CLS"/>
Index: TECH/enu/ExceptionCode.cls.xml
===================================================================
diff -u -r1130 -r2047
--- TECH/enu/ExceptionCode.cls.xml	(.../ExceptionCode.cls.xml)	(revision 1130)
+++ TECH/enu/ExceptionCode.cls.xml	(.../ExceptionCode.cls.xml)	(revision 2047)
@@ -7,7 +7,7 @@
 <ClassDefinitionError>0</ClassDefinitionError>
 
 <Parameter name="VALUELIST">
-<Default>;1000:GeneralError;1001:PropertyRequired;1002:ParameterRequired;1002:ParameterInvalid;1003:ObjectExpected;1004:Locked;1005:InvalidInput;1005:InvalidOutput;1007:InvalidID;1006:Create object;1008:InvalidEnumerationValue;1009:Unimplemented;3000:ObjectValidationFailed;3001:SaveFailed;5000:UserError</Default>
+<Default>;1000:GeneralError;1001:PropertyRequired;1002:ParameterRequired;1002:ParameterInvalid;1003:ObjectExpected;1004:Locked;1005:InvalidInput;1005:InvalidOutput;1007:InvalidID;1006:Create object;1008:InvalidEnumerationValue;1009:Unimplemented;1010:FilesystemFailed;3000:ObjectValidationFailed;3001:SaveFailed;5000:UserError</Default>
 </Parameter>
 
 <Method name="GeneralError">
@@ -94,6 +94,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="FilesystemFailed">
+<ClassMethod>1</ClassMethod>
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit "1010:FilesystemFailed"
+]]></Implementation>
+</Method>
+
 <Method name="ObjectValidationFailed">
 <ClassMethod>1</ClassMethod>
 <ReturnType>TECH.enu.ExceptionCode</ReturnType>
Index: APPS/VisiDot/impl/VHossControleurEnd.cls.xml
===================================================================
diff -u -r1808 -r2047
--- APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 1808)
+++ APPS/VisiDot/impl/VHossControleurEnd.cls.xml	(.../VHossControleurEnd.cls.xml)	(revision 2047)
@@ -65,7 +65,11 @@
 		Do ..CaptureHelper.ZetFoutCode(##class(APPS.VisiDot.enu.FoutCodes).VHossGeenBatchID())
 	}
 	Else
-	{
+	{		
+		/// Opslaan van binnenkomende data in de juiste directory
+		Set BestandNaam = "EndInfo_IN.xml"
+		Do ##class(APPS.VisiDot.impl.EndAfhandelaar).BewaarData(..CaptureHelper.GeefData(),BestandNaam)	
+		
 		Do ..ControleOntbrekend()
 		Do ..BepaalVolledigOntbrekend()
 	}
@@ -89,6 +93,9 @@
 		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Fout()		
 	}
 	Set ProcessedData=..CaptureHelper.GeefData()
+	
+	Set Afhandelaar = ##class(APPS.VisiDot.impl.EndAfhandelaar).%New()
+	Do Afhandelaar.Verwerk(ProcessedData)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/Afhandelaar.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/Afhandelaar.cls.xml	(revision 0)
+++ APPS/VisiDot/Afhandelaar.cls.xml	(revision 2047)
@@ -0,0 +1,40 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.Afhandelaar">
+<Abstract>1</Abstract>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Verwerk">
+<Abstract>1</Abstract>
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoelLocatie">
+<Abstract>1</Abstract>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+
+<Method name="BewaarData">
+<Description>
+Bewaren van binnengekregen of buitengaande xml : CaptureInfo, BestandNaam</Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo,BestandNaam:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set Locatie = ..GeefDoelLocatie(ProcessedData)
+	Do ##class(%File).CreateDirectoryChain(Locatie)
+	Set BestandLocatie = ##class(TECH.Files).AppendFile(Locatie,BestandNaam)
+	OPEN BestandLocatie:("NW"):1
+	Use BestandLocatie
+	Do ProcessedData.XMLExport(,"literal,indent")
+	CLOSE BestandLocatie
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Exceptions/FileException.cls.xml
===================================================================
diff -u
--- TECH/Exceptions/FileException.cls.xml	(revision 0)
+++ TECH/Exceptions/FileException.cls.xml	(revision 2047)
@@ -0,0 +1,37 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="TECH.Exceptions.FileException">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>TECH.Exceptions.AbstractOmschrijvingException</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="Status">
+<Type>%Status</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<FormalSpec>Omschrijving:%String,Status:%Status</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ##super(Omschrijving)
+	Set ..Status = Status
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefExceptionCode">
+<ReturnType>TECH.enu.ExceptionCode</ReturnType>
+<Implementation><![CDATA[	Quit ##class(TECH.enu.ExceptionCode).FilesystemFailed()
+]]></Implementation>
+</Method>
+
+<Method name="ToString">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit " ("_$$ParseStatus^vhLib(..Status)_")"_$C(13,10)_##super()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/VHossCaptureHelper.cls.xml
===================================================================
diff -u -r1861 -r2047
--- APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 1861)
+++ APPS/VisiDot/impl/VHossCaptureHelper.cls.xml	(.../VHossCaptureHelper.cls.xml)	(revision 2047)
@@ -107,6 +107,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefVHossSequentie">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..GeefERPSleutelWaarde("VHossSequentie")
+]]></Implementation>
+</Method>
+
 <Method name="ZetBatchID">
 <FormalSpec>BatchID</FormalSpec>
 <Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("BatchID",BatchID,1)
@@ -115,7 +121,7 @@
 
 <Method name="ZetVHossSequentie">
 <FormalSpec>VHossVolgNr,VHossZijkant</FormalSpec>
-<Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("VHossSequentie",VHossVolgNr_"."_VHossZijkant)
+<Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("VHossSequentie",..MaakVHossSequentie(VHossVolgNr, VHossZijkant))
 ]]></Implementation>
 </Method>
 
@@ -124,5 +130,13 @@
 <Implementation><![CDATA[	Do ..ZetERPSleutelWaarde("FrameID",FrameID)
 ]]></Implementation>
 </Method>
+
+<Method name="MaakVHossSequentie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VHossVolgNr:%Integer,VHossZijkant:%Integer</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit VHossVolgNr_"."_VHossZijkant
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: APPS/VisiDot/impl/VHossControleurZijkant.cls.xml
===================================================================
diff -u -r1866 -r2047
--- APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 1866)
+++ APPS/VisiDot/impl/VHossControleurZijkant.cls.xml	(.../VHossControleurZijkant.cls.xml)	(revision 2047)
@@ -66,10 +66,20 @@
 <FormalSpec><![CDATA[&ResultDesc:APPS.VisiDot.enu.ActionCodes,&ProcessedData:APPS.VisiDot.dto.CaptureInfo]]></FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
-
+	
+	
 	; Stap 1
-	Do ..BepaalVHossIDs()
+	Do ..BepaalVHossIDs()	
+	If (..BatchID & ..VHossVolgNr  &..VHossZijkant){
+		Do ..CaptureHelper.ZetBatchID(..BatchID) ; wordt gebruikt bij een volgende controle
+	}	
 	
+	/// Opslaan van binnenkomende data in de juiste directory
+	Set BestandNaam = "CaptureInfo_IN.xml"
+	Set VHossSequentie = ##class(APPS.VisiDot.impl.VHossCaptureHelper).MaakVHossSequentie(..VHossVolgNr,..VHossZijkant)
+	Set BestandNaam = VHossSequentie_"_"_BestandNaam
+	Do ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).BewaarData(..CaptureHelper.GeefData(),BestandNaam)
+	
 	If (..BatchID) && (..VHossVolgNr) && (..VHossZijkant) && (..FrameDetectionHelper)
 	{
 		; Stap 2
@@ -85,7 +95,6 @@
 		Do ..ControleOntbrekendeLaden() ; er zijn laden in de Queue die geen Detection hebben
 		
 		; toevoegen extra info
-		Do ..CaptureHelper.ZetBatchID(..BatchID) ; wordt gebruikt bij een volgende controle
 		Do ..CaptureHelper.ZetVHossSequentie(..VHossVolgNr,..VHossZijkant)
 		Do ..CaptureHelper.ZetFrameID(..FrameDetectionHelper.GeefID())
 	}
@@ -107,7 +116,11 @@
 	{
 		Set ResultDesc=##class(APPS.VisiDot.enu.ResultCodes).Fout()		
 	}
+		
 	Set ProcessedData=..CaptureHelper.GeefData()
+	
+	Set Afhandelaar = ##class(APPS.VisiDot.impl.ZijkantAfhandelaar).%New()
+	Do Afhandelaar.Verwerk(ProcessedData)
 ]]></Implementation>
 </Method>
 
Index: APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/ZijkantAfhandelaar.cls.xml	(revision 2047)
@@ -0,0 +1,74 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.ZijkantAfhandelaar">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.Afhandelaar</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Property name="ProcessedData">
+<Type>APPS.VisiDot.dto.CaptureInfo</Type>
+</Property>
+
+<Method name="Verwerk">
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set BatchNr = 1
+	
+	Set ..ProcessedData = ProcessedData
+		
+	Do ..KopieerFotos()
+	Do ..KopieerVerpakkingsDocument(ProcessedData)
+	
+	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Set VHossSequentie = CaptureHelper.GeefVHossSequentie()
+	Set BestandNaam = VHossSequentie_"_CaptureInfo_OUT.xml"
+	Do ..BewaarData(ProcessedData,BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoelLocatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Set BatchID = CaptureHelper.GeefBatchID()
+	
+	Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation")
+	Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,BatchID)
+	Quit DoelLocatie
+]]></Implementation>
+</Method>
+
+<Method name="KopieerFotos">
+<Private>1</Private>
+<Implementation><![CDATA[
+		Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(..ProcessedData)
+		Set VHossSequenceNr = CaptureHelper.GeefVHossSequentie()
+		
+		Set FotoIt = CaptureHelper.GeefFotoIterator()
+		While FotoIt.HasNext()
+		{
+			Set Foto = FotoIt.Next()
+			Set BestandLocatie = Foto.OriginalFile
+			If '##class(%File).Exists(BestandLocatie) {
+				Set Bericht = "Bestand '"_BestandLocatie_"' bestaat niet."
+				Do ##class(vhLib.Logger).%New("APPS.VisiDot").Warning("KopieerFotos",Bericht)
+				//Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New(Bericht,0))				
+			}Else{
+				Set Naam = VHossSequenceNr_"_"_##class(TECH.File).GeefBestandsnaam(BestandLocatie)
+				Set DoelLocatie = ##class(TECH.Files).AppendFile(..GeefDoelLocatie(..ProcessedData),Naam)
+				Do ##class(TECH.Files).CopyFile(BestandLocatie,DoelLocatie)					
+			}
+		}
+]]></Implementation>
+</Method>
+
+<Method name="KopieerVerpakkingsDocument">
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	/// Dit wordt reeds in BL.PPS.TBX.DocsProPlus gedaan
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/EndAfhandelaar.cls.xml
===================================================================
diff -u
--- APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(revision 0)
+++ APPS/VisiDot/impl/EndAfhandelaar.cls.xml	(revision 2047)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.VisiDot.impl.EndAfhandelaar">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.VisiDot.Afhandelaar</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="Verwerk">
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<Implementation><![CDATA[
+	Set BestandNaam = "EndInfo_OUT.xml"
+	Do ..BewaarData(ProcessedData,BestandNaam)
+]]></Implementation>
+</Method>
+
+<Method name="GeefDoelLocatie">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>ProcessedData:APPS.VisiDot.dto.CaptureInfo</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set CaptureHelper = ##class(APPS.VisiDot.impl.VHossCaptureHelper).%New(ProcessedData)
+	Set BatchID = CaptureHelper.GeefBatchID()
+	
+	Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.EndAfhandelaar.FileLocation")
+	Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,BatchID)
+	Quit DoelLocatie
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/VisiDot/impl/CaptureHelper.cls.xml
===================================================================
diff -u -r1866 -r2047
--- APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 1866)
+++ APPS/VisiDot/impl/CaptureHelper.cls.xml	(.../CaptureHelper.cls.xml)	(revision 2047)
@@ -41,6 +41,28 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefFotoIterator">
+<ReturnType>TECH.Iterator</ReturnType>
+<Implementation><![CDATA[
+	Set Photos = ##class(%ListOfObjects).%New()
+	
+	For iVRRead=1:1:..CaptureInfo.VRRead.Count() {
+		For iReader=1:1:..CaptureInfo.VRRead.GetAt(iVRRead).Reader.Count() {
+			For iSequence=1:1:..CaptureInfo.VRRead.GetAt(iVRRead).Reader.GetAt(iReader).Sequence.Count() {
+				Set Sequence = ..CaptureInfo.VRRead.GetAt(iVRRead).Reader.GetAt(iReader).Sequence.GetAt(iSequence)
+				For iCamera=1:1:Sequence.Camera.Count() {
+					For iPhoto=1:1:Sequence.Camera.GetAt(iCamera).Photo.Count() {
+						Do Photos.Insert(Sequence.Camera.GetAt(iCamera).Photo.GetAt(iPhoto))
+					}	
+				}
+			}			
+		}
+	}
+	Set PhotoIt = ##class(TECH.ListIterator).%New(Photos)
+	Quit PhotoIt
+]]></Implementation>
+</Method>
+
 <Method name="HasDetectionData">
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
Index: BL/PPS/TBX/DocsProPlus.cls.xml
===================================================================
diff -u -r2039 -r2047
--- BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2039)
+++ BL/PPS/TBX/DocsProPlus.cls.xml	(.../DocsProPlus.cls.xml)	(revision 2047)
@@ -65,7 +65,7 @@
 </Parameter>
 
 <Parameter name="LabelProPlusTemplate">
-<Default>TBX Productie ProPlus</Default>
+<Default>TBXProductieProPlus2D 5x10</Default>
 </Parameter>
 
 <Parameter name="FOPTemplate">
@@ -932,6 +932,12 @@
 	;Do ##class(BL.Flow.Basis.Doc).BuildFileData("File", .FName,.Dir,.FilePath, "")
 	Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,Dir)
 	Quit:($$$ISERR(sc)) sc
+	
+	/// VHossDocs in archief map plaatsen
+		Set DoelLocatie = ##class(TECH.Config.ConfigMgr).Instance().GetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation")
+		Set DoelLocatie = ##class(TECH.Files).AppendFile(DoelLocatie,..BatchID)
+		Set:($$$ISOK(sc)) sc=Task.AddActionFile(FName,DoelLocatie)
+	Quit:($$$ISERR(sc)) sc
 
 	Set %blnProxy=0
 	Set sc=##class(BL.Sys.FOP.CommonTasks).RunFopTask(Task,$$$rmBatch,)
Index: vhDeploy/JBL/Deploy20110912x1337.cls.xml
===================================================================
diff -u
--- vhDeploy/JBL/Deploy20110912x1337.cls.xml	(revision 0)
+++ vhDeploy/JBL/Deploy20110912x1337.cls.xml	(revision 2047)
@@ -0,0 +1,28 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.JBL.Deploy20110912x1337">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Parameter name="Omschrijving">
+<Default>ConfigItem instellen VisiDot locatie bestanden</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="PROD") {
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\PROD")
+		d ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.EndAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\PROD")
+	}ElseIf(##class(TECH.Config.ConfigMgr).Instance().GetOmgeving()="TEST") {
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\TEST")
+		d ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.EndAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\TEST")
+	}Else{
+		Do ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.ZijkantAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\DEV")
+		d ##class(TECH.Config.ConfigMgr).Instance().SetString("APPS.VisiDot.EndAfhandelaar.FileLocation","\\notes01\Archive\VisiDot\DEV")
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: TECH/Files.cls.xml
===================================================================
diff -u -r1570 -r2047
--- TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 1570)
+++ TECH/Files.cls.xml	(.../Files.cls.xml)	(revision 2047)
@@ -143,5 +143,18 @@
 	quit $$$OK
 ]]></Implementation>
 </Method>
+
+<Method name="CopyFile">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromPath:%String,ToPath:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set ToDir = ##class(%File).GetDirectory(ToPath)
+	Set Status = ##class(%File).CreateDirectoryChain(ToDir)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon directory structuur niet aanmaken :"_ToDir,Status)) 
+	
+	Set Status = ##class(%File).CopyFile(FromPath,ToPath)
+	If $$$ERROR(Status) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.FileException).%New("Kon bestand niet kopieren van "_FromPath_" naar "_ToPath,Status))
+]]></Implementation>
+</Method>
 </Class>
 </Export>