Revision 41fab322
Von Bernd Bleßmann vor etwa 3 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
local $::locale = Locale->new($self->{recipient_locale});
|
||
|
|
||
|
my %formname_translations = (
|
||
|
bin_list => $main::locale->text('Bin List'),
|
||
|
credit_note => $main::locale->text('Credit Note'),
|
||
|
invoice => $main::locale->text('Invoice'),
|
||
|
invoice_copy => $main::locale->text('Invoice Copy'),
|
||
|
bin_list => $main::locale->text('Bin List'),
|
||
|
credit_note => $main::locale->text('Credit Note'),
|
||
|
invoice => $main::locale->text('Invoice'),
|
||
|
invoice_copy => $main::locale->text('Invoice Copy'),
|
||
|
invoice_for_advance_payment => $main::locale->text('Invoice for Advance Payment'),
|
||
|
final_invoice => $main::locale->text('Final Invoice'),
|
||
|
pick_list => $main::locale->text('Pick List'),
|
||
|
proforma => $main::locale->text('Proforma Invoice'),
|
||
|
purchase_order => $main::locale->text('Purchase Order'),
|
||
|
request_quotation => $main::locale->text('RFQ'),
|
||
|
sales_order => $main::locale->text('Confirmation'),
|
||
|
sales_quotation => $main::locale->text('Quotation'),
|
||
|
storno_invoice => $main::locale->text('Storno Invoice'),
|
||
|
sales_delivery_order => $main::locale->text('Delivery Order'),
|
||
|
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
||
|
dunning => $main::locale->text('Dunning'),
|
||
|
dunning1 => $main::locale->text('Payment Reminder'),
|
||
|
dunning2 => $main::locale->text('Dunning'),
|
||
|
dunning3 => $main::locale->text('Last Dunning'),
|
||
|
dunning_invoice => $main::locale->text('Dunning Invoice'),
|
||
|
letter => $main::locale->text('Letter'),
|
||
|
ic_supply => $main::locale->text('Intra-Community supply'),
|
||
|
statement => $main::locale->text('Statement'),
|
||
|
final_invoice => $main::locale->text('Final Invoice'),
|
||
|
pick_list => $main::locale->text('Pick List'),
|
||
|
proforma => $main::locale->text('Proforma Invoice'),
|
||
|
purchase_order => $main::locale->text('Purchase Order'),
|
||
|
request_quotation => $main::locale->text('RFQ'),
|
||
|
sales_order => $main::locale->text('Confirmation'),
|
||
|
sales_quotation => $main::locale->text('Quotation'),
|
||
|
storno_invoice => $main::locale->text('Storno Invoice'),
|
||
|
sales_delivery_order => $main::locale->text('Delivery Order'),
|
||
|
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
||
|
dunning => $main::locale->text('Dunning'),
|
||
|
dunning1 => $main::locale->text('Payment Reminder'),
|
||
|
dunning2 => $main::locale->text('Dunning'),
|
||
|
dunning3 => $main::locale->text('Last Dunning'),
|
||
|
dunning_invoice => $main::locale->text('Dunning Invoice'),
|
||
|
letter => $main::locale->text('Letter'),
|
||
|
ic_supply => $main::locale->text('Intra-Community supply'),
|
||
|
statement => $main::locale->text('Statement'),
|
||
|
);
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
| ... | ... | |
|
|
||
|
my $prefix =
|
||
|
(first { $self->{type} eq $_ } qw(invoice invoice_for_advance_payment final_invoice credit_note)) ? 'inv'
|
||
|
: ($self->{type} =~ /_quotation$/) ? 'quo'
|
||
|
: ($self->{type} =~ /_delivery_order$/) ? 'do'
|
||
|
: ($self->{type} =~ /letter/) ? 'letter'
|
||
|
: 'ord';
|
||
|
: ($self->{type} =~ /_quotation$/) ? 'quo'
|
||
|
: ($self->{type} =~ /_delivery_order$/) ? 'do'
|
||
|
: ($self->{type} =~ /letter/) ? 'letter'
|
||
|
: 'ord';
|
||
|
|
||
|
# better default like this?
|
||
|
# : ($self->{type} =~ /(sales|purcharse)_order/ : 'ord';
|
||
| bin/mozilla/is.pl | ||
|---|---|---|
|
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.')
|
||
|
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
||
|
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.')
|
||
|
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
||
|
: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')
|
||
|
: undef,
|
||
|
: undef,
|
||
|
only_if => $form->{type} eq "invoice_for_advance_payment",
|
||
|
],
|
||
|
action => [
|
||
|
t8('Final Invoice'),
|
||
|
submit => [ '#form', { action => "final_invoice" } ],
|
||
|
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 a further invoice for advanced payment.')
|
||
|
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
||
|
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 a further invoice for advanced payment.')
|
||
|
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
||
|
: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')
|
||
|
: undef,
|
||
|
: undef,
|
||
|
only_if => $form->{type} eq "invoice_for_advance_payment",
|
||
|
],
|
||
|
action => [
|
||
| ... | ... | |
|
}
|
||
|
|
||
|
$TMPL_VAR{is_type_invoice_for_advance_payment} = $form->{type} eq "invoice_for_advance_payment";
|
||
|
$TMPL_VAR{is_type_credit_note} = $form->{type} eq "credit_note";
|
||
|
$TMPL_VAR{is_format_html} = $form->{format} eq 'html';
|
||
|
$TMPL_VAR{dateformat} = $myconfig{dateformat};
|
||
|
$TMPL_VAR{numberformat} = $myconfig{numberformat};
|
||
|
$TMPL_VAR{is_type_credit_note} = $form->{type} eq "credit_note";
|
||
|
$TMPL_VAR{is_format_html} = $form->{format} eq 'html';
|
||
|
$TMPL_VAR{dateformat} = $myconfig{dateformat};
|
||
|
$TMPL_VAR{numberformat} = $myconfig{numberformat};
|
||
|
|
||
|
# hiddens
|
||
|
$TMPL_VAR{HIDDENS} = [qw(
|
||
| ... | ... | |
|
|
||
|
print $form->parse_html_template('is/form_footer', {
|
||
|
is_type_invoice_for_advance_payment => ($form->{type} eq "invoice_for_advance_payment"),
|
||
|
is_type_credit_note => ($form->{type} eq "credit_note"),
|
||
|
totalpaid => $totalpaid,
|
||
|
paid_missing => $form->{invtotal} - $totalpaid,
|
||
|
print_options => setup_sales_purchase_print_options(),
|
||
|
show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && !$totalpaid,
|
||
|
show_delete => ($::instance_conf->get_is_changeable == 2)
|
||
|
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
||
|
: ($::instance_conf->get_is_changeable == 1),
|
||
|
today => DateTime->today,
|
||
|
vc_obj => $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id}) : undef,
|
||
|
shipto_cvars => $shipto_cvars,
|
||
|
is_type_credit_note => ($form->{type} eq "credit_note"),
|
||
|
totalpaid => $totalpaid,
|
||
|
paid_missing => $form->{invtotal} - $totalpaid,
|
||
|
print_options => setup_sales_purchase_print_options(),
|
||
|
show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && !$totalpaid,
|
||
|
show_delete => ($::instance_conf->get_is_changeable == 2)
|
||
|
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
||
|
: ($::instance_conf->get_is_changeable == 1),
|
||
|
today => DateTime->today,
|
||
|
vc_obj => $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id}) : undef,
|
||
|
shipto_cvars => $shipto_cvars,
|
||
|
});
|
||
|
##print $form->parse_html_template('is/_payments'); # parser
|
||
|
##print $form->parse_html_template('webdav/_list'); # parser
|
||
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Kosmetik: Einrückung/Ausrichtung