void Eb::Import()
{
...........
	FileSel fs;
#ifdef _DEBUG
	fs.AllFilesType();
	fs.ActiveDir("F:\\DATA");
#endif
	if(!fs.ExecuteSelectDir())
		return;
	DbfStream dbf;

	if(!dbf.Open(AppendFileName(~fs, "EI_ZAKL.DBF"))) {
		Exclamation("Nelze otevøít ei_zakl.dbf");
		return;
	}
	
.........
	Progress pi("Importuji %d");
	pi.SetTotal(dbf.GetRowCount());
	Index<String> nf;
	while(dbf.Fetch()) {
		if(pi.StepCanceled()) return;
		String text;
		int osoba_seq = DoOsoba(dbf["RC"], dbf["JMENO"], dbf["PRIJMENI"], dbf["ROD_PRIJM"],
		                        dbf["ULICE"], dbf["POPCIS"], dbf["OBEC"], dbf["MESTO"],
		                        dbf["PSC"]);
		if(!IsNull(osoba_seq)) {
			int zastupce_seq = Null;
			if(!IsNull(dbf["ZASTPRIJM"])) {
				zastupce_seq = DoOsoba(dbf["ZAST_RC"], dbf["ZASTJMEN"], dbf["ZASTPRIJM"],
				                       dbf["ZASTROD_PR"], dbf["ZASTULICE"],
				                       dbf["ZASTPOPCIS"], dbf["ZASTOBEC"], dbf["ZASTMESTO"],
				                       dbf["ZASTPSC"]);
				if(IsNull(zastupce_seq))
					text << "Zástupce nenalezen: "
					     << dbf["ZAST_RC"] << ", "
					     << dbf["ZASTJMEN"] << " " << dbf["ZASTPRIJM"] << ", "
					     << "roz. " << dbf["ZASTROD_PR"] << ", " << dbf["ZASTULICE"]
					     << dbf["ZASTPOPCIS"] << ", " << dbf["ZASTOBEC"]
					     << " " << dbf["ZASTMESTO"];
			}
			String t = dbf["POSPR_TYP"];
			int stupen = t == "TP" ? 1 : t == "ZTP" ? 2 : t == "ZTP/P" ? 3 : 0;
			String cz = dbf["CISVOZIK"];
			SQL * Insert(SOCI_INVALIDA)
					(SOCI_INVALIDA_SEQ, ++SeqSoci)
					(OSOBA_SEQ, osoba_seq)
					(COP, dbf["OBCPRUK"])
					(DATZAD, dbf["DATZADOST"])
					(ZASTUPCE_OSOBA_SEQ, zastupce_seq)
					(ZASTUPCE_COP, dbf["ZASTPRUK"])
					(DATUM, dbf["DATPRUKOD"])
					(DATUM_DO, dbf["DATPRUKDO"])
					(CISLO, dbf["POSPR_CIS"])
					(STUPEN, stupen)
					(ZNACENI, cz)
					(DRUH, toupper(cz[0]) == 'A' ? 1 : 2)
					(TELEFON, dbf["TELEF"])
					(TEXT, text)
			;
...........

#include <Core/Core.h>
#include <TCore/dbf.h>

using namespace Upp;

CONSOLE_APP_MAIN
{   DbfStream dbf;
    if(!dbf.Open("C:\\upp\\out\\MSC8\\club.dbf", false) ) {
		return;
	}
    //... to do something
    dbf.Close();
}

void DbfStream::SetCharset(byte cs)
{
	charset = cs;
	byte dest = GetDefaultCharset();
	if(dest == CHARSET_UTF8)
		dest = CHARSET_WIN1252;
	codepage_cv = false;
	for(int i = 0; i < 256; i++) {
		codepage_uni[i] = ToUnicode(i, charset);
		codepage_map[i] = FromUnicode(codepage_uni[i], dest);
		codepage_rev[i] = FromUnicode(ToUnicode(i, dest), charset);
		if(codepage_map[i] != i)
			codepage_cv = true;
	}
}