Index: HALFAK.mac.rou
===================================================================
diff -u -r40889 -r70685
--- HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 40889)
+++ HALFAK.mac.rou	(.../HALFAK.mac.rou)	(revision 70685)
@@ -140,6 +140,7 @@
  . Set KT=$P(^KPR(PRNr,0),D,1)
  . Set GenTyp=$$GENTYP^HAD(PRNr)
  . Set AnRek=$$AnalytischeRekening(GenTyp)
+ . Quit:AnRek="0109" ; Revego is NIET IC in de SWS - PV 09/03/23
  . Set Kost=$$KOST(PRNr,GenTyp)
  . Set (ClaimTransactie,Actie)=""
  . For  Set ClaimTransactie=$O(arHist(ClaimTransactie)) Quit:ClaimTransactie=""  Do
@@ -236,6 +237,7 @@
  . Set (GenTyp,ClaimTransactie)=""
  . For  Set GenTyp=$O(arHist(GenTyp)) Quit:GenTyp=""  Do
  . . Set AnRek=$$AnalytischeRekening(GenTyp)
+ . . Quit:AnRek="0109" ; Revego is NIET IC in de SWS - PV 09/03/23
  . . Set AnOms=$$AnalytischeOmschrijving(AnRek)
  . . For  Set ClaimTransactie=$O(arHist(GenTyp,ClaimTransactie)) Quit:ClaimTransactie=""  Do
  . . . Set ClaimOms=##class(DOM.PM.HoutCertificaatService).%New().GeefHoutCertificaat(ClaimTransactie).GeefOmschrijving()