Revision 784c2880
Von Kivitendo Admin vor fast 9 Jahren hinzugefügt
| SL/DB/Helper/Payment.pm | ||
|---|---|---|
|
|
||
|
use parent qw(Exporter);
|
||
|
our @EXPORT = qw(pay_invoice);
|
||
|
our @EXPORT_OK = qw(skonto_date skonto_charts amount_less_skonto within_skonto_period percent_skonto reference_account reference_amount open_amount open_percent remaining_skonto_days skonto_amount check_skonto_configuration valid_skonto_amount get_payment_suggestions validate_payment_type open_sepa_transfer_amount get_payment_select_options_for_bank_transaction create_bank_transaction exchangerate);
|
||
|
our @EXPORT_OK = qw(skonto_date skonto_charts amount_less_skonto within_skonto_period percent_skonto reference_account reference_amount open_amount open_percent remaining_skonto_days skonto_amount check_skonto_configuration valid_skonto_amount get_payment_suggestions validate_payment_type open_sepa_transfer_amount get_payment_select_options_for_bank_transaction create_bank_transaction exchangerate forex);
|
||
|
our %EXPORT_TAGS = (
|
||
|
"ALL" => [@EXPORT, @EXPORT_OK],
|
||
|
);
|
||
| ... | ... | |
|
};
|
||
|
|
||
|
|
||
|
sub forex {
|
||
|
my ($self) = @_;
|
||
|
$self->currency_id == $::instance_conf->get_currency_id ? return 0 : return 1;
|
||
|
};
|
||
|
|
||
|
sub _round {
|
||
|
my $value = shift;
|
||
|
my $num_dec = 2;
|
||
| ... | ... | |
|
|
||
|
If no exchangerate can be found for that day undef is returned.
|
||
|
|
||
|
=item C<forex>
|
||
|
|
||
|
Returns 1 if record uses a different currency, 0 if the default currency is used.
|
||
|
|
||
|
=back
|
||
|
|
||
|
=head1 TODO AND CAVEATS
|
||
Auch abrufbar als: Unified diff
Neue PaymentHelper Methode forex
Prüft ob eine abweichende Währung benutzt wird.