The Perl Toolchain Summit needs more sponsors. If your company depends on Perl, please support this very important event.
${#} Store Purchase Orders.
${#} SCCS: @(#)FirstHeader 1.1 03/27/03 09:12:25
${#} This header is used for the first page only - the point is that there is a special 'index' line
${#}
${Opt StartPage } 
${#}
${#} Reset the page totals of units:
${Calc PageTotal := 0 }
${Calc PageTotalLastPage := 0 }
${#}
${#} This (non printing) line is used in generating an index, keep it to at most 50 characters
PO: ${purchase_order_no} Vendor: ${vendor_number%10.10d} Date: ${orderdate@time<%Y %B %d>}
${#}
${#} The line below is a hack to prevent the PO: line from counting to the total # lines on the page:
${Calc PageLineNo := 0 }
${#}
${#}
                                                  ACME SA                                       PAGE ${PageNo}
                                               ORDER D'ACHAT

       Magazin Destination: ${country}${branch%5.5d}                          Code du Fournisseur: ${vendor_number%10.10d}
                                                              Nom du Fournisseur: ${vendor_name}
                                                               Numero de l'Ordre: ${purchase_order_no}
                                                                 Date de l'Ordre: ${orderdate@time<%Y %B %d>}
                                                               Date de Livraison: ${shipdate@time<%Y %B %d>}


                                                           Quantitee       Current
   Department     SKU       Description             Commandee    Recu       Prix         Value
   ==========     ===       ===========               =======  ========     =====        =====

                                                               ________
${#} end of paragraph