Menu
▾
▴
kick-developers — Mailing List for the developers and friends of K.I.C.K.
You can subscribe to this list here.
| 2001 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
(9) |
Oct
(23) |
Nov
|
Dec
|
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2002 |
Jan
|
Feb
|
Mar
(20) |
Apr
(4) |
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(3) |
Oct
|
Nov
|
Dec
|
|
From: Michael R. <mr...@us...> - 2002-09-27 23:32:09
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv16500
Added Files:
mkall.pl
Log Message:
no message
--- NEW FILE: mkall.pl ---
#!/usr/bin/perl
# =============================================================================
# RVS Status : $State: Exp $
# Author : $Author: mrau $
# Last Modified : $Date: 2002/09/27 23:32:06 $
# Revision : $Revision: 1.1 $
# =============================================================================
use Getopt::Long;
# ==============================================================================
my $EXECUTE = 'perl ksh %s/%s';
my $LOG = 'all.log';
my $SEPERATOR = '';
# ==============================================================================
my (%parms);
GetOptions (
\%parms,
"-older:s",
"-newer:s",
"-help",
"-noexecute",
);
# help
if ($parms { help })
{
system( 'pod2text', $0 );
exit;
}
# ==============================================================================
# source directory
my $SCRIPT = $ENV { 'skripte' } || ".";
$SCRIPT =~ s/\\/\//gis;
$SCRIPT =~ s/[\/]$//;
# construct regular expression to strip out directory
my $regEx = $SCRIPT;
$regEx =~ s/(\W)/\\$1/gis;
$regEx .= '\/';
# glob all files
my @files;
while (my $file = <$SCRIPT/*.*>)
{
if ($file =~ /[\/\\]\d\d\d\d\..+$/)
{
push @files, $file;
}
}
# delete logfile
if (defined( $LOG ))
{
unlink ( $LOG );
}
# execution
foreach my $file (sort @files)
{
$file =~ s/$regEx//oxe;
my $older = defined( $parms { older } )
? $file lt $parms { older }
: 1;
my $newer = defined( $parms { newer } )
? $file gt $parms { newer }
: 1;
if ($older && $newer)
{
print "$file\n";
my $com = sprintf "$EXECUTE >> $LOG$SEPERATOR\n", $SCRIPT, $file;
$com .= sprintf "$ECHO %s$SEPERATOR\n", $file;
if (!$parms { noexecute })
{
print "\a";
system( $com );
}
}
}
# ==============================================================================
__END__
=head1 NAME
mkall.pl - Ausführung mehrerer Buchungsskripte
=head1 VERSION
$Revision: 1.1 $
=head1 SYNOPSIS
mkall.pl -older [FILENAME] -newer [FILENAME] -noexecute -h -hilfe
=head1 DESCRIPTION
Dieses Skript führt eine oder mehrere KICK Buchungsskripte aus. Die optionalen
Parameter -newer und -older spezifizieren dabei den Dateinamen der
Buchungsskripte.
=head1 REQUIRES
PERL.
=head1 EXAMPLE
perl mkall.pl -newer 2001.ende -older 2002.ende
=head1 RELEASE NOTES
$Log: mkall.pl,v $
Revision 1.1 2002/09/27 23:32:06 mrau
no message
Revision 1.1 2002/09/26 08:26:40 mrau
no message
=head1 AUTOR
Michael Rau (m-...@gm...).
Bug Reports, Feedback und Kommentare sind herzlich willkommen.
=head1 COPYRIGHT
Copyright (c) 2001 Michael Rau.
Dieses Programm ist freie Software. Sie können es unter den Bedingungen der
GNU General Public License, wie von der Free Software Foundation
herausgegeben, weitergeben und/oder modifizieren, entweder unter Version 2 der
Lizenz oder (wenn Sie es wünschen) jeder späteren Version.
Die Veröffentlichung dieses Programms erfolgt in der Hoffnung, daß es Ihnen
von Nutzen sein wird, aber OHNE JEDE GEWÄHRLEISTUNG - sogar ohne die implizite
Gewährleistung der MARKTREIFE oder der EIGNUNG FÜR EINEN BESTIMMTEN ZWECK.
Details finden Sie in der GNU General Public License.
Sie sollten eine Kopie der GNU General Public License zusammen mit diesem
Programm erhalten haben. Falls nicht, schreiben Sie an die Free Software
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
=cut
=cut
|
|
From: Michael R. <mr...@us...> - 2002-09-27 23:31:46
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv16336
Modified Files:
ksh
Log Message:
Environment Variablen auswerten
Backslash in Slash umwandeln
Index: ksh
===================================================================
RCS file: /cvsroot/kick/kick/ksh,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** ksh 19 Mar 2002 09:08:19 -0000 1.6
--- ksh 27 Sep 2002 23:31:44 -0000 1.7
***************
*** 84,87 ****
--- 84,89 ----
my ($com, $param) = $lines =~ /\s*([^\s]+)\s*(.*)?\;/;
+ $param =~ s/\%(.+?)\%/$ENV{$1}/gxs;
+ $param =~ s/\\/\//gis;
$lines = "";
***************
*** 197,200 ****
--- 199,210 ----
$Log$
+ Revision 1.7 2002/09/27 23:31:44 mrau
+ Environment Variablen auswerten
+ Backslash in Slash umwandeln
+
+ Revision 1.7 2002/09/26 08:22:12 mrau
+ Environment Variablen auswerten
+ Backslash in Slash umwandeln
+
Revision 1.6 2002/03/19 09:08:19 mrau
|
|
From: Michael R. <mr...@us...> - 2002-09-27 23:30:29
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv15815
Modified Files:
dosql
Log Message:
Kommentare entfernen
Index: dosql
===================================================================
RCS file: /cvsroot/kick/kick/dosql,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** dosql 19 Mar 2002 09:07:21 -0000 1.5
--- dosql 27 Sep 2002 23:30:25 -0000 1.6
***************
*** 89,92 ****
--- 89,96 ----
$opt { sql } =~ s/exit\s*\;.*//gis;
+ # Kommentare entfernen
+
+ $opt { sql } =~ s/\#.*//gm;
+
# SQL Statement
***************
*** 190,193 ****
--- 194,203 ----
$Log$
+ Revision 1.6 2002/09/27 23:30:25 mrau
+ Kommentare entfernen
+
+ Revision 1.6 2002/09/26 08:22:30 mrau
+ Kommentare entfernen
+
Revision 1.5 2002/03/19 09:07:21 mrau
|
|
From: Michael R. <mr...@us...> - 2002-05-11 07:02:02
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10167
Modified Files:
kauszg
Log Message:
SQL Bugfix in kauszg
Index: kauszg
===================================================================
RCS file: /cvsroot/kick/kick/kauszg,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** kauszg 19 Mar 2002 09:08:08 -0000 1.7
--- kauszg 11 May 2002 07:02:00 -0000 1.8
***************
*** 141,144 ****
--- 141,147 ----
# Ein- und Auszahlungen - tBuchungen
+ # mrau: 11.05.02 08:55
+ # Fkt. Concat statt Operator "&"
+
$sql = "INSERT INTO temp
(datum, posten, betrag, bemerkung, referenz)
***************
*** 148,152 ****
(b.anteile * a.preis),
b.bemerkung,
! Trim(t.nachname) & ', ' & Trim(t.vorname)
FROM
tbuchungen b,
--- 151,155 ----
(b.anteile * a.preis),
b.bemerkung,
! Concat(Trim(t.nachname), ', ', Trim(t.vorname))
FROM
tbuchungen b,
***************
*** 536,539 ****
--- 539,546 ----
$Log$
+ Revision 1.8 2002/05/11 07:02:00 mrau
+
+ SQL Bugfix in kauszg
+
Revision 1.7 2002/03/19 09:08:08 mrau
|
|
From: Michael R. <mr...@us...> - 2002-04-29 22:06:06
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv1760
Modified Files:
install.pl
Log Message:
Bestehende Konfigurationsdateien werden nicht überschrieben
Index: install.pl
===================================================================
RCS file: /cvsroot/kick/kick/install.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** install.pl 19 Mar 2002 09:07:55 -0000 1.2
--- install.pl 29 Apr 2002 22:06:00 -0000 1.3
***************
*** 72,76 ****
print `perl std driver = ODBC`;
! print `perl std database = Microsoft Access Driver (*.mdb);dbq=kick.mdb`;
print `perl std autocommit = `;
print `perl std user = `;
--- 72,76 ----
print `perl std driver = ODBC`;
! print `perl std database = driver=Microsoft Access Driver (*.mdb);dbq=kick.mdb`;
print `perl std autocommit = `;
print `perl std user = `;
***************
*** 81,84 ****
--- 81,87 ----
CopyFile ("init.masql", "init.sql");
}
+ else {
+ print "Datenbank existiert bereits.\n";
+ }
}
elsif ($db =~ /mysql/i) {
***************
*** 98,121 ****
my ($source, $target) = @_;
! open (SOURCE, "< $source") || return 0;
! open (TARGET, "> $target") || return 0;
! if (!(-T $source)) {
! binmode (SOURCE);
! binmode (TARGET);
! while (<SOURCE>) {
! print TARGET $_;
}
- }
- else {
- my $data = join "", <SOURCE>;
- $data =~ s/^\#\!\/perl\/bin\/perl/\#\!$perl/;
- print TARGET $data;
- }
! close (SOURCE);
! close (TARGET);
! return 1;
}
--- 101,131 ----
my ($source, $target) = @_;
! my ($filename) = $target =~ /.*\/(.+)/;
! if (($filename =~ /^\./) && (-e $target)) {
! print "Konfigurationsdatei $target existiert bereits.\n";
! return 1;
! }
! else {
! open (SOURCE, "< $source") || return 0;
! open (TARGET, "> $target") || return 0;
! if (!(-T $source)) {
! binmode (SOURCE);
! binmode (TARGET);
! while (<SOURCE>) {
! print TARGET $_;
! }
! }
! else {
! my $data = join "", <SOURCE>;
! $data =~ s/^\#\!\/perl\/bin\/perl/\#\!$perl/;
! print TARGET $data;
}
! close (SOURCE);
! close (TARGET);
! return 1;
! }
}
|
|
From: Michael R. <mr...@us...> - 2002-04-29 04:15:23
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv6373
Modified Files:
init.sql
Log Message:
SQL auf Standard Datenbank (MS Access) ausgerichtet.
Index: init.sql
===================================================================
RCS file: /cvsroot/kick/kick/init.sql,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** init.sql 19 Mar 2002 09:07:45 -0000 1.2
--- init.sql 29 Apr 2002 04:15:20 -0000 1.3
***************
*** 11,15 ****
CREATE TABLE teilhaber (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
nachname CHAR(50) NOT NULL,
vorname CHAR(50) NOT NULL,
--- 11,15 ----
CREATE TABLE teilhaber (
! id AUTOINCREMENT PRIMARY KEY,
nachname CHAR(50) NOT NULL,
vorname CHAR(50) NOT NULL,
***************
*** 27,31 ****
CREATE TABLE konten (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
bank CHAR(50),
--- 27,31 ----
CREATE TABLE konten (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
bank CHAR(50),
***************
*** 36,40 ****
CREATE TABLE posten (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 36,40 ----
CREATE TABLE posten (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 42,46 ****
CREATE TABLE depots (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 42,46 ----
CREATE TABLE depots (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 48,52 ****
CREATE TABLE wptypen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 48,52 ----
CREATE TABLE wptypen (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 54,61 ****
CREATE TABLE wertpapiere (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
! xdepot INT NOT NULL REFERENCES depots(id),
! xwptyp INT NOT NULL REFERENCES wptypen(id),
CONSTRAINT idx UNIQUE (titel)
);
--- 54,61 ----
CREATE TABLE wertpapiere (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
! xdepot INT REFERENCES depots(id) NOT NULL,
! xwptyp INT REFERENCES wptypen(id) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
);
***************
*** 63,67 ****
CREATE TABLE abschluss (
datum DATE PRIMARY KEY NOT NULL,
! id INT NOT NULL AUTO_INCREMENT,
preis DOUBLE,
CONSTRAINT idx UNIQUE (id)
--- 63,67 ----
CREATE TABLE abschluss (
datum DATE PRIMARY KEY NOT NULL,
! id AUTOINCREMENT,
preis DOUBLE,
CONSTRAINT idx UNIQUE (id)
***************
*** 81,96 ****
CREATE TABLE bbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xKonto INT NOT NULL REFERENCES konten(id)
);
CREATE TABLE tbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
--- 81,96 ----
CREATE TABLE bbuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL
);
CREATE TABLE tbuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
***************
*** 98,135 ****
anteile double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xTeilhaber INT NOT NULL REFERENCES teilhaber(id)
);
CREATE TABLE ubuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xBuchung INT NOT NULL REFERENCES bBuchungen(id)
);
CREATE TABLE abuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
anteile DOUBLE,
kurs DOUBLE,
gebuehr DOUBLE,
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
CREATE TABLE dbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
--- 98,135 ----
anteile double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xTeilhaber INT REFERENCES teilhaber(id) NOT NULL
);
CREATE TABLE ubuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xBuchung INT REFERENCES bBuchungen(id) NOT NULL
);
CREATE TABLE abuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
anteile DOUBLE,
kurs DOUBLE,
gebuehr DOUBLE,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
CREATE TABLE dbuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
***************
*** 137,153 ****
bemerkung CHAR(50),
steuer double,
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
CREATE TABLE wertungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung DOUBLE,
kurs double NOT NULL,
bemerkung CHAR(50),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
--- 137,154 ----
bemerkung CHAR(50),
steuer double,
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
CREATE TABLE wertungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung DOUBLE,
kurs double NOT NULL,
bemerkung CHAR(50),
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
+
|
|
From: Michael R. <mr...@us...> - 2002-04-29 04:14:27
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv6126
Modified Files:
Kick.pm
Log Message:
Bug im SQL beseitigt
Index: Kick.pm
===================================================================
RCS file: /cvsroot/kick/kick/Kick.pm,v
retrieving revision 1.7
retrieving revision 1.8
diff -C2 -d -r1.7 -r1.8
*** Kick.pm 19 Mar 2002 09:04:45 -0000 1.7
--- Kick.pm 29 Apr 2002 04:14:25 -0000 1.8
***************
*** 3614,3618 ****
&Sql( sql => 'DROP TABLE temp' );
&Sql( sql => 'CREATE TABLE temp (tempdata DOUBLE)' );
! $sql = sprintf 'INSERT INTO temp SELECT -1*SUM(anteile) FROM abuchungen WHERE xwpapier = %s',
$param { wertpapier };
&Sql( sql => $sql, halt => 1 );
--- 3614,3618 ----
&Sql( sql => 'DROP TABLE temp' );
&Sql( sql => 'CREATE TABLE temp (tempdata DOUBLE)' );
! $sql = sprintf 'INSERT INTO temp (tempdata) SELECT -1*SUM(anteile) FROM abuchungen WHERE xwpapier = %s',
$param { wertpapier };
&Sql( sql => $sql, halt => 1 );
***************
*** 4373,4376 ****
--- 4373,4380 ----
$Log$
+ Revision 1.8 2002/04/29 04:14:25 mrau
+
+ Bug im SQL beseitigt
+
Revision 1.7 2002/03/19 09:04:45 mrau
|
|
From: Michael R. <mr...@us...> - 2002-04-29 04:13:43
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv5855
Modified Files:
GetOption.pm
Log Message:
Typprüfung bei numerischen Parametern
Index: GetOption.pm
===================================================================
RCS file: /cvsroot/kick/kick/GetOption.pm,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** GetOption.pm 23 Oct 2001 20:36:33 -0000 1.5
--- GetOption.pm 29 Apr 2002 04:13:40 -0000 1.6
***************
*** 38,45 ****
sub Options {
! my ($hash) = shift @_;
! push @_, "hilfe";
! push @_, "h";
# mrau, 10.10.2001 22:21 `eval`auswerten, z.B. `100+200` ergibt als
--- 38,50 ----
sub Options {
! my ($hash, @opt) = @_;
! push @opt, "hilfe";
! push @opt, "h";
!
! # mrau: 28.04.2002 14:56
! # Typprüfung bei numerischen Parametern
!
! my @optstr = map { $_ =~ /(.+)\=f$/ ? "$1=s" : $_ } @opt;
# mrau, 10.10.2001 22:21 `eval`auswerten, z.B. `100+200` ergibt als
***************
*** 47,51 ****
my ($default, @argv);
!
foreach (@ARGV) {
if ($_ =~ /^\`(.*?)\`$/) {
--- 52,56 ----
my ($default, @argv);
!
foreach (@ARGV) {
if ($_ =~ /^\`(.*?)\`$/) {
***************
*** 64,68 ****
my @values;
! foreach (@_) {
if ($_ =~ /^\?(.*)/) {
$default = $1;
--- 69,73 ----
my @values;
! foreach (@optstr) {
if ($_ =~ /^\?(.*)/) {
$default = $1;
***************
*** 70,74 ****
}
else {
! push @values, $_;
}
}
--- 75,79 ----
}
else {
! push @values, $_;
}
}
***************
*** 78,82 ****
if (@ARGV) {
if ($default) {
! ${$hash}{$default} = sprintf '"%s"', (join " ", @ARGV);
}
else {
--- 83,87 ----
if (@ARGV) {
if ($default) {
! ${$hash}{$default} = sprintf '"%s"', (join " ", @ARGV);
}
else {
***************
*** 85,88 ****
--- 90,102 ----
}
+ # mrau: 28.04.2002 14:56
+ # Typprüfung bei numerischen Parametern
+
+ foreach (@opt) {
+ if (($_ =~ /(.+)\=f$/) && (exists(${$hash}{$1})) && (!&IsNumber(${$hash}{$1}))) {
+ die "Numerischer Parameter $1 erwartet";
+ }
+ }
+
# Standardparameter lesen
***************
*** 115,118 ****
--- 129,155 ----
}
+ sub IsNumber {
+
+ my @bool = map {
+ if ( ($_ =~ /^-?(\d+(?:\.\d*)?|\.\d+)$/) ||
+ ($_ =~ /\d+[\/\.\-]\d+[\/\.\-]\d+$/) ) {
+ 1;
+ }
+ elsif ($_ =~ /^\#\d+[\/\.\-]\d+[\/\.\-]\d+\#$/) {
+ if (&DBDriver eq 'mysql') {
+ 0;
+ }
+ else {
+ 1;
+ }
+ }
+ else {
+ 0;
+ }
+ } @_;
+
+ return wantarray ? @bool : $bool[0];
+ }
+
__END__
***************
*** 208,211 ****
--- 245,252 ----
$Log$
+ Revision 1.6 2002/04/29 04:13:40 mrau
+
+ Typprüfung bei numerischen Parametern
+
Revision 1.5 2001/10/23 20:36:33 mrau
Default Parameter eingeführt
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:11:16
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv11101
Modified Files:
auszg
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)
Index: auszg
===================================================================
RCS file: /cvsroot/kick/kick/auszg,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** auszg 23 Oct 2001 20:38:48 -0000 1.5
--- auszg 19 Mar 2002 09:11:12 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use Date::Calc qw(check_date Add_Delta_Days);
use Text::ParseWords;
--- 10,13 ----
***************
*** 79,108 ****
# Ein-/Auszahlungen im Report erscheinen
! my $sql = "SELECT
! a.datum AS datum,
! SUM(b.anteile * a.preis * b.waehrung) AS ez1,
! 0 / 1 AS ez2,
! 0 / 1 AS az1,
! 0 / 1 AS az2,
! SUM(b.anteile) AS a1,
! 0 / 1 AS a2,
! MIN(a.preis) AS p1,
! MAX(a.preis) AS p2,
! 0 / 1 AS w
! INTO
! temp
! FROM
! abschluss a
! LEFT OUTER JOIN
! tbuchungen b
! ON
! a.id = b.xende
! WHERE
! b.anteile > 0
! $interval
! GROUP BY
! a.datum";
! &Sql ( sql => $sql );
# Auszahlungen
--- 78,151 ----
# Ein-/Auszahlungen im Report erscheinen
! my $sql;
! if (&DBDriver eq 'mysql') {
! $sql = 'CREATE TABLE temp (
! datum DATE NOT NULL,
! ez1 DOUBLE,
! ez2 DOUBLE,
! az1 DOUBLE,
! az2 DOUBLE,
! a1 DOUBLE,
! a2 DOUBLE,
! p1 DOUBLE,
! p2 DOUBLE,
! w DOUBLE
! )';
! &Sql ( sql => $sql, halt => 1 );
!
! $sql = "INSERT INTO temp
! SELECT
! a.datum AS datum,
! SUM(b.anteile * a.preis * b.waehrung) AS ez1,
! 0 / 1 AS ez2,
! 0 / 1 AS az1,
! 0 / 1 AS az2,
! SUM(b.anteile) AS a1,
! 0 / 1 AS a2,
! MIN(a.preis) AS p1,
! MAX(a.preis) AS p2,
! 0 / 1 AS w
! FROM
! abschluss a
! LEFT OUTER JOIN
! tbuchungen b
! ON
! a.id = b.xende
! WHERE
! b.anteile > 0
! $interval
! GROUP BY
! a.datum";
! }
! else {
!
! $sql = "SELECT
! a.datum AS datum,
! SUM(b.anteile * a.preis * b.waehrung) AS ez1,
! 0 / 1 AS ez2,
! 0 / 1 AS az1,
! 0 / 1 AS az2,
! SUM(b.anteile) AS a1,
! 0 / 1 AS a2,
! MIN(a.preis) AS p1,
! MAX(a.preis) AS p2,
! 0 / 1 AS w
! INTO
! temp
! FROM
! abschluss a
! LEFT OUTER JOIN
! tbuchungen b
! ON
! a.id = b.xende
! WHERE
! b.anteile > 0
! $interval
! GROUP BY
! a.datum";
! }
!
! &Sql ( sql => $sql, halt => 1 );
# Auszahlungen
***************
*** 247,251 ****
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat);
print "\n";
}
--- 290,294 ----
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat);
print "\n";
}
***************
*** 391,394 ****
--- 434,444 ----
$Log$
+ Revision 1.6 2002/03/19 09:11:12 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)
+
Revision 1.5 2001/10/23 20:38:48 mrau
SQL-Fix: Bewertungen ohne Zahlungen werden jetzt auch angezeigt
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:09:01
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10348
Modified Files:
tauszg
Log Message:
Tools wird nicht mehr gebunden
Unterschiedliche JOIN Syntax für MySql und MS Access
Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
Index: tauszg
===================================================================
RCS file: /cvsroot/kick/kick/tauszg,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** tauszg 23 Oct 2001 20:38:12 -0000 1.6
--- tauszg 19 Mar 2002 09:08:56 -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 ----
***************
*** 107,136 ****
# Einzahlungen
! my $sql = "SELECT
! t.id AS teilhaber,
! t.nachname AS nachname,
! t.vorname AS vorname,
! b.datum AS datum,
! a.datum AS wertung,
! a.preis * b.anteile AS einzahlung,
! 0 / 1 AS s_einzahlung,
! 0 / 1 AS auszahlung,
! 0 / 1 AS s_auszahlung,
! a.preis AS preis,
! b.anteile AS anteile,
! 0 / 1 AS s_anteile,
! 0 / 1 AS wert
! INTO
! temp
! FROM
! tbuchungen b,
! teilhaber t,
! abschluss a
! WHERE
! b.xEnde = a.id
! AND b.xTeilhaber = t.id
! AND b.anteile > 0
! $interval";
! &Sql ( sql => $sql );
# Auszahlungen
--- 106,181 ----
# Einzahlungen
! my $sql;
! if (&DBDriver eq 'mysql') {
! $sql = 'CREATE TABLE temp (
! teilhaber INT,
! nachname CHAR(50),
! vorname CHAR(50),
! datum DATE,
! wertung DATE,
! einzahlung DOUBLE,
! s_einzahlung DOUBLE,
! auszahlung DOUBLE,
! s_auszahlung DOUBLE,
! preis DOUBLE,
! anteile DOUBLE,
! s_anteile DOUBLE,
! wert DOUBLE
! )';
! &Sql ( sql => $sql, halt => 1 );
! $sql = "INSERT INTO temp
! SELECT
! t.id AS teilhaber,
! t.nachname AS nachname,
! t.vorname AS vorname,
! b.datum AS datum,
! a.datum AS wertung,
! a.preis * b.anteile AS einzahlung,
! 0 / 1 AS s_einzahlung,
! 0 / 1 AS auszahlung,
! 0 / 1 AS s_auszahlung,
! a.preis AS preis,
! b.anteile AS anteile,
! 0 / 1 AS s_anteile,
! 0 / 1 AS wert
! FROM
! tbuchungen b,
! teilhaber t,
! abschluss a
! WHERE
! b.xEnde = a.id
! AND b.xTeilhaber = t.id
! AND b.anteile > 0
! $interval";
! }
! else {
! $sql = "SELECT
! t.id AS teilhaber,
! t.nachname AS nachname,
! t.vorname AS vorname,
! b.datum AS datum,
! a.datum AS wertung,
! a.preis * b.anteile AS einzahlung,
! 0 / 1 AS s_einzahlung,
! 0 / 1 AS auszahlung,
! 0 / 1 AS s_auszahlung,
! a.preis AS preis,
! b.anteile AS anteile,
! 0 / 1 AS s_anteile,
! 0 / 1 AS wert
! INTO
! temp
! FROM
! tbuchungen b,
! teilhaber t,
! abschluss a
! WHERE
! b.xEnde = a.id
! AND b.xTeilhaber = t.id
! AND b.anteile > 0
! $interval";
! }
!
! &Sql ( sql => $sql, halt => 1 );
# Auszahlungen
***************
*** 188,192 ****
# Saldo nachtragen
! @col = [ qw (name s_einzahlung s_auszahlung s_anteile wert) ];
@felder = qw(dummy dummy s_einzahlung s_auszahlung s_anteile wert);
--- 233,237 ----
# Saldo nachtragen
! @col = qw (name s_einzahlung s_auszahlung s_anteile wert);
@felder = qw(dummy dummy s_einzahlung s_auszahlung s_anteile wert);
***************
*** 247,251 ****
if ($opt { kurz }) {
! @col = [ qw (name s_ein s_aus s_anteile wert) ];
@reformat = map { [
substr(&Trim($$_[0]).", ".&Trim($$_[1]),0,50),
--- 292,296 ----
if ($opt { kurz }) {
! @col = qw (name s_ein s_aus s_anteile wert);
@reformat = map { [
substr(&Trim($$_[0]).", ".&Trim($$_[1]),0,50),
***************
*** 271,275 ****
elsif ($opt { kurz }) {
! @col = [qw (datum einzahlung auszahlung preis anteile gesamt)];
@reformat = map { [
&ShortDate(&ParseDBDate($$_[0])),
--- 316,320 ----
elsif ($opt { kurz }) {
! @col = qw (datum einzahlung auszahlung preis anteile gesamt);
@reformat = map { [
&ShortDate(&ParseDBDate($$_[0])),
***************
*** 300,307 ****
# Ouput
! my @data = (@col, @reformat);
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat);
print "\n";
}
--- 345,352 ----
# Ouput
! my @data = (\@col, @reformat);
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat);
print "\n";
}
***************
*** 510,513 ****
--- 555,564 ----
$Log$
+ Revision 1.7 2002/03/19 09:08:56 mrau
+
+ Tools wird nicht mehr gebunden
+ Unterschiedliche JOIN Syntax für MySql und MS Access
+ Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
+
Revision 1.6 2001/10/23 20:38:12 mrau
Default Parameter definiert
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:08:47
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10291
Modified Files:
status
Log Message:
Tools wird nicht mehr gebunden
Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
Index: status
===================================================================
RCS file: /cvsroot/kick/kick/status,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** status 14 Oct 2001 21:55:02 -0000 1.6
--- status 19 Mar 2002 09:08:43 -0000 1.7
***************
*** 11,15 ****
use Date::Calc qw(check_date Date_to_Days Add_Delta_Days);
use GetOption;
- use Tools;
use Text::ParseWords;
use strict;
--- 11,14 ----
***************
*** 53,57 ****
my ($jahr, $monat, $tag);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum }))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0));
--- 52,56 ----
my ($jahr, $monat, $tag);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum })))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr, $monat, $tag) = &ParseDBDate (&Sql_Zelle(0));
***************
*** 71,75 ****
my $com = sprintf 'tauszg -bis "%s" -summe -csv',
&LongDate($jahr, $monat, $tag);
-
my @result = `perl $com`;
shift @result;
--- 70,73 ----
***************
*** 262,265 ****
--- 260,268 ----
$Log$
+ Revision 1.7 2002/03/19 09:08:43 mrau
+
+ Tools wird nicht mehr gebunden
+ Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
+
Revision 1.6 2001/10/14 21:55:02 mrau
Bugfix SQL-Statement zur Selektion des 'nächsten' Abschlusses
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:08:34
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10216
Modified Files:
report
Log Message:
Tools wird nicht mehr gebunden
Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
Index: report
===================================================================
RCS file: /cvsroot/kick/kick/report,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** report 4 Oct 2001 23:16:42 -0000 1.4
--- report 19 Mar 2002 09:08:31 -0000 1.5
***************
*** 11,15 ****
use Date::Calc qw(check_date Date_to_Days Add_Delta_Days);
use GetOption;
- use Tools;
use Text::ParseWords;
use strict;
--- 11,14 ----
***************
*** 46,50 ****
my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &DBDate(&ParseDate($opt { datum }))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0));
--- 45,49 ----
my ($jahr1, $monat1, $tag1, $jahr0, $monat0, $tag0);
! &Sql ( sql => (sprintf 'SELECT MIN(datum) FROM abschluss WHERE datum >= %s', &Quote(&DBDate(&ParseDate($opt { datum })))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr1, $monat1, $tag1) = &ParseDBDate (&Sql_Zelle(0));
***************
*** 56,60 ****
# Vortragsdatum
! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &DBDate(&ParseDate($opt { datum }))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1);
--- 55,59 ----
# Vortragsdatum
! &Sql ( sql => (sprintf 'SELECT MAX(datum) FROM abschluss WHERE datum < %s', &Quote(&DBDate(&ParseDate($opt { datum })))));
if (&ParseDBDate (&Sql_Zelle(0))) {
($jahr0, $monat0, $tag0) = &Add_Delta_Days(&ParseDBDate (&Sql_Zelle(0)), 1);
***************
*** 72,76 ****
my $preis;
! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &DBDate($jahr1, $monat1, $tag1)));
if (&Sql_Zeilen) {
$preis = &Sql_Zelle(0);
--- 71,75 ----
my $preis;
! &Sql ( sql => (sprintf 'SELECT preis FROM abschluss WHERE datum = %s', &Quote(&DBDate($jahr1, $monat1, $tag1))));
if (&Sql_Zeilen) {
$preis = &Sql_Zelle(0);
***************
*** 411,414 ****
--- 410,418 ----
$Log$
+ Revision 1.5 2002/03/19 09:08:31 mrau
+
+ Tools wird nicht mehr gebunden
+ Quote-Anpassung im Datumsformat (unterschiedliche Behandlung MySql und MS Access)
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:08:23
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10169
Modified Files:
ksh
Log Message:
Tools wird nicht mehr gebunden
Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug)
Fehlermeldung "Unbekannte Datei" eingefügt
Index: ksh
===================================================================
RCS file: /cvsroot/kick/kick/ksh,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** ksh 23 Oct 2001 20:39:54 -0000 1.5
--- ksh 19 Mar 2002 09:08:19 -0000 1.6
***************
*** 9,13 ****
use Text::ParseWords;
- use Tools;
use Kick;
use strict;
--- 9,12 ----
***************
*** 32,35 ****
--- 31,38 ----
);
+ if (!(-e (join " ", @ARGV))) {
+ die "Unbekannte Datei @ARGV";
+ }
+
my ($lines);
my $cursor = 0;
***************
*** 39,42 ****
--- 42,46 ----
# add current line
+ $cursor++;
if ((!$interactive) && (!$opt { leise })) {
print $_;
***************
*** 97,106 ****
do ($com);
if ($@ && !$interactive) {
!
# mrau: 23.10.01 21:53
# Aussagekräftige Fehlermeldung
! my ($msg, $modul, $line, $input) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)\,\s\<\>\sline\s(\d+)/;
! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $input, $msg, $modul, $line;
&Rollback;
exit;
--- 101,110 ----
do ($com);
if ($@ && !$interactive) {
!
# mrau: 23.10.01 21:53
# Aussagekräftige Fehlermeldung
! my ($msg, $modul, $line) = $@ =~ /(.*?)\sat\s(.*?)\sline\s(\d+)/;
! printf "Zeile %d: %s.\nModul %s (Code-Line %d).\n", $cursor, $msg, $modul, $line;
&Rollback;
exit;
***************
*** 193,196 ****
--- 197,206 ----
$Log$
+ Revision 1.6 2002/03/19 09:08:19 mrau
+
+ Tools wird nicht mehr gebunden
+ Fehlermeldung mit Eingabe-Zeilennr. angereichert (Bug)
+ Fehlermeldung "Unbekannte Datei" eingefügt
+
Revision 1.5 2001/10/23 20:39:54 mrau
Option <leise>, <dateiname> eingeführt; Erweiterte Syntax-Prüfung
|
|
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
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:59
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv10041
Modified Files:
install.pl
Log Message:
Datenbank abfragen und differenzierte Vorbereitung der Datenbank
Unterschiedliche Syntax für MS Access und MySql
Index: install.pl
===================================================================
RCS file: /cvsroot/kick/kick/install.pl,v
retrieving revision 1.1
retrieving revision 1.2
diff -C2 -d -r1.1 -r1.2
*** install.pl 3 Oct 2001 22:49:54 -0000 1.1
--- install.pl 19 Mar 2002 09:07:55 -0000 1.2
***************
*** 25,28 ****
--- 25,37 ----
$target =~ s/\/$//;
+ # Datenbank abfragen
+
+ do {
+ print "Datenbank (mdb|mysql) [mdb] : ";
+ $in = <>;
+ chomp ($in);
+ } while ($in !~ /^\s*(|mdb|mysql)\s*$/i);
+ my $db = $in ne "" ? $1 : 'mdb';
+
# Zielverzeichnis vorbereiten
***************
*** 58,63 ****
# Datenbank vorbereiten
! if (!(-e "kick.mdb")) {
! rename "kick.tmpl.mdb", "kick.mdb";
}
--- 67,95 ----
# Datenbank vorbereiten
! if ($db =~ /mdb/i) {
!
! print "Initialisiere MS Access Datenbank.\n";
!
! print `perl std driver = ODBC`;
! print `perl std database = Microsoft Access Driver (*.mdb);dbq=kick.mdb`;
! print `perl std autocommit = `;
! print `perl std user = `;
! print `perl std password = `;
!
! if (!(-e "kick.mdb")) {
! CopyFile ("kick.tmpl.mdb", "kick.mdb");
! CopyFile ("init.masql", "init.sql");
! }
! }
! elsif ($db =~ /mysql/i) {
! print "Initialisiere MySql Datenbank.\n";
!
! print `perl std driver = mysql`;
! print `perl std database = kick:localhost`;
! print `perl std autocommit = 1`;
! print `perl std user = admin`;
! print `perl std password = sa`;
!
! CopyFile ("init.mysql", "init.sql");
}
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:48
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9976
Modified Files:
init.sql
Log Message:
Delete ausgelagert
Unterschiedliche Syntax für MS Access und MySql (init.masql, init.mysql)
Index: init.sql
===================================================================
RCS file: /cvsroot/kick/kick/init.sql,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** init.sql 29 Sep 2001 09:07:45 -0000 1.1.1.1
--- init.sql 19 Mar 2002 09:07:45 -0000 1.2
***************
*** 8,31 ****
//
- // Tabellen löschen
-
- DROP table wertungen;
- DROP table abuchungen;
- DROP table dbuchungen;
- DROP table tbuchungen;
- DROP table ubuchungen;
- DROP table bbuchungen;
- DROP table konten;
- DROP table posten;
- DROP table teilhaber;
- DROP table wertpapiere;
- DROP table depots;
- DROP table wptypen;
- DROP table abschluss;
-
// Objekt Tabellen anlegen
CREATE TABLE teilhaber (
! id AUTOINCREMENT PRIMARY KEY,
nachname CHAR(50) NOT NULL,
vorname CHAR(50) NOT NULL,
--- 8,15 ----
//
// Objekt Tabellen anlegen
CREATE TABLE teilhaber (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
nachname CHAR(50) NOT NULL,
vorname CHAR(50) NOT NULL,
***************
*** 43,47 ****
CREATE TABLE konten (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
bank CHAR(50),
--- 27,31 ----
CREATE TABLE konten (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
bank CHAR(50),
***************
*** 52,56 ****
CREATE TABLE posten (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 36,40 ----
CREATE TABLE posten (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 58,62 ****
CREATE TABLE depots (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 42,46 ----
CREATE TABLE depots (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 64,68 ****
CREATE TABLE wptypen (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
--- 48,52 ----
CREATE TABLE wptypen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
***************
*** 70,77 ****
CREATE TABLE wertpapiere (
! id AUTOINCREMENT PRIMARY KEY,
titel CHAR(50) NOT NULL,
! xdepot INT REFERENCES depots(id) NOT NULL,
! xwptyp INT REFERENCES wptypen(id) NOT NULL,
CONSTRAINT idx UNIQUE (titel)
);
--- 54,61 ----
CREATE TABLE wertpapiere (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
titel CHAR(50) NOT NULL,
! xdepot INT NOT NULL REFERENCES depots(id),
! xwptyp INT NOT NULL REFERENCES wptypen(id),
CONSTRAINT idx UNIQUE (titel)
);
***************
*** 79,83 ****
CREATE TABLE abschluss (
datum DATE PRIMARY KEY NOT NULL,
! id AUTOINCREMENT,
preis DOUBLE,
CONSTRAINT idx UNIQUE (id)
--- 63,67 ----
CREATE TABLE abschluss (
datum DATE PRIMARY KEY NOT NULL,
! id INT NOT NULL AUTO_INCREMENT,
preis DOUBLE,
CONSTRAINT idx UNIQUE (id)
***************
*** 96,112 ****
// Transaktions Tabellen anlegen
! CREATE TABLE bBuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL
);
! CREATE TABLE tBuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
--- 80,96 ----
// Transaktions Tabellen anlegen
! CREATE TABLE bbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xKonto INT NOT NULL REFERENCES konten(id)
);
! CREATE TABLE tbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
***************
*** 114,151 ****
anteile double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xTeilhaber INT REFERENCES teilhaber(id) NOT NULL
);
! CREATE TABLE uBuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xBuchung INT REFERENCES bBuchungen(id) NOT NULL
);
! CREATE TABLE aBuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
bemerkung CHAR(50),
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
anteile DOUBLE,
kurs DOUBLE,
gebuehr DOUBLE,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
! CREATE TABLE dBuchungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung double,
--- 98,135 ----
anteile double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xTeilhaber INT NOT NULL REFERENCES teilhaber(id)
);
! CREATE TABLE ubuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
betrag double NOT NULL,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xBuchung INT NOT NULL REFERENCES bBuchungen(id)
);
! CREATE TABLE abuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
bemerkung CHAR(50),
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
anteile DOUBLE,
kurs DOUBLE,
gebuehr DOUBLE,
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
! CREATE TABLE dbuchungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung double,
***************
*** 153,179 ****
bemerkung CHAR(50),
steuer double,
! xPosten INT REFERENCES posten(id) NOT NULL,
! xKonto INT REFERENCES konten(id) NOT NULL,
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
! CREATE TABLE Wertungen (
! id AUTOINCREMENT PRIMARY KEY,
datum date NOT NULL,
waehrung DOUBLE,
kurs double NOT NULL,
bemerkung CHAR(50),
! xEnde INT REFERENCES abschluss(id) NOT NULL,
! xWPapier INT REFERENCES wertpapiere (id) NOT NULL
);
-
- exit;
-
- // RELEASE NOTES
-
- $Log$
- Revision 1.1.1.1 2001/09/29 09:07:45 mrau
-
- Import
-
--- 137,153 ----
bemerkung CHAR(50),
steuer double,
! xPosten INT NOT NULL REFERENCES posten(id),
! xKonto INT NOT NULL REFERENCES konten(id),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
! CREATE TABLE wertungen (
! id INT PRIMARY KEY NOT NULL AUTO_INCREMENT,
datum date NOT NULL,
waehrung DOUBLE,
kurs double NOT NULL,
bemerkung CHAR(50),
! xEnde INT NOT NULL REFERENCES abschluss(id),
! xWPapier INT NOT NULL REFERENCES wertpapiere (id)
);
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:37
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9904
Modified Files:
init
Log Message:
Fehlerkontrolle im Init-Prozess
Index: init
===================================================================
RCS file: /cvsroot/kick/kick/init,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** init 4 Oct 2001 23:16:42 -0000 1.4
--- init 19 Mar 2002 09:07:33 -0000 1.5
***************
*** 27,32 ****
}
}
! &Init;
! print "OK.\n";
__END__
--- 27,36 ----
}
}
! if (&Init) {
! print "OK.\n";
! }
! else {
! die "Bei der Initialisierung sind Fehler aufgetreten";
! }
__END__
***************
*** 69,72 ****
--- 73,80 ----
$Log$
+ Revision 1.5 2002/03/19 09:07:33 mrau
+
+ Fehlerkontrolle im Init-Prozess
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:25
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9837
Modified Files:
dosql
Log Message:
Tools wird nicht mehr gebunden
Anpassung an Rückgabe-Array &Sql_Spalten
Index: dosql
===================================================================
RCS file: /cvsroot/kick/kick/dosql,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** dosql 4 Oct 2001 23:16:42 -0000 1.4
--- dosql 19 Mar 2002 09:07:21 -0000 1.5
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use strict;
--- 10,13 ----
***************
*** 106,117 ****
# Ouput
! if (scalar @{&Sql_Spalten} > 0) {
!
# Result-Set
! printf "\n%s\n", &XTab (data => [&Sql_Spalten, @{&Sql_Daten}], header => 1);
printf " %d records.\n\n", &Sql_Zeilen;
}
! elsif (&Sql_Zeilen > 0) {
!
# Datenmanipulation
printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen;
--- 105,114 ----
# Ouput
! if (&Sql_Daten > 0) {
# Result-Set
! printf "\n%s\n", &XTab (data => [\@{&Sql_Spalten}, @{&Sql_Daten}], header => 1);
printf " %d records.\n\n", &Sql_Zeilen;
}
! elsif (&Sql_Zeilen) {
# Datenmanipulation
printf "%d manipulierte Zeile(n).\n", scalar &Sql_Zeilen;
***************
*** 193,196 ****
--- 190,198 ----
$Log$
+ Revision 1.5 2002/03/19 09:07:21 mrau
+
+ Tools wird nicht mehr gebunden
+ Anpassung an Rückgabe-Array &Sql_Spalten
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:13
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9785
Modified Files:
dauszg
Log Message:
Tools wird nicht mehr gebunden
Anpassung an Rückgabe-Array &Sql_Spalten
Index: dauszg
===================================================================
RCS file: /cvsroot/kick/kick/dauszg,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** dauszg 23 Oct 2001 20:38:12 -0000 1.5
--- dauszg 19 Mar 2002 09:07:09 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use Date::Calc qw(check_date Add_Delta_Days);
use Text::ParseWords;
--- 10,13 ----
***************
*** 323,327 ****
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (@col, @reformat);
print "\n";
}
--- 322,326 ----
if ($opt { csv }) {
! print join "\n", map { (join ";", map { &IsNumber(Trim($_)) ? Trim($_) : '"'.Trim($_).'"' } @{$_}) } (\@col, @reformat);
print "\n";
}
***************
*** 490,493 ****
--- 489,497 ----
$Log$
+ Revision 1.6 2002/03/19 09:07:09 mrau
+
+ Tools wird nicht mehr gebunden
+ Anpassung an Rückgabe-Array &Sql_Spalten
+
Revision 1.5 2001/10/23 20:38:12 mrau
Default Parameter definiert
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:07:01
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9719
Modified Files:
asaldo
Log Message:
Tools wird nicht mehr gebunden
Unterschiedliche JOIN Syntax für MySql und MS Access
Anpassung an Rückgabe-Array &Sql_Spalten
Index: asaldo
===================================================================
RCS file: /cvsroot/kick/kick/asaldo,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** asaldo 14 Oct 2001 21:53:29 -0000 1.5
--- asaldo 19 Mar 2002 09:06:56 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use Date::Calc qw(check_date Add_Delta_Days);
use Text::ParseWords;
--- 10,13 ----
***************
*** 255,258 ****
--- 254,263 ----
$Log$
+ Revision 1.6 2002/03/19 09:06:56 mrau
+
+ Tools wird nicht mehr gebunden
+ Unterschiedliche JOIN Syntax für MySql und MS Access
+ Anpassung an Rückgabe-Array &Sql_Spalten
+
Revision 1.5 2001/10/14 21:53:29 mrau
Sortierte Ausgabe der Wertpapiere
|
|
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
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:06:24
|
Update of /cvsroot/kick/kick/doc
In directory usw-pr-cvs1:/tmp/cvs-serv9494/doc
Modified Files:
howtos.pod
Log Message:
Tools wird nicht mehr gebunden
Index: howtos.pod
===================================================================
RCS file: /cvsroot/kick/kick/doc/howtos.pod,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** howtos.pod 3 Oct 2001 20:39:11 -0000 1.3
--- howtos.pod 19 Mar 2002 09:06:19 -0000 1.4
***************
*** 485,489 ****
<01> use Kick;
- <02> use Tools;
<03>
<04> my @teilhaber = &Eintrag (
--- 485,488 ----
***************
*** 551,554 ****
--- 550,557 ----
$Log$
+ Revision 1.4 2002/03/19 09:06:19 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.3 2001/10/03 20:39:11 mrau
Änderung der Lizenz (GNU GPL)
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:06:23
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9494
Modified Files:
abschluss buche liste ksaldo eintrag makedoc werte
Log Message:
Tools wird nicht mehr gebunden
Index: abschluss
===================================================================
RCS file: /cvsroot/kick/kick/abschluss,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** abschluss 4 Oct 2001 23:16:42 -0000 1.4
--- abschluss 19 Mar 2002 09:06:18 -0000 1.5
***************
*** 11,15 ****
use Date::Calc qw(check_date Date_to_Days);
use GetOption;
- use Tools;
use Text::ParseWords;
use strict;
--- 11,14 ----
***************
*** 266,269 ****
--- 265,272 ----
$Log$
+ Revision 1.5 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: buche
===================================================================
RCS file: /cvsroot/kick/kick/buche,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** buche 4 Oct 2001 23:16:42 -0000 1.5
--- buche 19 Mar 2002 09:06:18 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use strict;
--- 10,13 ----
***************
*** 89,95 ****
}
}
!
! if ($opt { posten } =~ /einzahlung/i) {
! $ok = &Einzahlung ( %opt );
}
elsif ($opt { posten } =~ /auszahlung/i) {
--- 88,93 ----
}
}
! if ($opt { posten } =~ /einzahlung/i) {
! $ok = &Einzahlung ( %opt );
}
elsif ($opt { posten } =~ /auszahlung/i) {
***************
*** 413,416 ****
--- 411,418 ----
$Log$
+ Revision 1.6 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.5 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: liste
===================================================================
RCS file: /cvsroot/kick/kick/liste,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** liste 4 Oct 2001 23:16:42 -0000 1.5
--- liste 19 Mar 2002 09:06:18 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use Text::ParseWords;
use strict;
--- 10,13 ----
***************
*** 75,81 ****
}
! if (!&Sql ( sql => $sql )) {
die "Die Tabelle konnte nicht selektiert werden";
}
my @tab = &Sql_Daten;
my $col = &Sql_Spalten;
--- 74,81 ----
}
! if (!&Sql ( sql => $sql , leise => 0)) {
die "Die Tabelle konnte nicht selektiert werden";
}
+
my @tab = &Sql_Daten;
my $col = &Sql_Spalten;
***************
*** 280,283 ****
--- 280,287 ----
$Log$
+ Revision 1.6 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.5 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: ksaldo
===================================================================
RCS file: /cvsroot/kick/kick/ksaldo,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** ksaldo 4 Oct 2001 23:16:42 -0000 1.4
--- ksaldo 19 Mar 2002 09:06:18 -0000 1.5
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use Date::Calc qw(check_date Add_Delta_Days);
use Text::ParseWords;
--- 10,13 ----
***************
*** 214,217 ****
--- 213,220 ----
$Log$
+ Revision 1.5 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: eintrag
===================================================================
RCS file: /cvsroot/kick/kick/eintrag,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** eintrag 4 Oct 2001 23:16:42 -0000 1.5
--- eintrag 19 Mar 2002 09:06:18 -0000 1.6
***************
*** 3,7 ****
use Kick;
use Getopt::Long;
- use Tools;
use Text::ParseWords;
use strict;
--- 3,6 ----
***************
*** 318,321 ****
--- 317,324 ----
$Log$
+ Revision 1.6 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.5 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: makedoc
===================================================================
RCS file: /cvsroot/kick/kick/makedoc,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** makedoc 4 Oct 2001 23:16:42 -0000 1.4
--- makedoc 19 Mar 2002 09:06:18 -0000 1.5
***************
*** 10,14 ****
use File::Find;
use DBI;
- use Tools;
use Pod::Html;
--- 10,13 ----
***************
*** 107,110 ****
--- 106,113 ----
$Log$
+ Revision 1.5 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.4 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
Index: werte
===================================================================
RCS file: /cvsroot/kick/kick/werte,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** werte 4 Oct 2001 23:16:42 -0000 1.5
--- werte 19 Mar 2002 09:06:18 -0000 1.6
***************
*** 10,14 ****
use Kick;
use GetOption;
- use Tools;
use strict;
--- 10,13 ----
***************
*** 122,125 ****
--- 121,128 ----
$Log$
+ Revision 1.6 2002/03/19 09:06:18 mrau
+
+ Tools wird nicht mehr gebunden
+
Revision 1.5 2001/10/04 23:16:42 mrau
Bugfix :endofperl behoben
|
|
From: Michael R. <mr...@us...> - 2002-03-19 09:04:48
|
Update of /cvsroot/kick/kick
In directory usw-pr-cvs1:/tmp/cvs-serv9145
Modified Files:
Kick.pm
Log Message:
Tools Routinen eingefügt und Tools.pm Bindung entfernt
SQLAutocommit als Variable eingefügt
autocommit und printerror als parameter spezifiziert
Commit / Rollback nur im Falle autocommit == 0
Parameter leise bei &sql eingeführt
Daten-Rückgabe bei &sql nur im Falle SQL eq "SELECT" (Anpassung nötig für MySql)
&Sql_Spalten gibt ab sofort einen Array (früher Referenz auf Array) zurück
Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql)
Sicherheitsabfrage bei &Sql_Spalten
Delete-Tabels bei Init ausgelagert
DBDate Einsatz mit vorgeschaltetem Quoting (Anpassung nötig für MySql)
Änderung SQL Syntax bei Auflösen _zahlung / _kauf (Anpassung nötig für MySql)
Neue Routine DBDriver (Rückgabe 'mysql' / 'odbc')
Index: Kick.pm
===================================================================
RCS file: /cvsroot/kick/kick/Kick.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -C2 -d -r1.6 -r1.7
*** Kick.pm 23 Oct 2001 20:37:11 -0000 1.6
--- Kick.pm 19 Mar 2002 09:04:45 -0000 1.7
***************
*** 14,18 ****
use Text::ParseWords;
use Date::Calc qw( check_date Date_to_Days Add_Delta_Days );
! use Tools;
BEGIN {
--- 14,19 ----
use Text::ParseWords;
use Date::Calc qw( check_date Date_to_Days Add_Delta_Days );
! use Time::Local;
! use Time::localtime;
[...1300 lines suppressed...]
$Log$
+ Revision 1.7 2002/03/19 09:04:45 mrau
+
+ Tools Routinen eingefügt und Tools.pm Bindung entfernt
+ SQLAutocommit als Variable eingefügt
+ autocommit und printerror als parameter spezifiziert
+ Commit / Rollback nur im Falle autocommit == 0
+ Parameter leise bei &sql eingeführt
+ Daten-Rückgabe bei &sql nur im Falle SQL eq "SELECT" (Anpassung nötig für MySql)
+ &Sql_Spalten gibt ab sofort einen Array (früher Referenz auf Array) zurück
+ Einheitliche Kleinschreibung bei Tabellennamen (Anpassung nötig für MySql)
+ Sicherheitsabfrage bei &Sql_Spalten
+ Delete-Tabels bei Init ausgelagert
+ DBDate Einsatz mit vorgeschaltetem Quoting (Anpassung nötig für MySql)
+ Änderung SQL Syntax bei Auflösen _zahlung / _kauf (Anpassung nötig für MySql)
+ Neue Routine DBDriver (Rückgabe 'mysql' / 'odbc')
+
Revision 1.6 2001/10/23 20:37:11 mrau
Debugging entfnert
|
|
From: Michael R. <mr...@us...> - 2002-03-19 08:38:07
|
Update of /cvsroot/kick/kick In directory usw-pr-cvs1:/tmp/cvs-serv2645 Added Files: delete.sql Log Message: Seperates Initialisierungs-Skript --- NEW FILE: delete.sql --- // // SKRIPT ZUR INITIALISIERUNG DER DATENBANK // ============================================================================ // RVS Status : $State: Exp $ // Author : $Author: mrau $ // Last Modified : $Date: 2002/03/19 08:38:00 $ // Revision : $Revision: 1.1 $ // // Tabellen löschen DROP table wertungen; DROP table abuchungen; DROP table dbuchungen; DROP table tbuchungen; DROP table ubuchungen; DROP table bbuchungen; DROP table konten; DROP table posten; DROP table teilhaber; DROP table wertpapiere; DROP table depots; DROP table wptypen; DROP table abschluss; |
