Revision a198dfae
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
|
use SL::MoreCommon qw(restore_form save_form);
|
||
|
use Data::Dumper;
|
||
|
use DateTime;
|
||
|
use List::MoreUtils qw(uniq);
|
||
|
use List::MoreUtils qw(any uniq);
|
||
|
use List::Util qw(max sum);
|
||
|
use List::UtilsBy qw(sort_by);
|
||
|
use English qw(-no_match_vars);
|
||
| ... | ... | |
|
if ($::instance_conf->get_warn_no_delivery_order_for_invoice && !$form->{id}) {
|
||
|
$warn_unlinked_delivery_order = 1 unless $form->{convert_from_do_ids};
|
||
|
}
|
||
|
|
||
|
my $has_further_invoice_for_advance_payment;
|
||
|
if ($form->{id} && $form->{type} eq "invoice_for_advance_payment") {
|
||
|
my $invoice_obj = SL::DB::Invoice->load_cached($form->{id});
|
||
|
my $lr = $invoice_obj->linked_records(direction => 'to', to => ['Invoice']);
|
||
|
$has_further_invoice_for_advance_payment = any {'SL::DB::Invoice' eq ref $_ && "invoice_for_advance_payment" eq $_->type} @$lr;
|
||
|
}
|
||
|
|
||
|
for my $bar ($::request->layout->get('actionbar')) {
|
||
|
$bar->add(
|
||
|
action => [
|
||
| ... | ... | |
|
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
||
|
: undef,
|
||
|
],
|
||
|
action => [
|
||
|
t8('Further Invoice for Advance Payment'),
|
||
|
submit => [ '#form', { action => "further_invoice_for_advance_payment" } ],
|
||
|
checks => [ 'kivi.validate_form' ],
|
||
|
disabled => !$may_edit_create ? t8('You must not change this invoice.')
|
||
|
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
||
|
: $has_further_invoice_for_advance_payment ? t8('This invoice has already a further invoice for advanced payment.')
|
||
|
: undef,
|
||
|
only_if => $form->{type} eq "invoice_for_advance_payment",
|
||
|
],
|
||
|
action => [
|
||
|
t8('Credit Note'),
|
||
|
submit => [ '#form', { action => "credit_note" } ],
|
||
| ... | ... | |
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub further_invoice_for_advance_payment {
|
||
|
my $form = $main::form;
|
||
|
my %myconfig = %main::myconfig;
|
||
|
|
||
|
$main::auth->assert('invoice_edit');
|
||
|
|
||
|
delete @{ $form }{qw(printed emailed queued invnumber invdate exchangerate forex deliverydate datepaid_1 gldate_1 acc_trans_id_1 source_1 memo_1 paid_1 exchangerate_1 AP_paid_1 storno locked)};
|
||
|
$form->{convert_from_ar_ids} = $form->{id};
|
||
|
$form->{id} = '';
|
||
|
$form->{rowcount}--;
|
||
|
$form->{paidaccounts} = 1;
|
||
|
$form->{invdate} = $form->current_date(\%myconfig);
|
||
|
my $terms = get_payment_terms_for_invoice();
|
||
|
$form->{duedate} = $terms ? $terms->calc_date(reference_date => $form->{invdate})->to_kivitendo : $form->{invdate};
|
||
|
$form->{employee_id} = SL::DB::Manager::Employee->current->id;
|
||
|
$form->{forex} = $form->check_exchangerate(\%myconfig, $form->{currency}, $form->{invdate}, 'buy');
|
||
|
$form->{exchangerate} = $form->{forex} if $form->{forex};
|
||
|
|
||
|
$form->{"converted_from_invoice_id_$_"} = delete $form->{"invoice_id_$_"} for 1 .. $form->{"rowcount"};
|
||
|
|
||
|
&display_form;
|
||
|
}
|
||
|
|
||
|
sub storno {
|
||
|
$main::lxdebug->enter_sub();
|
||
|
|
||
| ... | ... | |
|
|
||
|
&prepare_invoice;
|
||
|
|
||
|
|
||
|
&display_form;
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
| locale/de/all | ||
|---|---|---|
|
'Function block actions' => 'Funktionsblockaktionen',
|
||
|
'Function block number format' => 'Format der Funktionsblocknummerierung',
|
||
|
'Function/position' => 'Funktion/Position',
|
||
|
'Further Invoice for Advance Payment' => 'Weitere Anzahlungsrechnung',
|
||
|
'GL Transaction' => 'Dialogbuchung',
|
||
|
'GL Transaction (abbreviation)' => 'DB',
|
||
|
'GL Transactions' => 'Dialogbuchungen',
|
||
| ... | ... | |
|
'This group is valid for the following clients' => 'Diese Gruppe ist für die folgenden Mandanten gültig',
|
||
|
'This has been changed in this version, therefore please change the "old" bins to some real warehouse bins.' => 'Das wurde in dieser Version umgestellt, bitte ändern Sie die Freitext-Lagerplätze auf vorhandene Lagerplätze.',
|
||
|
'This has been changed in this version.' => 'Ab dieser Version ist dies nicht mehr so.',
|
||
|
'This invoice has already a further invoice for advanced payment.' => 'Diese Rechnung hat schon eine weitere Anzahlungsrechnung.',
|
||
|
'This invoice has already been posted.' => 'Die Rechnung wurde bereits gebucht.',
|
||
|
'This invoice has been canceled already.' => 'Die Rechnung wurde bereits storniert.',
|
||
|
'This invoice has been linked with a sepa export, undo this first.' => 'Diese Rechnung ist mit einem SEPA-Export verknüpft. Bitte diese Verknüpfung zuerst aufheben.',
|
||
| locale/en/all | ||
|---|---|---|
|
'Function block actions' => '',
|
||
|
'Function block number format' => '',
|
||
|
'Function/position' => '',
|
||
|
'Further Invoice for Advance Payment' => '',
|
||
|
'GL Transaction' => '',
|
||
|
'GL Transaction (abbreviation)' => '',
|
||
|
'GL Transactions' => '',
|
||
| ... | ... | |
|
'This group is valid for the following clients' => '',
|
||
|
'This has been changed in this version, therefore please change the "old" bins to some real warehouse bins.' => '',
|
||
|
'This has been changed in this version.' => '',
|
||
|
'This invoice has already a further invoice for advanced payment.' => '',
|
||
|
'This invoice has already been posted.' => '',
|
||
|
'This invoice has been canceled already.' => '',
|
||
|
'This invoice has been linked with a sepa export, undo this first.' => '',
|
||
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Workflow Anzahlungs-Rg. -> Anzahlungs-Rg.