Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r3254 -r3627
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3254)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 3627)
@@ -205,9 +205,9 @@
 		Set Plaat=Lade.GeefBodem()
 		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
-		Set Lengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
-		Quit:'Lengte
-		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Verantwoordelijke,Omschrijving)
+		Set WerkvloerLengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
+		Quit:'WerkvloerLengte
+		Do ..InboekenVoorraadCorrectie(PlaatPRNr,WerkvloerLengte,Verantwoordelijke,Omschrijving)
 	}
 	
 	If (BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).Rug())||(BodemOfRug=##class(APPS.Halux.PPS.TBXZaag.enu.BodemRug).BodemRug())
@@ -216,36 +216,46 @@
 		Set Plaat=Lade.GeefRug()
 		Quit:'$isObject(Plaat)
 		Set PlaatPRNr=Plaat.GeefPRNr()
-		Set Lengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
-		Quit:'Lengte
-		Do ..BeschadigingPlaat(PlaatPRNr,Lengte,Verantwoordelijke,Omschrijving)
+		Set WerkvloerLengte=..GeefWerkvloerLengte(PlaatPRNr,Breedte)
+		Quit:'WerkvloerLengte
+		Do ..InboekenVoorraadCorrectie(PlaatPRNr,WerkvloerLengte,Verantwoordelijke,Omschrijving)
 	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefWerkvloerLengte">
+<Description>
+conversie van lengte in mm naar lengte tov van de plaatlengte (lengte/plaatlengte)</Description>
 <FormalSpec>PRNr,LengteWerkStuk</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%Float</ReturnType>
 <Implementation><![CDATA[
 	Set D="\"
 	Quit $$CV2WV^MRP(PRNr,0,1,LengteWerkStuk)
 ]]></Implementation>
 </Method>
 
 <Method name="BeschadigingPlaat">
-<Description>
-Reden is opgebouwd uit 2 delen Actie en Ref, met ";" gescheiden</Description>
-<FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
-<ProcedureBlock>0</ProcedureBlock>
+<FormalSpec>PlaatPRNr:%Integer,Lengte:%Integer,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set Log=..Logger.Debug("BeschadigingPlaat", "PRNr:"_$G(PlaatPRNr)_", Lengte:"_Lengte_", Verantw:"_Verantwoordelijke_", Oms:"_Omschrijving)
+	Set WerkvloerLengte=..GeefWerkvloerLengte(PlaatPRNr,Lengte)
+	Do ..InboekenVoorraadCorrectie(PlaatPRNr,WerkvloerLengte,Verantwoordelijke,Omschrijving)
+]]></Implementation>
+</Method>
+
+<Method name="InboekenVoorraadCorrectie">
+<FormalSpec>PlaatPRNr:%Integer,WerkvloerLengte:%Float,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>0</ProcedureBlock>
+<Implementation><![CDATA[
 	Set D="\",U=";",Q="K"
 	Set DT=$$EXTDATE^vhDTyp($H,"DKP")
 	Set %Q1=$na(^TEMP("%1",$J))
 	Set Aktie=Verantwoordelijke
  	Set Ref=Omschrijving
-	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,-Lengte,Ref)
+	Do STORE^PRSTOCK("W",Aktie,PlaatPRNr,-WerkvloerLengte,Ref)
 ]]></Implementation>
 </Method>
 
Index: APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml
===================================================================
diff -u -r2824 -r3627
--- APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(.../IWerkpost.cls.xml)	(revision 2824)
+++ APPS/Halux/PPS/TBXZaag/IWerkpost.cls.xml	(.../IWerkpost.cls.xml)	(revision 3627)
@@ -71,7 +71,7 @@
 </Method>
 
 <Method name="BeschadigingPlaat">
-<FormalSpec>PlaatPRNr:%Integer,Lengte:%Float,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
+<FormalSpec>PlaatPRNr:%Integer,Lengte:%Integer,Verantwoordelijke:APPS.Halux.PPS.TBXZaag.enu.VerantwBeschadiging,Omschrijving:%String</FormalSpec>
 <Implementation><![CDATA[	
 ]]></Implementation>
 </Method>