- if ($ref->{chart_id} > 0) {
- $ref->{credit_tax}{$j} = $ref->{amount};
- $ref->{credit_tax_accno}{$j} = $ref->{accno};
- } else {
- $ref->{credit}{$l} = $ref->{amount};
- $ref->{credit_accno}{$l} = $ref->{accno};
- $ref->{credit_taxkey}{$l} = $ref->{taxkey};
- }
- }
-
- while (abs($balance) >= 0.015) {
- my $ref2 = $sth->fetchrow_hashref(NAME_lc)
- || $form->error("Unbalanced ledger!");
-
+ $ref2 = $ref0;
+ $trans_id2 = $ref2->{id};
+
+ # if ($form->{accno} eq ''){ # flo & udo: if general report,
+ # then check balance
+ # while (abs($balance) >= 0.015) {
+ # my $ref2 = $sth->fetchrow_hashref(NAME_lc)
+ # || $form->error("Unbalanced ledger!");
+ #