Страница 1 из 1

Импорт документов

Добавлено: 14 июл 2006, 10:46
Bulat-bash
В модуле "Управление снабжением" в список приходных накладных необходимо импортировать документы.
Проблема заключается в том, что в включаемых полях заголовка, предлагаемых на выбор, отсутствует необходимое для импорта поле typedoc таблицы katsopr (тип документа 0-на маршрут,1-на вагон), поэтому я сделал следующее:
-Создал новое поле, для него ввел вручную katsopr.typedoc (в поле формула).
-Подредактировал форму, а именно между первыми встречающимися .{ и .} добавил символ ^.
Импорт производится из текстового файла.
В итоге при импорте инициализируется все поля, кроме того, которое я подредактировал, хотя в текстовом файле его значение установлено.
Подскажите, пожалуйста, что надо сделать чтобы этот импорт осуществлялся как нужно?
Можно ли как-нибудь указать в самой форме импорта, чтобы поле, например, Katsopr.typedoc было равно постоянному значению (katsopr.typedoc:=1)

Добавлено: 14 июл 2006, 11:25
homak
как вариант писать самому программу на VIP`е ... в которой самому читать текстовый файл и вставлять записи в БД Галактики ...

Добавлено: 14 июл 2006, 11:57
Seybukan
исчо как вариант использовать:


Для экспорта/импорта добавлен вызов функций VipInterface-ов, реализующих
ObjInterface ObjExpImpScript, имена которых начинаются с префикса ExpImpScript_

// Файл ExpImpScript.vih
// Описание ObjInterface, который должны реализовать все ВИП инт-сы имена, которых
// начинаются с префикса ExpImpScript_
ObjInterface ObjExpImpScript;
// эта процедура вызвается до того, как файл для экспорта будет открыт
// sFileName - полный путь к файлу
procedure BeforeExport(sFileName : string);
// эта процедура вызвается после того, как файл с результатами экспорта закрыт
// sFileName - полный путь к файлу
procedure AfterExport(sFileName : string);
// эта процедура вызвается до того, как файл с данными для импорта будет открыт
// sFileName - полный путь к файлу
procedure BeforeImport(sFileName : string);
// эта процедура вызвается после того, как файл с данными для импорта будет закрыт
// sFileName - полный путь к файлу
procedure AfterImport(sFileName : string);
end;