Revision 1e26c0d4
Von wulf@coulmann.de vor mehr als 13 Jahren hinzugefügt
| SL/IS.pm | ||
|---|---|---|
| 201 | 201 |
push @{ $form->{TEMPLATE_ARRAYS}->{description} }, $form->{"description_$i"};
|
| 202 | 202 |
push @{ $form->{TEMPLATE_ARRAYS}->{longdescription} }, $form->{"longdescription_$i"};
|
| 203 | 203 |
push @{ $form->{TEMPLATE_ARRAYS}->{qty} }, $form->format_amount($myconfig, $form->{"qty_$i"});
|
| 204 |
push @{ $form->{TEMPLATE_ARRAYS}->{qty_num} }, $form->{"qty_$i"};
|
|
| 204 |
push @{ $form->{TEMPLATE_ARRAYS}->{qty_nofmt} }, $form->{"qty_$i"};
|
|
| 205 | 205 |
push @{ $form->{TEMPLATE_ARRAYS}->{unit} }, $form->{"unit_$i"};
|
| 206 | 206 |
push @{ $form->{TEMPLATE_ARRAYS}->{deliverydate_oe} }, $form->{"reqdate_$i"};
|
| 207 | 207 |
push @{ $form->{TEMPLATE_ARRAYS}->{sellprice} }, $form->{"sellprice_$i"};
|
| 208 |
push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_num} }, $form->parse_amount($myconfig, $form->{"sellprice_$i"});
|
|
| 208 |
push @{ $form->{TEMPLATE_ARRAYS}->{sellprice_nofmt} }, $form->parse_amount($myconfig, $form->{"sellprice_$i"});
|
|
| 209 | 209 |
push @{ $form->{TEMPLATE_ARRAYS}->{ordnumber_oe} }, $form->{"ordnumber_$i"};
|
| 210 | 210 |
push @{ $form->{TEMPLATE_ARRAYS}->{transdate_oe} }, $form->{"transdate_$i"};
|
| 211 | 211 |
push @{ $form->{TEMPLATE_ARRAYS}->{invnumber} }, $form->{"invnumber"};
|
| ... | ... | |
| 244 | 244 |
$form->{"netprice_$i"} = $form->round_amount($form->{"qty_$i"} ? ($linetotal / $form->{"qty_$i"}) : 0, 2);
|
| 245 | 245 |
|
| 246 | 246 |
push @{ $form->{TEMPLATE_ARRAYS}->{netprice} }, ($form->{"netprice_$i"} != 0) ? $form->format_amount($myconfig, $form->{"netprice_$i"}, $decimalplaces) : '';
|
| 247 |
push @{ $form->{TEMPLATE_ARRAYS}->{netprice_num} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
|
|
| 247 |
push @{ $form->{TEMPLATE_ARRAYS}->{netprice_nofmt} }, ($form->{"netprice_$i"} != 0) ? $form->{"netprice_$i"} : '';
|
|
| 248 | 248 |
|
| 249 | 249 |
$linetotal = ($linetotal != 0) ? $linetotal : ''; |
| 250 | 250 |
|
| 251 | 251 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount} }, ($discount != 0) ? $form->format_amount($myconfig, $discount * -1, 2) : '';
|
| 252 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount_num} }, ($discount != 0) ? $discount * -1 : '';
|
|
| 252 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount_nofmt} }, ($discount != 0) ? $discount * -1 : '';
|
|
| 253 | 253 |
push @{ $form->{TEMPLATE_ARRAYS}->{p_discount} }, $form->{"discount_$i"};
|
| 254 | 254 |
|
| 255 | 255 |
$form->{total} += $linetotal;
|
| ... | ... | |
| 263 | 263 |
|
| 264 | 264 |
if ($form->{"subtotal_$i"} && $subtotal_header && ($subtotal_header != $i)) {
|
| 265 | 265 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub} }, $form->format_amount($myconfig, $discount_subtotal, 2);
|
| 266 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_num} }, $discount_subtotal;
|
|
| 266 |
push @{ $form->{TEMPLATE_ARRAYS}->{discount_sub_nofmt} }, $discount_subtotal;
|
|
| 267 | 267 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub} }, $form->format_amount($myconfig, $nodiscount_subtotal, 2);
|
| 268 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_num} }, $nodiscount_subtotal;
|
|
| 268 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_sub_nofmt} }, $nodiscount_subtotal;
|
|
| 269 | 269 |
|
| 270 | 270 |
$discount_subtotal = 0; |
| 271 | 271 |
$nodiscount_subtotal = 0; |
| ... | ... | |
| 281 | 281 |
} |
| 282 | 282 |
|
| 283 | 283 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal} }, $form->format_amount($myconfig, $linetotal, 2);
|
| 284 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_num} }, $linetotal;
|
|
| 284 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_nofmt} }, $linetotal;
|
|
| 285 | 285 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_raw} }, $form->format_amount($myconfig, $linetotal_exact, 8);
|
| 286 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_raw_num} }, $linetotal_exact;
|
|
| 286 |
push @{ $form->{TEMPLATE_ARRAYS}->{linetotal_raw_nofmt} }, $linetotal_exact;
|
|
| 287 | 287 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal} }, $form->format_amount($myconfig, $nodiscount_linetotal, 2);
|
| 288 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_num} }, $nodiscount_linetotal;
|
|
| 288 |
push @{ $form->{TEMPLATE_ARRAYS}->{nodiscount_linetotal_nofmt} }, $nodiscount_linetotal;
|
|
| 289 | 289 |
|
| 290 | 290 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectnumber} }, $projectnumbers{$form->{"project_id_$i"}});
|
| 291 | 291 |
push(@{ $form->{TEMPLATE_ARRAYS}->{projectdescription} }, $projectdescriptions{$form->{"project_id_$i"}});
|
| ... | ... | |
| 378 | 378 |
$tax += $taxamount = $form->round_amount($taxaccounts{$item}, 2);
|
| 379 | 379 |
|
| 380 | 380 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase} }, $form->format_amount($myconfig, $taxbase{$item}, 2));
|
| 381 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_num} }, $taxbase{$item});
|
|
| 381 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxbase_nofmt} }, $taxbase{$item});
|
|
| 382 | 382 |
push(@{ $form->{TEMPLATE_ARRAYS}->{tax} }, $form->format_amount($myconfig, $taxamount, 2));
|
| 383 |
push(@{ $form->{TEMPLATE_ARRAYS}->{tax_num} }, $taxamount );
|
|
| 383 |
push(@{ $form->{TEMPLATE_ARRAYS}->{tax_nofmt} }, $taxamount );
|
|
| 384 | 384 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate} }, $form->format_amount($myconfig, $form->{"${item}_rate"} * 100));
|
| 385 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_num} }, $form->{"${item}_rate"} * 100);
|
|
| 385 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxrate_nofmt} }, $form->{"${item}_rate"} * 100);
|
|
| 386 | 386 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxdescription} }, $form->{"${item}_description"} . q{ } . 100 * $form->{"${item}_rate"} . q{%});
|
| 387 | 387 |
push(@{ $form->{TEMPLATE_ARRAYS}->{taxnumber} }, $form->{"${item}_taxnumber"});
|
| 388 | 388 |
} |
| ... | ... | |
| 402 | 402 |
} |
| 403 | 403 |
if($form->{taxincluded}) {
|
| 404 | 404 |
$form->{subtotal} = $form->format_amount($myconfig, $form->{total} - $tax, 2);
|
| 405 |
$form->{subtotal_num} = $form->{total} - $tax;
|
|
| 405 |
$form->{subtotal_nofmt} = $form->{total} - $tax;
|
|
| 406 | 406 |
} |
| 407 | 407 |
else {
|
| 408 | 408 |
$form->{subtotal} = $form->format_amount($myconfig, $form->{total}, 2);
|
| 409 |
$form->{subtotal_num} = $form->{total};
|
|
| 409 |
$form->{subtotal_nofmt} = $form->{total};
|
|
| 410 | 410 |
} |
| 411 | 411 |
|
| 412 | 412 |
$form->{nodiscount_subtotal} = $form->format_amount($myconfig, $form->{nodiscount_total}, 2);
|
Auch abrufbar als: Unified diff
Variablenwerweiterung nun _nofmt statt _num