X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=f1b339843c6fa782bca51b573aabc1e3500cb211;hb=53593baa211863fbf66540cf1bcc36c8fb37257f;hp=e34957f94782ee98d4663ee0b2bd61d093593895;hpb=b12e8d1411cb7af3a1a9b6f7637692f0758b4741;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index e34957f94..541ababea 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -24,76 +24,87 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # # administration # #====================================================================== +use utf8; + +use List::MoreUtils qw(any); + +use SL::Auth; +use SL::Auth::PasswordPolicy; use SL::AM; use SL::CA; use SL::Form; +use SL::Helper::Flash; +use SL::Helper::UserPreferences; use SL::User; +use SL::USTVA; +use SL::Iconv; +use SL::Locale::String qw(t8); +use SL::TODO; +use SL::DB::Printer; +use SL::DB::Tax; +use SL::DB::Language; +use SL::DB::Default; +use SL::DBUtils qw(selectall_array_query conv_dateq); +use CGI; -use Data::Dumper; - -1; - +require "bin/mozilla/common.pl"; +use strict; -require "$form->{path}/common.pl"; +1; # end of main -sub add { &{"add_$form->{type}"} } -sub delete { &{"delete_$form->{type}"} } - -sub display { - if ($form->{display_nextsub}) { - &{ $form->{display_nextsub} }(); - } else { - &{ $form->{nextsub} }(); - } -} +sub add { call_sub("add_$main::form->{type}"); } +sub delete { call_sub("delete_$main::form->{type}"); } +sub save { call_sub("save_$main::form->{type}"); } +sub edit { call_sub("edit_$main::form->{type}"); } +sub continue { call_sub($main::form->{"nextsub"}); } +sub save_as_new { call_sub("save_as_new_$main::form->{type}"); } -sub save { - if ($form->{save_nextsub}) { - &{ $form->{save_nextsub} }(); - } else { - &{ $form->{nextsub} }(); - } -} +sub add_account { + $main::lxdebug->enter_sub(); -sub edit { - if ($form->{edit_nextsub}) { - &{ $form->{edit_nextsub} }(); - } else { - &{ "edit_$form->{type}" }(); - } -} + my $form = $main::form; + my %myconfig = %main::myconfig; -sub add_account { - $lxdebug->enter_sub(); + $main::auth->assert('config'); $form->{title} = "Add"; $form->{charttype} = "A"; AM->get_account(\%myconfig, \%$form); - $form->{callback} = - "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; + $form->{callback} = "am.pl?action=list_account" unless $form->{callback}; &account_header; - &form_footer; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub edit_account { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $defaults = SL::DB::Default->get; + + $main::auth->assert('config'); $form->{title} = "Edit"; + $form->{feature_balance} = $defaults->feature_balance; + $form->{feature_datev} = $defaults->feature_datev; + $form->{feature_erfolgsrechnung} = $defaults->feature_erfolgsrechnung; + $form->{feature_eurechnung} = $defaults->feature_eurechnung; + $form->{feature_ustva} = $defaults->feature_ustva; + AM->get_account(\%myconfig, \%$form); foreach my $item (split(/:/, $form->{link})) { @@ -101,470 +112,364 @@ sub edit_account { } &account_header; - &form_footer; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub account_header { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + if ( $form->{action} eq 'edit_account') { + $form->{account_exists} = '1'; + } $form->{title} = $locale->text("$form->{title} Account"); - $checked{ $form->{charttype} } = "checked"; - $checked{"$form->{category}_"} = "checked"; - $checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked"; + $form->{"$form->{charttype}_checked"} = "checked"; + $form->{"$form->{category}_checked"} = "checked"; + + $form->{select_tax} = ""; - $form->{description} =~ s/\"/"/g; + my @tax_report_pos = USTVA->report_variables({ + myconfig => \%myconfig, + form => $form, + type => '', + attribute => 'position', + calc => '', + }); if (@{ $form->{TAXKEY} }) { foreach my $item (@{ $form->{TAXKEY} }) { - $item->{rate} = $item->{rate} * 100 . '%'; + } + + # Fill in empty row for new Taxkey + my $newtaxkey_ref = { + id => '', + chart_id => '', + accno => '', + tax_id => '', + taxdescription => '', + rate => '', + taxkey_id => '', + pos_ustva => '', + startdate => $form->{account_exists} ? '' : DateTime->new(year => 1970, month => 1, day => 1)->to_lxoffice, + }; + + push @{ $form->{ACCOUNT_TAXKEYS} }, $newtaxkey_ref; + + my $i = 0; + foreach my $taxkey_used (@{ $form->{ACCOUNT_TAXKEYS} } ) { + + # Fill in a runningnumber + $form->{ACCOUNT_TAXKEYS}[$i]{runningnumber} = $i; + + # Fill in the Taxkeys as select options + foreach my $item (@{ $form->{TAXKEY} }) { + if ($item->{id} == $taxkey_used->{tax_id}) { + $form->{ACCOUNT_TAXKEYS}[$i]{selecttaxkey} .= + qq|"; + $form->{selectnewaccount} = qq||; } - foreach $item (@{ $form->{NEWACCOUNT} }) { + foreach my $item (@{ $form->{NEWACCOUNT} }) { if ($item->{id} == $form->{new_chart_id}) { $form->{selectnewaccount} .= - ""; + qq||; } elsif (!$form->{new_chart_valid}) { $form->{selectnewaccount} .= - ""; + qq||; } } } - $newaccount = qq| - - - - - - - - - -
| . $locale->text('Folgekonto') . qq|| . $locale->text('Gültig ab') . qq|
- - |; - - $form->{selectustva} = "\n|; + my %eur = %{ AM->get_eur_categories(\%myconfig, $form) }; + foreach my $item (sort({ $a <=> $b } keys(%eur))) { + my $text = H($::locale->{iconv_utf8}->convert($eur{$item})); + if ($item == $form->{pos_eur}) { + $select_eur .= qq|\n|; } else { - $form->{selectustva} .= "\n|; } } - $ustva = qq| - - | . $locale->text('Umsatzsteuervoranmeldung') . qq| - - - |; - - $form->{selecteur} = "\n|; + my %er = ( + 1 => "Ertrag", + 6 => "Aufwand"); + foreach my $item (sort({ $a <=> $b } keys(%er))) { + my $text = H($::locale->{iconv_utf8}->convert($er{$item})); + if ($item == $form->{pos_er}) { + $select_er .= qq|\n|; } else { - $form->{selecteur} .= "\n|; } } - $eur = qq| - - | . $locale->text('EUER') . qq| - - - |; - - $form->{selectbwa} = "\n|; + + my %bwapos = %{ AM->get_bwa_categories(\%myconfig, $form) }; + foreach my $item (sort({ $a <=> $b } keys %bwapos)) { + my $text = H($::locale->{iconv_utf8}->convert($bwapos{$item})); if ($item == $form->{pos_bwa}) { - $form->{selectbwa} .= "\n|; + foreach my $item ((1, 2, 3, 4)) { + if ($item == $form->{pos_bilanz}) { + $select_bilanz .= qq|\n|; + + my %category = ( + 'A' => $locale->text('Asset'), + 'L' => $locale->text('Liability'), + 'Q' => $locale->text('Equity'), + 'I' => $locale->text('Revenue'), + 'E' => $locale->text('Expense'), + 'C' => $locale->text('Costs'), + ); + foreach my $item ( sort({ $a <=> $b } keys %category) ) { + if ($item eq $form->{category}) { + $select_category .= qq||; - foreach $item (qw(1,000.00 1000.00 1.000,00 1000,00)) { - $numberformat .= - ($item eq $form->{output_numberformat}) - ? ""; - } + _get_taxaccount_selection(); - my $dateformat = - qq||; - foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { - $dateformat .= - ($item eq $form->{output_dateformat}) - ? ""; - } + $form->{asset} = 1; + $form->{liability} = 1; + $form->{equity} = 1; + $form->{revenue} = 1; + $form->{expense} = 1; + $form->{costs} = 1; - print qq| - - -
{script}> - -{id}> - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text('Language') . qq|
| . $locale->text('Template Code') . qq|
| . $locale->text('Article Code') . qq|
| . $locale->text('Number Format') . qq|
| . $locale->text('Date Format') . qq|
| . $locale->text('Long Dates') . qq|{output_longdates} ? " checked" : "") . - qq|>| . $locale->text("Yes") . - qq|{output_longdates} ? "" : " checked") . - qq|>| . $locale->text("No") . - qq|
-|; - - $lxdebug->leave_sub(); -} - -sub save_language { - $lxdebug->enter_sub(); - - $form->isblank("description", $locale->text('Language missing!')); - $form->isblank("template_code", $locale->text('Template Code missing!')); - $form->isblank("article_code", $locale->text('Article Code missing!')); - AM->save_language(\%myconfig, \%$form); - $form->redirect($locale->text('Language saved!')); - - $lxdebug->leave_sub(); -} + setup_am_edit_tax_action_bar(); + $form->header(); -sub delete_language { - $lxdebug->enter_sub(); + my $parameters_ref = { + LANGUAGES => SL::DB::Manager::Language->get_all_sorted, + }; - AM->delete_language(\%myconfig, \%$form); - $form->redirect($locale->text('Language deleted!')); + # Ausgabe des Templates + print($form->parse_html_template('am/edit_tax', $parameters_ref)); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } +sub edit_tax { + $main::lxdebug->enter_sub(); -sub add_buchungsgruppe { - $lxdebug->enter_sub(); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - # $locale->text("Add Buchungsgruppe") - # $locale->text("Edit Buchungsgruppe") - $form->{title} = "Add"; + $main::auth->assert('config'); - $form->{callback} = - "$form->{script}?action=add_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; - AM->get_buchungsgruppe(\%myconfig, \%$form); - $form->{"inventory_accno_id"} = $form->{"std_inventory_accno_id"}; - for (my $i = 0; 4 > $i; $i++) { - map({ $form->{"${_}_accno_id_$i"} = $form->{"std_${_}_accno_id"}; } - qw(income expense)); - } + $form->{title} = $locale->text('Edit'); - &buchungsgruppe_header; - &form_footer; + AM->get_tax(\%myconfig, \%$form); - $lxdebug->leave_sub(); -} + _get_taxaccount_selection(); -sub edit_buchungsgruppe { - $lxdebug->enter_sub(); + $form->{asset} = $form->{chart_categories} =~ 'A' ? 1 : 0; + $form->{liability} = $form->{chart_categories} =~ 'L' ? 1 : 0; + $form->{equity} = $form->{chart_categories} =~ 'Q' ? 1 : 0; + $form->{revenue} = $form->{chart_categories} =~ 'I' ? 1 : 0; + $form->{expense} = $form->{chart_categories} =~ 'E' ? 1 : 0; + $form->{costs} = $form->{chart_categories} =~ 'C' ? 1 : 0; - $form->{title} = "Edit"; + $form->{rate} = $form->format_amount(\%myconfig, $form->{rate}, 2); - AM->get_buchungsgruppe(\%myconfig, \%$form); + setup_am_edit_tax_action_bar(); + $form->header(); - &buchungsgruppe_header; + my $parameters_ref = { + LANGUAGES => SL::DB::Manager::Language->get_all_sorted, + TAX => SL::DB::Manager::Tax->find_by(id => $form->{id}), + }; - &form_footer; + # Ausgabe des Templates + print($form->parse_html_template('am/edit_tax', $parameters_ref)); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub list_buchungsgruppe { - $lxdebug->enter_sub(); - - AM->buchungsgruppe(\%myconfig, \%$form); - - $form->{callback} = - "$form->{script}?action=list_buchungsgruppe&path=$form->{path}&login=$form->{login}&password=$form->{password}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Buchungsgruppen'); - - @column_index = qw(up down description inventory_accno - income_accno_0 expense_accno_0 - income_accno_1 expense_accno_1 - income_accno_2 expense_accno_2 - income_accno_3 expense_accno_3 ); - - $column_header{up} = - qq|| - . qq|| . $locale->text(| - . qq||; - $column_header{down} = - qq|| - . qq|| . $locale->text(| - . qq||; - $column_header{description} = - qq|| - . $locale->text('Description') - . qq||; - $column_header{inventory_accno} = - qq|| - . $locale->text('Bestandskonto') - . qq||; - $column_header{income_accno_0} = - qq|| - . $locale->text('Erlöse Inland') - . qq||; - $column_header{expense_accno_0} = - qq|| - . $locale->text('Aufwand Inland') - . qq||; - $column_header{income_accno_1} = - qq|| - . $locale->text('Erlöse EU m. UStId') - . qq||; - $column_header{expense_accno_1} = - qq|| - . $locale->text('Aufwand EU m. UStId') - . qq||; - $column_header{income_accno_2} = - qq|| - . $locale->text('Erlöse EU o. UStId') - . qq||; - $column_header{expense_accno_2} = - qq|| - . $locale->text('Aufwand EU o. UStId') - . qq||; - $column_header{income_accno_3} = - qq|| - . $locale->text('Erlöse Ausland') - . qq||; - $column_header{expense_accno_3} = - qq|| - . $locale->text('Aufwand Ausland') - . qq||; - $form->header; - - print qq| - - - - - - - - - - - - - -
$form->{title}
- - -|; +sub list_tax { + $main::lxdebug->enter_sub(); - map { print "$column_header{$_}\n" } @column_index; + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - print qq| - -|; + $main::auth->assert('config'); - my $swap_link = qq|$form->{script}?action=swap_buchungsgruppen&|; - map({ $swap_link .= $_ . "=" . $form->escape($form->{$_}) . "&" } - qw(login password path)); + AM->taxes(\%myconfig, \%$form); - my $row = 0; - foreach $ref (@{ $form->{ALL} }) { - - $i++; - $i %= 2; - - print qq| - -|; - - if ($row) { - my $pref = $form->{ALL}->[$row - 1]; - $column_data{up} = - qq||; - } else { - $column_data{up} = qq||; - } + map { $_->{rate} = $form->format_amount(\%myconfig, $_->{rate}, 2) } @{ $form->{TAX} }; - if ($row == (scalar(@{ $form->{ALL} }) - 1)) { - $column_data{down} = qq||; - } else { - my $nref = $form->{ALL}->[$row + 1]; - $column_data{down} = - qq||; - } + $form->{callback} = build_std_url('action=list_tax'); - $column_data{description} = - qq||; - $column_data{inventory_accno} = qq||; - $column_data{income_accno_0} = - qq||; - $column_data{expense_accno_0} = qq||; - $column_data{income_accno_1} = - qq||; - $column_data{expense_accno_1} = qq||; - $column_data{income_accno_2} = - qq||; - $column_data{expense_accno_2} = qq||; - $column_data{income_accno_3} = - qq||; - $column_data{expense_accno_3} = qq||; - - map { print "$column_data{$_}\n" } @column_index; - - print qq| - -|; - - $row++; - } + $form->{title} = $locale->text('Tax-O-Matic'); - print qq| -
| . - qq|| . - qq|| . $locale->text(| . - qq|  | . - qq|| . - qq|| . $locale->text(| . - qq|{script}?action=edit_buchungsgruppe&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{description}$ref->{inventory_accno}$ref->{income_accno_0}$ref->{expense_accno_0}$ref->{income_accno_1}$ref->{expense_accno_1}$ref->{income_accno_2}$ref->{expense_accno_2}$ref->{income_accno_3}$ref->{expense_accno_3}
-
+ setup_am_list_tax_action_bar(); + $form->header(); -
-{script}> + # Ausgabe des Templates + print($form->parse_html_template('am/list_tax')); - + $main::lxdebug->leave_sub(); +} - +sub _get_taxaccount_selection{ + $main::lxdebug->enter_sub(); -{path}> -{login}> -{password}> + my $form = $main::form; + my %myconfig = %main::myconfig; - + $main::auth->assert('config'); -
+ AM->get_tax_accounts(\%myconfig, \%$form); - - -|; + map { $_->{selected} = $form->{chart_id} == $_->{id} } @{ $form->{ACCOUNTS} }; - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub buchungsgruppe_header { - $lxdebug->enter_sub(); - - $form->{title} = $locale->text("$form->{title} Buchungsgruppe"); +sub save_tax { + $main::lxdebug->enter_sub(); - # $locale->text('Buchungsgruppe hinzufügen') - # $locale->text('Buchungsgruppe bearbeiten') + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - my ($acc_inventory, $acc_income, $acc_expense) = ({}, {}, {}); - my %acc_type_map = ( - "IC" => $acc_inventory, - "IC_income" => $acc_income, - "IC_sale" => $acc_income, - "IC_expense" => $acc_expense, - "IC_cogs" => $acc_expense, - ); + $main::auth->assert('config'); - foreach $key (keys(%acc_type_map)) { - foreach $ref (@{ $form->{IC_links}{$key} }) { - $acc_type_map{$key}->{$ref->{"id"}} = $ref; - } - } + $form->error($locale->text('Taxkey missing!')) unless length($form->{taxkey}) != 0; + $form->error($locale->text('Taxdescription missing!')) unless length($form->{taxdescription}) != 0; + $form->error($locale->text('Taxrate missing!')) unless length($form->{rate}) != 0; - foreach my $type (qw(IC IC_income IC_expense)) { - $form->{"select$type"} = - join("", - map({ "" } - sort({ $a->{"accno"} cmp $b->{"accno"} } - values(%{$acc_type_map{$type}})))); - } + $form->{rate} = $form->parse_amount(\%myconfig, $form->{rate}); - if ($form->{id}) { - $form->{selectIC} =~ s/selected//g; - $form->{selectIC} =~ s/ value=$form->{inventory_accno_id}/ value=$form->{inventory_accno_id} selected/; - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=$form->{income_accno_id_0}/ value=$form->{income_accno_id_0} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_0}/ value=$form->{expense_accno_id_0} selected/; + if ($form->{taxkey} == 0 and $form->{rate} > 0) { + $form->error($locale->text('Taxkey 0 is reserved for rate 0')); } - if (!$eur) { - $linkaccounts = qq| - - | . $locale->text('Inventory') . qq| - - - |; - } else { - $linkaccounts = qq| - {inventory_accno_id}>|; + if ( $form->{rate} < 0 || $form->{rate} >= 100 ) { + $form->error($locale->text('Tax Percent is a number between 0 and 100')); } - - $linkaccounts .= qq| - - | . $locale->text('Erlöse Inland') . qq| - - - - | . $locale->text('Aufwand Inland') . qq| - - |; - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=$form->{income_accno_id_1}/ value=$form->{income_accno_id_1} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_1}/ value=$form->{expense_accno_id_1} selected/; - } - $linkaccounts .= qq| - | . $locale->text('Erlöse EU m. UStId') . qq| - - - - | . $locale->text('Aufwand EU m UStId') . qq| - - |; - - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=$form->{income_accno_id_2}/ value=$form->{income_accno_id_2} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_2}/ value=$form->{expense_accno_id_2} selected/; + if ( $form->{rate} <= 0.99 && $form->{rate} > 0 ) { + $form->error($locale->text('Tax Percent is a number between 0 and 100')); } - $linkaccounts .= qq| - | . $locale->text('Erlöse EU o. UStId') . qq| - - - - | . $locale->text('Aufwand EU o. UStId') . qq| - - |; - - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=$form->{income_accno_id_3}/ value=$form->{income_accno_id_3} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_3}/ value=$form->{expense_accno_id_3} selected/; - } + my @translation_keys = grep { $_ =~ '^translation_\d+' } keys %$form; + $form->{translations} = { map { $_ =~ '^translation_(\d+)'; $1 => $form->{$_} } @translation_keys }; - $linkaccounts .= qq| - | . $locale->text('Erlöse Ausland') . qq| - - - - | . $locale->text('Aufwand Ausland') . qq| - - -|; + AM->save_tax(\%myconfig, \%$form); + flash_later('info', $locale->text("Tax saved!")); + print $form->redirect_header('am.pl?action=list_tax'); - $form->header; - - print qq| - - -
{script}> - -{id}> - - - - - - - - - - - - $linkaccounts - - -
$form->{title}
| . $locale->text('Buchungsgruppe') . qq|
-|; - - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub save_buchungsgruppe { - $lxdebug->enter_sub(); - - $form->isblank("description", $locale->text('Description missing!')); - - AM->save_buchungsgruppe(\%myconfig, \%$form); - $form->redirect($locale->text('Buchungsgruppe gespeichert!')); +sub delete_tax { + $main::lxdebug->enter_sub(); - $lxdebug->leave_sub(); -} + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; -sub delete_buchungsgruppe { - $lxdebug->enter_sub(); + $main::auth->assert('config'); - AM->delete_buchungsgruppe(\%myconfig, \%$form); - $form->redirect($locale->text('Buchungsgruppe gelöscht!')); + AM->delete_tax(\%myconfig, \%$form); + $form->redirect($locale->text('Tax deleted!')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub swap_buchungsgruppen { - $lxdebug->enter_sub(); +sub add_warehouse { + $main::lxdebug->enter_sub(); - AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen"); - list_buchungsgruppe(); - - $lxdebug->leave_sub(); -} + my $form = $main::form; + my $locale = $main::locale; + $main::auth->assert('config'); -sub add_printer { - $lxdebug->enter_sub(); + $form->{title} = $locale->text('Add Warehouse'); + $form->{callback} ||= build_std_url('action=add_warehouse'); - $form->{title} = "Add"; - - $form->{callback} = - "$form->{script}?action=add_printer&path=$form->{path}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; - - &printer_header; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub edit_printer { - $lxdebug->enter_sub(); - - $form->{title} = "Edit"; + setup_am_edit_warehouse_action_bar(); - AM->get_printer(\%myconfig, \%$form); - - &printer_header; - - $form->{orphaned} = 1; - &form_footer; + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub list_printer { - $lxdebug->enter_sub(); - - AM->printer(\%myconfig, \%$form); - - $form->{callback} = - "$form->{script}?action=list_printer&path=$form->{path}&login=$form->{login}&password=$form->{password}"; - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Printer'); - - @column_index = qw(printer_description printer_command template_code); - - $column_header{printer_description} = - qq|| - . $locale->text('Printer Description') - . qq||; - $column_header{printer_command} = - qq|| - . $locale->text('Printer Command') - . qq||; - $column_header{template_code} = - qq|| - . $locale->text('Template Code') - . qq||; - - $form->header; - - print qq| - - - - - - - - - - - - - -
$form->{title}
- - -|; - - map { print "$column_header{$_}\n" } @column_index; - - print qq| - -|; +sub edit_warehouse { + $main::lxdebug->enter_sub(); - foreach $ref (@{ $form->{ALL} }) { + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $i++; - $i %= 2; - - print qq| - -|; - - - $column_data{printer_description} = - qq||; - $column_data{printer_command} = qq||; - $column_data{template_code} = - qq||; - - map { print "$column_data{$_}\n" } @column_index; - - print qq| - -|; - } - - print qq| -
{script}?action=edit_printer&id=$ref->{id}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{printer_description}$ref->{printer_command}$ref->{template_code}
-
+ $main::auth->assert('config'); -
-{script}> + AM->get_warehouse(\%myconfig, $form); - - - - -{path}> -{login}> -{password}> - - - -
- - - -|; - - $lxdebug->leave_sub(); -} + $form->get_lists('employees' => 'EMPLOYEES'); -sub printer_header { - $lxdebug->enter_sub(); + $form->{title} = $locale->text('Edit Warehouse'); + $form->{callback} ||= build_std_url('action=list_warehouses'); - $form->{title} = $locale->text("$form->{title} Printer"); + setup_am_edit_warehouse_action_bar(id => $::form->{id}, in_use => any { $_->{in_use} } @{ $::form->{BINS} }); - # $locale->text('Add Printer') - # $locale->text('Edit Printer') - - $form->{printer_description} =~ s/\"/"/g; - $form->{template_code} =~ s/\"/"/g; - $form->{printer_command} =~ s/\"/"/g; - - - $form->header; + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); - print qq| - - -
{script}> - -{id}> - - - - - - - - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text('Printer') . qq|
| . $locale->text('Printer Command') . qq|
| . $locale->text('Template Code') . qq|
-|; - - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub save_printer { - $lxdebug->enter_sub(); - - $form->isblank("printer_description", $locale->text('Description missing!')); - $form->isblank("printer_command", $locale->text('Printer Command missing!')); - AM->save_printer(\%myconfig, \%$form); - $form->redirect($locale->text('Printer saved!')); +sub edit_bins { + $::auth->assert('config'); - $lxdebug->leave_sub(); -} + AM->get_warehouse(\%::myconfig, $::form); -sub delete_printer { - $lxdebug->enter_sub(); + $::form->{title} = $::locale->text('Edit Bins for Warehouse \'#1\'', $::form->{description}); + $::form->{callback} ||= build_std_url('action=list_warehouses'); - AM->delete_printer(\%myconfig, \%$form); - $form->redirect($locale->text('Printer deleted!')); + setup_am_edit_bins_action_bar(id => $::form->{id}); - $lxdebug->leave_sub(); + $::form->header; + print $::form->parse_html_template('am/edit_bins'); } -sub add_payment { - $lxdebug->enter_sub(); +sub list_warehouses { + $main::lxdebug->enter_sub(); - $form->{title} = "Add"; + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->{callback} = - "$form->{script}?action=add_payment&path=$form->{path}&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; + $main::auth->assert('config'); - $form->{terms_netto} = 0; - $form->{terms_skonto} = 0; - $form->{percent_skonto} = 0; - my @languages = AM->language(\%myconfig, $form, 1); - map({ $_->{"language"} = $_->{"description"}; - $_->{"language_id"} = $_->{"id"}; } @languages); - $form->{"TRANSLATION"} = \@languages; - &payment_header; - &form_footer; + AM->get_all_warehouses(\%myconfig, $form); - $lxdebug->leave_sub(); -} + $form->{callback} = build_std_url('action=list_warehouses'); + $form->{title} = $locale->text('Warehouses'); + $form->{url_base} = build_std_url('callback'); -sub edit_payment { - $lxdebug->enter_sub(); + setup_am_list_warehouses_action_bar(); - $form->{title} = "Edit"; - - AM->get_payment(\%myconfig, $form); - $form->{percent_skonto} = - $form->format_amount(\%myconfig, $form->{percent_skonto} * 100); - - &payment_header; - - $form->{orphaned} = 1; - &form_footer; + $form->header(); + print $form->parse_html_template('am/list_warehouses'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub list_payment { - $lxdebug->enter_sub(); - - AM->payment(\%myconfig, \%$form); - - $form->{callback} = build_std_url("action=list_payment"); - - $callback = $form->escape($form->{callback}); - - $form->{title} = $locale->text('Payment Terms'); - - @column_index = qw(up down description description_long terms_netto - terms_skonto percent_skonto); - - $column_header{up} = - qq|| - . qq|| . $locale->text(| - . qq||; - $column_header{down} = - qq|| - . qq|| . $locale->text(| - . qq||; - $column_header{description} = - qq|| - . $locale->text('Description') - . qq||; - $column_header{description_long} = - qq|| - . $locale->text('Long Description') - . qq||; - $column_header{terms_netto} = - qq|| - . $locale->text('Netto Terms') - . qq||; - $column_header{terms_skonto} = - qq|| - . $locale->text('Skonto Terms') - . qq||; - $column_header{percent_skonto} = - qq|| - . $locale->text('Skonto') - . qq| %|; - - $form->header; - - print qq| - - - - - - - - - - - - - -
$form->{title}
- - -|; - - map { print "$column_header{$_}\n" } @column_index; - - print qq| - -|; - - my $swap_link = build_std_url("action=swap_payment_terms"); - - my $row = 0; - foreach $ref (@{ $form->{ALL} }) { - - $i++; - $i %= 2; - - print qq| - -|; - - if ($row) { - my $pref = $form->{ALL}->[$row - 1]; - $column_data{up} = - qq||; - } else { - $column_data{up} = qq||; - } - - if ($row == (scalar(@{ $form->{ALL} }) - 1)) { - $column_data{down} = qq||; - } else { - my $nref = $form->{ALL}->[$row + 1]; - $column_data{down} = - qq||; - } - - $column_data{description} = - qq||; - $column_data{description_long} = - qq||; - $column_data{terms_netto} = - qq||; - $column_data{terms_skonto} = - qq||; - $column_data{percent_skonto} = - qq||; - map { print "$column_data{$_}\n" } @column_index; - - print qq| - -|; - $row++; - } - - print qq| -
| . - qq|| . - qq|| . $locale->text(| . - qq|  | . - qq|| . - qq|| . $locale->text(| . - qq|{id}", "callback=$callback") . - qq|">| . H($ref->{description}) . qq|| . H($ref->{description_long}) . qq|$ref->{terms_netto}$ref->{terms_skonto}| . - $form->format_amount(\%myconfig, $ref->{percent_skonto} * 100) . - qq|%
-
+sub save_warehouse { + $main::lxdebug->enter_sub(); -
-{script}> + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - + $main::auth->assert('config'); - + $form->isblank("description", $locale->text('Description missing!')); + $form->isblank("number_of_new_bins", $locale->text('Number') . $locale->text(' missing!')); -{path}> -{login}> -{password}> + $form->{number_of_new_bins} = $form->parse_amount(\%myconfig, $form->{number_of_new_bins}); - + AM->save_warehouse(\%myconfig, $form); -
+ $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse saved.')) if ($form->{callback}); - - -|; + $form->redirect($locale->text('Warehouse saved.')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub payment_header { - $lxdebug->enter_sub(); - - $form->{title} = $locale->text("$form->{title} Payment Terms"); - - # $locale->text('Add Payment Terms') - # $locale->text('Edit Payment Terms') +sub delete_warehouse { + $main::lxdebug->enter_sub(); - $form->{description} =~ s/\"/"/g; + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + $main::auth->assert('config'); + if (AM->delete_warehouse(\%myconfig, $form)) { + $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse deleted.')) if ($form->{callback}); + $form->redirect($locale->text('Warehouse deleted.')); - $form->header; - - print qq| - - -
{script}> - -{id}> - - - - - - - - - - - - - - - -|; - - foreach my $language (@{ $form->{"TRANSLATION"} }) { - print qq| - - - - -|; + } else { + $form->error($locale->text('The warehouse could not be deleted because it has already been used.')); } - print qq| - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text('Description') . qq|
| . $locale->text('Long Description') . qq|
| . - sprintf($locale->text('Translation (%s)'), - $language->{"language"}) - . qq|
| . $locale->text('Netto Terms') . qq|
| . $locale->text('Skonto Terms') . qq|
| . $locale->text('Skonto') . qq| %
- -

| . $locale->text("You can use the following strings in the long " . - "description and all translations. They will be " . - "replaced by their actual values by Lx-Office " . - "before they're output.") -. qq|

- -|; - - $lxdebug->leave_sub(); -} - -sub save_payment { - $lxdebug->enter_sub(); - - $form->isblank("description", $locale->text('Description missing!')); - $form->{"percent_skonto"} = - $form->parse_amount(\%myconfig, $form->{percent_skonto}) / 100; - AM->save_payment(\%myconfig, \%$form); - $form->redirect($locale->text('Payment Terms saved!')); - - $lxdebug->leave_sub(); -} - -sub delete_payment { - $lxdebug->enter_sub(); - - AM->delete_payment(\%myconfig, \%$form); - $form->redirect($locale->text('Payment terms deleted!')); - - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub swap_payment_terms { - $lxdebug->enter_sub(); - - AM->swap_sortkeys(\%myconfig, $form, "payment_terms"); - list_payment(); - - $lxdebug->leave_sub(); -} +sub save_bin { + $main::lxdebug->enter_sub(); -sub display_template { - $lxdebug->enter_sub(); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->{edit} = 0; - display_template_form(); + $main::auth->assert('config'); - $lxdebug->leave_sub(); -} + AM->save_bins(\%myconfig, $form); -sub edit_template { - $lxdebug->enter_sub(); + $form->{callback} .= '&saved_message=' . E($locale->text('Bins saved.')) if ($form->{callback}); - $form->{edit} = 1; - display_template_form(); + $form->redirect($locale->text('Bins saved.')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub save_template { - $lxdebug->enter_sub(); - - $form->isblank("formname", $locale->text("You're not editing a file.")) unless ($form->{type} eq "stylesheet"); +sub setup_am_config_action_bar { + my %params = @_; - my ($filename) = AM->prepare_template_filename(\%myconfig, $form); - if (my $error = AM->save_template($filename, $form->{content})) { - $form->error(sprintf($locale->text("Saving the file '%s' failed. OS error message: %s"), $filename, $error)); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => "save_preferences" } ], + accesskey => 'enter', + ], + ); } - - $form->{edit} = 0; - display_template_form(); - - $lxdebug->leave_sub(); } -sub display_template_form { - $lxdebug->enter_sub(); - - $form->{formname} =~ s|.*/||; - my $format = $form->{format} eq "html" ? "html" : "tex"; - - my $title = $form->{type} eq "stylesheet" ? $locale->text("Edit the stylesheet") : $locale->text("Edit templates"); - $form->{title} = $title; - - my $edit_options; - - my @hidden = qw(login path password type format); - - if (($form->{type} ne "stylesheet") && !$form->{edit}) { - $edit_options = "

"; - - my %formname_setup = - ( - "balance_sheet" => { "translation" => $locale->text('Balance Sheet'), "html" => 1 }, - "bin_list" => $locale->text('Bin List'), - "bwa" => { "translation" => $locale->text('BWA'), "html" => 1 }, - "check" => { "translation" => $locale->text('Check'), "html" => 1 }, - "credit_note" => $locale->text('Credit Note'), - "income_statement" => { "translation" => $locale->text('Income Statement'), "html" => 1 }, - "invoice" => $locale->text('Invoice'), - "packing_list" => $locale->text('Packing List'), - "pick_list" => $locale->text('Pick List'), - "proforma" => $locale->text('Proforma Invoice'), - "purchase_order" => $locale->text('Purchase Order'), - "receipt" => { "translation" => $locale->text('Receipt'), "tex" => 1 }, - "request_quotation" => $locale->text('RFQ'), - "sales_order" => $locale->text('Confirmation'), - "sales_quotation" => $locale->text('Quotation'), - "statement" => $locale->text('Statement'), - "storno_invoice" => $locale->text('Storno Invoice'), - "storno_packing_list" => $locale->text('Storno Packing List'), - "ustva-2004" => { "translation" => $locale->text("USTVA 2004"), "tex" => 1 }, - "ustva-2005" => { "translation" => $locale->text("USTVA 2005"), "tex" => 1 }, - "ustva-2006" => { "translation" => $locale->text("USTVA 2006"), "tex" => 1 }, - "ustva-2007" => { "translation" => $locale->text("USTVA 2007"), "tex" => 1 }, - "ustva" => $locale->text("USTVA"), - "zahlungserinnerung" => $locale->text('Payment Reminder'), - ); - - my (@values, %labels, $file, $setup); - - while (($file, $setup) = each(%formname_setup)) { - next unless (!ref($setup) || $setup->{$format}); - - push(@values, $file); - $labels{$file} = ref($setup) ? $setup->{translation} : $setup; - } - @values = sort({ $labels{$a} cmp $labels{$b} } @values); - - $edit_options .= - $locale->text("Template") . " " . - NTI($cgi->popup_menu("-name" => "formname", "-default" => $form->{formname}, - "-values" => \@values, "-labels" => \%labels)); - - $form->get_lists("printers" => "ALL_PRINTERS", - "languages" => "ALL_LANGUAGES"); - - @values = (""); - %labels = (); - - foreach my $item (@{ $form->{ALL_LANGUAGES} }) { - next unless ($item->{template_code}); - my $key = "$item->{id}--$item->{template_code}"; - push(@values, $key); - $labels{$key} = $item->{description}; - } - - if (1 != scalar(@values)) { - $edit_options .= - " " . $locale->text("Language") . " " . - NTI($cgi->popup_menu("-name" => "language", "-default" => $form->{language}, - "-values" => \@values, "-labels" => \%labels)); - } - - @values = (""); - %labels = (); - - foreach my $item (@{ $form->{ALL_PRINTERS} }) { - next unless ($item->{template_code}); - my $key = "$item->{id}--$item->{template_code}"; - push(@values, $key); - $labels{$key} = $item->{printer_description}; - } - - if (1 != scalar(@values)) { - $edit_options .= - " " . $locale->text("Printer") . " " . - NTI($cgi->popup_menu("-name" => "printer", "-default" => $form->{printer}, - "-values" => \@values, "-labels" => \%labels)); - } - - $edit_options .= qq| - - - - - -

- -
-|; - - } else { - push(@hidden, qw(formname language printer)); - } - - if ($form->{formname} || ($form->{type} eq "stylesheet")) { - my ($filename, $display_filename) = AM->prepare_template_filename(\%myconfig, $form); - my ($content, $lines) = AM->load_template($filename); - - $body = qq| -|; - - if ($form->{edit}) { - $form->{fokus} = "Form.content"; - $body = qq|\n

| . $locale->text('Edit file') . " '" . H($display_filename) . qq|'

\n

| - . NTI($cgi->textarea("-name" => "content", - "-id" => "content", - "-default" => $content, - "-columns" => 100, - "-rows" => 25)) - . qq|

- -

- - - -

-|; - - } else { - $content = "\n\n" unless ($content); - - $body = qq| -

| . $locale->text('Display file') . " '" . H($display_filename) . qq|'

- - - -

- -

- 

| . H($content) . qq|
-

-|; - - if ($lines > 25) { - $body .= qq| - -|; - } - } +sub setup_am_edit_account_action_bar { + my %params = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + combobox => [ + action => [ + t8('Save'), + submit => [ '#form', { action => "save_account" } ], + accesskey => 'enter', + ], + + action => [ + t8('Save as new'), + submit => [ '#form', { action => "save_as_new_account" } ], + disabled => !$::form->{id} ? t8('The object has not been saved yet.') : undef, + ], + ], + + action => [ + t8('Delete'), + submit => [ '#form', { action => "delete_account" } ], + disabled => !$::form->{id} ? t8('The object has not been saved yet.') + : $::form->{id} && !$::form->{orphaned} ? t8('The object is in use and cannot be deleted.') + : undef, + confirm => t8('Do you really want to delete this object?'), + ], + ); } - - $form->header; - - print qq| - - -
$title
- - - -|; - $form->hide_form(@hidden); - - print qq| -$edit_options - -$body - -
- - - -|; - - $lxdebug->leave_sub(); } -sub config { - $lxdebug->enter_sub(); - - # get defaults for account numbers and last numbers - AM->defaultaccounts(\%myconfig, \%$form); - - foreach $item (qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)) { - $dateformat .= - ($item eq $myconfig{dateformat}) - ? ""; - } - - if (!$myconfig{"default_media"}) { - $myconfig{"default_media"} = "screen"; - } - my %selected = ($myconfig{"default_media"} => "selected"); - my $default_media = qq| - - - -|; - - %selected = (); - $selected{$myconfig{"default_printer_id"}} = "selected" - if ($myconfig{"default_printer_id"}); - my $default_printer = qq||; - AM->printer(\%myconfig, $form); - foreach my $printer (@{$form->{"ALL"}}) { - $default_printer .= qq||; - } - - %countrycodes = User->country_codes; - $countrycodes = ''; - foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } - keys %countrycodes - ) { - $countrycodes .= - ($myconfig{countrycode} eq $key) - ? "