Коллеги подскажите:

Вот тестовый код в модуле формы:

&НаСервере
Процедура ОткрытьФайлDBF(ИмяФайла)
   Данные = Новый XBase;
   Данные.Кодировка = КодировкаXBase.OEM;
   Данные.ОткрытьФайл(ИмяФайла);
   
   Если Данные.Открыта() Тогда
       Сообщить("ОК!");
   КонецЕсли;
   
   Сч=0;
   ОбъектОбработка = РеквизитФормыВЗначение("Объект");
   Данные.Первая();
   Пока Истина Цикл
       
       ОбъектОбработка.ЧитаемDBF(Данные);
       Сч=Сч+1;
       Если НЕ Данные.Следующая() Тогда
           Прервать;
       КонецЕсли;
   КонецЦикла;    
   
   Данные.ЗакрытьФайл();
   Данные="";
       
   Сообщить("Загрузка завершена");
   
КонецПроцедуры

Файл читается процедурой ЧитаемDBF(Данные) в МО обработки.

Вопрос:

Как грамотно сделать вызов процедуры

ОбработкаПрерыванияПользователя();

которая вызывается из клиента?

Да, забыл уточить, вопрос по УФ

Возвращать курсор на клиента

(2) ??? Поясни, пжста

а чем отличается чтение дбф в УФ и не УФ?

(4) Речь не о чтении, а возможности прервать чтение = разные коки

Если НЕ Данные.Следующая() Тогда
           Прервать;
       КонецЕсли;
Когда этот код сработает? Если система заняла дбф и открыла его - другой пользователь сможет его открыть, чтобы прервать чтение этому пользователю?

или удалить файл сможешь?

(7) При чем здесь файл????

Задача: при необходимости прервать чтение файла

(6) Этот код сработает, когда прочитается последня зщапись DBF

если просто читаешь данные из дфф прямо в цикле и напиши обработать прерывание пользователя...

если заносишь данные куда-то, т.е. их записываешь в базу, то перед циклом Начни транзакцию, в конце зафиксируй ее, если прерывание произошло - отмена транзакции - в этом случае все отменится

(9) и зачем в конце дбф прерывать? логика какая? если цикл закончился

(10) Речь об УФ!
В ОФ у меня все прекрасно работает!

вместо пока истина, данные.Следующая() пиши

(13) От этого ничего не изменится по существу.

(12) так ответь на (11), чем отличается УФ от ОФ - что за код ты пишешь?

(14) и как это не изменится, внутри цикла такого напишешь процедуру ОбработкаПрерыванияПользователя, которая действительно при чтении (заметь, не в конце чтения файла) прервет чтение.

(15) на (11) смотри внимательно код в (0):
позицирнирую 1 запись
запускаю цикл
обрабатываю запись
проверяю: не последняя?
если нет
иду дальше
если да прерываю
конец цикла

А чем УФ отличается от ОФ - глянь типовые бухии 2.0 и 3.0 = мож чето увидишь

Мож ктото по-существу вопроса поможет?

кстати, ОбработкаПрерыванияПользователя - тонкий клиент - на сервере не работает :)

(17) так нафига прерывать в конце дбф, если и так дошли до конца?

(19) Мне нах тонкий клиент не нужен!

(20) ???????

Пока Истина Цикл

КонецЦикла;

= Чем прервешь? :))))))))))

(22) так тебе говорят, пиши Пока Данные.Следующая() - зачем такой изврат?

(23) отдыхай, а?

обкуренный

стр. 421, том 2 - проф. разработка:

"Листинг 18.17. Пример чтения данных из файла DBF
&НаКлиенте
Процедура ЧтениеДанных(Команда)
Путь = "c:\";
БД = Новый XBase;
БД.ОткрытьФайл(Путь + "nomen.dbf", Путь + "index.cdx");
Сообщение = Новый СообщениеПользователю();
Пока Истина Цикл
Сообщение.Текст = БД.CODE + " " + БД.Name;
Сообщение.Сообщить();
Если Не БД.Следующая() Тогда
Прервать;
КонецЕсли;
КонецЦикла;
БД.ЗакрытьФайл();
КонецПроцедуры"

что не нравится? в книге так? какие еще вопросы тогда?

воду мутит тут.

(0) Держи, дарю, прямо от сердца отрываю :)

БД.ЗакрытьФайл();

(27) Вникни в суть моего вопроса:

Требуется при необходимости ПРЕРВАТЬ обработку чтения файла DBF по Ctrl+Break

Вопроса про чтение файла не было

(29) Это невозможно, если только ты не организуешь "паузу", которая и будет анализировать команду "Ctrl+Break"

+(29) А так это медленно работающее считывание :)
С паузами :)

(27) так ты написал все на сервере, как прервешь то его? ОбработкаПрерыванияПользователя вызывается с клиента! Переписывай все чтение на клиент бей по частям, вызывай колстрок свою обработку - нагружай сеть - если ты это считаешь правильно.

(26) Совсем плох?

А как на клиенте запустишь в цикле: см (0) ??????

   ОбъектОбработка = РеквизитФормыВЗначение("Объект");
............

       ОбъектОбработка.ЧитаемDBF(Данные);


Короче: мачтасть учи

+ (29) Следующим вопросом  будет - "Как начать считывать DBF с нужной строки?" :)

(33) см. (22) если тебя устраивает - делай как (33). :)))

(*35) (33) как в (32)

(35) Да ему нужно прерывание обработки по команде от пользователя :)
Типо делается что-либо и пользователь раз и прервал это :)

(33) ну да, клиент сервер не вызвать :) только серверов будешь вызывать столько же сколько и строк в твоей ДбФ, тогда и прервать можешь - если для тебя это так важно - делай так.

(37) Спасибо, что объяснил зацикленному на циклах! :))))

(39) да вызывай ты внутри цикла серверную процедуру со своей обработкой и делай что хошь.

(+40) только все чтение ДБФ идет на клиенте, а не на сервере.

маразм полный.

сиди на ОФ и прервешь при чтении в любую секунду.

42) "сиди на ОФ" = Нуралиеву напиши про бух 3.0 :)))))

для этого есть отмена транзакции и жди когда закончится полное чтение - это УФ.

зато сеть не нагружена, либо нагружай сеть по полной - какие проблемы?

(45) RDP = наше все!

+(45) сеть отдыхает! :))))))

УФ и RDP :) круто!

(48) ты видимо еще бухию 3.0 не видел?

(49) так и делай, чтение дбф весь алгоритм на клиенте, а в цикле вызывай сервер со своей обработкой.

и на клиенте ставь ПрерываниеПользователя

(51) вроде наччинаешь вникать в суть обозначенной проблемы:
см (37):

При загрузке данных их ДБФ пользователь вдруг решил прервать загрузку.

Я вроде ясно обозначил: как грамотно это сделать с учетом приведеого кода.

Решил проблему!
Все просто оказалось!


Цикл чтения записи ДБФ перегнал на клиента, текущую запись перегоняю в структуру СтрДанные и вызываю серверную ОткрытьФайлDBF(СтрДанные) и вставил в цикл

ОбработкаПрерыванияПользователя();


&НаСервере
Процедура ОткрытьФайлDBF(СтрДанные)
   ОбъектОбработка = РеквизитФормыВЗначение("Объект");
   ОбъектОбработка.ЧитаемDBF(СтрДанные);
КонецПроцедуры

ОткрытьФайлDBF() = не совсем корректное название: здесь читаем текущую запись дбф

Сорри:
здесь читаем текущую запись дбф

= обрабатываем текущую запись

(53) когда в (50) уже прямым текстом написал :)