Revision 784c2880
Von Kivitendo Admin vor mehr als 8 Jahren hinzugefügt
| SL/DB/Helper/Payment.pm | ||
|---|---|---|
| 4 | 4 |
|
| 5 | 5 |
use parent qw(Exporter); |
| 6 | 6 |
our @EXPORT = qw(pay_invoice); |
| 7 |
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); |
|
| 7 |
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);
|
|
| 8 | 8 |
our %EXPORT_TAGS = ( |
| 9 | 9 |
"ALL" => [@EXPORT, @EXPORT_OK], |
| 10 | 10 |
); |
| ... | ... | |
| 748 | 748 |
}; |
| 749 | 749 |
|
| 750 | 750 |
|
| 751 |
sub forex {
|
|
| 752 |
my ($self) = @_; |
|
| 753 |
$self->currency_id == $::instance_conf->get_currency_id ? return 0 : return 1; |
|
| 754 |
}; |
|
| 755 |
|
|
| 751 | 756 |
sub _round {
|
| 752 | 757 |
my $value = shift; |
| 753 | 758 |
my $num_dec = 2; |
| ... | ... | |
| 1115 | 1120 |
|
| 1116 | 1121 |
If no exchangerate can be found for that day undef is returned. |
| 1117 | 1122 |
|
| 1123 |
=item C<forex> |
|
| 1124 |
|
|
| 1125 |
Returns 1 if record uses a different currency, 0 if the default currency is used. |
|
| 1126 |
|
|
| 1118 | 1127 |
=back |
| 1119 | 1128 |
|
| 1120 | 1129 |
=head1 TODO AND CAVEATS |
Auch abrufbar als: Unified diff
Neue PaymentHelper Methode forex
Prüft ob eine abweichende Währung benutzt wird.