Index: HADVUL.mac.rou
===================================================================
diff -u -r65995 -r66435
--- HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 65995)
+++ HADVUL.mac.rou	(.../HADVUL.mac.rou)	(revision 66435)
@@ -380,6 +380,7 @@
  
 TRANSFER(FromGlob,Opties,Titel) 
  New FileNm,Dev,LCNt,VolgNr,sFL,Fmt,PRNr,VulExtra,FL,BorCnt,BorNr,RecB,GlasOms,Gehard,MailList
+ New TransformatieRec,ProfielAfwerkingCode,VullingRec,IsActiefProfielPsvZwartVanSchuco,IsAanpassingNodigVoorPsvZwart
  New VullingOnbekendArray
  Set VullingOnbekendArray=##class(%ArrayOfDataTypes).%New()
  Set FileNm=$P(Titel,"\",2)_GVORDNr_".txt"
@@ -391,25 +392,28 @@
  Set VolgNr=""
  For  Set VolgNr=$O(@FromGlob@(VolgNr)) Quit:VolgNr=""  Do 
  . Set Fmt=$$CBPRINT($NAME(@FromGlob@(VolgNr)))
+ . Set TransformatieRec = $G(TransRec)   ; variabele TransRec werd in bovenstaande routine CBPRINT opgezet. (idem voor GlasOms, TxtBor) 
  . Set PRNr=$P(FL(3),D,1)
+ . Set ProfielAfwerkingCode = $P(FL(3,"G"),"\",2)
  . ;Do ControleerVullingOnbekend(PRNr,VullingOnbekendArray)
- . Set VulExtra=$P(FL(3,"V"),D,2)
+ . Set VullingRec = FL(3,"V")
+ . Set VulExtra=$P(VullingRec,D,2)
  . Set Gehard=$S(VulExtra["HARD":"Ja",1:"Neen")
  . Set VulExtra=$$REMLIST^vhRtn1(VulExtra,"HARD",";") 
  . Set:$L($TR(VulExtra,";","")) GlasOms=GlasOms_" - "_VulExtra
  . ;Set VulExtra=""
  . 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(FL(3,"V"),D,4)),$C(9),-$$MOD($P(FL(3,"V"),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(FL(3,"V"),D,4)),$C(9),-$$MOD($P(FL(3,"V"),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),$$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))
- .. Set $P(RecB,D,1,2)=$$TRANS($P(RecB,D,1,2),TransRec)
+ .. 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 !
  . If ($P(FL(3),D,7)'="") Do ; herstelling
  .. ; $LB(KlantNaam, TOENr, DOSNr, HerstellingsRede, Datum, GlasOms, Gehard, Hoogte, Breedte)
- .. Set MailList($I(MailList))=$LB($P(FL(3,"K"),D,2),$P(FL(3),D,4),$P(FL(3,"G"),D,1),$P(FL(3),D,7)_$S($L($P(FL(3),D,8)):": "_$P(FL(3),D,8),1:""),$TR($$EXTDATE^vhLib.DataTypes(LevDatum,"DKP"),".","/"),GlasOms,Gehard,$P(FL(3,"V"),D,4),$C(9),$P(FL(3,"V"),D,5))
+ .. Set MailList($I(MailList))=$LB($P(FL(3,"K"),D,2),$P(FL(3),D,4),$P(FL(3,"G"),D,1),$P(FL(3),D,7)_$S($L($P(FL(3),D,8)):": "_$P(FL(3),D,8),1:""),$TR($$EXTDATE^vhLib.DataTypes(LevDatum,"DKP"),".","/"),GlasOms,Gehard,$P(VullingRec,D,4),$C(9),$P(VullingRec,D,5))
  Close:0'[Dev Dev
  Do WARN^vhTXTPOP("Bestand "_FileNm_" weggeschreven")
  ;Do MailOnbekendeVullingen(VullingOnbekendArray)