Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d2b06f2b

Von jan vor fast 15 Jahren hinzugefügt

bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Kontenübersicht nur noch die bereits bebuchten Konten anzeigen?
Folgende Erweiterung:
1.) Gehe zurück bis zu dem Datum an dem die Bücher geschlossen wurden
2.) Falls die Bücher noch nie geschlossen wurden, gehe zurück bis zum Bearbeitungsstart von lx-office.

Unterschiede anzeigen:

SL/CA.pm
50 50
  # connect to database
51 51
  my $dbh = $form->dbconnect($myconfig);
52 52

  
53
  if ($form->{method} eq "cash") {
54
    $acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>=(select date_trunc('year', current_date)) UNION SELECT id FROM ap WHERE datepaid>=(select date_trunc('year', current_date)) UNION SELECT id FROM gl WHERE transdate>=(select date_trunc('year', current_date)))) |;
55
  } else {
56
    $acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= (select date_trunc('year', current_date)))";
53
  # bug 1071 Warum sollte bei Erreichen eines neuen Jahres die Konten?bersicht nur noch die
54
  # bereits bebuchten Konten anzeigen?
55
  # Folgende Erweiterung:
56
  # 1.) Gehe zur?ck bis zu dem Datum an dem die B?cher geschlossen wurden
57
  # 2.) Falls die B?cher noch nie geschlossen wurden, gehe zur?ck bis zum Bearbeitungsstart
58
  # COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))
59

  
60
  my $closedto_sql = "COALESCE((SELECT closedto FROM defaults),(SELECT itime FROM defaults))";
61

  
62
  if ($form->{method} eq "cash") {  # E?R
63
    $acc_cash_where = qq| AND (a.trans_id IN (SELECT id FROM ar WHERE datepaid>= $closedto_sql
64
                          UNION SELECT id FROM ap WHERE datepaid>= $closedto_sql
65
                          UNION SELECT id FROM gl WHERE transdate>= $closedto_sql
66
                        )) |;
67
  } else {  # Bilanzierung
68
    $acc_cash_where = " AND ((select date_trunc('year', a.transdate::date)) >= $closedto_sql) ";
57 69
  }
58 70

  
59 71
  my $query =

Auch abrufbar als: Unified diff