931 |
931 |
my $report = SL::ReportGenerator->new(\%myconfig, $form);
|
932 |
932 |
|
933 |
933 |
@columns =
|
934 |
|
qw(transdate id type invnumber ordnumber cusordnumber name netamount tax amount paid
|
|
934 |
qw(ids transdate id type invnumber ordnumber cusordnumber name netamount tax amount paid
|
935 |
935 |
datepaid due duedate transaction_description notes salesman employee shippingpoint shipvia
|
936 |
936 |
marge_total marge_percent globalprojectnumber customernumber country ustid taxzone payment_terms charts customertype direct_debit dunning_description);
|
937 |
937 |
|
... | ... | |
949 |
949 |
$href = build_std_url('action=ar_transactions', grep { $form->{$_} } @hidden_variables);
|
950 |
950 |
|
951 |
951 |
my %column_defs = (
|
|
952 |
'ids' => { raw_data => $::request->presenter->checkbox_tag("", id => "check_all", checkall => "[data-checkall=1]"), align => 'center' },
|
952 |
953 |
'transdate' => { 'text' => $locale->text('Date'), },
|
953 |
954 |
'id' => { 'text' => $locale->text('ID'), },
|
954 |
955 |
'type' => { 'text' => $locale->text('Type'), },
|
... | ... | |
994 |
995 |
$form->{"l_type"} = "Y";
|
995 |
996 |
map { $column_defs{$_}->{visible} = $form->{"l_${_}"} ? 1 : 0 } @columns;
|
996 |
997 |
|
|
998 |
$column_defs{ids}->{visible} = 'HTML';
|
|
999 |
|
997 |
1000 |
$report->set_columns(%column_defs);
|
998 |
1001 |
$report->set_column_order(@columns);
|
999 |
1002 |
|
... | ... | |
1057 |
1060 |
push @options, $locale->text('Closed');
|
1058 |
1061 |
}
|
1059 |
1062 |
|
|
1063 |
$form->{ALL_PRINTERS} = SL::DB::Manager::Printer->get_all_sorted;
|
|
1064 |
|
1060 |
1065 |
$report->set_options('top_info_text' => join("\n", @options),
|
|
1066 |
'raw_top_info_text' => $form->parse_html_template('ar/ar_transactions_header'),
|
1061 |
1067 |
'raw_bottom_info_text' => $form->parse_html_template('ar/ar_transactions_bottom'),
|
1062 |
1068 |
'output_format' => 'HTML',
|
1063 |
1069 |
'title' => $form->{title},
|
... | ... | |
1115 |
1121 |
$row->{invnumber}->{link} = build_std_url("script=" . ($ar->{invoice} ? 'is.pl' : 'ar.pl'), 'action=edit')
|
1116 |
1122 |
. "&id=" . E($ar->{id}) . "&callback=${callback}";
|
1117 |
1123 |
|
|
1124 |
$row->{ids} = {
|
|
1125 |
raw_data => $::request->presenter->checkbox_tag("id[]", value => $ar->{id}, "data-checkall" => 1),
|
|
1126 |
valign => 'center',
|
|
1127 |
align => 'center',
|
|
1128 |
};
|
|
1129 |
|
1118 |
1130 |
my $row_set = [ $row ];
|
1119 |
1131 |
|
1120 |
1132 |
if (($form->{l_subtotal} eq 'Y')
|
Rechnungen: Massenausdruck aus alter Rechnungssuche heraus