Index: HADVUL.mac.rou
===================================================================
diff -u -r66435 -r66436
--- HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 66435)
+++ HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 66436)
@@ -383,6 +383,9 @@
  New TransformatieRec,ProfielAfwerkingCode,VullingRec,IsActiefProfielPsvZwartVanSchuco,IsAanpassingNodigVoorPsvZwart
  New VullingOnbekendArray
  Set VullingOnbekendArray=##class(%ArrayOfDataTypes).%New()
+ 
+ Set IsActiefProfielPsvZwartVanSchuco = $$$True   ; Switch voor tijdelijk profiel PsvZwart van Schuco (andere constructie waardoor afmetingen van Vulling 2mm kleiner zijn)
+ 
  Set FileNm=$P(Titel,"\",2)_GVORDNr_".txt"
  Set Dev=0
  Set Dev=$$OPEN^vhDEV(,FileNm,"W")
@@ -402,12 +405,18 @@
  . Set VulExtra=$$REMLIST^vhRtn1(VulExtra,"HARD",";") 
  . Set:$L($TR(VulExtra,";","")) GlasOms=GlasOms_" - "_VulExtra
  . ;Set VulExtra=""
+ . Set IsAanpassingNodigVoorPsvZwart = (ProfielAfwerkingCode="PSV-S") && IsActiefProfielPsvZwartVanSchuco
+ . If IsAanpassingNodigVoorPsvZwart Do
+ . . Do PasAanVullingRecVoorPsvZwart(.VullingRec)
+ . . Do PasAanTransRecVoorPsvZwart(.TransformatieRec)
+ . . Set GlasOms = GlasOms _ "(*)"
  . Set BorCnt=$O(^HADPR("P",PRNr,"GV","B",""),-1)
  . Set LevDatum=$P(FL(3),D,3)
  . ;Write $P(FL(3,"K"),D,2),$C(9),$P(FL(3),D,4),".",$P(FL(3,"G"),D,1),$C(9),$P(FL(3),D,7),$C(9),$$EXTDATE^vhLib.DataTypes(LevDatum,"W"),$C(9),GlasOms,$C(9),Gehard,$C(9),VulExtra,$C(9),$P(FL(3),D,2),$C(9),BorCnt,$C(9),$$MOD($P(VullingRec,D,4)),$C(9),-$$MOD($P(VullingRec,D,5))
  . Write $P(FL(3,"K"),D,2),$C(9),$P(FL(3),D,4),".",$P(FL(3,"G"),D,1),$C(9),$P(FL(3),D,7),$C(9),$TR($$EXTDATE^vhLib.DataTypes(LevDatum,"DKP"),".","/"),$C(9),GlasOms,$C(9),Gehard,$C(9),VulExtra,$C(9),$P(FL(3),D,2),$C(9),BorCnt,$C(9),$$MOD($P(VullingRec,D,4)),$C(9),-$$MOD($P(VullingRec,D,5))
  . For BorNr=1:1:BorCnt Do
  .. Set RecB=$G(^HADPR("P",PRNr,"GV","B",BorNr))
+ .. Do:(IsAanpassingNodigVoorPsvZwart) PasAanGlasBoringRecVoorPsvZwart(.RecB)
  .. Set $P(RecB,D,1,2)=$$TRANS($P(RecB,D,1,2),TransformatieRec)
  .. Write $C(9),$$MOD($P(RecB,D,1)),$C(9),-$$MOD($P(RecB,D,2)),$C(9),$P(RecB,D,4)
  . Write !
@@ -419,7 +428,34 @@
  ;Do MailOnbekendeVullingen(VullingOnbekendArray)
  Do:$D(MailList) InfoMailHerstelling(.MailList)
  Quit
- 
+
+PasAanVullingRecVoorPsvZwart(VullingRec)   ; VullingRec als .local doorgeven
+	Set $P(VullingRec,"\",4) = $$GeefVullingAfmetingVoorPsvZwart($P(VullingRec,"\",4))   ; Vulling Hoogte  
+	Set $P(VullingRec,"\",5) = $$GeefVullingAfmetingVoorPsvZwart($P(VullingRec,"\",5))   ; Vulling Breedte 
+	Quit
+
+PasAanTransRecVoorPsvZwart(TransformatieRec)   ; TransformatieRec als .local doorgeven
+	Set $P(TransformatieRec,"\",1) = $$GeefVullingAfmetingVoorPsvZwart($P(TransformatieRec,"\",1))   ; Transform horizontaal 
+	Set $P(TransformatieRec,"\",2) = $$GeefVullingAfmetingVoorPsvZwart($P(TransformatieRec,"\",2))   ; Transform verticaal   
+	Quit
+
+PasAanGlasBoringRecVoorPsvZwart(BoringRec)   ; BoringRec als .local doorgeven
+	Set $P(BoringRec,"\",1) = $$GeefBoringPositieVoorPsvZwart($P(BoringRec,"\",1))   ; Boring XPos 
+	Set $P(BoringRec,"\",2) = $$GeefBoringPositieVoorPsvZwart($P(BoringRec,"\",2))   ; Boring YPos 
+	Quit
+
+	#define CorrectiePsvZwartAftrekGlas   1
+
+GeefVullingAfmetingVoorPsvZwart(VullingAfmeting)
+	Quit:(VullingAfmeting="") VullingAfmeting
+	Quit VullingAfmeting - ($$$CorrectiePsvZwartAftrekGlas * 2)
+	
+GeefBoringPositieVoorPsvZwart(BoringPos)
+	;New CorrectieBoringPosInMM  Set CorrectieBoringPosInMM = $$$CorrectiePsvZwartAftrekGlas
+	Quit BoringPos - ($$$CorrectiePsvZwartAftrekGlas)
+	
+
+
 	/* 
 ControleerVullingOnbekend(PRNr,VullingOnbekendArray)
 	New VullingID