diff --git a/TWYN/twyn_pac.sql b/TWYN/twyn_pac.sql
index 21a4b488e..fa985ca6e 100644
--- a/TWYN/twyn_pac.sql
+++ b/TWYN/twyn_pac.sql
@@ -593,6 +593,7 @@ AS
       v_part_B  VARCHAR2(32767);
       v_part_W  VARCHAR2(32767);
       v_part_T  VARCHAR2(32767);
+      v_part_L  VARCHAR2(32767);
       v_where   VARCHAR2(32767);
 
    BEGIN
@@ -708,8 +709,27 @@ AS
                || '        , bgt_kostenrubriek_key'
                || ' ORDER BY rcode';
 
+      v_part_L := 'SELECT x.*'
+               || '     , CASE WHEN scode IS NOT NULL'
+                       || '     AND org_bedrag_exc = 0'
+                       || '     AND org_bedrag_btw = 0'
+                       || '     AND bgt_bedrag_exc = 0'
+                       || '     AND bgt_bedrag_btw = 0'
+                       || '     AND res_bedrag_exc IS NULL'
+                       || '     AND res_bedrag_btw IS NULL'
+                       || '     AND mut_bedrag_exc IS NULL'
+                       || '     AND mut_bedrag_btw IS NULL'
+                       || '     AND cnt_bedrag_exc = 0'
+                       || '     AND cnt_bedrag_btw = 0'
+                       || '     AND fin_bedrag_exc = 0'
+                       || '     AND fin_bedrag_btw = 0'
+                       || '    THEN 1'
+                       || '    ELSE 0'
+               || '       END is_leeg'
+               || '  FROM (' || v_part_T || ') x';
+
       OPEN p_cursor FOR 'SELECT * FROM '
-           || '( SELECT * FROM (' || v_part_T || ')'
+           || '( SELECT * FROM (' || v_part_L || ')'
            || ')';
    END;