Экспорт данных в 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

Новые блоги и статьи Все статьи Все блоги /
AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .	Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .
Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .

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

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