Korrekturmodul für das Hauptbuch implementiert

[mfinanz.git] / bin / mozilla / acctranscorrections.pl

diff --git a/bin/mozilla/acctranscorrections.pl b/bin/mozilla/acctranscorrections.pl
new file mode 100644 (file)
index 0000000..78d21b0
--- /dev/null
+++ b/bin/mozilla/acctranscorrections.pl
@@ -0,0 +1,215 @@
+use SL::AccTransCorrections;
+use SL::Form;
+use SL::User;
+use Data::Dumper;
+use YAML;
+
+require "bin/mozilla/common.pl";
+
+sub analyze_filter {
+  $lxdebug->enter_sub();
+
+  $form->{jsscript} = 1;
+  $form->{title}    = $locale->text('General ledger corrections');
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/analyze_filter');
+
+  $lxdebug->leave_sub();
+}
+
+sub analyze {
+  $lxdebug->enter_sub();
+
+  $form->{title} = $locale->text('General ledger corrections');
+
+  delete @{ $form }{qw(transdate_from transdate_to)} if ($form->{scope} eq 'full');
+
+  my $callback = 'acctranscorrections.pl?action=analyze';
+  map { $callback .= "&${_}=" . $form->escape($form->{$_}) } grep { $form->{$_} } qw(transdate_from transdate_to);
+  $callback = $form->escape($callback);
+
+  my $analyzer = AccTransCorrections->new();
+
+  my %params   = map { $_ => $form->{$_} } qw(transdate_from transdate_to);
+  my @problems = $analyzer->analyze(%params, 'callback' => $callback);
+
+  if (!scalar @problems) {
+    $form->show_generic_information($locale->text('No problems were recognized.'));
+
+    $lxdebug->leave_sub();
+    return;
+  }
+
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/analyze_overview',
+                                   { 'PROBLEMS' => \@problems,
+                                     'callback' => $callback,
+                                   });
+
+  $lxdebug->leave_sub();
+}
+
+sub assistant {
+  $lxdebug->enter_sub();
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+
+  $form->isblank('trans_id', $locale->text('Transaction ID missing.'));
+
+  my $analyzer  = AccTransCorrections->new();
+  my ($problem) = $analyzer->analyze('trans_id' => $form->{trans_id}, 'full_analysis' => 1);
+
+  if (!$problem) {
+    my $module =
+        $form->{trans_module} eq 'ar' ? $locale->text('AR Transaction')
+      : $form->{trans_module} eq 'ap' ? $locale->text('AP Transaction')
+      :                                 $locale->text('General Ledger Transaction');
+
+    $form->show_generic_information($locale->text('The assistant could not find anything wrong with #1. Maybe the problem has been solved in the meantime.',
+                                                  "$module $form->{trans_reference}"));
+
+    $lxdebug->leave_sub();
+    return;
+  }
+
+  if ($problem->{type} eq 'wrong_taxkeys') {
+    assistant_for_wrong_taxkeys($problem);
+
+  } elsif ($problem->{type} eq 'wrong_taxes') {
+    assistant_for_wrong_taxkeys($problem);
+#     assistant_for_wrong_taxes($problem);
+
+  } else {
+    $form->show_generic_error($locale->text('Unknown problem type.'));
+  }
+
+  $lxdebug->leave_sub();
+}
+
+sub assistant_for_ap_ar_wrong_taxkeys {
+  $lxdebug->enter_sub();
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/assistant_for_ap_ar_wrong_taxkeys');
+
+  $lxdebug->leave_sub();
+}
+
+sub fix_ap_ar_wrong_taxkeys {
+  $lxdebug->enter_sub();
+
+  my $analyzer = AccTransCorrections->new();
+  $analyzer->fix_ap_ar_wrong_taxkeys();
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/fix_ap_ar_wrong_taxkeys');
+
+  $lxdebug->leave_sub();
+}
+
+sub assistant_for_invoice_inventory_with_taxkeys {
+  $lxdebug->enter_sub();
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/assistant_for_invoice_inventory_with_taxkeys');
+
+  $lxdebug->leave_sub();
+}
+
+sub fix_invoice_inventory_with_taxkeys {
+  $lxdebug->enter_sub();
+
+  my $analyzer  = AccTransCorrections->new();
+  $analyzer->fix_invoice_inventory_with_taxkeys();
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/fix_invoice_inventory_with_taxkeys');
+
+  $lxdebug->leave_sub();
+}
+
+sub assistant_for_wrong_taxes {
+  $lxdebug->enter_sub();
+
+  my $problem = shift;
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/assistant_for_wrong_taxes', { 'problem' => $problem, });
+
+  $lxdebug->leave_sub();
+}
+
+sub assistant_for_wrong_taxkeys {
+  $lxdebug->enter_sub();
+
+  my $problem = shift;
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/assistant_for_wrong_taxkeys', { 'problem' => $problem, });
+
+  $lxdebug->leave_sub();
+}
+
+sub fix_wrong_taxkeys {
+  $lxdebug->enter_sub();
+
+  my $fixes = ref $form->{fixes} eq 'ARRAY' ? $form->{fixes} : [];
+
+  my $analyzer  = AccTransCorrections->new();
+  $analyzer->fix_wrong_taxkeys('fixes' => $fixes);
+
+  $form->{title} = $locale->text('Assistant for general ledger corrections');
+  $form->header();
+  print $form->parse_html_template('acctranscorrections/fix_wrong_taxkeys');
+
+  $lxdebug->leave_sub();
+}
+
+sub delete_transaction {
+  $lxdebug->enter_sub();
+
+  $form->{title} = $locale->text('Delete transaction');
+  $form->header();
+
+  if (!$form->{confirmation}) {
+    print $form->parse_html_template('acctranscorrections/delete_transaction_confirmation');
+  } else {
+    my $analyzer  = AccTransCorrections->new();
+    $analyzer->delete_transaction('trans_id' => $form->{trans_id});
+
+    print $form->parse_html_template('acctranscorrections/delete_transaction');
+  }
+
+  $lxdebug->leave_sub();
+}
+
+sub redirect {
+  $lxdebug->enter_sub();
+
+  $form->redirect('Missing callbcak');
+
+  $lxdebug->leave_sub();
+}
+
+sub dispatcher {
+  foreach my $action (qw(fix_wrong_taxkeys delete_transaction)) {
+    if ($form->{"action_${action}"}) {
+      call_sub($action);
+      return;
+    }
+  }
+
+  $form->error($locale->text('No action defined.'));
+}
+
+1;