X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=0aac5a17fa4b2b24e94787d8cc98fab5de02878b;hb=98ccfccb26e831dd0a12dcae229eabb33744ed8b;hp=87ec9b30de77fd7f4a1baf68f7b27992dbcb0836;hpb=c7f9da819e437745d637e714993959e57244655a;p=kivitendo-erp.git diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl index 87ec9b30d..1aca213e0 100644 --- a/bin/mozilla/am.pl +++ b/bin/mozilla/am.pl @@ -31,48 +31,62 @@ # #====================================================================== +use utf8; + +use SL::Auth; +use SL::Auth::PasswordPolicy; use SL::AM; use SL::CA; use SL::Form; use SL::User; use SL::USTVA; use SL::Iconv; -use CGI::Ajax; +use SL::TODO; +use SL::Printer; 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 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(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + + $main::auth->assert('config'); $form->{title} = "Add"; $form->{charttype} = "A"; AM->get_account(\%myconfig, \%$form); - $form->{callback} = - "$form->{script}?action=list_account&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; + + $main::auth->assert('config'); $form->{title} = "Edit"; AM->get_account(\%myconfig, \%$form); @@ -84,16 +98,22 @@ 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"); $form->{"$form->{charttype}_checked"} = "checked"; @@ -102,9 +122,9 @@ sub account_header { $form->{select_tax} = ""; my @tax_report_pos = USTVA->report_variables({ - myconfig => \%myconfig, - form => $form, - type => '', + myconfig => \%myconfig, + form => $form, + type => '', attribute => 'position', calc => '', }); @@ -115,7 +135,7 @@ sub account_header { } # Fill in empty row for new Taxkey - $newtaxkey_ref = { + my $newtaxkey_ref = { id => '', chart_id => '', accno => '', @@ -140,46 +160,46 @@ sub account_header { if ($item->{id} == $taxkey_used->{tax_id}) { $form->{ACCOUNT_TAXKEYS}[$i]{selecttaxkey} .= qq||; } - foreach $item (@{ $form->{NEWACCOUNT} }) { + foreach my $item (@{ $form->{NEWACCOUNT} }) { if ($item->{id} == $form->{new_chart_id}) { $form->{selectnewaccount} .= qq||; @@ -191,30 +211,31 @@ sub account_header { } } - $select_eur = q|\n|; - %eur = (1 => "Umsatzerlöse", - 2 => "sonstige Erlöse", + my $select_eur = q|\n|; + my %eur = ( + 1 => "Umsatzerlöse", + 2 => "sonstige Erlöse", 3 => "Privatanteile", - 4 => "Zinserträge", - 5 => "Ausserordentliche Erträge", + 4 => "Zinserträge", + 5 => "Ausserordentliche Erträge", 6 => "Vereinnahmte Umsatzst.", 7 => "Umsatzsteuererstattungen", - 8 => "Wareneingänge", - 9 => "Löhne und Gehälter", + 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", + 14 => "Steuern, Versich., Beiträge", 15 => "Kfz-Steuern", 16 => "Kfz-Versicherungen", - 17 => "Sonst. Fahrtkosten", + 17 => "Sonst. Fahrzeugkosten", 18 => "Werbe- und Reisekosten", 19 => "Instandhaltung u. Werkzeuge", - 20 => "Fachzeitschriften, Bücher", - 21 => "Miete für Einrichtungen", + 20 => "Fachzeitschriften, Bücher", + 21 => "Miete für Einrichtungen", 22 => "Rechts- und Beratungskosten", - 23 => "Bürobedarf, Porto, Telefon", + 23 => "Bürobedarf, Porto, Telefon", 24 => "Sonstige Aufwendungen", 25 => "Abschreibungen auf Anlagever.", 26 => "Abschreibungen auf GWG", @@ -223,8 +244,8 @@ sub account_header { 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})); + 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 { @@ -233,32 +254,33 @@ sub account_header { } - $select_bwa = q|\n|; + my $select_bwa = q|\n|; - %bwapos = (1 => 'Umsatzerlöse', + my %bwapos = ( + 1 => 'Umsatzerlöse', 2 => 'Best.Verdg.FE/UE', 3 => 'Aktiv.Eigenleistung', 4 => 'Mat./Wareneinkauf', - 5 => 'So.betr.Erlöse', + 5 => 'So.betr.Erlöse', 10 => 'Personalkosten', 11 => 'Raumkosten', 12 => 'Betriebl.Steuern', - 13 => 'Vers./Beiträge', + 13 => 'Vers./Beiträge', 14 => 'Kfz.Kosten o.St.', 15 => 'Werbe-Reisek.', 16 => 'Kosten Warenabgabe', 17 => 'Abschreibungen', 18 => 'Rep./instandhlt.', - 19 => 'Übrige Steuern', + 19 => 'Übrige Steuern', 20 => 'Sonst.Kosten', 30 => 'Zinsauwand', 31 => 'Sonst.neutr.Aufw.', - 32 => 'Zinserträge', + 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})); + 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|; - %category = ( + my $select_category = q|\n|; + + my %category = ( 'A' => $locale->text('Asset'), 'L' => $locale->text('Liability'), 'Q' => $locale->text('Equity'), - 'I' => $locale->text('Revenue'), + 'I' => $locale->text('Revenue'), '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| - - -
{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(); -} - -sub delete_language { - $lxdebug->enter_sub(); - - AM->delete_language(\%myconfig, \%$form); - $form->redirect($locale->text('Language deleted!')); - - $lxdebug->leave_sub(); -} - - -sub add_buchungsgruppe { - $lxdebug->enter_sub(); - - # $locale->text("Add Buchungsgruppe") - # $locale->text("Edit Buchungsgruppe") - $form->{title} = "Add"; - - $form->{callback} = - "$form->{script}?action=add_buchungsgruppe&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)); - } - - &buchungsgruppe_header; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub edit_buchungsgruppe { - $lxdebug->enter_sub(); - - $form->{title} = "Edit"; - - AM->get_buchungsgruppe(\%myconfig, \%$form); - - &buchungsgruppe_header; - - &form_footer; - - $lxdebug->leave_sub(); -} - -sub list_buchungsgruppe { - $lxdebug->enter_sub(); - - AM->buchungsgruppe(\%myconfig, \%$form); - - $form->{callback} = - "$form->{script}?action=list_buchungsgruppe&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('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|$form->{script}?action=swap_buchungsgruppen&|; - map({ $swap_link .= $_ . "=" . $form->escape($form->{$_}) . "&" } - qw(login password)); - - 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|{script}?action=edit_buchungsgruppe&id=$ref->{id}&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}
-

- -
-{script}> - - - - - -{login}> -{password}> - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub buchungsgruppe_header { - $lxdebug->enter_sub(); - - $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=$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 (!$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=$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('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=$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/; - } - - $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=$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/; - } - - $linkaccounts .= qq| - | . $locale->text('Foreign Revenues') . qq| - - - - | . $locale->text('Foreign Expenses') . qq| - - -|; - - - $form->header; - - print qq| - - -
{script}> - -{id}> - - - - - - - - - - - - $linkaccounts - - -
$form->{title}
| . $locale->text('Buchungsgruppe') . qq|

-|; - - $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('Accounting Group saved!')); - - $lxdebug->leave_sub(); -} - -sub delete_buchungsgruppe { - $lxdebug->enter_sub(); - - AM->delete_buchungsgruppe(\%myconfig, \%$form); - $form->redirect($locale->text('Accounting Group deleted!')); - - $lxdebug->leave_sub(); -} - -sub swap_buchungsgruppen { - $lxdebug->enter_sub(); - - AM->swap_sortkeys(\%myconfig, $form, "buchungsgruppen"); - list_buchungsgruppe(); - - $lxdebug->leave_sub(); -} - - -sub add_printer { - $lxdebug->enter_sub(); - - $form->{title} = "Add"; - - $form->{callback} = - "$form->{script}?action=add_printer&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"; - - AM->get_printer(\%myconfig, \%$form); - - &printer_header; - - $form->{orphaned} = 1; - &form_footer; - - $lxdebug->leave_sub(); -} - -sub list_printer { - $lxdebug->enter_sub(); - - AM->printer(\%myconfig, \%$form); - - $form->{callback} = - "$form->{script}?action=list_printer&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| - -|; - - 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| -
{script}?action=edit_printer&id=$ref->{id}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{printer_description}$ref->{printer_command}$ref->{template_code}
-

- -
-{script}> - - - - - -{login}> -{password}> - - - -
- - - -|; - - $lxdebug->leave_sub(); -} - -sub printer_header { - $lxdebug->enter_sub(); - - $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| - - -
{script}> - -{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(); - - $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(); - - AM->delete_printer(\%myconfig, \%$form); - $form->redirect($locale->text('Printer deleted!')); - - $lxdebug->leave_sub(); -} - -sub add_payment { - $lxdebug->enter_sub(); - - $form->{title} = "Add"; - - $form->{callback} = - "$form->{script}?action=add_payment&login=$form->{login}&password=$form->{password}" - 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(); - - $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(); - - 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|%
-

- -
-{script}> - - - - - -{login}> -{password}> - - - -
- - - -|; - - $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') - - $form->{description} =~ s/\"/"/g; - - - - $form->header; - - print qq| - - -
{script}> - -{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(); - - $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(); -} - -sub swap_payment_terms { - $lxdebug->enter_sub(); - - AM->swap_sortkeys(\%myconfig, $form, "payment_terms"); - list_payment(); - - $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}) - ? ""; - } + $form->{stylesheet} = $form->{usestylesheet}; - 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||; - } + TODO->save_user_config('login' => $form->{login}, %{ $form->{todo_cfg} || { } }); - %countrycodes = User->country_codes; - $countrycodes = ''; - foreach $key (sort { $countrycodes{$a} cmp $countrycodes{$b} } - keys %countrycodes - ) { - $countrycodes .= - ($myconfig{countrycode} eq $key) - ? "
- - - -|; - - $lxdebug->leave_sub(); -} - -sub save_preferences { - $lxdebug->enter_sub(); - - $form->{stylesheet} = $form->{usestylesheet}; - - $form->redirect($locale->text('Preferences saved!')) - if ( - AM->save_preferences(\%myconfig, \%$form, $memberfile, $userspath, $webdav - )); $form->error($locale->text('Cannot save preferences!')); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub audit_control { - $lxdebug->enter_sub(); + $::lxdebug->enter_sub; + $::auth->assert('config'); - $form->{title} = $locale->text('Audit Control'); + $::form->{title} = $::locale->text('Audit Control'); - AM->closedto(\%myconfig, \%$form); + AM->closedto(\%::myconfig, $::form); - if ($form->{revtrans}) { - $checked{Y} = "checked"; - } else { - $checked{N} = "checked"; - } - - $form->header; + $::form->header; + print $::form->parse_html_template('am/audit_control'); - print qq| - - -
{script}> - -{login}> -{password}> - - - - - - - -
$form->{title}
- - - - - - - - -
| - . $locale->text('Enforce transaction reversal for all dates') . qq| - | - . $locale->text('Yes') - . qq| | - . $locale->text('No') - . qq|
| . $locale->text('Close Books up to') . qq|{closedto}>
-
- -
- -
- - - - -
- - - -|; - - $lxdebug->leave_sub(); + $::lxdebug->leave_sub; } sub doclose { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); AM->closebooks(\%myconfig, \%$form); - if ($form->{revtrans}) { + if ($form->{closedto}) { $form->redirect( - $locale->text('Transaction reversal enforced for all dates')); + $locale->text('Books closed up to') . " " + . $locale->date(\%myconfig, $form->{closedto}, 1)); } else { - if ($form->{closedto}) { - $form->redirect( - $locale->text('Transaction reversal enforced up to') . " " - . $locale->date(\%myconfig, $form->{closedto}, 1)); - } else { - $form->redirect($locale->text('Books are open')); - } + $form->redirect($locale->text('Books are open')); } - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub edit_units { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}, "resolved_"); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + my $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); + my @languages = AM->language(\%myconfig, $form, 1); - @unit_list = sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } values(%{$units})); + my @unit_list = sort({ $a->{"sortkey"} <=> $b->{"sortkey"} } values(%{$units})); my $i = 1; foreach (@unit_list) { @@ -2868,28 +1192,32 @@ sub edit_units { $i++; } - $units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}); - $ddbox = AM->unit_select_data($units, undef, 1); - - my $updownlink = build_std_url("action=swap_units", "unit_type"); + $units = AM->retrieve_units(\%myconfig, $form); + my $ddbox = AM->unit_select_data($units, undef, 1); - $form->{"title"} = sprintf($locale->text("Add and edit %s"), $form->{"unit_type"} eq "dimension" ? $locale->text("dimension units") : $locale->text("service units")); + $form->{"title"} = $locale->text("Add and edit units"); $form->header(); print($form->parse_html_template("am/edit_units", - { "UNITS" => \@unit_list, + { "UNITS" => \@unit_list, "NEW_BASE_UNIT_DDBOX" => $ddbox, - "LANGUAGES" => \@languages, - "updownlink" => $updownlink })); + "LANGUAGES" => \@languages, + })); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub add_unit { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); $form->isblank("new_name", $locale->text("The name is missing.")); - $units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}); - $all_units = AM->retrieve_units(\%myconfig, $form); + my $units = AM->retrieve_units(\%myconfig, $form); + my $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); @@ -2911,17 +1239,21 @@ sub add_unit { }); } - AM->add_unit(\%myconfig, $form, $form->{"new_name"}, $base_unit, $factor, $form->{"unit_type"}, \@languages); + 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(); + $main::lxdebug->leave_sub(); } sub set_unit_languages { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + + $main::auth->assert('config'); my ($unit, $languages, $idx) = @_; @@ -2935,21 +1267,27 @@ sub set_unit_languages { }); } - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub save_unit { - $lxdebug->enter_sub(); + $main::lxdebug->enter_sub(); - $old_units = AM->retrieve_units(\%myconfig, $form, $form->{"unit_type"}, "resolved_"); + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + my $old_units = AM->retrieve_units(\%myconfig, $form, "resolved_"); AM->units_in_use(\%myconfig, $form, $old_units); - @languages = AM->language(\%myconfig, $form, 1); + my @languages = AM->language(\%myconfig, $form, 1); - $new_units = {}; - @delete_units = (); - foreach $i (1..($form->{"rowcount"} * 1)) { - $old_unit = $old_units->{$form->{"old_name_$i"}}; + my $new_units = {}; + my @delete_units = (); + foreach my $i (1..($form->{"rowcount"} * 1)) { + my $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)); } @@ -2979,7 +1317,7 @@ sub save_unit { set_unit_languages($new_units->{$form->{"old_name_$i"}}, \@languages, $i); } - foreach $unit (values(%{$new_units})) { + foreach my $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"})) @@ -2992,11 +1330,11 @@ sub save_unit { } } - foreach $unit (values(%{$new_units})) { + foreach my $unit (values(%{$new_units})) { next if ($unit->{"unchanged_unit"}); map({ $_->{"seen"} = 0; } values(%{$new_units})); - $new_unit = $unit; + my $new_unit = $unit; while ($new_unit->{"base_unit"}) { $new_unit->{"seen"} = 1; $new_unit = $new_units->{$new_unit->{"base_unit"}}; @@ -3007,160 +1345,135 @@ sub save_unit { } } - AM->save_units(\%myconfig, $form, $form->{"unit_type"}, $new_units, \@delete_units); + AM->save_units(\%myconfig, $form, $new_units, \@delete_units); $form->{"saved_message"} = $locale->text("The units have been saved."); edit_units(); - $lxdebug->leave_sub(); + $main::lxdebug->leave_sub(); } sub show_history_search { - $lxdebug->enter_sub(); - - $form->{title} = $locale->text("History Search"); - $form->header(); - - print $form->parse_html_template("/common/search_history"); - - $lxdebug->leave_sub(); + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; + + $main::auth->assert('config'); + + $form->{title} = $locale->text("History Search"); + $form->header(); + + print $form->parse_html_template("common/search_history"); + + $main::lxdebug->leave_sub(); } sub show_am_history { - $lxdebug->enter_sub(); - 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", - "Eingangsrechnungnummer" => "invnumber", - "Ausgangsrechnungnummer" => "invnumber", - "Mahnungsnummer" => "dunning_id" - ); - - my $restriction; - my $tempNo = 0; - foreach(split(/\,/, $form->{einschraenkungen})) { - if($tempNo == 0) { - $restriction .= " AND addition = '" . $_ . "'"; - $tempNo = 1; - } - else { - $restriction .= " OR addition = '" . $_ . "'"; - } - } - $restriction .= (($form->{transdate} ne "" && $form->{reqdate} ne "") - ? qq| AND st.itime::date >= '| . $form->{transdate} . qq|' AND st.itime::date <= '| . $form->{reqdate} . qq|'| - : (($form->{transdate} ne "" && $form->{reqdate} eq "") - ? qq| AND st.itime::date >= '| . $form->{transdate} . qq|'| - : ($form->{transdate} eq "" && $form->{reqdate} ne "") - ? qq| AND st.itime::date <= '| . $form->{reqdate} . qq|'| - : "" - ) - ); - $restriction .= ($form->{mitarbeiter} eq "" ? "" - : ($form->{mitarbeiter} =~ /^[0-9]*$/ - ? " AND employee_id = " . $form->{mitarbeiter} - : " AND employee_id = " . &get_employee_id($form->{mitarbeiter}, $dbh))); - - my $dbh = $form->dbconnect(\%myconfig); - 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 $sth = $dbh->prepare($query); - - $sth->execute() || $form->dberror($query); - - $form->{title} = $locale->text("History Search"); - $form->header(); - - my $i = 1; - my $daten = qq||; - while(my $hash_ref = $sth->fetchrow_hashref()){ - if($i) { - $daten .= $hash_ref->{id}; - $i = 0; - } - else { - $daten .= " OR trans_id = " . $hash_ref->{id}; - } + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + my $callback = build_std_url(qw(action einschraenkungen fromdate todate mitarbeiter searchid what2search)); + $form->{order} ||= 'h.itime--1'; + + 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" => "projectnumber", + "Buchungsnummer" => "ordnumber", + "Eingangsrechnungnummer" => "invnumber", + "Ausgangsrechnungnummer" => "invnumber", + "Mahnungsnummer" => "dunning_id" + ); + + my $dbh = $form->dbconnect(\%myconfig); + + 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}; + 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 ($sort, $sortby) = split(/\-\-/, $form->{order}); - $sort =~ s/.*\.(.*)$/$1/; - print $form->parse_html_template("/common/show_history", - {"DATEN" => $form->get_history($dbh, $daten, $restriction, $form->{order}), - "SUCCESS" => ($form->get_history($dbh, $daten, $restriction, $form->{order}) ne "0"), - "NONEWWINDOW" => 1, - uc($sort) => 1, - uc($sort)."BY" => $sortby - }); - $dbh->disconnect(); - $lxdebug->leave_sub(); -} + 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|'|); -sub get_employee_id { - $lxdebug->enter_sub(); - 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(); -} + my @ids = grep { $_ * 1 } selectall_array_query($form, $dbh, $query); + my $daten .= shift @ids; + $daten .= join '', map { " OR trans_id = $_" } @ids; -sub swap_units { - $lxdebug->enter_sub(); + my ($sort, $sortby) = split(/\-\-/, $form->{order}); + $sort =~ s/.*\.(.*)$/$1/; - my $dir = $form->{"dir"} eq "down" ? "down" : "up"; - my $unit_type = $form->{"unit_type"} eq "dimension" ? - "dimension" : "service"; - AM->swap_units(\%myconfig, $form, $dir, $form->{"name"}, $unit_type); + $form->{title} = $locale->text("History Search"); + $form->header(); - edit_units(); + print $form->parse_html_template("common/show_history", + { "DATEN" => $form->get_history($dbh, $daten, $restriction, $form->{order}), + "SUCCESS" => ($form->get_history($dbh, $daten, $restriction, $form->{order}) ne "0"), + "NONEWWINDOW" => 1, + uc($sort) => 1, + uc($sort) . "BY" => $sortby, + 'callback' => $callback, + }); + $dbh->disconnect(); - $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; + + $main::auth->assert('config'); $form->{title} = $locale->text('Add'); - $form->{callback} = - "$form->{script}?action=add_tax&login=$form->{login}&password=$form->{password}" - unless $form->{callback}; + $form->{callback} ||= "am.pl?action=add_tax"; _get_taxaccount_selection(); $form->header(); - + my $parameters_ref = { # ChartTypeIsAccount => $ChartTypeIsAccount, }; - + # Ausgabe des Templates - print($form->parse_html_template2('am/edit_tax', $parameters_ref)); + 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; + + $main::auth->assert('config'); $form->{title} = $locale->text('Edit'); @@ -3170,18 +1483,24 @@ sub edit_tax { $form->{rate} = $form->format_amount(\%myconfig, $form->{rate}, 2); $form->header(); - + my $parameters_ref = { }; - + # Ausgabe des Templates - print($form->parse_html_template2('am/edit_tax', $parameters_ref)); + 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(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); AM->taxes(\%myconfig, \%$form); @@ -3192,52 +1511,308 @@ sub list_tax { $form->{title} = $locale->text('Tax-O-Matic'); $form->header(); - + + my $parameters_ref = { + }; + # Ausgabe des Templates - print($form->parse_html_template2('am/list_tax', $parameters_ref)); + print($form->parse_html_template('am/list_tax', $parameters_ref)); - $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; + + $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(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); - $form->isblank("chart_id", $locale->text('Tax-O-Matic account missing!')); $form->isblank("rate", $locale->text('Taxrate missing!')); $form->isblank("taxdescription", $locale->text('Taxdescription missing!')); $form->isblank("taxkey", $locale->text('Taxkey missing!')); $form->{rate} = $form->parse_amount(\%myconfig, $form->{rate}); - if ( $form->{rate} <= 0 || $form->{rate} >= 100 ) { + if ( $form->{rate} < 0 || $form->{rate} >= 100 ) { $form->error($locale->text('Tax Percent is a number between 0 and 100')); } - if ( $form->{rate} <= 0.99 && $form->{rate} >= 0 ) { + if ( $form->{rate} <= 0.99 && $form->{rate} > 0 ) { $form->error($locale->text('Tax Percent is a number between 0 and 100')); - } + } AM->save_tax(\%myconfig, \%$form); $form->redirect($locale->text('Tax saved!')); - $lxdebug->leave_sub(); + $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; + + $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 { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; + + $main::auth->assert('config'); + + $form->{title} = $locale->text('Add Price Factor'); + $form->{callback} ||= build_std_url('action=add_price_factor'); + $form->{fokus} = 'description'; + + $form->header(); + print $form->parse_html_template('am/edit_price_factor'); + + $main::lxdebug->leave_sub(); +} + +sub edit_price_factor { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + $form->{title} = $locale->text('Edit Price Factor'); + $form->{callback} ||= build_std_url('action=add_price_factor'); + $form->{fokus} = 'description'; + + AM->get_price_factor(\%myconfig, $form); + + $form->{factor} = $form->format_amount(\%myconfig, $form->{factor} * 1); + + $form->header(); + print $form->parse_html_template('am/edit_price_factor'); + + $main::lxdebug->leave_sub(); +} + +sub list_price_factors { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + AM->get_all_price_factors(\%myconfig, \%$form); + + foreach my $current (@{ $form->{PRICE_FACTORS} }) { + $current->{factor} = $form->format_amount(\%myconfig, $current->{factor} * 1); + } + + $form->{callback} = build_std_url('action=list_price_factors'); + $form->{title} = $locale->text('Price Factors'); + $form->{url_base} = build_std_url('callback'); + + $form->header(); + print $form->parse_html_template('am/list_price_factors'); + + $main::lxdebug->leave_sub(); +} + +sub save_price_factor { + $main::lxdebug->enter_sub(); + + 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("factor", $locale->text('Factor missing!')); + + $form->{factor} = $form->parse_amount(\%myconfig, $form->{factor}); + + AM->save_price_factor(\%myconfig, $form); + + $form->{callback} .= '&MESSAGE=' . $form->escape($locale->text('Price factor saved!')) if ($form->{callback}); + + $form->redirect($locale->text('Price factor saved!')); + + $main::lxdebug->leave_sub(); +} + +sub delete_price_factor { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + AM->delete_price_factor(\%myconfig, \%$form); + + $form->{callback} .= '&MESSAGE=' . $form->escape($locale->text('Price factor deleted!')) if ($form->{callback}); + + $form->redirect($locale->text('Price factor deleted!')); + + $main::lxdebug->leave_sub(); +} + +sub add_warehouse { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my $locale = $main::locale; + + $main::auth->assert('config'); + + $form->{title} = $locale->text('Add Warehouse'); + $form->{callback} ||= build_std_url('action=add_warehouse'); + $form->{fokus} = 'description'; + + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); + + $main::lxdebug->leave_sub(); +} + +sub edit_warehouse { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + AM->get_warehouse(\%myconfig, $form); + + $form->get_lists('employees' => 'EMPLOYEES'); + + $form->{title} = $locale->text('Edit Warehouse'); + $form->{callback} ||= build_std_url('action=list_warehouses'); + $form->{fokus} = 'description'; + + $form->header(); + print $form->parse_html_template('am/edit_warehouse'); + + $main::lxdebug->leave_sub(); +} + +sub list_warehouses { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + AM->get_all_warehouses(\%myconfig, $form); + + $form->{callback} = build_std_url('action=list_warehouses'); + $form->{title} = $locale->text('Warehouses'); + $form->{url_base} = build_std_url('callback'); + + $form->header(); + print $form->parse_html_template('am/list_warehouses'); + + $main::lxdebug->leave_sub(); +} + +sub save_warehouse { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + $form->isblank("description", $locale->text('Description missing!')); + + $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.')); + + $main::lxdebug->leave_sub(); +} + +sub delete_warehouse { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + if (!$form->{confirmed}) { + $form->{title} = $locale->text('Confirmation'); + + $form->header(); + print $form->parse_html_template('am/confirm_delete_warehouse'); + ::end_of_request(); + } + + 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.')); + } + + $main::lxdebug->leave_sub(); +} + +sub save_bin { + $main::lxdebug->enter_sub(); + + my $form = $main::form; + my %myconfig = %main::myconfig; + my $locale = $main::locale; + + $main::auth->assert('config'); + + AM->save_bins(\%myconfig, $form); + + $form->{callback} .= '&saved_message=' . E($locale->text('Bins saved.')) if ($form->{callback}); + + $form->redirect($locale->text('Bins saved.')); + + $main::lxdebug->leave_sub(); }