Revision 503fabbf
Von Martin Helmling martin.helmling@octosoft.eu vor fast 7 Jahren hinzugefügt
| SL/Dev/Payment.pm | ||
|---|---|---|
| 39 | 39 |
$bank_account->save; |
| 40 | 40 |
} |
| 41 | 41 |
|
| 42 |
sub create_sepa_export {
|
|
| 43 |
my (%params) = @_; |
|
| 44 |
my $sepa_export = SL::DB::SepaExport->new( |
|
| 45 |
closed => 0, |
|
| 46 |
employee_id => $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
|
| 47 |
executed => 0, |
|
| 48 |
vc => 'customer', |
|
| 49 |
); |
|
| 50 |
$sepa_export->assign_attributes(%params) if %params; |
|
| 51 |
$sepa_export->save; |
|
| 52 |
} |
|
| 53 |
|
|
| 54 |
sub create_sepa_export_item {
|
|
| 55 |
my (%params) = @_; |
|
| 56 |
my $sepa_exportitem = SL::DB::SepaExportItem->new( |
|
| 57 |
chart_id => delete $params{chart_id} // $::instance_conf->get_ar_paid_accno_id,
|
|
| 58 |
payment_type => 'without_skonto', |
|
| 59 |
our_bic => 'BANK1234', |
|
| 60 |
our_iban => 'DE12500105170648489890', |
|
| 61 |
); |
|
| 62 |
$sepa_exportitem->assign_attributes(%params) if %params; |
|
| 63 |
$sepa_exportitem->save; |
|
| 64 |
} |
|
| 65 |
|
|
| 42 | 66 |
sub create_bank_transaction {
|
| 43 | 67 |
my (%params) = @_; |
| 44 | 68 |
|
Auch abrufbar als: Unified diff
BankTransaction: Überarbeitung von "Kontoauszug verbuchen" , SEPA-Export wieder integriert
Die Punktebewertung findet wieder ausschließlich in "get_agreement_with_bank_transactions" statt,
auch die SEPA-Sammelüberweisung. Diese bekommt dor extra Punkte, da ggf. für bestimmte Rechnungen negative Punkte entstehen.
Auch gibt es dort keine Remote Banknummer etc.
Die Testdatei t/bank/bank_transactions.t wurde um zwei Tests erweitert,
1. ein Test der das Verbuchen ohne SEPA-Export macht,
2. ein Test mit SEPA-Export
fixt #277