'; } } if (scalar(@sections) > 1) { my $style = 'border-top: 3px solid #000000;'. 'border-bottom: 3px solid #000000;'; $OUT .= ''. qq(); if ($section->{total_generator}) { $OUT .= &{$section->{total_generator}}($section); } else { $OUT .= qq('. qq('; } $OUT .= ''; } } if ($section->{'posttotal'}) { $OUT .= ''; } } my $style = 'border-top: 3px solid #000000;'; my $linenum = 0; foreach my $line ( @total_items ) { $style .= 'border-bottom: 3px solid #000000;' if ++$linenum == scalar(@total_items); $OUT .= ''; if ($section->{total_line_generator}) { $OUT .= &{$section->{total_line_generator}}($line); } else { $OUT .= qq(). qq('. qq('; } $OUT .= ''; $style=''; } %>
<%= $ship_enable ? ('' ) : '' %>
"> <%= $returnaddress %>
Invoice date
<%= $date %> 		Invoice #
<%= $invnum %> 		Customer #
<%= $custnum %>
  <%= $notice_name ? substr($notice_name, 0, 1) : 'I' %><%= $notice_name ? uc(substr($notice_name, 1)) : 'NVOICE' %>  
<%= $payname %>
<%= join('
', grep length($_), $company, $address1, $address2, "$city, $state  $zip", $country, ) %> 		'. join('
',grep length($_), 'Service Address', $ship_company, $ship_address1, $ship_address2, "$ship_city, $ship_state $ship_zip", $ship_country, ' ', ' ', ). '
Terms: <%= $terms %>
<%= $po_line %>
<%= $summary %> <%= foreach my $section ( grep { !$summary || $_->{description} ne $finance_section } @sections ) { if ($section->{'pretotal'} && !$summary) { $OUT .= '
'. '

'. uc(substr($section->{'pretotal'},0,1)). ''. uc(substr($section->{'pretotal'},1)). ''. '

'. '

'; } unless ($section->{'summarized'}) { $OUT .= '
'; if ($section->{'description'}) { $OUT .= '

'. uc(substr($section->{'description'},0,1)). ''. uc(substr($section->{'description'},1)). ''. '

'; }else{ $OUT .= '

CHARGES'. '

'; } $OUT .= '

'; $OUT .= ''. ''; if ($section->{header_generator}) { $OUT .= &{$section->{header_generator}}(); } else { $OUT .= ''. ''. ( $unitprices ? ''. '' : '' ). ''; } ''; my $lastref = 0; foreach my $line ( grep { ( scalar(@sections) > 1 ? $section->{'description'} eq $_->{'section'}->{'description'} : 1 ) } @detail_items ) { $OUT .= ''. ''. ''. ( $unitprices ? ''. '' : '' ). ''; } $OUT .= ''; $lastref = $line->{'ref'}; if ( @{$line->{'ext_description'} } ) { $OUT .= '' : '>'; $OUT .= '
RefDescriptionUnit PriceQuantityAmount
'. ( $line->{'ref'} ne $lastref ? $line->{'ref'} : '' ). ''. $line->{'description'}. ''. $line->{'unit_amount'}. ''. $line->{'quantity'}. ''. $line->{'amount'}. '
'; foreach my $ext_desc ( @{$line->{'ext_description'} } ) { $OUT .= ''. ''. '' } $OUT .= '
/i ? '' : 'colspan=99' ). '>'. '  '. $ext_desc. '
 ' : '>' ). $section->{'description'}. ' Total ). $section->{'subtotal'}. '
'; $OUT .= '

'. $section->{'posttotal'}. ''. '

'; $OUT .= '

 ' : '>' ). $line->{'total_item'}. '). $line->{'total_amount'}. '


<%= length($summary) ? '' : ( $smallernotes ? ''.$notes.'' : $notes ) %>

><%= $footer %>