Revision 01b298ec
Von Kivitendo Admin vor fast 9 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 transactions 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);
|
|
| 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); |
|
| 8 | 8 |
our %EXPORT_TAGS = ( |
| 9 | 9 |
"ALL" => [@EXPORT, @EXPORT_OK], |
| 10 | 10 |
); |
| ... | ... | |
| 606 | 606 |
return 1; |
| 607 | 607 |
}; |
| 608 | 608 |
|
| 609 |
sub transactions {
|
|
| 610 |
my ($self) = @_; |
|
| 611 |
|
|
| 612 |
return unless $self->id; |
|
| 613 |
|
|
| 614 |
require SL::DB::AccTransaction; |
|
| 615 |
SL::DB::Manager::AccTransaction->get_all(query => [ trans_id => $self->id ]); |
|
| 616 |
} |
|
| 617 |
|
|
| 618 | 609 |
sub validate_payment_type {
|
| 619 | 610 |
my $payment_type = shift; |
| 620 | 611 |
|
Auch abrufbar als: Unified diff
Payment Helper - Methode transactions wieder entfernt
Es gibt schon eine Relationship transactions in SL::DB::Invoice und
SL::DB::PurchaseInvoice. Diese wird ansonsten überschrieben, und dann
kann man auch keine AccTransaction Objekte mehr zu Rechnungsobjekten
hinzufügen.