From c6268fe0b7e355a0fb27277f185734496d5dc6f7 Mon Sep 17 00:00:00 2001 From: Thomas Kasulke Date: Thu, 5 Apr 2007 13:40:42 +0000 Subject: [PATCH] /Stornierte (Forderungen|Verbindlichkeiten)/ werden bei offene $1 nicht mehr angezeigt/ --- SL/RP.pm | 26 +++++++++++++++++++++----- 1 file changed, 21 insertions(+), 5 deletions(-) diff --git a/SL/RP.pm b/SL/RP.pm index bb212e0ec..21ee076eb 100644 --- a/SL/RP.pm +++ b/SL/RP.pm @@ -1195,6 +1195,18 @@ sub trial_balance { $main::lxdebug->leave_sub(); } +sub get_storno { + $main::lxdebug->enter_sub(); + my ($self, $dbh, $form) = @_; + my $query = qq|SELECT invnumber FROM $form->{arap} WHERE invnumber LIKE "Storno zu "|; + my $sth = $dbh->prepare($query); + while(my $ref = $sth->fetchrow_hashref()) { + $ref->{invnumer} =~ s/Storno zu //g; + $form->{storno}{$ref->{invnumber}} = 1; + } + $main::lxdebug->leave_sub(); +} + sub aging { $main::lxdebug->enter_sub(); @@ -1206,7 +1218,7 @@ sub aging { $form->{todate} = $form->current_date($myconfig) unless ($form->{todate}); - my $where = "1 = 1"; + my $where = " 1 = 1 "; my ($name, $null); if ($form->{"$form->{ct}_id"}) { @@ -1260,7 +1272,8 @@ sub aging { WHERE $form->{arap}.curr = exchangerate.curr AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate FROM $form->{arap}, $form->{ct} - WHERE paid != amount + WHERE paid != amount + AND $form->{arap}.storno IS FALSE AND $form->{arap}.$form->{ct}_id = $form->{ct}.id AND $form->{ct}.id = $id AND ( @@ -1282,7 +1295,8 @@ sub aging { WHERE $form->{arap}.curr = exchangerate.curr AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate FROM $form->{arap}, $form->{ct} - WHERE paid != amount + WHERE paid != amount + AND $form->{arap}.storno IS FALSE AND $form->{arap}.$form->{ct}_id = $form->{ct}.id AND $form->{ct}.id = $id AND ( @@ -1304,7 +1318,8 @@ sub aging { WHERE $form->{arap}.curr = exchangerate.curr AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate FROM $form->{arap}, $form->{ct} - WHERE paid != amount + WHERE paid != amount + AND $form->{arap}.storno IS FALSE AND $form->{arap}.$form->{ct}_id = $form->{ct}.id AND $form->{ct}.id = $id AND ( @@ -1326,7 +1341,8 @@ sub aging { WHERE $form->{arap}.curr = exchangerate.curr AND exchangerate.transdate = $form->{arap}.transdate) AS exchangerate FROM $form->{arap}, $form->{ct} - WHERE paid != amount + WHERE paid != amount + AND $form->{arap}.storno IS FALSE AND $form->{arap}.$form->{ct}_id = $form->{ct}.id AND $form->{ct}.id = $id AND transdate < (date '$form->{todate}' - interval '90 days') -- 2.20.1