Revision 41fab322
Von Bernd Bleßmann vor fast 3 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
| 1085 | 1085 |
local $::locale = Locale->new($self->{recipient_locale});
|
| 1086 | 1086 |
|
| 1087 | 1087 |
my %formname_translations = ( |
| 1088 |
bin_list => $main::locale->text('Bin List'),
|
|
| 1089 |
credit_note => $main::locale->text('Credit Note'),
|
|
| 1090 |
invoice => $main::locale->text('Invoice'),
|
|
| 1091 |
invoice_copy => $main::locale->text('Invoice Copy'),
|
|
| 1088 |
bin_list => $main::locale->text('Bin List'),
|
|
| 1089 |
credit_note => $main::locale->text('Credit Note'),
|
|
| 1090 |
invoice => $main::locale->text('Invoice'),
|
|
| 1091 |
invoice_copy => $main::locale->text('Invoice Copy'),
|
|
| 1092 | 1092 |
invoice_for_advance_payment => $main::locale->text('Invoice for Advance Payment'),
|
| 1093 |
final_invoice => $main::locale->text('Final Invoice'),
|
|
| 1094 |
pick_list => $main::locale->text('Pick List'),
|
|
| 1095 |
proforma => $main::locale->text('Proforma Invoice'),
|
|
| 1096 |
purchase_order => $main::locale->text('Purchase Order'),
|
|
| 1097 |
request_quotation => $main::locale->text('RFQ'),
|
|
| 1098 |
sales_order => $main::locale->text('Confirmation'),
|
|
| 1099 |
sales_quotation => $main::locale->text('Quotation'),
|
|
| 1100 |
storno_invoice => $main::locale->text('Storno Invoice'),
|
|
| 1101 |
sales_delivery_order => $main::locale->text('Delivery Order'),
|
|
| 1102 |
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
|
| 1103 |
dunning => $main::locale->text('Dunning'),
|
|
| 1104 |
dunning1 => $main::locale->text('Payment Reminder'),
|
|
| 1105 |
dunning2 => $main::locale->text('Dunning'),
|
|
| 1106 |
dunning3 => $main::locale->text('Last Dunning'),
|
|
| 1107 |
dunning_invoice => $main::locale->text('Dunning Invoice'),
|
|
| 1108 |
letter => $main::locale->text('Letter'),
|
|
| 1109 |
ic_supply => $main::locale->text('Intra-Community supply'),
|
|
| 1110 |
statement => $main::locale->text('Statement'),
|
|
| 1093 |
final_invoice => $main::locale->text('Final Invoice'),
|
|
| 1094 |
pick_list => $main::locale->text('Pick List'),
|
|
| 1095 |
proforma => $main::locale->text('Proforma Invoice'),
|
|
| 1096 |
purchase_order => $main::locale->text('Purchase Order'),
|
|
| 1097 |
request_quotation => $main::locale->text('RFQ'),
|
|
| 1098 |
sales_order => $main::locale->text('Confirmation'),
|
|
| 1099 |
sales_quotation => $main::locale->text('Quotation'),
|
|
| 1100 |
storno_invoice => $main::locale->text('Storno Invoice'),
|
|
| 1101 |
sales_delivery_order => $main::locale->text('Delivery Order'),
|
|
| 1102 |
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
|
| 1103 |
dunning => $main::locale->text('Dunning'),
|
|
| 1104 |
dunning1 => $main::locale->text('Payment Reminder'),
|
|
| 1105 |
dunning2 => $main::locale->text('Dunning'),
|
|
| 1106 |
dunning3 => $main::locale->text('Last Dunning'),
|
|
| 1107 |
dunning_invoice => $main::locale->text('Dunning Invoice'),
|
|
| 1108 |
letter => $main::locale->text('Letter'),
|
|
| 1109 |
ic_supply => $main::locale->text('Intra-Community supply'),
|
|
| 1110 |
statement => $main::locale->text('Statement'),
|
|
| 1111 | 1111 |
); |
| 1112 | 1112 |
|
| 1113 | 1113 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 1134 | 1134 |
|
| 1135 | 1135 |
my $prefix = |
| 1136 | 1136 |
(first { $self->{type} eq $_ } qw(invoice invoice_for_advance_payment final_invoice credit_note)) ? 'inv'
|
| 1137 |
: ($self->{type} =~ /_quotation$/) ? 'quo'
|
|
| 1138 |
: ($self->{type} =~ /_delivery_order$/) ? 'do'
|
|
| 1139 |
: ($self->{type} =~ /letter/) ? 'letter'
|
|
| 1140 |
: 'ord'; |
|
| 1137 |
: ($self->{type} =~ /_quotation$/) ? 'quo'
|
|
| 1138 |
: ($self->{type} =~ /_delivery_order$/) ? 'do'
|
|
| 1139 |
: ($self->{type} =~ /letter/) ? 'letter'
|
|
| 1140 |
: 'ord';
|
|
| 1141 | 1141 |
|
| 1142 | 1142 |
# better default like this? |
| 1143 | 1143 |
# : ($self->{type} =~ /(sales|purcharse)_order/ : 'ord';
|
| bin/mozilla/is.pl | ||
|---|---|---|
| 431 | 431 |
t8('Further Invoice for Advance Payment'),
|
| 432 | 432 |
submit => [ '#form', { action => "further_invoice_for_advance_payment" } ],
|
| 433 | 433 |
checks => [ 'kivi.validate_form' ], |
| 434 |
disabled => !$may_edit_create ? t8('You must not change this invoice.')
|
|
| 435 |
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
|
| 436 |
: $has_further_invoice_for_advance_payment ? t8('This invoice has already a further invoice for advanced payment.')
|
|
| 437 |
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
|
| 434 |
disabled => !$may_edit_create ? t8('You must not change this invoice.')
|
|
| 435 |
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
|
| 436 |
: $has_further_invoice_for_advance_payment ? t8('This invoice has already a further invoice for advanced payment.')
|
|
| 437 |
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
|
| 438 | 438 |
: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')
|
| 439 |
: undef, |
|
| 439 |
: undef,
|
|
| 440 | 440 |
only_if => $form->{type} eq "invoice_for_advance_payment",
|
| 441 | 441 |
], |
| 442 | 442 |
action => [ |
| 443 | 443 |
t8('Final Invoice'),
|
| 444 | 444 |
submit => [ '#form', { action => "final_invoice" } ],
|
| 445 | 445 |
checks => [ 'kivi.validate_form' ], |
| 446 |
disabled => !$may_edit_create ? t8('You must not change this invoice.')
|
|
| 447 |
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
|
| 448 |
: $has_further_invoice_for_advance_payment ? t8('This invoice has a further invoice for advanced payment.')
|
|
| 449 |
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
|
| 446 |
disabled => !$may_edit_create ? t8('You must not change this invoice.')
|
|
| 447 |
: !$form->{id} ? t8('This invoice has not been posted yet.')
|
|
| 448 |
: $has_further_invoice_for_advance_payment ? t8('This invoice has a further invoice for advanced payment.')
|
|
| 449 |
: $has_final_invoice ? t8('This invoice has already a final invoice.')
|
|
| 450 | 450 |
: $is_invoice_for_advance_payment_from_order ? t8('This invoice was added from an order. See there.')
|
| 451 |
: undef, |
|
| 451 |
: undef,
|
|
| 452 | 452 |
only_if => $form->{type} eq "invoice_for_advance_payment",
|
| 453 | 453 |
], |
| 454 | 454 |
action => [ |
| ... | ... | |
| 625 | 625 |
} |
| 626 | 626 |
|
| 627 | 627 |
$TMPL_VAR{is_type_invoice_for_advance_payment} = $form->{type} eq "invoice_for_advance_payment";
|
| 628 |
$TMPL_VAR{is_type_credit_note} = $form->{type} eq "credit_note";
|
|
| 629 |
$TMPL_VAR{is_format_html} = $form->{format} eq 'html';
|
|
| 630 |
$TMPL_VAR{dateformat} = $myconfig{dateformat};
|
|
| 631 |
$TMPL_VAR{numberformat} = $myconfig{numberformat};
|
|
| 628 |
$TMPL_VAR{is_type_credit_note} = $form->{type} eq "credit_note";
|
|
| 629 |
$TMPL_VAR{is_format_html} = $form->{format} eq 'html';
|
|
| 630 |
$TMPL_VAR{dateformat} = $myconfig{dateformat};
|
|
| 631 |
$TMPL_VAR{numberformat} = $myconfig{numberformat};
|
|
| 632 | 632 |
|
| 633 | 633 |
# hiddens |
| 634 | 634 |
$TMPL_VAR{HIDDENS} = [qw(
|
| ... | ... | |
| 769 | 769 |
|
| 770 | 770 |
print $form->parse_html_template('is/form_footer', {
|
| 771 | 771 |
is_type_invoice_for_advance_payment => ($form->{type} eq "invoice_for_advance_payment"),
|
| 772 |
is_type_credit_note => ($form->{type} eq "credit_note"),
|
|
| 773 |
totalpaid => $totalpaid, |
|
| 774 |
paid_missing => $form->{invtotal} - $totalpaid,
|
|
| 775 |
print_options => setup_sales_purchase_print_options(), |
|
| 776 |
show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && !$totalpaid,
|
|
| 777 |
show_delete => ($::instance_conf->get_is_changeable == 2) |
|
| 778 |
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
|
| 779 |
: ($::instance_conf->get_is_changeable == 1), |
|
| 780 |
today => DateTime->today, |
|
| 781 |
vc_obj => $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id}) : undef,
|
|
| 782 |
shipto_cvars => $shipto_cvars, |
|
| 772 |
is_type_credit_note => ($form->{type} eq "credit_note"),
|
|
| 773 |
totalpaid => $totalpaid,
|
|
| 774 |
paid_missing => $form->{invtotal} - $totalpaid,
|
|
| 775 |
print_options => setup_sales_purchase_print_options(),
|
|
| 776 |
show_storno => $form->{id} && !$form->{storno} && !IS->has_storno(\%myconfig, $form, "ar") && !$totalpaid,
|
|
| 777 |
show_delete => ($::instance_conf->get_is_changeable == 2)
|
|
| 778 |
? ($form->current_date(\%myconfig) eq $form->{gldate})
|
|
| 779 |
: ($::instance_conf->get_is_changeable == 1),
|
|
| 780 |
today => DateTime->today,
|
|
| 781 |
vc_obj => $form->{customer_id} ? SL::DB::Customer->load_cached($form->{customer_id}) : undef,
|
|
| 782 |
shipto_cvars => $shipto_cvars,
|
|
| 783 | 783 |
}); |
| 784 | 784 |
##print $form->parse_html_template('is/_payments'); # parser
|
| 785 | 785 |
##print $form->parse_html_template('webdav/_list'); # parser
|
Auch abrufbar als: Unified diff
Anzahlungs-Rg.: Kosmetik: Einrückung/Ausrichtung