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>