sub create_sepa_export {
my (%params) = @_;
my $sepa_export = SL::DB::SepaExport->new(
- closed => 0,
+ closed => 0,
employee_id => $params{employee_id} // SL::DB::Manager::Employee->current->id,
- executed => 0,
- vc => 'customer',
+ executed => 0,
+ vc => 'customer',
);
$sepa_export->assign_attributes(%params) if %params;
$sepa_export->save;
sub create_sepa_export_item {
my (%params) = @_;
my $sepa_exportitem = SL::DB::SepaExportItem->new(
- chart_id => delete $params{chart_id} // $::instance_conf->get_ar_paid_accno_id,
- payment_type => 'without_skonto',
- our_bic => 'BANK1234',
- our_iban => 'DE12500105170648489890',
+ chart_id => delete $params{chart_id} // $::instance_conf->get_ar_paid_accno_id,
+ payment_type => 'without_skonto',
+ our_bic => 'BANK1234',
+ our_iban => 'DE12500105170648489890',
);
$sepa_exportitem->assign_attributes(%params) if %params;
$sepa_exportitem->save;