Revision 9d1e95b0
Von Thomas Kasulke vor fast 18 Jahren hinzugefügt
| bin/mozilla/am.pl | ||
|---|---|---|
| 112 | 112 |
<tr> |
| 113 | 113 |
<th align=right>| . $locale->text('Steuersatz') . qq|</th>
|
| 114 | 114 |
<td><select name=tax>$form->{selecttaxkey}</select></td>
|
| 115 |
<th align=right>| . $locale->text('G?ltig ab') . qq|</th>
|
|
| 115 |
<th align=right>| . $locale->text('Gültig ab') . qq|</th>
|
|
| 116 | 116 |
<td><input name=startdate value="$form->{startdate}"></td>
|
| 117 | 117 |
</tr>|; |
| 118 | 118 |
|
| ... | ... | |
| 139 | 139 |
<tr> |
| 140 | 140 |
<th align=right>| . $locale->text('Folgekonto') . qq|</th>
|
| 141 | 141 |
<td><select name=new_chart_id>$form->{selectnewaccount}</select></td>
|
| 142 |
<th align=right>| . $locale->text('G?ltig ab') . qq|</th>
|
|
| 142 |
<th align=right>| . $locale->text('Gültig ab') . qq|</th>
|
|
| 143 | 143 |
<td><input name=valid_from value="$form->{valid_from}"></td>
|
| 144 | 144 |
</tr> |
| 145 | 145 |
</table> |
| ... | ... | |
| 212 | 212 |
</tr>|; |
| 213 | 213 |
|
| 214 | 214 |
$form->{selecteur} = "<option>\n";
|
| 215 |
%eur = (1 => "Umsatzerl?se",
|
|
| 216 |
2 => "sonstige Erl?se",
|
|
| 215 |
%eur = (1 => "Umsatzerlöse",
|
|
| 216 |
2 => "sonstige Erlöse",
|
|
| 217 | 217 |
3 => "Privatanteile", |
| 218 |
4 => "Zinsertr?ge",
|
|
| 219 |
5 => "Ausserordentliche Ertr?ge",
|
|
| 218 |
4 => "Zinserträge",
|
|
| 219 |
5 => "Ausserordentliche Erträge",
|
|
| 220 | 220 |
6 => "Vereinnahmte Umsatzst.", |
| 221 | 221 |
7 => "Umsatzsteuererstattungen", |
| 222 |
8 => "Wareneing?nge",
|
|
| 223 |
9 => "L?hne und Geh?lter",
|
|
| 222 |
8 => "Wareneingänge",
|
|
| 223 |
9 => "Löhne und Gehälter",
|
|
| 224 | 224 |
10 => "Gesetzl. sozialer Aufw.", |
| 225 | 225 |
11 => "Mieten", |
| 226 | 226 |
12 => "Gas, Strom, Wasser", |
| 227 | 227 |
13 => "Instandhaltung", |
| 228 |
14 => "Steuern, Versich., Beitr?ge",
|
|
| 228 |
14 => "Steuern, Versich., Beiträge",
|
|
| 229 | 229 |
15 => "Kfz-Steuern", |
| 230 | 230 |
16 => "Kfz-Versicherungen", |
| 231 | 231 |
17 => "Sonst. Fahrtkosten", |
| 232 | 232 |
18 => "Werbe- und Reisekosten", |
| 233 | 233 |
19 => "Instandhaltung u. Werkzeuge", |
| 234 |
20 => "Fachzeitschriften, B?cher",
|
|
| 235 |
21 => "Miete f?r Einrichtungen",
|
|
| 234 |
20 => "Fachzeitschriften, Bücher",
|
|
| 235 |
21 => "Miete für Einrichtungen",
|
|
| 236 | 236 |
22 => "Rechts- und Beratungskosten", |
| 237 |
23 => "B?robedarf, Porto, Telefon",
|
|
| 237 |
23 => "Bürobedarf, Porto, Telefon",
|
|
| 238 | 238 |
24 => "Sonstige Aufwendungen", |
| 239 | 239 |
25 => "Abschreibungen auf Anlagever.", |
| 240 | 240 |
26 => "Abschreibungen auf GWG", |
| ... | ... | |
| 261 | 261 |
|
| 262 | 262 |
$form->{selectbwa} = "<option>\n";
|
| 263 | 263 |
|
| 264 |
%bwapos = (1 => 'Umsatzerl?se',
|
|
| 264 |
%bwapos = (1 => 'Umsatzerlöse',
|
|
| 265 | 265 |
2 => 'Best.Verdg.FE/UE', |
| 266 | 266 |
3 => 'Aktiv.Eigenleistung', |
| 267 | 267 |
4 => 'Mat./Wareneinkauf', |
| 268 |
5 => 'So.betr.Erl?se',
|
|
| 268 |
5 => 'So.betr.Erlöse',
|
|
| 269 | 269 |
10 => 'Personalkosten', |
| 270 | 270 |
11 => 'Raumkosten', |
| 271 | 271 |
12 => 'Betriebl.Steuern', |
| 272 |
13 => 'Vers./Beitr?ge',
|
|
| 272 |
13 => 'Vers./Beiträge',
|
|
| 273 | 273 |
14 => 'Kfz.Kosten o.St.', |
| 274 | 274 |
15 => 'Werbe-Reisek.', |
| 275 | 275 |
16 => 'Kosten Warenabgabe', |
| 276 | 276 |
17 => 'Abschreibungen', |
| 277 | 277 |
18 => 'Rep./instandhlt.', |
| 278 |
19 => '?brige Steuern',
|
|
| 278 |
19 => 'Übrige Steuern',
|
|
| 279 | 279 |
20 => 'Sonst.Kosten', |
| 280 | 280 |
30 => 'Zinsauwand', |
| 281 | 281 |
31 => 'Sonst.neutr.Aufw.', |
| 282 |
32 => 'Zinsertr?ge',
|
|
| 282 |
32 => 'Zinserträge',
|
|
| 283 | 283 |
33 => 'Sonst.neutr.Ertrag', |
| 284 | 284 |
34 => 'Verr.kalk.Kosten', |
| 285 | 285 |
35 => 'Steuern Eink.u.Ertr.'); |
| ... | ... | |
| 1575 | 1575 |
. qq|</th>|; |
| 1576 | 1576 |
$column_header{income_accno_0} =
|
| 1577 | 1577 |
qq|<th class=listheading>| |
| 1578 |
. $locale->text('Erl?se Inland')
|
|
| 1578 |
. $locale->text('Erlöse Inland')
|
|
| 1579 | 1579 |
. qq|</th>|; |
| 1580 | 1580 |
$column_header{expense_accno_0} =
|
| 1581 | 1581 |
qq|<th class=listheading>| |
| ... | ... | |
| 1583 | 1583 |
. qq|</th>|; |
| 1584 | 1584 |
$column_header{income_accno_1} =
|
| 1585 | 1585 |
qq|<th class=listheading>| |
| 1586 |
. $locale->text('Erl?se EU m. UStId')
|
|
| 1586 |
. $locale->text('Erlöse EU m. UStId')
|
|
| 1587 | 1587 |
. qq|</th>|; |
| 1588 | 1588 |
$column_header{expense_accno_1} =
|
| 1589 | 1589 |
qq|<th class=listheading>| |
| ... | ... | |
| 1591 | 1591 |
. qq|</th>|; |
| 1592 | 1592 |
$column_header{income_accno_2} =
|
| 1593 | 1593 |
qq|<th class=listheading>| |
| 1594 |
. $locale->text('Erl?se EU o. UStId')
|
|
| 1594 |
. $locale->text('Erlöse EU o. UStId')
|
|
| 1595 | 1595 |
. qq|</th>|; |
| 1596 | 1596 |
$column_header{expense_accno_2} =
|
| 1597 | 1597 |
qq|<th class=listheading>| |
| ... | ... | |
| 1599 | 1599 |
. qq|</th>|; |
| 1600 | 1600 |
$column_header{income_accno_3} =
|
| 1601 | 1601 |
qq|<th class=listheading>| |
| 1602 |
. $locale->text('Erl?se Ausland')
|
|
| 1602 |
. $locale->text('Erlöse Ausland')
|
|
| 1603 | 1603 |
. qq|</th>|; |
| 1604 | 1604 |
$column_header{expense_accno_3} =
|
| 1605 | 1605 |
qq|<th class=listheading>| |
| ... | ... | |
| 1725 | 1725 |
|
| 1726 | 1726 |
$form->{title} = $locale->text("$form->{title} Buchungsgruppe");
|
| 1727 | 1727 |
|
| 1728 |
# $locale->text('Buchungsgruppe hinzuf?gen')
|
|
| 1728 |
# $locale->text('Buchungsgruppe hinzufügen')
|
|
| 1729 | 1729 |
# $locale->text('Buchungsgruppe bearbeiten')
|
| 1730 | 1730 |
|
| 1731 | 1731 |
my ($acc_inventory, $acc_income, $acc_expense) = ({}, {}, {});
|
| ... | ... | |
| 1776 | 1776 |
|
| 1777 | 1777 |
$linkaccounts .= qq| |
| 1778 | 1778 |
<tr> |
| 1779 |
<th align=right>| . $locale->text('Erl?se Inland') . qq|</th>
|
|
| 1779 |
<th align=right>| . $locale->text('Erlöse Inland') . qq|</th>
|
|
| 1780 | 1780 |
<td><select name=income_accno_id_0>$form->{selectIC_income}</select></td>
|
| 1781 | 1781 |
</tr> |
| 1782 | 1782 |
<tr> |
| ... | ... | |
| 1790 | 1790 |
$form->{selectIC_expense} =~ s/ value=$form->{expense_accno_id_1}/ value=$form->{expense_accno_id_1} selected/;
|
| 1791 | 1791 |
} |
| 1792 | 1792 |
$linkaccounts .= qq| <tr> |
| 1793 |
<th align=right>| . $locale->text('Erl?se EU m. UStId') . qq|</th>
|
|
| 1793 |
<th align=right>| . $locale->text('Erlöse EU m. UStId') . qq|</th>
|
|
| 1794 | 1794 |
<td><select name=income_accno_id_1>$form->{selectIC_income}</select></td>
|
| 1795 | 1795 |
</tr> |
| 1796 | 1796 |
<tr> |
| ... | ... | |
| 1806 | 1806 |
} |
| 1807 | 1807 |
|
| 1808 | 1808 |
$linkaccounts .= qq| <tr> |
| 1809 |
<th align=right>| . $locale->text('Erl?se EU o. UStId') . qq|</th>
|
|
| 1809 |
<th align=right>| . $locale->text('Erlöse EU o. UStId') . qq|</th>
|
|
| 1810 | 1810 |
<td><select name=income_accno_id_2>$form->{selectIC_income}</select></td>
|
| 1811 | 1811 |
</tr> |
| 1812 | 1812 |
<tr> |
| ... | ... | |
| 1822 | 1822 |
} |
| 1823 | 1823 |
|
| 1824 | 1824 |
$linkaccounts .= qq| <tr> |
| 1825 |
<th align=right>| . $locale->text('Erl?se Ausland') . qq|</th>
|
|
| 1825 |
<th align=right>| . $locale->text('Erlöse Ausland') . qq|</th>
|
|
| 1826 | 1826 |
<td><select name=income_accno_id_3>$form->{selectIC_income}</select></td>
|
| 1827 | 1827 |
</tr> |
| 1828 | 1828 |
<tr> |
| ... | ... | |
| 1875 | 1875 |
$lxdebug->enter_sub(); |
| 1876 | 1876 |
|
| 1877 | 1877 |
AM->delete_buchungsgruppe(\%myconfig, \%$form); |
| 1878 |
$form->redirect($locale->text('Buchungsgruppe gel?scht!'));
|
|
| 1878 |
$form->redirect($locale->text('Buchungsgruppe gelöscht!'));
|
|
| 1879 | 1879 |
|
| 1880 | 1880 |
$lxdebug->leave_sub(); |
| 1881 | 1881 |
} |
| ... | ... | |
| 2092 | 2092 |
$lxdebug->leave_sub(); |
| 2093 | 2093 |
} |
| 2094 | 2094 |
|
| 2095 |
|
|
| 2096 | 2095 |
sub add_payment {
|
| 2097 | 2096 |
$lxdebug->enter_sub(); |
| 2098 | 2097 |
|
| ... | ... | |
| 3203 | 3202 |
$lxdebug->leave_sub(); |
| 3204 | 3203 |
} |
| 3205 | 3204 |
|
| 3205 |
sub show_history_search {
|
|
| 3206 |
$lxdebug->enter_sub(); |
|
| 3207 |
|
|
| 3208 |
$form->{title} = $locale->text("History Search");
|
|
| 3209 |
$form->header(); |
|
| 3210 |
|
|
| 3211 |
print $form->parse_html_template("/common/search_history");
|
|
| 3212 |
|
|
| 3213 |
$lxdebug->leave_sub(); |
|
| 3214 |
} |
|
| 3215 |
|
|
| 3216 |
sub show_am_history {
|
|
| 3217 |
$lxdebug->enter_sub(); |
|
| 3218 |
my %search = ( "Artikelnummer" => "parts", |
|
| 3219 |
"Kundennummer" => "customer", |
|
| 3220 |
"Lieferantennummer" => "vendor", |
|
| 3221 |
"Projektnummer" => "project", |
|
| 3222 |
"Buchungsnummer" => "oe", |
|
| 3223 |
"Eingangsrechnungnummer" => "ap", |
|
| 3224 |
"Ausgangsrechnungnummer" => "ar" |
|
| 3225 |
); |
|
| 3226 |
my %searchNo = ( "Artikelnummer" => "partnumber", |
|
| 3227 |
"Kundennummer" => "customernumber", |
|
| 3228 |
"Lieferantennummer" => "vendornumber", |
|
| 3229 |
"Projektnummer" => "projectnummer", |
|
| 3230 |
"Buchungsnummer" => "ordnumber", |
|
| 3231 |
"Eingangsrechnungnummer" => "invnumber", |
|
| 3232 |
"Ausgangsrechnungnummer" => "invnumber" |
|
| 3233 |
); |
|
| 3234 |
|
|
| 3235 |
my $restriction; |
|
| 3236 |
my $tempNo = 0; |
|
| 3237 |
foreach(split(/\,/, $form->{einschraenkungen})) {
|
|
| 3238 |
if($tempNo == 0) {
|
|
| 3239 |
$restriction .= " AND addition = '" . $_ . "'"; |
|
| 3240 |
$tempNo = 1; |
|
| 3241 |
} |
|
| 3242 |
else {
|
|
| 3243 |
$restriction .= " OR addition = '" . $_ . "'"; |
|
| 3244 |
} |
|
| 3245 |
} |
|
| 3246 |
|
|
| 3247 |
$restriction .= (($form->{transdate} ne "" && $form->{reqdate} ne "")
|
|
| 3248 |
? qq| AND st.itime::date >= '| . $form->{transdate} . qq|' AND st.itime::date <= '| . $form->{reqdate} . qq|'|
|
|
| 3249 |
: (($form->{transdate} ne "" && $form->{reqdate} eq "")
|
|
| 3250 |
? qq| AND st.itime::date >= '| . $form->{transdate} . qq|'|
|
|
| 3251 |
: ($form->{transdate} eq "" && $form->{reqdate} ne "")
|
|
| 3252 |
? qq| AND st.itime::date <= '| . $form->{reqdate} . qq|'|
|
|
| 3253 |
: "" |
|
| 3254 |
) |
|
| 3255 |
); |
|
| 3256 |
|
|
| 3257 |
my $dbh = $form->dbconnect(\%myconfig); |
|
| 3258 |
|
|
| 3259 |
$restriction .= ($form->{mitarbeiter} eq "" ? ""
|
|
| 3260 |
: ($form->{mitarbeiter} =~ /^[0-9]*$/
|
|
| 3261 |
? " AND employee_id = " . $form->{mitarbeiter}
|
|
| 3262 |
: " AND employee_id = " . &get_employee_id($form->{mitarbeiter}, $dbh)));
|
|
| 3263 |
|
|
| 3264 |
my $query = qq|SELECT id FROM $search{$form->{what2search}}
|
|
| 3265 |
WHERE $searchNo{$form->{'what2search'}} ILIKE '$form->{"searchid"}'
|
|
| 3266 |
|; |
|
| 3267 |
|
|
| 3268 |
my $sth = $dbh->prepare($query); |
|
| 3269 |
|
|
| 3270 |
$sth->execute() || $form->dberror($query); |
|
| 3271 |
|
|
| 3272 |
$form->{title} = $locale->text("History Search");
|
|
| 3273 |
$form->header(); |
|
| 3274 |
|
|
| 3275 |
while(my $hash_ref = $sth->fetchrow_hashref()){
|
|
| 3276 |
print $form->parse_html_template("/common/show_history",
|
|
| 3277 |
{"DATEN" => $form->get_history($dbh,$hash_ref->{id},$restriction),
|
|
| 3278 |
"SUCCESS" => ($form->get_history($dbh,$hash_ref->{id},$restriction) != 0),
|
|
| 3279 |
"NONEWWINDOW" => "1" |
|
| 3280 |
} |
|
| 3281 |
); |
|
| 3282 |
} |
|
| 3283 |
$dbh->disconnect(); |
|
| 3284 |
|
|
| 3285 |
$lxdebug->leave_sub(); |
|
| 3286 |
} |
|
| 3287 |
|
|
| 3288 |
sub get_employee_id {
|
|
| 3289 |
$lxdebug->enter_sub(); |
|
| 3290 |
my $query = qq|SELECT id FROM employee WHERE name = '| . $_[0] . qq|'|; |
|
| 3291 |
my $sth = $_[1]->prepare($query); |
|
| 3292 |
$sth->execute() || $form->dberror($query); |
|
| 3293 |
my $return = $sth->fetch(); |
|
| 3294 |
$sth->finish(); |
|
| 3295 |
return ${$return}[0];
|
|
| 3296 |
$lxdebug->leave_sub(); |
|
| 3297 |
} |
|
| 3298 |
|
|
| 3206 | 3299 |
sub swap_units {
|
| 3207 | 3300 |
$lxdebug->enter_sub(); |
| 3208 | 3301 |
|
| ... | ... | |
| 3214 | 3307 |
edit_units(); |
| 3215 | 3308 |
|
| 3216 | 3309 |
$lxdebug->leave_sub(); |
| 3217 |
} |
|
| 3310 |
} |
|
Auch abrufbar als: Unified diff
Historie eingefügt