sub ReadData ($$) {
	my ($self, $filename) = @_;
	my $ar_returnvalue = [];
	if (!-e "$filename") {
		Carp::carp("File [$filename] does not exist");
		return undef;
	}
	open (FLATFILE, '<', $filename) or Carp::croak("Cannot open file [$filename]");
	while (<FLATFILE>) {
		chomp;
		push (@{$ar_returnvalue}, Interfaces::FlatFile::ReadRecord($self, $_));
	}
	close (FLATFILE);
	return $ar_returnvalue;
} ## end sub ReadData ($$)

##</code><code>##

		$hr_returnvalue->{$CurrentColumnName} =~ s/^\s*(.*?)\s*$/$1/;    # Trim whitespace

##</code><code>##

		s/^\s+//, s/\s+$// for $hr_returnvalue->{$CurrentColumnName};    # Trim whitespace

##</code><code>##

				if ($self->datatype->[$_] =~ /^(?:CHAR|VARCHAR|DATE|TIME|DATETIME)$/) {
					$hr_returnvalue->{$CurrentColumnName} = sprintf ("%s", $self->standaard->[$_]);
				} else {
					$hr_returnvalue->{$CurrentColumnName} = $self->standaard->[$_];
				}