+
- CHARGES
-
-
-
- Ref |
- Description |
- Amount |
-
- <%=
+ <%=
+ foreach my $section ( @sections ) {
+ if ($section->{'pretotal'}) {
+ $OUT .=
+ ''.
+ ' '.
+ uc(substr($section->{'pretotal'},0,1)).
+ ''. uc(substr($section->{'pretotal'},1)).
+ ''.
+ ' '.
+ ' | ';
+ }
+ $OUT .= '';
+ if ($section->{'description'}) {
+ $OUT .=
+ ' '. uc(substr($section->{'description'},0,1)).
+ ''. uc(substr($section->{'description'},1)).
+ ''.
+ ' ';
+ }else{
+ $OUT .=
+ ' CHARGES'.
+ ' ';
+ }
+ $OUT .= ' | ';
- foreach my $line ( @detail_items ) {
$OUT .=
- ''.
- ''. $line->{'ref'}. ' | '.
- ''. $line->{'description'}. ' | '.
- ''. $line->{'amount'}. ' | '.
- ' '
- ;
- foreach my $ext_desc ( @{$line->{'ext_description'} } ) {
+ ''.
+ ''.
+ 'Ref | '.
+ 'Description | '.
+ ( $unitprices
+ ? 'Unit Price | '.
+ 'Quantity | '
+ : ''
+ ).
+ 'Amount | '.
+ ' ';
+
+ my $lastref = 0;
+ foreach my $line (
+ grep { ( scalar(@sections) > 1
+ ? $section->{'description'} eq $_->{'section'}->{'description'}
+ : 1
+ ) }
+ @detail_items )
+ {
$OUT .=
- ''.
- ' | '.
- '- '. $ext_desc. ' | '.
- ' | '.
+ ' '.
+ ''.
+ ( $line->{'ref'} ne $lastref ? $line->{'ref'} : '' ). ' | '.
+ ''. $line->{'description'}. ' | '.
+ ( $unitprices
+ ? ''. $line->{'unit_amount'}. ' | '.
+ ''. $line->{'quantity'}. ' | '
+ : ''
+ ).
+
+ ''. $line->{'amount'}. ' | '.
' '
+ ;
+ $lastref = $line->{'ref'};
+ if ( @{$line->{'ext_description'} } ) {
+ $OUT .= ' | ' : '>';
+ $OUT .= '';
+ foreach my $ext_desc ( @{$line->{'ext_description'} } ) {
+ $OUT .=
+ ''.
+ '/i ? '' : 'colspan=99' ). '>'.
+ ' '. $ext_desc.
+ ' | '.
+ ' '
+ }
+ $OUT .= ' | | ';
+ }
}
+
+
+ if (scalar(@sections) > 1) {
+ my $style = 'border-top: 3px solid #000000;'.
+ 'border-bottom: 3px solid #000000;';
+ $OUT .=
+ ''.
+ qq( | ).
+ qq(' : '>' ).
+ $section->{'description'}. ' Total | '.
+ qq().
+ $section->{'subtotal'}. ' | '.
+ ' '
+ ;
+ }
+
+ if ($section->{'posttotal'}) {
+ $OUT .= '';
+ $OUT .=
+ ' '. $section->{'posttotal'}.
+ ''.
+ ' ';
+ $OUT .= ' | ';
+ }
+
}
my $style = 'border-top: 3px solid #000000;';
@@ -99,7 +202,8 @@
$OUT .=
''.
qq( | ).
- qq().
+ qq( | ' : '>' ).
$line->{'total_item'}. ' | '.
qq().
$line->{'total_amount'}. ' | '.
@@ -114,13 +218,6 @@
-
<%= $notes %>
|
|