Changing the Print Routines

While you can use most of the existing portrait routines for the summary, two areas require changes:

1. You must change the Invoice Heading procedures that are found in BIFULP00 for the default portrait layout.

   To prevent line headings from appearing on the summarized invoice, you must add an alternate line heading procedure. First, copy BIFULP00 to a new member, BIFULP30, and then add a new line heading procedure for the new layout that prints separator lines with no column headings.

   !***********************************************************************
   !BIFULP30.SQC: Invoice Heading for SUMMARY ONLY invoice layout. *
   !***********************************************************************
   !         *
   !  Confidentiality Information:    *
   !         *
   ! This module is the confidential and proprietary information of *
   ! PeopleSoft, Inc.; it is not to be copied, reproduced, or transmitted *
   ! in any form, by any means, in whole or in part, nor is it to be used *
   ! for any purpose other than that for which it is expressly provided *
   ! without the written permission of PeopleSoft.   *
   !         *
   ! Copyright (c) 1988-1995 PeopleSoft, Inc. All Rights Reserved  *
   !         *
   !***********************************************************************
   begin-procedure line-headings-SUMMONLY
   alter-printer
    font=4
    point-size=8
    graphic (,1,120) horz-line
    graphic (+1,1,120) horz-line
   alter-printer
    font=3
    point-size=6
   end-procedure

2. You must also change the pretax subtotal routine to print a pretax subtotal that does not include discounts and surcharges, enabling these amounts to print after the subtotal.

   You can use all other print routines from the default member BIPRTP00. BIPRTP30 is created with a new subtotal routine.

   !***********************************************************************
   !BIPRTP30.SQC: Summary Only print routines for portrait invoice *
   !  layouts.      *
   !***********************************************************************
   !         *
   !  Confidentiality Information:    *
   !         *
   ! This module is the confidential and proprietary information of *
   ! PeopleSoft, Inc.; it is not to be copied, reproduced, or transmitted *
   ! in any form, by any means, in whole or in part, nor is it to be used *
   ! for any purpose other than that for which it is expressly provided *
   ! without the written permission of PeopleSoft.   *
   !         *
   ! Copyright (c) 1988-1995 PeopleSoft, Inc. All Rights Reserved  *
   !         *
   !***********************************************************************
   !----------------------------------------------------------------------!
   ! Procedure: PRINT-PRETAX-SUBTOTAL-SUMMONLY    !
   ! Desc: Print pretax subtotal.     !
   !         !
   !----------------------------------------------------------------------!
   begin-procedure PRINT-PRETAX-SUBTOTAL-SUMMONLY
    add 1 to #level
    move 'PRINT-PRETAX-SUBTOTAL-SUMMONLY' to $Current-Procedure
   
   #ifdef DebugF
    do PRINT-FLOW
   #endif
   
    graphic (+1,{amount_col2},20) horz-line
    alter-printer
    font=4
    point-size=8
    !PRINT 'SUBTOTAL: '  
    PRINT $xv_SUBTOTAL  (+1,{total_label}) bold
   alter-printer
    font=3
    point-size=6
    let #Adjusted_subtotal = &hdr.invoice_amt_pretax - #Total_Discount_Amt
    - #Total_Surcharge_Amt
   do Format_Currency_Amt (#Adjusted_subtotal, $bi_currency_cd, $select_eff
   dt, '9,999,999,999,999.999pf', $out, 'I')
    print $out   (,{amount_col2}) bold
   subtract 1 from #level
   
   end-procedure