Revision bd32b607
Von Philip Reetz vor mehr als 18 Jahren hinzugefügt
bin/mozilla/ir.pl | ||
---|---|---|
s/option>\Q$form->{"AP_paid_$i"}\E/option selected>$form->{"AP_paid_$i"}/;
|
||
|
||
# format amounts
|
||
$form->{"paid_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
|
||
if ($form->{"paid_$i"}) {
|
||
$form->{"paid_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
|
||
}
|
||
$form->{"exchangerate_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
|
||
|
||
... | ... | |
sub post_payment {
|
||
$lxdebug->enter_sub();
|
||
for $i (1 .. $form->{paidaccounts}) {
|
||
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
|
||
if ($form->{"paid_$i"}) {
|
||
$datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
|
||
|
||
$form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
|
bin/mozilla/is.pl | ||
---|---|---|
|
||
# format amounts
|
||
$totalpaid += $form->{"paid_$i"};
|
||
$form->{"paid_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
|
||
if ($form->{"paid_$i"}) {
|
||
$form->{"paid_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"paid_$i"}, 2);
|
||
}
|
||
$form->{"exchangerate_$i"} =
|
||
$form->format_amount(\%myconfig, $form->{"exchangerate_$i"});
|
||
|
||
... | ... | |
)));
|
||
|
||
for $i (1 .. $form->{paidaccounts}) {
|
||
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
|
||
if ($form->{"paid_$i"}) {
|
||
map {
|
||
$form->{"${_}_$i"} =
|
||
$form->parse_amount(\%myconfig, $form->{"${_}_$i"})
|
||
... | ... | |
sub post_payment {
|
||
$lxdebug->enter_sub();
|
||
for $i (1 .. $form->{paidaccounts}) {
|
||
if ($form->parse_amount(\%myconfig, $form->{"paid_$i"})) {
|
||
if ($form->{"paid_$i"}) {
|
||
$datepaid = $form->datetonum($form->{"datepaid_$i"}, \%myconfig);
|
||
|
||
$form->isblank("datepaid_$i", $locale->text('Payment date missing!'));
|
Auch abrufbar als: Unified diff
Problem bei der Formatierung von Zahlungseingängen