X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=d0415618717701f7910e3d82d7067b12620eeaa7;hb=6755770b9e487756da69b7e0dcc6efb88513170e;hp=fafe656845cc594926bc1600ea66e169d635e0f8;hpb=b4078ad95b5f601f9ec15b478ea6a7cc5705fb26;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index fafe65684..d04156187 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -24,43 +24,59 @@ # 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 CGI::Ajax; +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; +require "bin/mozilla/common.pl"; -1; +use strict; -require "bin/mozilla/common.pl"; +1; # end of main -sub add { call_sub("add_$form->{type}"); } -sub delete { call_sub("delete_$form->{type}"); } -sub save { call_sub("save_$form->{type}"); } -sub edit { call_sub("edit_$form->{type}"); } -sub continue { call_sub($form->{"nextsub"}); } -sub save_as_new { call_sub("save_as_new_$form->{type}"); } +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 add_account { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + + $main::auth->assert('config'); $form->{title} = "Add"; $form->{charttype} = "A"; @@ -69,17 +85,26 @@ sub add_account { $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; - $auth->assert('config'); + $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})) { @@ -87,15 +112,18 @@ 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; - $auth->assert('config'); + $main::auth->assert('config'); if ( $form->{action} eq 'edit_account') { $form->{account_exists} = '1'; @@ -122,7 +150,7 @@ sub account_header { } # Fill in empty row for new Taxkey - $newtaxkey_ref = { + my $newtaxkey_ref = { id => '', chart_id => '', accno => '', @@ -131,7 +159,7 @@ sub account_header { rate => '', taxkey_id => '', pos_ustva => '', - startdate => '', + startdate => $form->{account_exists} ? '' : DateTime->new(year => 1970, month => 1, day => 1)->to_lxoffice, }; push @{ $form->{ACCOUNT_TAXKEYS} }, $newtaxkey_ref; @@ -182,11 +210,11 @@ sub account_header { } # Newaccount Folgekonto - if (@{ $form->{NEWACCOUNT} }) { + if (@{ $form->{NEWACCOUNT} || [] }) { if (!$form->{new_chart_valid}) { $form->{selectnewaccount} = qq||; } - foreach $item (@{ $form->{NEWACCOUNT} }) { + foreach my $item (@{ $form->{NEWACCOUNT} }) { if ($item->{id} == $form->{new_chart_id}) { $form->{selectnewaccount} .= qq||; @@ -198,40 +226,10 @@ sub account_header { } } - $select_eur = q|\n|; - %eur = (1 => "Umsatzerlöse", - 2 => "sonstige Erlöse", - 3 => "Privatanteile", - 4 => "Zinserträge", - 5 => "Ausserordentliche Erträge", - 6 => "Vereinnahmte Umsatzst.", - 7 => "Umsatzsteuererstattungen", - 8 => "Wareneingänge", - 9 => "Löhne und Gehälter", - 10 => "Gesetzl. sozialer Aufw.", - 11 => "Mieten", - 12 => "Gas, Strom, Wasser", - 13 => "Instandhaltung", - 14 => "Steuern, Versich., Beiträge", - 15 => "Kfz-Steuern", - 16 => "Kfz-Versicherungen", - 17 => "Sonst. Fahrzeugkosten", - 18 => "Werbe- und Reisekosten", - 19 => "Instandhaltung u. Werkzeuge", - 20 => "Fachzeitschriften, Bücher", - 21 => "Miete für Einrichtungen", - 22 => "Rechts- und Beratungskosten", - 23 => "Bürobedarf, Porto, Telefon", - 24 => "Sonstige Aufwendungen", - 25 => "Abschreibungen auf Anlagever.", - 26 => "Abschreibungen auf GWG", - 27 => "Vorsteuer", - 28 => "Umsatzsteuerzahlungen", - 29 => "Zinsaufwand", - 30 => "Ausserordentlicher Aufwand", - 31 => "Betriebliche Steuern"); - foreach $item (sort({ $a <=> $b } keys(%eur))) { - my $text = H(SL::Iconv::convert("ISO-8859-15", $dbcharset, $eur{$item})); + my $select_eur = q|\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 { @@ -240,32 +238,25 @@ sub account_header { } - $select_bwa = q|\n|; - - %bwapos = (1 => 'Umsatzerlöse', - 2 => 'Best.Verdg.FE/UE', - 3 => 'Aktiv.Eigenleistung', - 4 => 'Mat./Wareneinkauf', - 5 => 'So.betr.Erlöse', - 10 => 'Personalkosten', - 11 => 'Raumkosten', - 12 => 'Betriebl.Steuern', - 13 => 'Vers./Beiträge', - 14 => 'Kfz.Kosten o.St.', - 15 => 'Werbe-Reisek.', - 16 => 'Kosten Warenabgabe', - 17 => 'Abschreibungen', - 18 => 'Rep./instandhlt.', - 19 => 'Übrige Steuern', - 20 => 'Sonst.Kosten', - 30 => 'Zinsauwand', - 31 => 'Sonst.neutr.Aufw.', - 32 => 'Zinserträge', - 33 => 'Sonst.neutr.Ertrag', - 34 => 'Verr.kalk.Kosten', - 35 => 'Steuern Eink.u.Ertr.'); - foreach $item (sort({ $a <=> $b } keys %bwapos)) { - my $text = H(SL::Iconv::convert("ISO-8859-15", $dbcharset, $bwapos{$item})); + my $select_er = q|\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 { + $select_er .= qq|\n|; + } + + } + + my $select_bwa = q|\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}) { $select_bwa .= qq|\n|; - foreach $item ((1, 2, 3, 4)) { +# Wieder hinzugefügt zu evaluationszwecken (us) 09.03.2007 + my $select_bilanz = q|\n|; + foreach my $item ((1, 2, 3, 4)) { if ($item == $form->{pos_bilanz}) { $select_bilanz .= qq|\n|; + my $select_category = q|\n|; - %category = ( + my %category = ( 'A' => $locale->text('Asset'), 'L' => $locale->text('Liability'), 'Q' => $locale->text('Equity'), @@ -303,7 +294,7 @@ sub account_header { 'E' => $locale->text('Expense'), 'C' => $locale->text('Costs'), ); - foreach $item ( sort({ $a <=> $b } keys %category) ) { + 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}) - ? ""; - } - - 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}) - ? ""; - } - - print qq| - - -
- -{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(); - - $auth->assert('config'); - - $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(); -} - -sub delete_language { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->delete_language(\%myconfig, \%$form); - $form->redirect($locale->text('Language deleted!')); - - $lxdebug->leave_sub(); -} - - -sub add_buchungsgruppe { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - # $locale->text("Add Buchungsgruppe") - # $locale->text("Edit Buchungsgruppe") - $form->{title} = "Add"; - - $form->{callback} = "am.pl?action=add_buchungsgruppe" 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)); - } - - &buchungsgruppe_header; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub edit_buchungsgruppe { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = "Edit"; - - AM->get_buchungsgruppe(\%myconfig, \%$form); - - &buchungsgruppe_header; - - &form_footer; - - $lxdebug->leave_sub(); -} - -sub list_buchungsgruppe { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->buchungsgruppe(\%myconfig, \%$form); - - $form->{callback} = "am.pl?action=list_buchungsgruppe"; - - $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('National Revenues') - . qq||; - $column_header{expense_accno_0} = - qq|| - . $locale->text('National Expenses') - . qq||; - $column_header{income_accno_1} = - qq|| - . $locale->text('Revenues EU with UStId') - . qq||; - $column_header{expense_accno_1} = - qq|| - . $locale->text('Expenses EU with UStId') - . qq||; - $column_header{income_accno_2} = - qq|| - . $locale->text('Revenues EU without UStId') - . qq||; - $column_header{expense_accno_2} = - qq|| - . $locale->text('Expenses EU without UStId') - . qq||; - $column_header{income_accno_3} = - qq|| - . $locale->text('Foreign Revenues') - . qq||; - $column_header{expense_accno_3} = - qq|| - . $locale->text('Foreign Expenses') - . qq||; - $form->header; - - print qq| - - - - - - - - - - - - - -
$form->{title}
- - -|; - - map { print "$column_header{$_}\n" } @column_index; - - print qq| - -|; - - my $swap_link = qq|am.pl?action=swap_buchungsgruppen&|; - - 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{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++; - } - - print qq| -
| . - qq|| . - qq|| . $locale->text(| . - qq|  | . - qq|| . - qq|| . $locale->text(| . - qq|$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}
-
- -
- - - - - - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub buchungsgruppe_header { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = $locale->text("$form->{title} Buchungsgruppe"); - - # $locale->text('Add Accounting Group') - # $locale->text('Edit Accounting Group') - - 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, - ); - - foreach $key (keys(%acc_type_map)) { - foreach $ref (@{ $form->{IC_links}{$key} }) { - $acc_type_map{$key}->{$ref->{"id"}} = $ref; - } - } - - 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}})))); - } - - if ($form->{id}) { - $form->{selectIC} =~ s/selected//g; - $form->{selectIC} =~ s/ value=\Q$form->{inventory_accno_id}\E/ value=$form->{inventory_accno_id} selected/; - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_0}\E/ value=$form->{income_accno_id_0} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_0}\E/ value=$form->{expense_accno_id_0} selected/; - } - - if (!$eur) { - $linkaccounts = qq| - - | . $locale->text('Inventory') . qq| - - - |; - } else { - $linkaccounts = qq| - {inventory_accno_id}>|; - } - - - $linkaccounts .= qq| - - | . $locale->text('National Revenues') . qq| - - - - | . $locale->text('National Expenses') . qq| - - |; - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_1}\E/ value=$form->{income_accno_id_1} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_1}\E/ value=$form->{expense_accno_id_1} selected/; - } - $linkaccounts .= qq| - | . $locale->text('Revenues EU with UStId') . qq| - - - - | . $locale->text('Expenses EU with UStId') . qq| - - |; - - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_2}\E/ value=$form->{income_accno_id_2} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_2}\E/ value=$form->{expense_accno_id_2} selected/; - } - - $linkaccounts .= qq| - | . $locale->text('Revenues EU without UStId') . qq| - - - - | . $locale->text('Expenses EU without UStId') . qq| - - |; - - if ($form->{id}) { - $form->{selectIC_income} =~ s/selected//g; - $form->{selectIC_income} =~ s/ value=\Q$form->{income_accno_id_3}\E/ value=$form->{income_accno_id_3} selected/; - $form->{selectIC_expense} =~ s/selected//g; - $form->{selectIC_expense} =~ s/ value=\Q$form->{expense_accno_id_3}\E/ value=$form->{expense_accno_id_3} selected/; - } - - $linkaccounts .= qq| - | . $locale->text('Foreign Revenues') . qq| - - - - | . $locale->text('Foreign Expenses') . qq| - - -|; - - - $form->header; - - print qq| - - -
- -{id}> - - - - - - - - - - - - $linkaccounts - - -
$form->{title}
| . $locale->text('Buchungsgruppe') . qq|
-|; - - $lxdebug->leave_sub(); -} - -sub save_buchungsgruppe { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->isblank("description", $locale->text('Description missing!')); - - AM->save_buchungsgruppe(\%myconfig, \%$form); - $form->redirect($locale->text('Accounting Group saved!')); - - $lxdebug->leave_sub(); -} - -sub delete_buchungsgruppe { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->delete_buchungsgruppe(\%myconfig, \%$form); - $form->redirect($locale->text('Accounting Group deleted!')); - - $lxdebug->leave_sub(); -} - -sub swap_buchungsgruppen { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen"); - list_buchungsgruppe(); - - $lxdebug->leave_sub(); -} - - -sub add_printer { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = "Add"; - - $form->{callback} = "am.pl?action=add_printer" unless $form->{callback}; - - &printer_header; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub edit_printer { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = "Edit"; - - AM->get_printer(\%myconfig, \%$form); - - &printer_header; - - $form->{orphaned} = 1; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub list_printer { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->printer(\%myconfig, \%$form); - - $form->{callback} = "am.pl?action=list_printer"; - - $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| - -|; - - foreach $ref (@{ $form->{ALL} }) { - - $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| -
$ref->{printer_description}$ref->{printer_command}$ref->{template_code}
-
- -
- - - - - - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub printer_header { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = $locale->text("$form->{title} Printer"); - - # $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; - - print qq| - - -
- -{id}> - - - - - - - - - - - - - - - - - - - - - -
$form->{title}
| . $locale->text('Printer') . qq|
| . $locale->text('Printer Command') . qq|
| . $locale->text('Template Code') . qq|
-|; - - $lxdebug->leave_sub(); -} - -sub save_printer { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $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!')); - - $lxdebug->leave_sub(); -} - -sub delete_printer { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->delete_printer(\%myconfig, \%$form); - $form->redirect($locale->text('Printer deleted!')); - - $lxdebug->leave_sub(); -} - -sub add_payment { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = "Add"; - - $form->{callback} = "am.pl?action=add_payment" unless $form->{callback}; - - $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; - - $lxdebug->leave_sub(); -} - -sub edit_payment { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $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; - - $lxdebug->leave_sub(); -} - -sub list_payment { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - 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|%
-
- -
- - - - - - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub payment_header { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = $locale->text("$form->{title} Payment Terms"); - - # $locale->text('Add Payment Terms') - # $locale->text('Edit Payment Terms') - - $form->{description} =~ s/\"/"/g; - - - - $form->header; - - print qq| - - -
- -{id}> - - - - - - - - - - - - - - - -|; - - foreach my $language (@{ $form->{"TRANSLATION"} }) { - print qq| - - - - -|; - } - - 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(); - - $auth->assert('config'); - - $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(); - - $auth->assert('config'); - - AM->delete_payment(\%myconfig, \%$form); - $form->redirect($locale->text('Payment terms deleted!')); - - $lxdebug->leave_sub(); -} - -sub swap_payment_terms { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->swap_sortkeys(\%myconfig, $form, "payment_terms"); - list_payment(); - - $lxdebug->leave_sub(); -} - -sub edit_defaults { - $lxdebug->enter_sub(); - - # get defaults for account numbers and last numbers - AM->defaultaccounts(\%myconfig, \%$form); - - map { $form->{"defaults_${_}"} = $form->{defaults}->{$_} } keys %{ $form->{defaults} }; - - foreach $key (keys %{ $form->{IC} }) { - foreach $accno (sort keys %{ $form->{IC}->{$key} }) { - my $array = "ACCNOS_" . uc($key); - $form->{$array} ||= []; - - my $value = "${accno}--" . $form->{IC}->{$key}->{$accno}->{description}; - push @{ $form->{$array} }, { - 'name' => $value, - 'value' => $value, - 'selected' => $form->{IC}->{$key}->{$accno}->{id} == $form->{defaults}->{$key}, - }; - } - } - - $form->{title} = $locale->text('Ranges of numbers and default accounts'); - - $form->header(); - print $form->parse_html_template('am/edit_defaults'); - - $lxdebug->leave_sub(); -} - -sub save_defaults { - $lxdebug->enter_sub(); - - AM->save_defaults(); - - $form->redirect($locale->text('Defaults saved.')); - - $lxdebug->leave_sub(); -} - -sub _build_cfg_options { - my $idx = shift; - my $array = uc($idx) . 'S'; - - $form->{$array} = []; - foreach my $item (@_) { - push @{ $form->{$array} }, { - 'name' => $item, - 'value' => $item, - 'selected' => $item eq $myconfig{$idx}, - }; - } -} - -sub config { - $lxdebug->enter_sub(); - - _build_cfg_options('dateformat', qw(mm-dd-yy mm/dd/yy dd-mm-yy dd/mm/yy dd.mm.yy yyyy-mm-dd)); - _build_cfg_options('numberformat', qw(1,000.00 1000.00 1.000,00 1000,00)); - - @formats = (); - if ($opendocument_templates && $openofficeorg_writer_bin && - $xvfb_bin && (-x $openofficeorg_writer_bin) && (-x $xvfb_bin)) { - push(@formats, { "name" => $locale->text("PDF (OpenDocument/OASIS)"), - "value" => "opendocument_pdf" }); - } - if ($latex_templates) { - push(@formats, { "name" => $locale->text("PDF"), "value" => "pdf" }); - } - push(@formats, { "name" => "HTML", "value" => "html" }); - if ($latex_templates) { - push(@formats, { "name" => $locale->text("Postscript"), - "value" => "postscript" }); - } - if ($opendocument_templates) { - push(@formats, { "name" => $locale->text("OpenDocument/OASIS"), - "value" => "opendocument" }); - } - - if (!$myconfig{"template_format"}) { - $myconfig{"template_format"} = "pdf"; - } - $form->{TEMPLATE_FORMATS} = []; - foreach $item (@formats) { - push @{ $form->{TEMPLATE_FORMATS} }, { - 'name' => $item->{name}, - 'value' => $item->{value}, - 'selected' => $item->{value} eq $myconfig{template_format}, - }; - } - - if (!$myconfig{"default_media"}) { - $myconfig{"default_media"} = "screen"; - } - - my %selected = ($myconfig{"default_media"} => "selected"); - $form->{MEDIA} = [ - { 'name' => $locale->text('Screen'), 'value' => 'screen', 'selected' => $selected{screen}, }, - { 'name' => $locale->text('Printer'), 'value' => 'printer', 'selected' => $selected{printer}, }, - { 'name' => $locale->text('Queue'), 'value' => 'queue', 'selected' => $selected{queue}, }, - ]; - - AM->printer(\%myconfig, $form); - - $form->{PRINTERS} = []; - foreach my $printer (@{$form->{"ALL"}}) { - push @{ $form->{PRINTERS} }, { - 'name' => $printer->{printer_description}, - 'value' => $printer->{id}, - 'selected' => $printer->{id} == $myconfig{default_printer_id}, - }; - } - - %countrycodes = User->country_codes; - - $countrycodes{""} = "American English"; - $form->{COUNTRYCODES} = []; - foreach $countrycode (sort { $countrycodes{$a} cmp $countrycodes{$b} } keys %countrycodes) { - push @{ $form->{COUNTRYCODES} }, { - 'name' => $countrycodes{$countrycode}, - 'value' => $countrycode, - 'selected' => $countrycode eq $myconfig{countrycode}, - }; - } - - $form->{STYLESHEETS} = []; - foreach $item (qw(lx-office-erp.css Win2000.css)) { - push @{ $form->{STYLESHEETS} }, { - 'name' => $item, - 'value' => $item, - 'selected' => $item eq $myconfig{stylesheet}, - }; - } - - $myconfig{show_form_details} = 1 unless (defined($myconfig{show_form_details})); - $form->{CAN_CHANGE_PASSWORD} = $auth->can_change_password(); - $form->{todo_cfg} = { TODO->get_user_config('login' => $form->{login}) }; - - $form->{title} = $locale->text('Edit Preferences for #1', $form->{login}); - - $form->header(); - print $form->parse_html_template('am/config'); - - $lxdebug->leave_sub(); -} - -sub save_preferences { - $lxdebug->enter_sub(); - - $form->{stylesheet} = $form->{usestylesheet}; - - TODO->save_user_config('login' => $form->{login}, %{ $form->{todo_cfg} || { } }); - - $form->redirect($locale->text('Preferences saved!')) if (AM->save_preferences(\%myconfig, \%$form, $webdav)); - $form->error($locale->text('Cannot save preferences!')); - - $lxdebug->leave_sub(); -} - -sub audit_control { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = $locale->text('Audit Control'); - - AM->closedto(\%myconfig, \%$form); - - $form->header; - - print qq| - - - - - - - - - - -
$form->{title}
- - - - - -
| . $locale->text('Close Books up to') . qq|{closedto}>
-
- -
- -
- - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub doclose { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->closebooks(\%myconfig, \%$form); - - if ($form->{closedto}) { - $form->redirect( - $locale->text('Books closed up to') . " " - . $locale->date(\%myconfig, $form->{closedto}, 1)); - } else { - $form->redirect($locale->text('Books are open')); - } - - $lxdebug->leave_sub(); -} - -sub edit_units { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $units = AM->retrieve_units(\%myconfig, $form, "resolved_"); - AM->units_in_use(\%myconfig, $form, $units); - map({ $units->{$_}->{"BASE_UNIT_DDBOX"} = AM->unit_select_data($units, $units->{$_}->{"base_unit"}, 1); } keys(%{$units})); - - @languages = AM->language(\%myconfig, $form, 1); - - @unit_list = sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } values(%{$units})); - - my $i = 1; - foreach (@unit_list) { - $_->{"factor"} = $form->format_amount(\%myconfig, $_->{"factor"} * 1) if ($_->{"factor"}); - $_->{"UNITLANGUAGES"} = []; - foreach my $lang (@languages) { - push(@{ $_->{"UNITLANGUAGES"} }, - { "idx" => $i, - "unit" => $_->{"name"}, - "language_id" => $lang->{"id"}, - "localized" => $_->{"LANGUAGES"}->{$lang->{"template_code"}}->{"localized"}, - "localized_plural" => $_->{"LANGUAGES"}->{$lang->{"template_code"}}->{"localized_plural"}, - }); - } - $i++; - } - - $units = AM->retrieve_units(\%myconfig, $form); - $ddbox = AM->unit_select_data($units, undef, 1); - - my $updownlink = build_std_url("action=swap_units"); - - $form->{"title"} = $locale->text("Add and edit units"); - $form->header(); - print($form->parse_html_template("am/edit_units", - { "UNITS" => \@unit_list, - "NEW_BASE_UNIT_DDBOX" => $ddbox, - "LANGUAGES" => \@languages, - "updownlink" => $updownlink })); - - $lxdebug->leave_sub(); -} - -sub add_unit { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->isblank("new_name", $locale->text("The name is missing.")); - $units = AM->retrieve_units(\%myconfig, $form); - $all_units = AM->retrieve_units(\%myconfig, $form); - $form->show_generic_error($locale->text("A unit with this name does already exist.")) if ($all_units->{$form->{"new_name"}}); - - my ($base_unit, $factor); - if ($form->{"new_base_unit"}) { - $form->show_generic_error($locale->text("The base unit does not exist.")) unless (defined($units->{$form->{"new_base_unit"}})); - - $form->isblank("new_factor", $locale->text("The factor is missing.")); - $factor = $form->parse_amount(\%myconfig, $form->{"new_factor"}); - $form->show_generic_error($locale->text("The factor is missing.")) unless ($factor); - $base_unit = $form->{"new_base_unit"}; - } - - my @languages; - foreach my $lang (AM->language(\%myconfig, $form, 1)) { - next unless ($form->{"new_localized_$lang->{id}"} || $form->{"new_localized_plural_$lang->{id}"}); - push(@languages, { "id" => $lang->{"id"}, - "localized" => $form->{"new_localized_$lang->{id}"}, - "localized_plural" => $form->{"new_localized_plural_$lang->{id}"}, - }); - } - - AM->add_unit(\%myconfig, $form, $form->{"new_name"}, $base_unit, $factor, \@languages); - - $form->{"saved_message"} = $locale->text("The unit has been saved."); - - edit_units(); - - $lxdebug->leave_sub(); -} - -sub set_unit_languages { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - my ($unit, $languages, $idx) = @_; - - $unit->{"LANGUAGES"} = []; - - foreach my $lang (@{$languages}) { - push(@{ $unit->{"LANGUAGES"} }, - { "id" => $lang->{"id"}, - "localized" => $form->{"localized_${idx}_$lang->{id}"}, - "localized_plural" => $form->{"localized_plural_${idx}_$lang->{id}"}, - }); - } - - $lxdebug->leave_sub(); -} - -sub save_unit { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $old_units = AM->retrieve_units(\%myconfig, $form, "resolved_"); - AM->units_in_use(\%myconfig, $form, $old_units); - - @languages = AM->language(\%myconfig, $form, 1); - - $new_units = {}; - @delete_units = (); - foreach $i (1..($form->{"rowcount"} * 1)) { - $old_unit = $old_units->{$form->{"old_name_$i"}}; - if (!$old_unit) { - $form->show_generic_error(sprintf($locale->text("The unit in row %d has been deleted in the meantime."), $i)); - } - - if ($form->{"unchangeable_$i"}) { - $new_units->{$form->{"old_name_$i"}} = $old_units->{$form->{"old_name_$i"}}; - $new_units->{$form->{"old_name_$i"}}->{"unchanged_unit"} = 1; - set_unit_languages($new_units->{$form->{"old_name_$i"}}, \@languages, $i); - next; - } - - if ($old_unit->{"in_use"}) { - $form->show_generic_error(sprintf($locale->text("The unit in row %d has been used in the meantime and cannot be changed anymore."), $i)); - } - - if ($form->{"delete_$i"}) { - push(@delete_units, $old_unit->{"name"}); - next; - } - - $form->isblank("name_$i", sprintf($locale->text("The name is missing in row %d."), $i)); - - $form->show_generic_error(sprintf($locale->text("The name in row %d has already been used before."), $i)) if ($new_units->{$form->{"name_$i"}}); - my %h = map({ $_ => $form->{"${_}_$i"} } qw(name base_unit factor old_name)); - $new_units->{$form->{"name_$i"}} = \%h; - $new_units->{$form->{"name_$i"}}->{"row"} = $i; - set_unit_languages($new_units->{$form->{"old_name_$i"}}, \@languages, $i); - } - - foreach $unit (values(%{$new_units})) { - next unless ($unit->{"old_name"}); - if ($unit->{"base_unit"}) { - $form->show_generic_error(sprintf($locale->text("The base unit does not exist or it is about to be deleted in row %d."), $unit->{"row"})) - unless (defined($new_units->{$unit->{"base_unit"}})); - $unit->{"factor"} = $form->parse_amount(\%myconfig, $unit->{"factor"}); - $form->show_generic_error(sprintf($locale->text("The factor is missing in row %d."), $unit->{"row"})) unless ($unit->{"factor"} >= 1.0); - } else { - $unit->{"base_unit"} = undef; - $unit->{"factor"} = undef; - } - } - - foreach $unit (values(%{$new_units})) { - next if ($unit->{"unchanged_unit"}); - - map({ $_->{"seen"} = 0; } values(%{$new_units})); - $new_unit = $unit; - while ($new_unit->{"base_unit"}) { - $new_unit->{"seen"} = 1; - $new_unit = $new_units->{$new_unit->{"base_unit"}}; - if ($new_unit->{"seen"}) { - $form->show_generic_error(sprintf($locale->text("The base unit relations must not contain loops (e.g. by saying that unit A's base unit is B, " . - "B's base unit is C and C's base unit is A) in row %d."), $unit->{"row"})); - } - } - } - - AM->save_units(\%myconfig, $form, $new_units, \@delete_units); - - $form->{"saved_message"} = $locale->text("The units have been saved."); - - edit_units(); - - $lxdebug->leave_sub(); -} - -sub show_history_search { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - $form->{title} = $locale->text("History Search"); - $form->header(); - - print $form->parse_html_template("common/search_history"); - - $lxdebug->leave_sub(); -} - -sub show_am_history { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - my %search = ( "Artikelnummer" => "parts", - "Kundennummer" => "customer", - "Lieferantennummer" => "vendor", - "Projektnummer" => "project", - "Buchungsnummer" => "oe", - "Eingangsrechnungnummer" => "ap", - "Ausgangsrechnungnummer" => "ar", - "Mahnungsnummer" => "dunning" - ); my %searchNo = ( "Artikelnummer" => "partnumber", "Kundennummer" => "customernumber", "Lieferantennummer" => "vendornumber", - "Projektnummer" => "projectnummer", - "Buchungsnummer" => "ordnumber", + "Projektnummer" => "projectnumber", + "Auftragsnummer" => "ordnumber", + "Angebotsnummer" => "quonumber", "Eingangsrechnungnummer" => "invnumber", "Ausgangsrechnungnummer" => "invnumber", - "Mahnungsnummer" => "dunning_id" + "Mahnungsnummer" => "dunning_id", + "Buchungsnummer" => "gltransaction" ); my $dbh = $form->dbconnect(\%myconfig); - my $restriction = qq| AND (| . join(' OR ', map { " addition = " . $dbh->quote($_) } split(m/\,/, $form->{einschraenkungen})) . qq|)| if $form->{einschraenkungen}; + my $restriction; + $restriction = qq| AND (| . join(' OR ', map { " addition = " . $dbh->quote($_) } split(m/\,/, $form->{einschraenkungen})) . qq|)| if $form->{einschraenkungen}; $restriction .= qq| AND h.itime::date >= | . conv_dateq($form->{fromdate}) if $form->{fromdate}; $restriction .= qq| AND h.itime::date <= | . conv_dateq($form->{todate}) if $form->{todate}; - $restriction .= qq| AND employee_id = | . $form->{mitarbeiter} if $form->{mitarbeiter} =~ m/^\d+$/; - $restriction .= qq| AND employee_id = | . get_employee_id($form->{mitarbeiter}, $dbh) if $form->{mitarbeiter}; + if ($form->{mitarbeiter} =~ m/^\d+$/) { + $restriction .= qq| AND employee_id = | . $form->{mitarbeiter}; + } elsif ($form->{mitarbeiter}) { + $restriction .= qq| AND employee_id = (SELECT id FROM employee WHERE name ILIKE | . $dbh->quote('%' . $form->{mitarbeiter} . '%') . qq|)|; + } - my $query = qq|SELECT trans_id AS id FROM history_erp | . - ( $form->{'searchid'} ? qq| WHERE snumbers = '| . $searchNo{$form->{'what2search'}} . qq|_| . $form->{'searchid'} . qq|'| - : qq| WHERE snumbers ~ '^| . $searchNo{$form->{'what2search'}} . qq|'|); + my $snumbers_where = ''; + my $snumbers_value; + if ($form->{'searchid'}) { + $snumbers_where = ' WHERE snumbers = ?'; + $snumbers_value = $searchNo{$form->{'what2search'}} . '_' . $form->{'searchid'}; + } else { + $snumbers_where = ' WHERE snumbers ~ ?'; + $snumbers_value = '^' . $searchNo{$form->{'what2search'}}; + } + my $query = qq|SELECT trans_id AS id FROM history_erp $snumbers_where|; - my @ids = selectall_array_query($form, $dbh, $query); + my @ids = grep { $_ * 1 } selectall_array_query($form, $dbh, $query, $snumbers_value); my $daten .= shift @ids; - $daten .= join '', map { " OR trans_id = $_" } @ids; - + if (scalar(@ids) > 0 ) { + $daten .= ' OR trans_id IN (' . join(',', @ids) . ')'; + } my ($sort, $sortby) = split(/\-\-/, $form->{order}); $sort =~ s/.*\.(.*)$/$1/; + setup_am_show_am_history_action_bar(); + $form->{title} = $locale->text("History Search"); $form->header(); @@ -2864,44 +1073,21 @@ sub show_am_history { "SUCCESS" => ($form->get_history($dbh, $daten, $restriction, $form->{order}) ne "0"), "NONEWWINDOW" => 1, uc($sort) => 1, - uc($sort) . "BY" => $sortby + uc($sort) . "BY" => $sortby, + 'callback' => $callback, }); $dbh->disconnect(); - $lxdebug->leave_sub(); -} - -sub get_employee_id { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - my $query = qq|SELECT id FROM employee WHERE name = '| . $_[0] . qq|'|; - my $sth = $_[1]->prepare($query); - $sth->execute() || $form->dberror($query); - my $return = $sth->fetch(); - $sth->finish(); - return ${$return}[0]; - $lxdebug->leave_sub(); -} - -sub swap_units { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - my $dir = $form->{"dir"} eq "down" ? "down" : "up"; - AM->swap_units(\%myconfig, $form, $dir, $form->{"name"}); - - edit_units(); - - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub add_tax { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; - $auth->assert('config'); + $main::auth->assert('config'); $form->{title} = $locale->text('Add'); @@ -2909,45 +1095,72 @@ sub add_tax { _get_taxaccount_selection(); + $form->{asset} = 1; + $form->{liability} = 1; + $form->{equity} = 1; + $form->{revenue} = 1; + $form->{expense} = 1; + $form->{costs} = 1; + + setup_am_edit_tax_action_bar(); $form->header(); my $parameters_ref = { -# ChartTypeIsAccount => $ChartTypeIsAccount, + LANGUAGES => SL::DB::Manager::Language->get_all_sorted, }; # Ausgabe des Templates print($form->parse_html_template('am/edit_tax', $parameters_ref)); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub edit_tax { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $auth->assert('config'); + $main::auth->assert('config'); $form->{title} = $locale->text('Edit'); AM->get_tax(\%myconfig, \%$form); + _get_taxaccount_selection(); + $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->{rate} = $form->format_amount(\%myconfig, $form->{rate}, 2); + setup_am_edit_tax_action_bar(); $form->header(); my $parameters_ref = { + LANGUAGES => SL::DB::Manager::Language->get_all_sorted, + TAX => SL::DB::Manager::Tax->find_by(id => $form->{id}), }; # Ausgabe des Templates print($form->parse_html_template('am/edit_tax', $parameters_ref)); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub list_tax { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); AM->taxes(\%myconfig, \%$form); @@ -2957,37 +1170,49 @@ sub list_tax { $form->{title} = $locale->text('Tax-O-Matic'); + setup_am_list_tax_action_bar(); $form->header(); # Ausgabe des Templates - print($form->parse_html_template('am/list_tax', $parameters_ref)); + print($form->parse_html_template('am/list_tax')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub _get_taxaccount_selection{ - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; - $auth->assert('config'); + $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 save_tax { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->isblank("rate", $locale->text('Taxrate missing!')); - $form->isblank("taxdescription", $locale->text('Taxdescription missing!')); - $form->isblank("taxkey", $locale->text('Taxkey missing!')); + $main::auth->assert('config'); + + $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; $form->{rate} = $form->parse_amount(\%myconfig, $form->{rate}); + if ($form->{taxkey} == 0 and $form->{rate} > 0) { + $form->error($locale->text('Taxkey 0 is reserved for rate 0')); + } + if ( $form->{rate} < 0 || $form->{rate} >= 100 ) { $form->error($locale->text('Tax Percent is a number between 0 and 100')); } @@ -2996,254 +1221,403 @@ sub save_tax { $form->error($locale->text('Tax Percent is a number between 0 and 100')); } + my @translation_keys = grep { $_ =~ '^translation_\d+' } keys %$form; + $form->{translations} = { map { $_ =~ '^translation_(\d+)'; $1 => $form->{$_} } @translation_keys }; + AM->save_tax(\%myconfig, \%$form); - $form->redirect($locale->text('Tax saved!')); + flash_later('info', $locale->text("Tax saved!")); - $lxdebug->leave_sub(); + print $form->redirect_header('am.pl?action=list_tax'); + + $main::lxdebug->leave_sub(); } sub delete_tax { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $auth->assert('config'); + $main::auth->assert('config'); AM->delete_tax(\%myconfig, \%$form); $form->redirect($locale->text('Tax deleted!')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub add_price_factor { - $lxdebug->enter_sub(); +sub add_warehouse { + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my $locale = $main::locale; - $form->{title} = $locale->text('Add Price Factor'); - $form->{callback} ||= build_std_url('action=add_price_factor'); - $form->{fokus} = 'description'; + $main::auth->assert('config'); - $form->header(); - print $form->parse_html_template('am/edit_price_factor'); + $form->{title} = $locale->text('Add Warehouse'); + $form->{callback} ||= build_std_url('action=add_warehouse'); - $lxdebug->leave_sub(); -} + setup_am_edit_warehouse_action_bar(); -sub edit_price_factor { - $lxdebug->enter_sub(); + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); - $auth->assert('config'); + $main::lxdebug->leave_sub(); +} - $form->{title} = $locale->text('Edit Price Factor'); - $form->{callback} ||= build_std_url('action=add_price_factor'); - $form->{fokus} = 'description'; +sub edit_warehouse { + $main::lxdebug->enter_sub(); - AM->get_price_factor(\%myconfig, $form); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->{factor} = $form->format_amount(\%myconfig, $form->{factor} * 1); + $main::auth->assert('config'); - $form->header(); - print $form->parse_html_template('am/edit_price_factor'); + AM->get_warehouse(\%myconfig, $form); - $lxdebug->leave_sub(); -} + $form->get_lists('employees' => 'EMPLOYEES'); -sub list_price_factors { - $lxdebug->enter_sub(); + $form->{title} = $locale->text('Edit Warehouse'); + $form->{callback} ||= build_std_url('action=list_warehouses'); - $auth->assert('config'); + setup_am_edit_warehouse_action_bar(id => $::form->{id}, in_use => any { $_->{in_use} } @{ $::form->{BINS} }); - AM->get_all_price_factors(\%myconfig, \%$form); + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); - my $previous; - foreach my $current (@{ $form->{PRICE_FACTORS} }) { - if ($previous) { - $previous->{next_id} = $current->{id}; - $current->{previous_id} = $previous->{id}; - } + $main::lxdebug->leave_sub(); +} - $current->{factor} = $form->format_amount(\%myconfig, $current->{factor} * 1); +sub edit_bins { + $::auth->assert('config'); - $previous = $current; - } + AM->get_warehouse(\%::myconfig, $::form); - $form->{callback} = build_std_url('action=list_price_factors'); - $form->{title} = $locale->text('Price Factors'); - $form->{url_base} = build_std_url('callback'); + $::form->{title} = $::locale->text('Edit Bins for Warehouse \'#1\'', $::form->{description}); + $::form->{callback} ||= build_std_url('action=list_warehouses'); - $form->header(); - print $form->parse_html_template('am/list_price_factors'); + setup_am_edit_bins_action_bar(id => $::form->{id}); - $lxdebug->leave_sub(); + $::form->header; + print $::form->parse_html_template('am/edit_bins'); } -sub save_price_factor { - $lxdebug->enter_sub(); +sub list_warehouses { + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->isblank("description", $locale->text('Description missing!')); - $form->isblank("factor", $locale->text('Factor missing!')); + $main::auth->assert('config'); - $form->{factor} = $form->parse_amount(\%myconfig, $form->{factor}); + AM->get_all_warehouses(\%myconfig, $form); - AM->save_price_factor(\%myconfig, $form); + $form->{callback} = build_std_url('action=list_warehouses'); + $form->{title} = $locale->text('Warehouses'); + $form->{url_base} = build_std_url('callback'); - $form->{callback} .= '&MESSAGE=' . $form->escape($locale->text('Price factor saved!')) if ($form->{callback}); + setup_am_list_warehouses_action_bar(); - $form->redirect($locale->text('Price factor saved!')); + $form->header(); + print $form->parse_html_template('am/list_warehouses'); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub delete_price_factor { - $lxdebug->enter_sub(); - - $auth->assert('config'); +sub save_warehouse { + $main::lxdebug->enter_sub(); - AM->delete_price_factor(\%myconfig, \%$form); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->{callback} .= '&MESSAGE=' . $form->escape($locale->text('Price factor deleted!')) if ($form->{callback}); + $main::auth->assert('config'); - $form->redirect($locale->text('Price factor deleted!')); + $form->isblank("description", $locale->text('Description missing!')); - $lxdebug->leave_sub(); -} + $form->{number_of_new_bins} = $form->parse_amount(\%myconfig, $form->{number_of_new_bins}); -sub swap_price_factors { - $lxdebug->enter_sub(); + AM->save_warehouse(\%myconfig, $form); - $auth->assert('config'); + $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse saved.')) if ($form->{callback}); - AM->swap_sortkeys(\%myconfig, $form, 'price_factors'); - list_price_factors(); + $form->redirect($locale->text('Warehouse saved.')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub add_warehouse { - $lxdebug->enter_sub(); +sub delete_warehouse { + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - $form->{title} = $locale->text('Add Warehouse'); - $form->{callback} ||= build_std_url('action=add_warehouse'); - $form->{fokus} = 'description'; + $main::auth->assert('config'); - $form->header(); - print $form->parse_html_template('am/edit_warehouse'); + if (AM->delete_warehouse(\%myconfig, $form)) { + $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse deleted.')) if ($form->{callback}); + $form->redirect($locale->text('Warehouse deleted.')); + + } else { + $form->error($locale->text('The warehouse could not be deleted because it has already been used.')); + } - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub edit_warehouse { - $lxdebug->enter_sub(); +sub save_bin { + $main::lxdebug->enter_sub(); - $auth->assert('config'); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; - AM->get_warehouse(\%myconfig, $form); + $main::auth->assert('config'); - $form->get_lists('employees' => 'EMPLOYEES'); + AM->save_bins(\%myconfig, $form); - $form->{title} = $locale->text('Edit Warehouse'); - $form->{callback} ||= build_std_url('action=list_warehouses'); - $form->{fokus} = 'description'; + $form->{callback} .= '&saved_message=' . E($locale->text('Bins saved.')) if ($form->{callback}); - $form->header(); - print $form->parse_html_template('am/edit_warehouse'); + $form->redirect($locale->text('Bins saved.')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } -sub list_warehouses { - $lxdebug->enter_sub(); - - $auth->assert('config'); +sub setup_am_config_action_bar { + my %params = @_; - AM->get_all_warehouses(\%myconfig, $form); - - my $previous; - foreach my $current (@{ $form->{WAREHOUSES} }) { - if ($previous) { - $previous->{next_id} = $current->{id}; - $current->{previous_id} = $previous->{id}; - } + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => "save_preferences" } ], + accesskey => 'enter', + ], + ); + } +} - $previous = $current; +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->{callback} = build_std_url('action=list_warehouses'); - $form->{title} = $locale->text('Warehouses'); - $form->{url_base} = build_std_url('callback'); +sub setup_am_list_tax_action_bar { + my %params = @_; - $form->header(); - print $form->parse_html_template('am/list_warehouses'); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + link => [ + t8('Add'), + link => 'am.pl?action=add_tax', + ], + ); + } +} - $lxdebug->leave_sub(); +sub setup_am_edit_tax_action_bar { + my %params = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => "save_tax" } ], + accesskey => 'enter', + ], + + action => [ + t8('Delete'), + submit => [ '#form', { action => "delete_tax" } ], + disabled => !$::form->{id} ? t8('The object has not been saved yet.') + : !$::form->{orphaned} || $::form->{tax_already_used} ? t8('The object is in use and cannot be deleted.') + : undef, + confirm => t8('Do you really want to delete this object?'), + ], + ); + } } -sub save_warehouse { - $lxdebug->enter_sub(); +sub setup_am_add_unit_action_bar { + my %params = @_; - $auth->assert('config'); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => "create_unit" } ], + accesskey => 'enter', + ], - $form->isblank("description", $locale->text('Description missing!')); + 'separator', - $form->{number_of_new_bins} = $form->parse_amount(\%myconfig, $form->{number_of_new_bins}); + link => [ + t8('Back'), + link => 'am.pl?action=edit_units', + ], + ); + } +} - AM->save_warehouse(\%myconfig, $form); +sub setup_am_edit_units_action_bar { + my %params = @_; - $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse saved.')) if ($form->{callback}); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => "save_unit" } ], + accesskey => 'enter', + ], - $form->redirect($locale->text('Warehouse saved.')); + 'separator', - $lxdebug->leave_sub(); + link => [ + t8('Add'), + link => 'am.pl?action=add_unit', + ], + ); + } } -sub swap_warehouses { - $lxdebug->enter_sub(); - - $auth->assert('config'); +sub setup_am_list_warehouses_action_bar { + my %params = @_; - AM->swap_sortkeys(\%myconfig, $form, 'warehouse'); - list_warehouses(); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + link => [ + t8('Add'), + link => 'am.pl?action=add&type=warehouse&callback=' . E($::form->{callback}), + accesskey => 'enter', + ], + ); + } +} - $lxdebug->leave_sub(); +sub setup_am_edit_warehouse_action_bar { + my %params = @_; + + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => 'save_warehouse' } ], + accesskey => 'enter', + ], + + action => [ + t8('Delete'), + submit => [ '#form', { action => 'delete_warehouse' } ], + disabled => !$params{id} ? t8('The object has not been saved yet.') + : $params{in_use} ? t8('The object is in use and cannot be deleted.') + : undef, + confirm => t8('Do you really want to delete this object?'), + ], + + 'separator', + + link => [ + t8('Bins'), + link => 'am.pl?action=edit_bins&id=' . E($params{id}), + only_if => $params{id}, + ], + + link => [ + t8('Abort'), + link => $::form->{callback} || 'am.pl?action=list_warehouses', + ], + ); + } } -sub delete_warehouse { - $lxdebug->enter_sub(); +sub setup_am_edit_bins_action_bar { + my %params = @_; - $auth->assert('config'); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => 'save_bin' } ], + accesskey => 'enter', + ], - if (!$form->{confirmed}) { - $form->{title} = $locale->text('Confirmation'); + 'separator', - $form->header(); - print $form->parse_html_template('am/confirm_delete_warehouse'); - exit 0; + link => [ + t8('Abort'), + link => 'am.pl?action=edit_warehouse&id=' . E($params{id}), + ], + ); } +} - if (AM->delete_warehouse(\%myconfig, $form)) { - $form->{callback} .= '&saved_message=' . E($locale->text('Warehouse deleted.')) if ($form->{callback}); - $form->redirect($locale->text('Warehouse deleted.')); +sub setup_am_audit_control_action_bar { + my %params = @_; - } else { - $form->error($locale->text('The warehouse could not be deleted because it has already been used.')); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Save'), + submit => [ '#form', { action => 'doclose' } ], + accesskey => 'enter', + ], + ); } - - $lxdebug->leave_sub(); } -sub save_bin { - $lxdebug->enter_sub(); - - $auth->assert('config'); - - AM->save_bins(\%myconfig, $form); +sub setup_am_show_history_search_action_bar { + my %params = @_; - $form->{callback} .= '&saved_message=' . E($locale->text('Bins saved.')) if ($form->{callback}); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Show'), + submit => [ '#form' ], + accesskey => 'enter', + ], + ); + } +} - $form->redirect($locale->text('Bins saved.')); +sub setup_am_show_am_history_action_bar { + my %params = @_; - $lxdebug->leave_sub(); + for my $bar ($::request->layout->get('actionbar')) { + $bar->add( + action => [ + t8('Back'), + call => [ 'kivi.history_back' ], + ], + ); + } }