From: Michael R. <mr...@us...> - 2002-03-19 09:06:49
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv9647 Modified Files: aauszg Log Message: Tools wird nicht mehr gebunden Unterschiedliche JOIN Syntax für MySql und MS Access Anpassung an Rückgabe-Array &Sql_Spalten Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) DBDate Einsatz mit vorgeschaltetem Quoting Index: aauszg =================================================================== RCS file: /cvsroot/kick/kick/aauszg,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** aauszg 23 Oct 2001 20:38:12 -0000 1.6 --- aauszg 19 Mar 2002 09:06:44 -0000 1.7 *************** *** 10,14 **** use Kick; use GetOption; - use Tools; use Date::Calc qw(check_date Add_Delta_Days); use Text::ParseWords; --- 10,13 ---- *************** *** 97,118 **** # Wertungen ! my $sql = "SELECT ! w.datum, ! 'Wertung' AS transaktion, ! 0 / 1 AS anteile, ! 0 / 1 AS s_anteile, ! w.waehrung * w.kurs AS kurs, ! w.bemerkung, ! '' AS referenz, ! 0 / 1 AS gebuehr, ! 0 / 1 AS s_gebuehr, ! 0 / 1 AS betrag, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! wertungen w ! WHERE ! $interval"; &Sql ( sql => $sql, halt => 1); --- 96,156 ---- # Wertungen ! my $sql; ! ! if (&DBDriver eq 'mysql') { ! $sql = "CREATE TABLE temp ( ! datum date NOT NULL, ! transaktion CHAR(50), ! anteile DOUBLE, ! s_anteile DOUBLE, ! kurs DOUBLE, ! bemerkung CHAR(50), ! referenz CHAR(50), ! gebuehr DOUBLE, ! s_gebuehr DOUBLE, ! betrag DOUBLE, ! wert DOUBLE ! )"; ! ! &Sql ( sql => $sql, halt => 1); ! ! $sql = "INSERT INTO temp ! SELECT ! w.datum, ! 'Wertung', ! 0 / 1, ! 0 / 1, ! w.waehrung * w.kurs, ! w.bemerkung, ! '', ! 0 / 1, ! 0 / 1, ! 0 / 1, ! 0 / 1 ! FROM ! wertungen w ! WHERE ! $interval"; ! } ! else { ! $sql = "SELECT ! w.datum, ! 'Wertung' AS transaktion, ! 0 / 1 AS anteile, ! 0 / 1 AS s_anteile, ! w.waehrung * w.kurs AS kurs, ! w.bemerkung, ! '' AS referenz, ! 0 / 1 AS gebuehr, ! 0 / 1 AS s_gebuehr, ! 0 / 1 AS betrag, ! 0 / 1 AS wert ! INTO ! temp ! FROM ! wertungen w ! WHERE ! $interval"; ! } &Sql ( sql => $sql, halt => 1); *************** *** 143,148 **** # Temporäre Tabelle lesen - # Temporäre Tabelle lesen - $sql = "SELECT * FROM temp ORDER BY datum, transaktion"; --- 181,184 ---- *************** *** 205,209 **** if ($opt { kurz }) { ! @col = [qw (datum anteile s_anteile kurs gebuehr s_gebuehr wert)]; @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), --- 241,245 ---- if ($opt { kurz }) { ! @col = qw (datum anteile s_anteile kurs gebuehr s_gebuehr wert); @reformat = map { [ &ShortDate(&ParseDBDate($$_[0])), *************** *** 236,243 **** # Ouput ! my @data = (@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat); print "\n"; } --- 272,279 ---- # Ouput ! my @data = (\@col, @reformat); if ($opt { csv }) { ! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat); print "\n"; } *************** *** 408,411 **** --- 444,455 ---- $Log$ + Revision 1.7 2002/03/19 09:06:44 mrau + + Tools wird nicht mehr gebunden + Unterschiedliche JOIN Syntax für MySql und MS Access + Anpassung an Rückgabe-Array &Sql_Spalten + Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access) + DBDate Einsatz mit vorgeschaltetem Quoting + Revision 1.6 2001/10/23 20:38:12 mrau Default Parameter definiert |