X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=bin%2Fmozilla%2Fam.pl;h=6294a18973d59da69a30fdf927830f2629af9cac;hb=7d03f2419db86592947fc2526a21c2bf34aa97d0;hp=b41b0ec9927034a13f40834c928a2aa1bbf8b69b;hpb=4dbb09950c9f5596646537c12d991c99086fe7c1;p=kivitendo-erp.git
diff --git a/bin/mozilla/am.pl b/bin/mozilla/am.pl
index b41b0ec99..6294a1897 100644
--- a/bin/mozilla/am.pl
+++ b/bin/mozilla/am.pl
@@ -31,50 +31,52 @@
#
#======================================================================
-
use SL::AM;
use SL::CA;
use SL::Form;
use SL::User;
+use SL::USTVA;
+use SL::Iconv;
+use CGI::Ajax;
+use CGI;
+use Data::Dumper;
1;
-# end of main
-
-
-
-sub add { &{ "add_$form->{type}" } };
-sub edit { &{ "edit_$form->{type}" } };
-sub save { &{ "save_$form->{type}" } };
-sub delete { &{ "delete_$form->{type}" } };
+require "bin/mozilla/common.pl";
+# 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_account {
$lxdebug->enter_sub();
-
- $form->{title} = "Add";
+ $form->{title} = "Add";
$form->{charttype} = "A";
AM->get_account(\%myconfig, \%$form);
-
- $form->{callback} = "$form->{script}?action=list_account&path=$form->{path}&login=$form->{login}&password=$form->{password}" unless $form->{callback};
+
+ $form->{callback} =
+ "$form->{script}?action=list_account&login=$form->{login}&password=$form->{password}"
+ unless $form->{callback};
&account_header;
&form_footer;
-
+
$lxdebug->leave_sub();
}
-
sub edit_account {
$lxdebug->enter_sub();
-
$form->{title} = "Edit";
AM->get_account(\%myconfig, \%$form);
-
+
foreach my $item (split(/:/, $form->{link})) {
$form->{$item} = "checked";
}
@@ -85,282 +87,287 @@ sub edit_account {
$lxdebug->leave_sub();
}
-
sub account_header {
$lxdebug->enter_sub();
-
- $form->{title} = $locale->text("$form->{title} Account");
-
- $checked{$form->{charttype}} = "checked";
- $checked{"$form->{category}_"} = "checked";
- $checked{CT_tax} = ($form->{CT_tax}) ? "" : "checked";
-
- $form->{description} =~ s/\"/"/g;
+ if ( $form->{action} eq 'edit_account') {
+ $form->{account_exists} = '1';
+ }
+ $form->{title} = $locale->text("$form->{title} Account");
+
+ $form->{"$form->{charttype}_checked"} = "checked";
+ $form->{"$form->{category}_checked"} = "checked";
+
+ $form->{select_tax} = "";
+
+ my @tax_report_pos = USTVA->report_variables({
+ myconfig => \%myconfig,
+ form => $form,
+ type => '',
+ attribute => 'position',
+ calc => '',
+ });
+
if (@{ $form->{TAXKEY} }) {
- $form->{selecttaxkey} = "|;
+ }
+ foreach $item (@{ $form->{NEWACCOUNT} }) {
+ if ($item->{id} == $form->{new_chart_id}) {
+ $form->{selectnewaccount} .=
+ qq||;
+ } elsif (!$form->{new_chart_valid}) {
+ $form->{selectnewaccount} .=
+ qq||;
+ }
+ }
}
-
-
- $ustva = qq|
-
- |.$locale->text('Umsatzsteuervoranmeldung').qq| |
- |
-
-
|;
- $form->{selecteur} = "\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. Fahrtkosten",
+ 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))) {
- if ($item==$form->{pos_eur}) {
- $form->{selecteur} .= "\n|;
+ } else {
+ $select_eur .= qq|\n|;
}
-
}
-
-
- $eur = qq|
-
- |.$locale->text('EÜR').qq| |
- |
-
-
|;
- $form->{selectbwa} = "\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)) {
- if ($item==$form->{pos_bwa}) {
- $form->{selectbwa} .= "\n|;
foreach $item ((1, 2, 3, 4)) {
- if ($item==$form->{pos_bilanz}) {
- $form->{selectbilanz} .= "