Index: APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml
===================================================================
diff -u -r2817 -r2821
--- APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2817)
+++ APPS/Halux/PPS/TBXZaag/impl/Werkpost.cls.xml	(.../Werkpost.cls.xml)	(revision 2821)
@@ -238,6 +238,8 @@
 <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)