Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 8365e092

Von Moritz Bunkus vor fast 18 Jahren hinzugefügt

  • ID 8365e092eb2088a8c2ebba604783555a13dc2a57
  • Vorgänger 62a9b707
  • Nachfolger 090de47c

Die Berichte über offene Forderungen und offene Verbindlichkeiten auf die Verwendung des ReportGenerators umgestellt.

Unterschiede anzeigen:

bin/mozilla/rp.pl
#
#======================================================================
require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
use POSIX qw(strftime);
use SL::PE;
use SL::RP;
use SL::USTVA;
use SL::Iconv;
use SL::ReportGenerator;
require "bin/mozilla/arap.pl";
require "bin/mozilla/common.pl";
require "bin/mozilla/report_generator.pl";
1;
......
# split customer
($form->{customer}) = split(/--/, $form->{customer});
$customer = $form->escape($form->{customer}, 1);
$title = $form->escape($form->{title}, 1);
$form->{ct} = "customer";
$form->{arap} = "ar";
$form->{callback} =
qq|$form->{script}?action=generate_ar_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&customer=$customer&title=$title|;
$form->{callback} = build_std_url('action=generate_ar_aging', qw(todate customer title));
RP->aging(\%myconfig, \%$form);
&aging;
aging();
$lxdebug->leave_sub();
}
......
# split vendor
($form->{vendor}) = split(/--/, $form->{vendor});
$vendor = $form->escape($form->{vendor}, 1);
$title = $form->escape($form->{title}, 1);
$form->{ct} = "vendor";
$form->{arap} = "ap";
$form->{callback} =
qq|$form->{script}?action=generate_ap_aging&login=$form->{login}&password=$form->{password}&todate=$form->{todate}&vendor=$vendor&title=$title|;
$form->{callback} = build_std_url('action=generate_ap_aging', qw(todate vendor title));
RP->aging(\%myconfig, \%$form);
&aging;
aging();
$lxdebug->leave_sub();
}
sub aging {
sub create_aging_subtotal_row {
$lxdebug->enter_sub();
$form->header;
my ($subtotals, $columns, $periods, $class) = @_;
$column_header{statement} = qq|<th>&nbsp;</th>|;
$column_header{ct} =
qq|<th class=listheading>|
. $locale->text(ucfirst $form->{ct})
. qq|</th>|;
$column_header{invnumber} =
qq|<th class=listheading>| . $locale->text('Invoice') . qq|</th>|;
$column_header{transdate} =
qq|<th class=listheading>| . $locale->text('Date') . qq|</th>|;
$column_header{duedate} =
qq|<th class=listheading>| . $locale->text('Due') . qq|</th>|;
$column_header{c0} =
qq|<th class=listheading>| . $locale->text('Current') . qq|</th>|;
$column_header{c30} = qq|<th class=listheading>30</th>|;
$column_header{c60} = qq|<th class=listheading>60</th>|;
$column_header{c90} = qq|<th class=listheading>90</th>|;
@column_index =
(qw(statement ct invnumber transdate duedate c0 c30 c60 c90));
my $row = { map { $_ => { 'data' => '', 'class' => $class, 'align' => 'right' } } @{ $columns } };
if ($form->{department}) {
$option .= "\n<br>" if $option;
($department) = split /--/, $form->{department};
$option .= $locale->text('Department') . " : $department";
$department = $form->escape($form->{department}, 1);
$form->{callback} .= "&department=$department";
foreach (@{ $periods }) {
$row->{"c$_"}->{data} = $subtotals->{$_} != 0 ? $form->format_amount(\%myconfig, $subtotals->{$_}, 2) : '';
$subtotals->{$_} = 0;
}
if ($form->{arap} eq 'ar') {
if ($form->{customer}) {
$option .= "\n<br>" if $option;
$option .= $form->{customer};
}
}
if ($form->{arap} eq 'ap') {
shift @column_index;
if ($form->{vendor}) {
$option .= "\n<br>" if $option;
$option .= $form->{vendor};
}
}
$todate = $locale->date(\%myconfig, $form->{todate}, 1);
$option .= "\n<br>" if $option;
$option .=
$locale->text('for Period') . " " . $locale->text('Bis') . " $todate";
$lxdebug->leave_sub();
print qq|
<body>
return $row;
}
<form method=post action=$form->{script}>
sub aging {
$lxdebug->enter_sub();
<table width=100%>
<tr>
<th class=listtop>$form->{title}</th>
</tr>
<tr height="5"></tr>
<tr>
<td>$option</td>
</tr>
<tr>
<td>
<table width=100%>
<tr class=listheading>
|;
my $report = SL::ReportGenerator->new(\%myconfig, $form);
map { print "$column_header{$_}\n" } @column_index;
my @columns = qw(statement ct invnumber transdate duedate c0 c30 c60 c90);
print qq|
</tr>
|;
my %column_defs = (
'statement' => { 'text' => '', 'visible' => $form->{ct} eq 'customer' ? 'HTML' : 0, },
'ct' => { 'text' => $form->{ct} eq 'customer' ? $locale->text('Customer') : $locale->text('Vendor'), },
'invnumber' => { 'text' => $locale->text('Invoice'), },
'transdate' => { 'text' => $locale->text('Date'), },
'duedate' => { 'text' => $locale->text('Due'), },
'c0' => { 'text' => $locale->text('Current'), },
'c30' => { 'text' => '30', },
'c60' => { 'text' => '60', },
'c90' => { 'text' => '90', },
);
$ctid = 0;
$subtotal = 0;
$i = 0;
my %column_alignment = ('statement' => 'center',
map { $_ => 'right' } qw(c0 c30 c60 c90));
foreach $ref (@{ $form->{AG} }) {
$report->set_options('std_column_visibility' => 1);
$report->set_columns(%column_defs);
$report->set_column_order(@columns);
if ($ctid != $ref->{ctid}) {
my @hidden_variables = qw(todate customer vendor arap title ct);
$report->set_export_options('generate_' . ($form->{arap} eq 'ar' ? 'ar' : 'ap') . '_aging', @hidden_variables);
$i++;
my @options;
if ($subtotal) {
$c0subtotal = ($c0subtotal != 0) ?
$form->format_amount(\%myconfig, $c0subtotal, 2, "&nbsp") : "";
$c30subtotal = ($c30subtotal != 0) ?
$form->format_amount(\%myconfig, $c30subtotal, 2, "&nbsp") : "";
$c60subtotal = ($c60subtotal != 0) ?
$form->format_amount(\%myconfig, $c60subtotal, 2, "&nbsp") : "";
$c90subtotal = ($c90subtotal != 0) ?
$form->format_amount(\%myconfig, $c90subtotal, 2, "&nbsp") : "";
}
if ($form->{department}) {
my ($department) = split /--/, $form->{department};
push @options, $locale->text('Department') . " : $department";
$form->{callback} .= "&department=" . E($department);
}
$column_data{ct} = qq|<th>&nbsp;</th>|;
$column_data{invnumber} = qq|<th>&nbsp;</th>|;
$column_data{transdate} = qq|<th>&nbsp;</th>|;
$column_data{duedate} = qq|<th>&nbsp;</th>|;
$column_data{c0} =
qq|<th align=right class=listsubtotal>$c0subtotal</th>|;
$column_data{c30} =
qq|<th align=right class=listsubtotal>$c30subtotal</th>|;
$column_data{c60} =
qq|<th align=right class=listsubtotal>$c60subtotal</th>|;
$column_data{c90} =
qq|<th align=right class=listsubtotal>$c90subtotal</th>|;
if ($subtotal) {
# print subtotals
print qq|
<tr class=listsubtotal>
|;
if (($form->{arap} eq 'ar') && $form->{customer}) {
push @options, $form->{customer};
}
map { print "$column_data{$_}\n" } @column_index;
if (($form->{arap} eq 'ap') && $form->{vendor}) {
push @options, $form->{vendor};
}
$column_data{statement} = qq|<td>&nbsp;</td>|;
push @options, $locale->text('for Period') . " " . $locale->text('Bis') . " " . $locale->date(\%myconfig, $form->{todate}, 1);
print qq|
</tr>
|;
}
my $attachment_basename = $form->{ct} eq 'customer' ? $locale->text('ar_aging_list') : $locale->text('ap_aging_list');
$subtotal = 1;
$report->set_options('top_info_text' => join("\n", @options),
'output_format' => 'HTML',
'title' => $form->{title},
'attachment_basename' => $attachment_basename . strftime('_%Y%m%d', localtime time),
);
$c0subtotal = 0;
$c30subtotal = 0;
$c60subtotal = 0;
$c90subtotal = 0;
my $previous_ctid = 0;
my $row_idx = 0;
my @periods = qw(0 30 60 90);
my %subtotals = map { $_ => 0 } @periods;
my %totals = map { $_ => 0 } @periods;
$column_data{ct} = qq|<td>$ref->{name}</td>|;
$column_data{statement} =
qq|<td><input name="statement_$i" type=checkbox class=checkbox value=1 $ref->{checked}>
<input type=hidden name="$form->{ct}_id_$i" value=$ref->{ctid}>
</td>|;
foreach $ref (@{ $form->{AG} }) {
if ($row_idx && ($previous_ctid != $ref->{ctid})) {
$report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal'));
}
$c0subtotal += $ref->{c0};
$c30subtotal += $ref->{c30};
$c60subtotal += $ref->{c60};
$c90subtotal += $ref->{c90};
$c0total += $ref->{c0};
$c30total += $ref->{c30};
$c60total += $ref->{c60};
$c90total += $ref->{c90};
$ref->{c0} = ($ref->{c0} != 0) ? $form->format_amount(\%myconfig, $ref->{c0}, 2, "&nbsp;") : "";
$ref->{c30} = ($ref->{c30} != 0) ? $form->format_amount(\%myconfig, $ref->{c30}, 2, "&nbsp;") : "";
$ref->{c60} = ($ref->{c60} != 0) ? $form->format_amount(\%myconfig, $ref->{c60}, 2, "&nbsp;") : "";
$ref->{c90} = ($ref->{c90} != 0) ? $form->format_amount(\%myconfig, $ref->{c90}, 2, "&nbsp;") : "";
foreach my $key (@periods) {
$subtotals{$key} += $ref->{"c${key}"};
$totals{$key} += $ref->{"c${key}"};
$ref->{"c${key}"} = $ref->{"c${key}"} != 0 ? $form->format_amount(\%myconfig, $ref->{"c${key}"}, 2) : '';
}
$href =
qq|$ref->{module}.pl?action=edit&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=|
. $form->escape($form->{callback});
my $row = { };
$column_data{invnumber} = qq|<td><a href=$href>$ref->{invnumber}</a></td>|;
$column_data{transdate} = qq|<td>$ref->{transdate}</td>|;
$column_data{duedate} = qq|<td>$ref->{duedate}&nbsp;</td>|;
$column_data{c0} = qq|<td align=right>$ref->{c0}</td>|;
$column_data{c30} = qq|<td align=right>$ref->{c30}</td>|;
$column_data{c60} = qq|<td align=right>$ref->{c60}</td>|;
$column_data{c90} = qq|<td align=right>$ref->{c90}</td>|;
$j++;
$j %= 2;
print qq|
<tr class=listrow$j>
|;
foreach my $column (@columns) {
$row->{$column} = {
'data' => (($column eq 'ct') || ($column eq 'statement')) ? '' : $ref->{$column},
'align' => $column_alignment{$column},
'valign' => $column eq 'statement' ? 'center' : '',
};
}
map { print "$column_data{$_}\n" } @column_index;
$row->{invnumber}->{link} = build_std_url("script=$ref->{module}.pl", 'action=edit', 'callback', 'id=' . E($ref->{id}));
print qq|
</tr>
|;
if ($previous_ctid != $ref->{ctid}) {
$row->{statement}->{raw_data} =
$cgi->hidden('-name' => "customer_id_${row_idx}", '-value' => $ref->{ctid})
. $cgi->checkbox('-name' => "statement_${row_idx}", '-value' => 1, '-label' => '', 'checked' => $ref->{checked});
$row->{ct}->{data} = $ref->{name};
$column_data{ct} = qq|<td>&nbsp;</td>|;
$column_data{statement} = qq|<td>&nbsp;</td>|;
$row_idx++;
}
$ctid = $ref->{ctid};
$previous_ctid = $ref->{ctid};
$report->add_data($row);
}
# print subtotals
$c0subtotal = $form->format_amount(\%myconfig, $c0subtotal, 2, "&nbsp;");
$c30subtotal = $form->format_amount(\%myconfig, $c30subtotal, 2, "&nbsp;");
$c60subtotal = $form->format_amount(\%myconfig, $c60subtotal, 2, "&nbsp;");
$c90subtotal = $form->format_amount(\%myconfig, $c90subtotal, 2, "&nbsp;");
print qq|
<tr class=listsubtotal>
|;
map { $column_data{$_} = qq|<th>&nbsp;</th>| } @column_index;
$column_data{c0} = qq|<th align=right class=listsubtotal>$c0subtotal</th>|;
$column_data{c30} = qq|<th align=right class=listsubtotal>$c30subtotal</th>|;
$column_data{c60} = qq|<th align=right class=listsubtotal>$c60subtotal</th>|;
$column_data{c90} = qq|<th align=right class=listsubtotal>$c90subtotal</th>|;
map { print "$column_data{$_}\n" } @column_index;
print qq|
</tr>
<tr class=listtotal>
|;
$c0total = $form->format_amount(\%myconfig, $c0total, 2, "&nbsp;");
$c30total = $form->format_amount(\%myconfig, $c30total, 2, "&nbsp;");
$c60total = $form->format_amount(\%myconfig, $c60total, 2, "&nbsp;");
$c90total = $form->format_amount(\%myconfig, $c90total, 2, "&nbsp;");
$column_data{c0} = qq|<th align=right class=listtotal>$c0total</th>|;
$column_data{c30} = qq|<th align=right class=listtotal>$c30total</th>|;
$column_data{c60} = qq|<th align=right class=listtotal>$c60total</th>|;
$column_data{c90} = qq|<th align=right class=listtotal>$c90total</th>|;
map { print "$column_data{$_}\n" } @column_index;
print qq|
<input type=hidden name=rowcount value=$i>
</tr>
</table>
</td>
</tr>
<tr>
<td>
|;
&print_options if ($form->{arap} eq 'ar');
$report->add_data(create_aging_subtotal_row(\%subtotals, \@columns, \@periods, 'listsubtotal')) if ($row_idx);
print qq|
</td>
</tr>
<tr>
<td><hr size=3 noshade></td>
</tr>
</table>
|;
$report->add_data(create_aging_subtotal_row(\%totals, \@columns, \@periods, 'listtotal'));
if ($form->{arap} eq 'ar') {
print qq|
<input type=hidden name=todate value=$form->{todate}>
<input type=hidden name=title value="$form->{title}">
<input type=hidden name=arap value=$form->{arap}>
<input type=hidden name=ct value=$form->{ct}>
<input type=hidden name=$form->{ct} value="$form->{$form->{ct}}">
<input type=hidden name=department value="$form->{department}">
<input type=hidden name=login value=$form->{login}>
<input type=hidden name=password value=$form->{password}>
<br>
<input class=submit type=submit name=action value="|
. $locale->text('Select all') . qq|">
<input class=submit type=submit name=action value="|
. $locale->text('Print') . qq|">
<input class=submit type=submit name=action value="|
. $locale->text('E-mail') . qq|">|;
}
$raw_top_info_text = $form->parse_html_template('rp/aging_ar_top');
$raw_bottom_info_text = $form->parse_html_template('rp/aging_ar_bottom', { 'row_idx' => $row_idx,
'PRINT_OPTIONS' => print_options(1), });
$report->set_options('raw_top_info_text' => $raw_top_info_text,
'raw_bottom_info_text' => $raw_bottom_info_text);
}
print qq|
</form>
$report->set_options_from_form();
</body>
</html>
|;
$report->generate_with_headers();
$lxdebug->leave_sub();
}
......
sub print_options {
$lxdebug->enter_sub();
my ($dont_print) = @_;
$form->{sendmode} = "attachment";
$form->{"format"} =
......
}
}
print qq|
my $output = qq|
<table>
<tr>
<td><select name=type>$type</select></td>
......
|;
if ($myconfig{printer} && $latex_templates && $form->{media} ne 'email') {
print qq|
$output .= qq|
<td>| . $locale->text('Copies') . qq|
<input name=copies size=2 value=$form->{copies}></td>
|;
}
print qq|
$output .= qq|
</tr>
</table>
|;
print $output unless $dont_print;
$lxdebug->leave_sub();
return $output;
}
sub generate_bwa {
locale/de/all
'Zipcode' => 'PLZ',
'Zusatz' => 'Zusatz',
'accrual' => 'Bilanzierung (Soll-Versteuerung)',
'ap_aging_list' => 'liste_offene_verbindlichkeiten',
'ar_aging_list' => 'liste_offene_forderungen',
'as at' => 'zum Stand',
'back' => 'zur?ck',
'bin_list' => 'Lagerliste',
locale/de/rp
'Bin List' => 'Lagerliste',
'Bis' => 'bis',
'CANCELED' => 'Storniert',
'CSV export -- options' => 'CSV-Export -- Optionen',
'Cc' => 'Cc',
'Compare to' => 'Gegen?berstellen zu',
'Confirmation' => 'Auftragsbest?tigung',
'Continue' => 'Weiter',
'Copies' => 'Kopien',
'Could not spawn html2ps or GhostScript.' => 'html2ps oder GhostScript konnte nicht gestartet werden.',
'Could not spawn the printer command.' => 'Die Druckanwendung konnte nicht gestartet werden.',
'Could not write the html2ps config file.' => 'Die tempor&auml;re html2ps-Konfigurationsdatei konnte nicht geschrieben werden.',
'Could not write the temporary HTML file.' => 'Eine tempor&auml;re HTML-Datei konnte nicht geschrieben werden.',
'Credit' => 'Haben',
'Credit Note' => 'Gutschrift',
'Current' => 'Betrag',
......
'October' => 'Oktober',
'PAYMENT POSTED' => 'Rechung gebucht',
'PDF' => 'PDF',
'PDF export -- options' => 'PDF-Export -- Optionen',
'POSTED' => 'Gebucht',
'POSTED AS NEW' => 'Als neu gebucht',
'PRINTED' => 'Gedruckt',
......
'Tax collected' => 'vereinnahmte Steuer',
'Tax paid' => 'Vorsteuer',
'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.',
'The list has been printed.' => 'Die Liste wurde ausgedruckt.',
'Total' => 'Summe',
'Trial Balance' => 'Saldenbilanz',
'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.',
......
'Year' => 'Jahr',
'Yearly' => 'j?hrlich',
'Zeitraum' => 'Zeitraum',
'ap_aging_list' => 'liste_offene_verbindlichkeiten',
'ar_aging_list' => 'liste_offene_forderungen',
'as at' => 'zum Stand',
'bin_list' => 'Lagerliste',
'bis' => 'bis',
......
'pick_list' => 'Entnahmeliste',
'proforma' => 'Proforma',
'purchase_order' => 'Auftrag',
'report_generator_dispatch_to is not defined.' => 'report_generator_dispatch_to ist nicht definiert.',
'report_generator_nextsub is not defined.' => 'report_generator_nextsub ist nicht definiert.',
'request_quotation' => 'Angebotsanforderung',
'sales_order' => 'Kundenauftrag',
'sales_quotation' => 'Verkaufsangebot',
......
'check_project' => 'check_project',
'config' => 'config',
'continue' => 'continue',
'create_aging_subtotal_row' => 'create_aging_subtotal_row',
'debug' => 'debug',
'delivery_customer_selection' => 'delivery_customer_selection',
'e_mail' => 'e_mail',
......
'project_selection_internal' => 'project_selection_internal',
'reformat_numbers' => 'reformat_numbers',
'report' => 'report',
'report_generator_back' => 'report_generator_back',
'report_generator_dispatcher' => 'report_generator_dispatcher',
'report_generator_do' => 'report_generator_do',
'report_generator_export_as_csv' => 'report_generator_export_as_csv',
'report_generator_export_as_pdf' => 'report_generator_export_as_pdf',
'sales_invoice' => 'sales_invoice',
'select_all' => 'select_all',
'select_employee' => 'select_employee',
templates/webpages/rp/aging_ar_bottom_de.html
<input type="hidden" name="rowcount" value="<TMPL_VAR row_idx ESCAPE=HTML>">
<TMPL_VAR PRINT_OPTIONS>
<input type="hidden" name="todate" value="<TMPL_VAR todate ESCAPE=HTML>">
<input type="hidden" name="title" value="<TMPL_VAR title ESCAPE=HTML>">
<input type="hidden" name="arap" value="<TMPL_VAR arap ESCAPE=HTML>">
<input type="hidden" name="ct" value="<TMPL_VAR ct ESCAPE=HTML>">
<input type="hidden" name="customer" value="<TMPL_VAR customer ESCAPE=HTML>">
<input type="hidden" name="vendor" value="<TMPL_VAR vendor ESCAPE=HTML>">
<input type="hidden" name="department" value="<TMPL_VAR department ESCAPE=HTML>">
<input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">
<input type="hidden" name="password" value="<TMPL_VAR password ESCAPE=HTML>">
Sammelrechnung
<br>
<input class="submit" type="submit" name="action" value="Alle ausw?hlen">
<input class="submit" type="submit" name="action" value="Drucken">
<input class="submit" type="submit" name="action" value="eMail">
</form>
templates/webpages/rp/aging_ar_bottom_master.html
<input type="hidden" name="rowcount" value="<TMPL_VAR row_idx ESCAPE=HTML>">
<TMPL_VAR PRINT_OPTIONS>
<input type="hidden" name="todate" value="<TMPL_VAR todate ESCAPE=HTML>">
<input type="hidden" name="title" value="<TMPL_VAR title ESCAPE=HTML>">
<input type="hidden" name="arap" value="<TMPL_VAR arap ESCAPE=HTML>">
<input type="hidden" name="ct" value="<TMPL_VAR ct ESCAPE=HTML>">
<input type="hidden" name="customer" value="<TMPL_VAR customer ESCAPE=HTML>">
<input type="hidden" name="vendor" value="<TMPL_VAR vendor ESCAPE=HTML>">
<input type="hidden" name="department" value="<TMPL_VAR department ESCAPE=HTML>">
<input type="hidden" name="login" value="<TMPL_VAR login ESCAPE=HTML>">
<input type="hidden" name="password" value="<TMPL_VAR password ESCAPE=HTML>">
<translate>Statement</translate>
<br>
<input class="submit" type="submit" name="action" value="<translate>Select all</translate>">
<input class="submit" type="submit" name="action" value="<translate>Print</translate>">
<input class="submit" type="submit" name="action" value="<translate>E-mail</translate>">
</form>
templates/webpages/rp/aging_ar_top_de.html
<form method="post" action="rp.pl">
templates/webpages/rp/aging_ar_top_master.html
<form method="post" action="rp.pl">

Auch abrufbar als: Unified diff