Revision 59320b5a
Von Kivitendo Admin vor fast 7 Jahren hinzugefügt
| SL/Dev/Payment.pm | ||
|---|---|---|
| 42 | 42 |
sub create_sepa_export {
|
| 43 | 43 |
my (%params) = @_; |
| 44 | 44 |
my $sepa_export = SL::DB::SepaExport->new( |
| 45 |
closed => 0, |
|
| 45 |
closed => 0,
|
|
| 46 | 46 |
employee_id => $params{employee_id} // SL::DB::Manager::Employee->current->id,
|
| 47 |
executed => 0, |
|
| 48 |
vc => 'customer', |
|
| 47 |
executed => 0,
|
|
| 48 |
vc => 'customer',
|
|
| 49 | 49 |
); |
| 50 | 50 |
$sepa_export->assign_attributes(%params) if %params; |
| 51 | 51 |
$sepa_export->save; |
| ... | ... | |
| 54 | 54 |
sub create_sepa_export_item {
|
| 55 | 55 |
my (%params) = @_; |
| 56 | 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',
|
|
| 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 | 61 |
); |
| 62 | 62 |
$sepa_exportitem->assign_attributes(%params) if %params; |
| 63 | 63 |
$sepa_exportitem->save; |
Auch abrufbar als: Unified diff
Whitespace