Имя: Пароль:
1C
1C 7.7
v7: Обмен измененными объектами через xml
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.Следующая();
    КонецЦикла;
////////////////////////////////////////
как мне теперь отметить в базе источнике что данные элементы из выборки записались в базу приемник?
Компьютер — устройство, разработанное для ускорения и автоматизации человеческих ошибок.