Экспорт данных в DBF (перевод на Delphi)

@SaneK_UA · Регистрация: 04.06.2017

Студворк — интернет-сервис помощи студентам

Добрый день! Перевожу программу в Delphi XE2 проблемма с экспортом данных в DBF базу. А конкретно - не грузятся 2 поля:
NKONTR и NKONTRV. После экспорта эти поля пустые в DBF, хотя в базе на FireBird в них есть данные. Не могу найти причину... помогите пожалуйста разобратся...

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
with ADC_Zakaz_sh do
  begin
    Close;
    Parameters.ParamByName('nrzakaz').Value := IBQ_Zakaz.FieldValues['nrzakaz'];
    Parameters.ParamByName('ps').Value := IBQ_Zakaz.FieldValues['ps'];
    Parameters.ParamByName('nuser').Value := IBQ_Zakaz.FieldValues['nuser'];
    Parameters.ParamByName('dreg').Value := FormatDateTime('yyyyMMdd', DREG);
    Parameters.ParamByName('dcor').Value := FormatDateTime('yyyyMMdd', DKOR);
    Parameters.ParamByName('god').Value := IBQ_Zakaz.FieldValues['god'];
    Parameters.ParamByName('kstan').Value := IBQ_Zakaz.FieldValues['kstan'];
    Parameters.ParamByName('nzak').Value := IBQ_Zakaz.FieldValues['nzak'];
    Parameters.ParamByName('npozsh').Value := IBQ_Zakaz.FieldValues['npozsh'];
    Replace_Param(Parameters.ParamByName('vzak'), IBQ_Zakaz.FieldValues['vzak']);
    Parameters.ParamByName('dvzak').Value := FormatDateTime('yyyyMMdd', DVZAK);
    Replace_Param(Parameters.ParamByName('dzzak'), FormatDateTime('yyyyMMdd', DZZAK));
    Parameters.ParamByName('kpotr').Value := IBQ_Zakaz.FieldValues['kpotr'];
    Parameters.ParamByName('kplat').Value := IBQ_Zakaz.FieldValues['kplat'];
    Parameters.ParamByName('kmfo').Value := IBQ_Zakaz.FieldValues['kmfo'];
    Parameters.ParamByName('nschet').Value := copy(IBQ_Zakaz.FieldValues['nschet'],1,20);
    Parameters.ParamByName('kstran').Value := IBQ_Zakaz.FieldValues['kstran'];
    Parameters.ParamByName('kstranpl').Value := IBQ_Zakaz.FieldValues['kstranpl'];
    Parameters.ParamByName('gdkpotr').Value := IBQ_Zakaz.FieldValues['gdkpotr'];
    Parameters.ParamByName('kpvigr').Value := IBQ_Zakaz.FieldValues['kpvigr'];
    if (Trim(IBQ_Zakaz.FieldByName('nvet').AsString) <> '') then
      Parameters.ParamByName('nvet').Value := AnsiReplaceStr(AnsiReplaceStr(IBQ_Zakaz.FieldByName('nvet').asstring, #178, 'I'), #179, 'i')
    else
      Parameters.ParamByName('nvet').Value := ' ';
    Parameters.ParamByName('kprod').Value := IBQ_Zakaz.FieldValues['kprod'];
    Parameters.ParamByName('ndog').Value := IBQ_Zakaz.FieldValues['ndog'];
    Replace_Param(Parameters.ParamByName('nro'), IBQ_Zakaz.FieldValues['nro']);
    if (Trim(IBQ_Zakaz.FieldByName('klient').AsString) <> '') then
      Parameters.ParamByName('klient').Value := AnsiReplaceStr(AnsiReplaceStr(IBQ_Zakaz.FieldByName('klient').AsString, #178, 'I'), #179, 'i')
    else
      Parameters.ParamByName('klient').Value := ' ';
    Replace_Param(Parameters.ParamByName('nlot'), IBQ_Zakaz.FieldValues['nlot']);
    if (Trim(IBQ_Zakaz.FieldByName('nepotr').AsString) <> '') then
      Parameters.ParamByName('nepotr').Value := AnsiReplaceStr(AnsiReplaceStr(IBQ_Zakaz.FieldByName('nepotr').AsString, #178, 'I'), #179, 'i')
    else
      Parameters.ParamByName('nepotr').Value := ' ';
    Replace_Param(Parameters.ParamByName('nkontr'), IBQ_Zakaz.FieldValues['nkontr']);
    Replace_Param(Parameters.ParamByName('dvkontr'), FormatDateTime('yyyyMMdd', DVKONTRP));
    if (Trim(IBQ_Zakaz.FieldByName('nepol').AsString) <> '') then
      ADC_Zakaz_sh.Parameters.ParamByName('nepol').Value := AnsiReplaceStr(AnsiReplaceStr(IBQ_Zakaz.FieldByName('nepol').AsString, #178, 'I'), #179, 'i')
    else
      Parameters.ParamByName('nepol').Value := ' ';
    Replace_Param(Parameters.ParamByName('kontrder'), IBQ_Zakaz.FieldValues['kontrder']);
    Replace_Param(Parameters.ParamByName('nkontrv'), IBQ_Zakaz.FieldValues['nkontrv']);
 
    if (Trim(IBQ_SPRED.FieldByName('deliv_adr').AsString) <> '') then
       ADC_Zakaz_sh.Parameters.ParamByName('delivadr').Value := copy(IBQ_SPRED.FieldByName('deliv_adr').AsString,1,250)
    else
      Parameters.ParamByName('delivadr').Value := ' ';
 
    Execute;
  end;
end;
 
procedure TFZAGR.FormActivate(Sender: TObject);
begin
  Label2.Caption := '';
  DT_DateStart.Date := Now;
  DT_DateEnd.Date := Now;
  with ADC_Zakaz_sh do
  begin
    Close;
    CommandText := 'insert into ZAKAZ_SH (nrzakaz, ps,'+
      'nuser, dreg, dcor, god, kstan, nzak,' +
      'npozsh, vzak, dvzak, dzzak, kpotr, kplat, kmfo, nschet, kstran,' +
      'kstranpl, gdkpotr, kpvigr, nvet, kprod, ndog, nro, klient, nlot, nepotr, ' +
      'nkontr, dvkontr, nepol, kontrder, nkontrv, delivadr) ' +
      'values(:nrzakaz, :ps, ' +
      ':nuser, :dreg, :dcor, :god, :kstan, :nzak,'+
      ':npozsh, :vzak, :dvzak, :dzzak, :kpotr, :kplat, :kmfo, :nschet, :kstran,'+
      ':kstranpl, :gdkpotr, :kpvigr, :nvet, :kprod, :ndog, :nro, :klient, :nlot,:nepotr, ' +
      ':nkontr, :dvkontr, :nepol, :kontrder, :nkontrv, :delivadr)';
  end;

Процедура Replace_Param:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
procedure TFZAGR.Replace_Param(Cmd: TParameter; Val: Variant);
begin
  case VarType(Val) of
    //Вместо пустых строк - подставляем пробел
    varString:
      if Trim(VarToStr(Val)) = '' then
        Cmd.Value := ' '
      else
        Cmd.Value := Val;
    //Вместо 01.01.1900 подставляем Null
    varDate:
      if Trim(VarToStr(Val)) = '01.01.1900' then
        Cmd.Value := Null
      else
        Cmd.Value := Val;
  end;
end;

@qwertehok · 31.08.2018, 21:16

зачем кому то использовать dbf в 2018 году?

@ZfoxAK · 03.09.2018, 06:29

Сообщение от qwertehok

зачем кому то использовать dbf в 2018 году?

Например если есть ПО еще на клипере написанное.

Добавлено через 5 минут

Сообщение от SaneK_UA

После экспорта эти поля пустые в DBF, хотя в базе на FireBird в них есть данные.

1. Убедится, что они есть не только в БД, но и наборе данных проги полученного в результате SQL запроса.
2. Посмотреть какое значение хранить параметр.

@Пытливый · 05.09.2018, 21:02

Попробуйте для проблемных полей использовать явное указание типа поля. Вместо IBQ_Zakaz.FieldValues['nkontr'] напишите IBQ_Zakaz.FieldByName('nkontr').AsString

Новые блоги и статьи Все статьи Все блоги /
Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.	Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .
Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .	Архитектура слоя интернета для сервера-слоя. Hrethgir 11.04.2026 В продолжение https:/ / www. cyberforum. ru/ blogs/ 223907/ 10860. html Знаешь что я подумал? Раз мы все источники пишем в голове ветки, то ничего не мешает добавить в голову такой источник, который сам. . .

@qwertehok 5987 / 4562 / 1096 Регистрация: 29.08.2013 Сообщений: 28,202 Записей в блоге: 3
	31.08.2018, 21:16
	зачем кому то использовать dbf в 2018 году? 0

@Пытливый 3763 / 2271 / 705 Регистрация: 29.05.2013 Сообщений: 9,622
	05.09.2018, 21:02
	Попробуйте для проблемных полей использовать явное указание типа поля. Вместо IBQ_Zakaz.FieldValues['nkontr'] напишите IBQ_Zakaz.FieldByName('nkontr').AsString 0