Menu
▾
▴
[Kick-developers] CVS: kick kauszg,1.6,1.7
|
From: Michael R. <mr...@us...> - 2002-03-19 09:08:12
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10121
Modified Files:
kauszg
Log Message:
Tools wird nicht mehr gebunden
Unterschiedliche JOIN Syntax für MySql und MS Access
Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql)
Anpassung an Rückgabe-Array &Sql_Spalten
Index: kauszg
===================================================================
RCS file: /cvsroot/kick/kick/kauszg,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** kauszg 23 Oct 2001 20:38:12 -0000 1.6
--- kauszg 19 Mar 2002 09:08:08 -0000 1.7
***************
*** 3,7 ****
use Kick;
use GetOption;
- use Tools;
use Date::Calc qw(check_date Add_Delta_Days);
use Text::ParseWords;
--- 3,6 ----
***************
*** 93,111 ****
# Standard Buchungen und Umbuchungen - bBuchungen JOIN uBuchungen
! my $sql = "SELECT
! b.datum,
! p.titel AS posten,
! b.waehrung * b.betrag AS betrag,
! b.bemerkung,
! k.titel AS referenz,
! 0 / 1 AS saldo
! INTO
! temp
! FROM
! (bbuchungen b
! LEFT OUTER JOIN (ubuchungen u LEFT OUTER JOIN konten k ON k.id = u.xkonto) ON u.xbuchung = b.id)
! LEFT JOIN posten p ON p.id = b.xposten
! WHERE
! $interval";
&Sql ( sql => $sql, halt => 1);
--- 92,139 ----
# Standard Buchungen und Umbuchungen - bBuchungen JOIN uBuchungen
! my $sql;
! if (&DBDriver eq 'mysql') {
! $sql = 'CREATE TABLE temp (
! datum DATE NOT NULL,
! posten CHAR(50),
! betrag DOUBLE,
! bemerkung CHAR(50),
! referenz CHAR(50),
! saldo DOUBLE
! )';
! &Sql ( sql => $sql, halt => 1);
! $sql = "INSERT INTO temp
! SELECT
! b.datum,
! p.titel AS posten,
! b.waehrung * b.betrag AS betrag,
! b.bemerkung,
! k.titel AS referenz,
! 0 / 1 AS saldo
! FROM
! bbuchungen b
! LEFT OUTER JOIN ubuchungen u ON u.xbuchung = b.id
! LEFT OUTER JOIN konten k ON k.id = u.xkonto
! LEFT JOIN posten p ON p.id = b.xposten
! WHERE
! $interval";
! }
! else {
! $sql = "SELECT
! b.datum,
! p.titel AS posten,
! b.waehrung * b.betrag AS betrag,
! b.bemerkung,
! k.titel AS referenz,
! 0 / 1 AS saldo
! INTO
! temp
! FROM
! (bbuchungen b
! LEFT OUTER JOIN (ubuchungen u LEFT OUTER JOIN konten k ON k.id = u.xkonto) ON u.xbuchung = b.id)
! LEFT JOIN posten p ON p.id = b.xposten
! WHERE
! $interval";
! }
&Sql ( sql => $sql, halt => 1);
***************
*** 122,126 ****
Trim(t.nachname) & ', ' & Trim(t.vorname)
FROM
! tBuchungen b,
abschluss a,
posten p,
--- 150,154 ----
Trim(t.nachname) & ', ' & Trim(t.vorname)
FROM
! tbuchungen b,
abschluss a,
posten p,
***************
*** 145,149 ****
w.titel
FROM
! aBuchungen b,
posten p,
wertpapiere w
--- 173,177 ----
w.titel
FROM
! abuchungen b,
posten p,
wertpapiere w
***************
*** 157,180 ****
# Umbuchungen - uBuchungen
! $sql = "INSERT INTO temp
! (datum, posten, betrag, bemerkung, referenz)
! SELECT
! b.datum,
! p.titel,
! b.waehrung * b.betrag,
! b.bemerkung,
! k.titel
! FROM
! (ubuchungen b
! LEFT OUTER JOIN (
! bbuchungen z
LEFT OUTER JOIN
! konten k
! ON k.id = z.xkonto)
! ON z.id = b.xbuchung)
! LEFT OUTER JOIN
! posten p
! ON p.id = b.xposten
! WHERE $interval";
&Sql ( sql => $sql, halt => 1);
--- 185,225 ----
# Umbuchungen - uBuchungen
! if (&DBDriver eq 'mysql') {
! $sql = "INSERT INTO temp
! (datum, posten, betrag, bemerkung, referenz)
! SELECT
! b.datum,
! p.titel,
! b.waehrung * b.betrag,
! b.bemerkung,
! k.titel
! FROM
! ubuchungen b LEFT OUTER JOIN bbuchungen z ON z.id = b.xbuchung
! LEFT OUTER JOIN konten k ON k.id = z.xkonto
! LEFT OUTER JOIN posten p ON p.id = b.xposten
! WHERE $interval";
! }
! else {
! $sql = "INSERT INTO temp
! (datum, posten, betrag, bemerkung, referenz)
! SELECT
! b.datum,
! p.titel,
! b.waehrung * b.betrag,
! b.bemerkung,
! k.titel
! FROM
! (ubuchungen b
! LEFT OUTER JOIN (
! bbuchungen z
! LEFT OUTER JOIN
! konten k
! ON k.id = z.xkonto)
! ON z.id = b.xbuchung)
LEFT OUTER JOIN
! posten p
! ON p.id = b.xposten
! WHERE $interval";
! }
&Sql ( sql => $sql, halt => 1);
***************
*** 191,195 ****
a.titel
FROM
! dBuchungen b,
wertpapiere a,
posten p
--- 236,240 ----
a.titel
FROM
! dbuchungen b,
wertpapiere a,
posten p
***************
*** 224,228 ****
}
@tab = (['VORTRAG', $startsaldo ], @tab, ['SUMME', $saldo ] );
! @col = [qw (posten betrag)];
@felder = qw(posten betrag);
}
--- 269,273 ----
}
@tab = (['VORTRAG', $startsaldo ], @tab, ['SUMME', $saldo ] );
! @col = qw (posten betrag);
@felder = qw(posten betrag);
}
***************
*** 301,308 ****
# Ouput
! my @data = (@col, @reformat);
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat);
print "\n";
}
--- 346,353 ----
# Ouput
! my @data = (\@col, @reformat);
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat);
print "\n";
}
***************
*** 491,494 ****
--- 536,546 ----
$Log$
+ Revision 1.7 2002/03/19 09:08:08 mrau
+
+ Tools wird nicht mehr gebunden
+ Unterschiedliche JOIN Syntax für MySql und MS Access
+ Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql)
+ Anpassung an Rückgabe-Array &Sql_Spalten
+
Revision 1.6 2001/10/23 20:38:12 mrau
Default Parameter definiert
|