| 1028 |
1028 |
qw(ids transdate id type invnumber ordnumber cusordnumber donumber deliverydate name netamount tax amount paid
|
| 1029 |
1029 |
datepaid due duedate transaction_description notes salesman employee shippingpoint shipvia
|
| 1030 |
1030 |
marge_total marge_percent globalprojectnumber customernumber country ustid taxzone
|
| 1031 |
|
payment_terms charts customertype direct_debit dunning_description department);
|
|
1031 |
payment_terms charts customertype direct_debit dunning_description department attachments);
|
| 1032 |
1032 |
|
| 1033 |
1033 |
my $ct_cvar_configs = CVar->get_configs('module' => 'CT');
|
| 1034 |
1034 |
my @ct_includeable_custom_variables = grep { $_->{includeable} } @{ $ct_cvar_configs };
|
| ... | ... | |
| 1082 |
1082 |
'direct_debit' => { 'text' => $locale->text('direct debit'), },
|
| 1083 |
1083 |
'department' => { 'text' => $locale->text('Department'), },
|
| 1084 |
1084 |
dunning_description => { 'text' => $locale->text('Dunning level'), },
|
|
1085 |
attachments => { 'text' => $locale->text('Attachments'), },
|
| 1085 |
1086 |
%column_defs_cvars,
|
| 1086 |
1087 |
);
|
| 1087 |
1088 |
|
| ... | ... | |
| 1206 |
1207 |
$subtotals{marge_percent} = $subtotals{netamount} ? ($subtotals{marge_total} * 100 / $subtotals{netamount}) : 0;
|
| 1207 |
1208 |
$totals{marge_percent} = $totals{netamount} ? ($totals{marge_total} * 100 / $totals{netamount} ) : 0;
|
| 1208 |
1209 |
|
|
1210 |
# Preserve $ar->{type} before changing it to the abbreviation letter for
|
|
1211 |
# getting files from file management below.
|
|
1212 |
$ar->{object_type} = $ar->{type};
|
|
1213 |
|
| 1209 |
1214 |
my $is_storno = $ar->{storno} && $ar->{storno_id};
|
| 1210 |
1215 |
my $has_storno = $ar->{storno} && !$ar->{storno_id};
|
| 1211 |
1216 |
|
| ... | ... | |
| 1249 |
1254 |
align => 'center',
|
| 1250 |
1255 |
};
|
| 1251 |
1256 |
|
|
1257 |
if ($::instance_conf->get_doc_storage && $form->{l_attachments}) {
|
|
1258 |
my @files = SL::File->get_all_versions(object_id => $ar->{id},
|
|
1259 |
object_type => $ar->{object_type} || 'invoice',
|
|
1260 |
file_type => 'attachment',);
|
|
1261 |
if (scalar @files) {
|
|
1262 |
my $html = join '<br>', map { SL::Presenter::FileObject::file_object($_) } @files;
|
|
1263 |
my $text = join "\n", map { $_->file_name } @files;
|
|
1264 |
$row->{attachments} = { 'raw_data' => $html, data => $text };
|
|
1265 |
} else {
|
|
1266 |
$row->{attachments} = { };
|
|
1267 |
}
|
|
1268 |
|
|
1269 |
}
|
|
1270 |
|
| 1252 |
1271 |
my $row_set = [ $row ];
|
| 1253 |
1272 |
|
| 1254 |
1273 |
if (($form->{l_subtotal} eq 'Y')
|
Rechnungsbericht: Dateianhänge anzeigen können.