0
Kassern
17.12.14
✎
22:51
|
Есть идея выгружать измененные объекты из 1С 7.7 в xml обработкой по таймауту. Грубо говоря обработка проверяет какие измененные объекты есть в базе каждые n минут, из них выбирает нужные и создает выгрузку.
Я в семерке не силен, поэтому прошу у вас совета, как это лучше реализовать. я нашел обработку которая может считывать измененные объекты в базе источнике:
//////////////////////////////////////
Спис.УдалитьВсе();
DBF=СоздатьОбъект("XBase");
DBF.ОткрытьФайл(КаталогИБ()+"1SUPDTS.DBF",КаталогИБ()+"1SUPDTS.CDX",1);
Если DBF.Открыта()=0 тогда
Сообщить("Не удалось открыть файл!");
Возврат;
КонецЕсли;
ВсегоЗаписей=DBF.КоличествоЗаписей();
DBF.КодоваяСтраница(0);
DBF.Первая();
Пока DBF.ВКонце()=0 цикл
Если (СокрЛП(DBF.TYPEID)="0") и (СокрЛП(DBF.OBJID)="0") тогда
// изменение конфигурации
DBF.Следующая();
Продолжить;
КонецЕсли;
// ЗначениеИзСтрокиВнутр("{""U"",""0"",""0"",""0"",""0"",""0"","" 0 0 ""}")
Что=ЗначениеИзСтрокиВнутр("{""O"",""0"",""0"",""0"",""0"",""0"","""+
Прав(" "+_StrToID(СокрЛП(DBF.TYPEID)),10)+
Прав(" "+_StrToID(СокрЛ(Лев(DBF.OBJID,6))),10)+Сред(DBF.OBJID,7)+"""}");
Если ПустоеЗначение(Что)=1 тогда
Что=ЗначениеИзСтрокиВнутр("{""B"",""0"",""0"",""0"",""0"",""0"","""+
Прав(" "+_StrToID(СокрЛП(DBF.TYPEID)),10)+
Прав(" "+_StrToID(СокрЛ(Лев(DBF.OBJID,6))),10)+Сред(DBF.OBJID,7)+"""}");
КонецЕсли;
Спис.ДобавитьЗначение(Что);
DBF.Следующая();
КонецЦикла;
////////////////////////////////////////
как мне теперь отметить в базе источнике что данные элементы из выборки записались в базу приемник?
|
|