Изменение датапорта

[zuzka]

Потребовалось на форму запроса датапорта добавить параметр. Естественно стандартная форма тут же исчезла (файл для импорта/экспорта, направление: импорт/экспорт), все сделал (по файлу взял отсюда: Про датапорт - Андрей Панько). Теперь требуется запустить датапорт в нужном направлении: импорт или экспорт, чекбоксы уже есть, переменная Option принимает значение Import/Export в зависимости от выбора на чекбоксах (сымитировал чекбоксами группу радиобаттонов на тригерах OnPush). Откуда и как запустить датапорт на импорт или экспорт в зависимости от выбора?
Кому интересно скрин формы запроса прилагаю.
[attachment=1348:Безымянный.PNG]

[Constantine_imported]

zuzka, а стандартный способ запуска датапорта не прокатывает? Т.е. объявить переменную Dataport, задать параметры и запустить.
Я как-то так запускаю:

SalesSetup.GET;
FileName := SalesSetup."Price Path" + 'scv\price.txt';
IF EXISTS(FileName) THEN
  ERASE(FileName);
SalesPriceRec.COPYFILTERS(_Rec);
SalesPriceRec.SETRANGE(scv,TRUE);
SalesPrice.IMPORT(FALSE);
SalesPrice.FILENAME(FileName);
SalesPrice.SETTABLEVIEW(SalesPriceRec);
SalesPrice.RUNMODAL;
CLEAR(SalesPrice);

У меня там свои заморочки, но думаю понятно.

P.S. Блин, сейчас посмотрел, у меня же реквест форма совсем отключена, соответственно все выгружается/загружается из функции. Но может вам такой метод подойдет, если вынести все параметры на какую-нибудь форму и оттуда вызывать.

[zuzka]

На сколько я понял в строке:

SalesPrice.IMPORT(FALSE);

указывается что репорт на экспорт пускается? и следовательно если применить:

SalesPrice.IMPORT(TRUE);

то получаем импорт?

[Constantine_imported]

Цитата:

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

На сколько я понял в строке:

SalesPrice.IMPORT(FALSE);

указывается что репорт на экспорт пускается? и следовательно если применить:

SalesPrice.IMPORT(TRUE);

то получаем импорт?

Совершенно верно.

SalesSetup.GET;
FileName := SalesSetup."Load Price" + 'price.txt';
SalesPrice.IMPORT(TRUE);
SalesPrice.FILENAME(FileName);
SalesPrice.RUNMODAL;
CLEAR(SalesPrice);
IF EXISTS(FileName) THEN
  ERASE(FileName);

[zuzka]

Не прокатило - просто открывает заново форму запроса...
Если вызывать через DATAPORT.RUN(№, FALSE, Record) - подвисание и ничего в файле...

Видимо придется создавать пару новых объектов...

[Constantine_imported]

Цитата:

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

Не прокатило - просто открывает заново форму запроса...
Если вызывать через DATAPORT.RUN(№, FALSE, Record) - подвисание и ничего в файле...

Видимо придется создавать пару новых объектов...

А вы свойство датапорта UseReqForm поставили в No? Если все параметры из функции задавать, то и реквест форма не нужна.
Кстати, еще свойство Import стоит No. Не помню почему так сделал, но есть подозрения, что из-за этого свойства какая-то бага вылезала. Нельзя было задать программно Import или что-то такое.

[zuzka]

SalesPrice.IMPORT(TRUE);
SalesPrice.FILENAME(FileName);
SalesPrice.SETTABLEVIEW("Sales Price");
SalesPrice.RUN;

Пуская через RUN, репорт пускается и все отрабатывает отлично! Спасибо за помощь в виде + уже сделал))