Index: HALFAK.mac.rou
===================================================================
diff -u -r2589 -r8456
--- HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 2589)
+++ HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 8456)
@@ -61,7 +61,7 @@
  . Set Kost=$$KOST(PRNr,GenTyp)
  . Set (FSCCode,Actie)=""
  . For  Set FSCCode=$O(arHist(FSCCode)) Quit:FSCCode=""  Do
- . . Set FSCOms=$P($G(^RES("PRODUKT","PI","FSC","D",FSCCode)),"`",2)
+ . . Set FSCOms=$P($G(^RES("PRODUKT","PI","HoutCertificaat","D",FSCCode)),"`",2)
  . . For  Set Actie=$O(arHist(FSCCode,Actie)) Quit:Actie=""  Do
  . . . Set Qty=$LG(arHist(FSCCode,Actie),1)
  . . . Set FSCGewicht=$LG(arHist(FSCCode,Actie),2)
@@ -145,7 +145,7 @@
  . . Set AnRek=$$AnalytischeRekening(GenTyp)
  . . Set AnOms=$$AnalytischeOmschrijving(AnRek)
  . . For  Set FSCCode=$O(arHist(GenTyp,FSCCode)) Quit:FSCCode=""  Do
- . . . Set FSCOms=$P($G(^RES("PRODUKT","PI","FSC","D",FSCCode)),"`",2)
+ . . . Set FSCOms=$P($G(^RES("PRODUKT","PI","HoutCertificaat","D",FSCCode)),"`",2)
  . . . Set Qty=$LG(arHist(GenTyp,FSCCode),1)
  . . . Set FSCGewicht=$LG(arHist(GenTyp,FSCCode),2)
  . . . Write "H",$C(9),$P(GenTyp,"\",1),$C(9),$P(GenTyp,"\",2),$C(9),PRNr,$C(9),$P(^KPR(PRNr,0),D)