<tr>
<th align=right>| . $locale->text('Steuersatz') . qq|</th>
<td><select name=tax>$form->{selecttaxkey}</select></td>
- <th align=right>| . $locale->text('Gültig ab') . qq|</th>
+ <th align=right>| . $locale->text('Gültig ab') . qq|</th>
<td><input name=startdate value="$form->{startdate}"></td>
</tr>|;
<tr>
<th align=right>| . $locale->text('Folgekonto') . qq|</th>
<td><select name=new_chart_id>$form->{selectnewaccount}</select></td>
- <th align=right>| . $locale->text('Gültig ab') . qq|</th>
+ <th align=right>| . $locale->text('Gültig ab') . qq|</th>
<td><input name=valid_from value="$form->{valid_from}"></td>
</tr>
</table>
</tr>|;
$form->{selecteur} = "<option>\n";
- %eur = (1 => "Umsatzerlöse",
- 2 => "sonstige Erlöse",
+ %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",
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",
$form->{selectbwa} = "<option>\n";
- %bwapos = (1 => 'Umsatzerlöse',
+ %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.');
|;
$discount =
- $form->format_amount(\%myconfig, $ref->{discount} * 100, 1, " ");
+ $form->format_amount(\%myconfig, $ref->{discount} * 100);
$description =
($ref->{salesman})
? "<b>$ref->{description}</b>"
$lxdebug->enter_sub();
$form->isblank("description", $locale->text('Description missing!'));
+ $form->{discount} = $form->parse_amount(\%myconfig, $form->{discount}) / 100;
AM->save_business(\%myconfig, \%$form);
$form->redirect($locale->text('Business saved!'));
. qq|</th>|;
$column_header{income_accno_0} =
qq|<th class=listheading>|
- . $locale->text('Erlöse Inland')
+ . $locale->text('Erlöse Inland')
. qq|</th>|;
$column_header{expense_accno_0} =
qq|<th class=listheading>|
. qq|</th>|;
$column_header{income_accno_1} =
qq|<th class=listheading>|
- . $locale->text('Erlöse EU m. UStId')
+ . $locale->text('Erlöse EU m. UStId')
. qq|</th>|;
$column_header{expense_accno_1} =
qq|<th class=listheading>|
. qq|</th>|;
$column_header{income_accno_2} =
qq|<th class=listheading>|
- . $locale->text('Erlöse EU o. UStId')
+ . $locale->text('Erlöse EU o. UStId')
. qq|</th>|;
$column_header{expense_accno_2} =
qq|<th class=listheading>|
. qq|</th>|;
$column_header{income_accno_3} =
qq|<th class=listheading>|
- . $locale->text('Erlöse Ausland')
+ . $locale->text('Erlöse Ausland')
. qq|</th>|;
$column_header{expense_accno_3} =
qq|<th class=listheading>|
$form->{title} = $locale->text("$form->{title} Buchungsgruppe");
- # $locale->text('Buchungsgruppe hinzufügen')
+ # $locale->text('Buchungsgruppe hinzufügen')
# $locale->text('Buchungsgruppe bearbeiten')
my ($acc_inventory, $acc_income, $acc_expense) = ({}, {}, {});
$linkaccounts .= qq|
<tr>
- <th align=right>| . $locale->text('Erlöse Inland') . qq|</th>
+ <th align=right>| . $locale->text('Erlöse Inland') . qq|</th>
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
</tr>
<tr>
$form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_1}/ value=$form->{expense_accno_id_1} selected/;
}
$linkaccounts .= qq| <tr>
- <th align=right>| . $locale->text('Erlöse EU m. UStId') . qq|</th>
+ <th align=right>| . $locale->text('Erlöse EU m. UStId') . qq|</th>
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
</tr>
<tr>
}
$linkaccounts .= qq| <tr>
- <th align=right>| . $locale->text('Erlöse EU o. UStId') . qq|</th>
+ <th align=right>| . $locale->text('Erlöse EU o. UStId') . qq|</th>
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
</tr>
<tr>
}
$linkaccounts .= qq| <tr>
- <th align=right>| . $locale->text('Erlöse Ausland') . qq|</th>
+ <th align=right>| . $locale->text('Erlöse Ausland') . qq|</th>
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
</tr>
<tr>
$lxdebug->enter_sub();
AM->delete_buchungsgruppe(\%myconfig, \%$form);
- $form->redirect($locale->text('Buchungsgruppe gelöscht!'));
+ $form->redirect($locale->text('Buchungsgruppe gelöscht!'));
$lxdebug->leave_sub();
}
$lxdebug->leave_sub();
}
-
sub add_payment {
$lxdebug->enter_sub();
$lxdebug->leave_sub();
}
-sub add_sic {
- $lxdebug->enter_sub();
-
- $form->{title} = "Add";
-
- $form->{callback} =
- "$form->{script}?action=add_sic&path=$form->{path}&login=$form->{login}&password=$form->{password}"
- unless $form->{callback};
-
- &sic_header;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub edit_sic {
- $lxdebug->enter_sub();
-
- $form->{title} = "Edit";
-
- AM->get_sic(\%myconfig, \%$form);
-
- &sic_header;
-
- $form->{orphaned} = 1;
- &form_footer;
-
- $lxdebug->leave_sub();
-}
-
-sub list_sic {
- $lxdebug->enter_sub();
-
- AM->sic(\%myconfig, \%$form);
-
- $form->{callback} =
- "$form->{script}?action=list_sic&path=$form->{path}&login=$form->{login}&password=$form->{password}";
-
- $callback = $form->escape($form->{callback});
-
- $form->{title} = $locale->text('Standard Industrial Codes');
-
- @column_index = qw(code description);
-
- $column_header{code} =
- qq|<th class=listheading>| . $locale->text('Code') . qq|</th>|;
- $column_header{description} =
- qq|<th class=listheading>| . $locale->text('Description') . qq|</th>|;
-
- $form->header;
-
- print qq|
-<body>
-
-<table width=100%>
- <tr>
- <th class=listtop>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <td>
- <table width=100%>
- <tr class=listheading>
-|;
-
- map { print "$column_header{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
-
- foreach $ref (@{ $form->{ALL} }) {
-
- $i++;
- $i %= 2;
-
- if ($ref->{sictype} eq 'H') {
- print qq|
- <tr valign=top class=listheading>
-|;
- $column_data{code} =
- qq|<th><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{code}</th>|;
- $column_data{description} = qq|<th>$ref->{description}</th>|;
-
- } else {
- print qq|
- <tr valign=top class=listrow$i>
-|;
-
- $column_data{code} =
- qq|<td><a href=$form->{script}?action=edit_sic&code=$ref->{code}&path=$form->{path}&login=$form->{login}&password=$form->{password}&callback=$callback>$ref->{code}</td>|;
- $column_data{description} = qq|<td>$ref->{description}</td>|;
-
- }
-
- map { print "$column_data{$_}\n" } @column_index;
-
- print qq|
- </tr>
-|;
- }
-
- print qq|
- </table>
- </td>
- </tr>
- <tr>
- <td><hr size=3 noshade></td>
- </tr>
-</table>
-
-<br>
-<form method=post action=$form->{script}>
-
-<input name=callback type=hidden value="$form->{callback}">
-
-<input type=hidden name=type value=sic>
-
-<input type=hidden name=path value=$form->{path}>
-<input type=hidden name=login value=$form->{login}>
-<input type=hidden name=password value=$form->{password}>
-
-<input class=submit type=submit name=action value="|
- . $locale->text('Add') . qq|">
-
- </form>
-
- </body>
- </html>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub sic_header {
- $lxdebug->enter_sub();
-
- $form->{title} = $locale->text("$form->{title} SIC");
-
- # $locale->text('Add SIC')
- # $locale->text('Edit SIC')
-
- $form->{code} =~ s/\"/"/g;
- $form->{description} =~ s/\"/"/g;
-
- $checked = ($form->{sictype} eq 'H') ? "checked" : "";
-
- $form->header;
-
- print qq|
-<body>
-
-<form method=post action=$form->{script}>
-
-<input type=hidden name=type value=sic>
-<input type=hidden name=id value=$form->{code}>
-
-<table width=100%>
- <tr>
- <th class=listtop colspan=2>$form->{title}</th>
- </tr>
- <tr height="5"></tr>
- <tr>
- <th align=right>| . $locale->text('Code') . qq|</th>
- <td><input name=code size=10 value=$form->{code}></td>
- <tr>
- <tr>
- <td></td>
- <th align=left><input name=sictype type=checkbox style=checkbox value="H" $checked> |
- . $locale->text('Heading') . qq|</th>
- <tr>
- <tr>
- <th align=right>| . $locale->text('Description') . qq|</th>
- <td><input name=description size=60 value="$form->{description}"></td>
- </tr>
- <td colspan=2><hr size=3 noshade></td>
- </tr>
-</table>
-|;
-
- $lxdebug->leave_sub();
-}
-
-sub save_sic {
- $lxdebug->enter_sub();
-
- $form->isblank("code", $locale->text('Code missing!'));
- $form->isblank("description", $locale->text('Description missing!'));
- AM->save_sic(\%myconfig, \%$form);
- $form->redirect($locale->text('SIC saved!'));
-
- $lxdebug->leave_sub();
-}
-
-sub delete_sic {
- $lxdebug->enter_sub();
-
- AM->delete_sic(\%myconfig, \%$form);
- $form->redirect($locale->text('SIC deleted!'));
-
- $lxdebug->leave_sub();
-}
-
sub display_stylesheet {
$lxdebug->enter_sub();
}
}
- opendir CSS, "css/.";
- @all = grep /.*\.css$/, readdir CSS;
- closedir CSS;
+# opendir CSS, "css/.";
+# @all = grep /.*\.css$/, readdir CSS;
+# closedir CSS;
+
+# css dir has styles that are not intended as general layouts.
+# reverting to hardcoded list
+ @all = qw(lx-office-erp.css Win2000.css);
foreach $item (@all) {
if ($item eq $myconfig{stylesheet}) {
$lxdebug->leave_sub();
}
-sub backup {
- $lxdebug->enter_sub();
-
- if ($form->{media} eq 'email') {
- $form->error($locale->text('No email address for') . " $myconfig{name}")
- unless ($myconfig{email});
-
- $form->{OUT} = "$sendmail";
-
- }
-
- AM->backup(\%myconfig, \%$form, $userspath);
-
- if ($form->{media} eq 'email') {
- $form->redirect($locale->text('Backup sent to') . qq| $myconfig{email}|);
- }
-
- $lxdebug->leave_sub();
-}
-
sub audit_control {
$lxdebug->enter_sub();
$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();
+}
+
+sub show_am_history {
+ $lxdebug->enter_sub();
+ my %search = ( "Artikelnummer" => "parts",
+ "Kundennummer" => "customer",
+ "Lieferantennummer" => "vendor",
+ "Projektnummer" => "project",
+ "Buchungsnummer" => "oe",
+ "Eingangsrechnungnummer" => "ap",
+ "Ausgangsrechnungnummer" => "ar"
+ );
+ my %searchNo = ( "Artikelnummer" => "partnumber",
+ "Kundennummer" => "customernumber",
+ "Lieferantennummer" => "vendornumber",
+ "Projektnummer" => "projectnummer",
+ "Buchungsnummer" => "ordnumber",
+ "Eingangsrechnungnummer" => "invnumber",
+ "Ausgangsrechnungnummer" => "invnumber"
+ );
+
+ 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|'|
+ : ""
+ )
+ );
+
+ my $dbh = $form->dbconnect(\%myconfig);
+
+ $restriction .= ($form->{mitarbeiter} eq "" ? ""
+ : ($form->{mitarbeiter} =~ /^[0-9]*$/
+ ? " AND employee_id = " . $form->{mitarbeiter}
+ : " AND employee_id = " . &get_employee_id($form->{mitarbeiter}, $dbh)));
+
+ my $query = qq|SELECT id FROM $search{$form->{what2search}}
+ WHERE $searchNo{$form->{'what2search'}} ILIKE '$form->{"searchid"}'
+ |;
+
+ my $sth = $dbh->prepare($query);
+
+ $sth->execute() || $form->dberror($query);
+
+ $form->{title} = $locale->text("History Search");
+ $form->header();
+
+ while(my $hash_ref = $sth->fetchrow_hashref()){
+ print $form->parse_html_template("/common/show_history",
+ {"DATEN" => $form->get_history($dbh,$hash_ref->{id},$restriction),
+ "SUCCESS" => ($form->get_history($dbh,$hash_ref->{id},$restriction) != 0),
+ "NONEWWINDOW" => "1"
+ }
+ );
+ }
+ $dbh->disconnect();
+
+ $lxdebug->leave_sub();
+}
+
+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();
+}
+
sub swap_units {
$lxdebug->enter_sub();
edit_units();
$lxdebug->leave_sub();
-}
+}
\ No newline at end of file
projects / kivitendo-erp.git / blobdiff