startup;

DECLARE
   check_count1   NUMBER(6);
   check_count2   NUMBER(6);
   check_count3   NUMBER(6);
BEGIN
   :b1.pf3      := :GLOBAL.pf3;
   :b1.pf4      := :GLOBAL.pf4;
   :b1.co       := :GLOBAL.company;
   :b1.NAME     := :GLOBAL.company_name;
   :b1.today    := SYSDATE;

--
   SELECT bksubsrc
   INTO   :b1.bksubsrc
   FROM   apctl
   WHERE  co = :b1.co;

--
   SELECT COUNT(*)
   INTO   check_count1
   FROM   apdetail
   WHERE  SOURCE LIKE '7%'
   AND    printedcheck = 'P'
   AND    checknumber IS NOT NULL
   AND    co = :b1.co
   AND    deferral = 'P';

---
   SELECT COUNT(*)
   INTO   check_count2
   FROM   apdetail
   WHERE  SOURCE LIKE '7%'
   AND    co = :b1.co
   AND    deferral = 'P';

--
-- disabled 11/2004 -es
-- too many users in manual payment holding up check print processing
--
-- select count(*)
-- into check_count3
-- from aptrxhdr
-- where source like '3%'
-- and posted = 'N'
-- and co = :b1.co;
--
   IF NVL(check_count1, 0) > 0
   THEN
      MESSAGE(   'Unposted computer checks exist... '
              || 'Run Check Register Update first.'
             );
      PAUSE;
      NEW_FORM('ap000');
   ELSIF NVL(check_count2, 0) > 0
   THEN
      MESSAGE(   'Invoices already selected for payment... '
              || 'Run Clear Selection for Payment.'
             );
      PAUSE;
      NEW_FORM('ap000');
   ELSIF NVL(check_count3, 0) > 0
   THEN
      MESSAGE('Unposted manual checks exist... Run Voucher Posting.');
      PAUSE;
      NEW_FORM('ap000');
   END IF;
EXCEPTION
   WHEN NO_DATA_FOUND
   THEN
      NULL;
END;

   SELECT COUNT(*)
   INTO   check_count2
   FROM   apdetail
   WHERE  SOURCE LIKE '7%'
   AND    co = :b1.co
   AND    deferral = 'P';