messbox(" Has the draft PDQ summary printed correctly? (y/n) ",1,1,1)
      if ptstr == "y"                      '  store file & exit
        for i = 1 to records
          lock-record                        ' update record with inv nr & date
            [Banked]=today
          write-record
          data goto record next
        end for
'         p6 = 1    ' p6 = nr of copies
'         PrintReport(p1,p2,p3,p4,p5,p6)
        _SWIP_Crystal(Xreppath|"tot_pdq2","P",0,2,"") ' final report
        p1 = "totPDQr.dfr"                ' reconciled printout
        repdate = left(sum_date,2)|mid(sum_date,4,2)|right(sum_date,2) 'message "repdate) is:"&str(repdate)
        br_dir=case br_name ("Sheen","SHEEN")("Fulham","FULHAM")("Putney","PUTNEY")("Head˙Office","HEAD") 'message "br_dir is:"&str(br_dir)
        cashrep = $drive|"REPORTS\BANKINGS\"|br_dir|"\"|repdate|".PDQ" 'message "cashrep) is:"&str(cashrep)
        print report execute p1 disk cashrep detail start 1 end 0 copies 1
        exit while
      else
        messbox(" Abandon and print later? (y/n) ",1,1,1)
        if ptstr == "y"                      '  store file & exit
          return (-1)
        else
          continue while
        end if
      end if
    end while