Fix für Bug 1081. Bei Buchung einer Einkaufsrechnung geht das Rabatt verloren. 1...
[kivitendo-erp.git] / bin / mozilla / acctranscorrections.pl
1 use SL::AccTransCorrections;
2 use SL::Form;
3 use SL::User;
4 use Data::Dumper;
5 use YAML;
6
7 require "bin/mozilla/common.pl";
8
9 sub analyze_filter {
10   $lxdebug->enter_sub();
11
12   $form->{jsscript} = 1;
13   $form->{title}    = $locale->text('General ledger corrections');
14   $form->header();
15   print $form->parse_html_template('acctranscorrections/analyze_filter');
16
17   $lxdebug->leave_sub();
18 }
19
20 sub analyze {
21   $lxdebug->enter_sub();
22
23   $form->{title} = $locale->text('General ledger corrections');
24
25   delete @{ $form }{qw(transdate_from transdate_to)} if ($form->{scope} eq 'full');
26
27   my $callback = 'acctranscorrections.pl?action=analyze';
28   map { $callback .= "&${_}=" . $form->escape($form->{$_}) } grep { $form->{$_} } qw(transdate_from transdate_to);
29   $callback = $form->escape($callback);
30
31   my $analyzer = AccTransCorrections->new();
32
33   my %params   = map { $_ => $form->{$_} } qw(transdate_from transdate_to);
34   my @problems = $analyzer->analyze(%params, 'callback' => $callback);
35
36   if (!scalar @problems) {
37     $form->show_generic_information($locale->text('No problems were recognized.'));
38
39     $lxdebug->leave_sub();
40     return;
41   }
42
43   $form->header();
44   print $form->parse_html_template('acctranscorrections/analyze_overview',
45                                    { 'PROBLEMS' => \@problems,
46                                      'callback' => $callback,
47                                    });
48
49   $lxdebug->leave_sub();
50 }
51
52 sub assistant {
53   $lxdebug->enter_sub();
54
55   $form->{title} = $locale->text('Assistant for general ledger corrections');
56
57   $form->isblank('trans_id', $locale->text('Transaction ID missing.'));
58
59   my $analyzer  = AccTransCorrections->new();
60   my ($problem) = $analyzer->analyze('trans_id' => $form->{trans_id}, 'full_analysis' => 1);
61
62   if (!$problem) {
63     my $module =
64         $form->{trans_module} eq 'ar' ? $locale->text('AR Transaction')
65       : $form->{trans_module} eq 'ap' ? $locale->text('AP Transaction')
66       :                                 $locale->text('General Ledger Transaction');
67
68     $form->show_generic_information($locale->text('The assistant could not find anything wrong with #1. Maybe the problem has been solved in the meantime.',
69                                                   "$module $form->{trans_reference}"));
70
71     $lxdebug->leave_sub();
72     return;
73   }
74
75   if ($problem->{type} eq 'wrong_taxkeys') {
76     assistant_for_wrong_taxkeys($problem);
77
78   } elsif ($problem->{type} eq 'wrong_taxes') {
79     assistant_for_wrong_taxkeys($problem);
80 #     assistant_for_wrong_taxes($problem);
81
82   } else {
83     $form->show_generic_error($locale->text('Unknown problem type.'));
84   }
85
86   $lxdebug->leave_sub();
87 }
88
89 sub assistant_for_ap_ar_wrong_taxkeys {
90   $lxdebug->enter_sub();
91
92   $form->{title} = $locale->text('Assistant for general ledger corrections');
93
94   $form->header();
95   print $form->parse_html_template('acctranscorrections/assistant_for_ap_ar_wrong_taxkeys');
96
97   $lxdebug->leave_sub();
98 }
99
100 sub fix_ap_ar_wrong_taxkeys {
101   $lxdebug->enter_sub();
102
103   my $analyzer = AccTransCorrections->new();
104   $analyzer->fix_ap_ar_wrong_taxkeys();
105
106   $form->{title} = $locale->text('Assistant for general ledger corrections');
107   $form->header();
108   print $form->parse_html_template('acctranscorrections/fix_ap_ar_wrong_taxkeys');
109
110   $lxdebug->leave_sub();
111 }
112
113 sub assistant_for_invoice_inventory_with_taxkeys {
114   $lxdebug->enter_sub();
115
116   $form->{title} = $locale->text('Assistant for general ledger corrections');
117
118   $form->header();
119   print $form->parse_html_template('acctranscorrections/assistant_for_invoice_inventory_with_taxkeys');
120
121   $lxdebug->leave_sub();
122 }
123
124 sub fix_invoice_inventory_with_taxkeys {
125   $lxdebug->enter_sub();
126
127   my $analyzer  = AccTransCorrections->new();
128   $analyzer->fix_invoice_inventory_with_taxkeys();
129
130   $form->{title} = $locale->text('Assistant for general ledger corrections');
131   $form->header();
132   print $form->parse_html_template('acctranscorrections/fix_invoice_inventory_with_taxkeys');
133
134   $lxdebug->leave_sub();
135 }
136
137 sub assistant_for_wrong_taxes {
138   $lxdebug->enter_sub();
139
140   my $problem = shift;
141
142   $form->{title} = $locale->text('Assistant for general ledger corrections');
143
144   $form->header();
145   print $form->parse_html_template('acctranscorrections/assistant_for_wrong_taxes', { 'problem' => $problem, });
146
147   $lxdebug->leave_sub();
148 }
149
150 sub assistant_for_wrong_taxkeys {
151   $lxdebug->enter_sub();
152
153   my $problem = shift;
154
155   $form->{title} = $locale->text('Assistant for general ledger corrections');
156
157   $form->header();
158   print $form->parse_html_template('acctranscorrections/assistant_for_wrong_taxkeys', { 'problem' => $problem, });
159
160   $lxdebug->leave_sub();
161 }
162
163 sub fix_wrong_taxkeys {
164   $lxdebug->enter_sub();
165
166   my $fixes = ref $form->{fixes} eq 'ARRAY' ? $form->{fixes} : [];
167
168   my $analyzer  = AccTransCorrections->new();
169   $analyzer->fix_wrong_taxkeys('fixes' => $fixes);
170
171   $form->{title} = $locale->text('Assistant for general ledger corrections');
172   $form->header();
173   print $form->parse_html_template('acctranscorrections/fix_wrong_taxkeys');
174
175   $lxdebug->leave_sub();
176 }
177
178 sub delete_transaction {
179   $lxdebug->enter_sub();
180
181   $form->{title} = $locale->text('Delete transaction');
182   $form->header();
183
184   if (!$form->{confirmation}) {
185     print $form->parse_html_template('acctranscorrections/delete_transaction_confirmation');
186   } else {
187     my $analyzer  = AccTransCorrections->new();
188     $analyzer->delete_transaction('trans_id' => $form->{trans_id});
189
190     print $form->parse_html_template('acctranscorrections/delete_transaction');
191   }
192
193   $lxdebug->leave_sub();
194 }
195
196 sub redirect {
197   $lxdebug->enter_sub();
198
199   $form->redirect('Missing callbcak');
200
201   $lxdebug->leave_sub();
202 }
203
204 sub dispatcher {
205   foreach my $action (qw(fix_wrong_taxkeys delete_transaction)) {
206     if ($form->{"action_${action}"}) {
207       call_sub($action);
208       return;
209     }
210   }
211
212   $form->error($locale->text('No action defined.'));
213 }
214
215 1;