Как вставить в обмен с сайтом проверку?!

[Kintim]

Попробовал так... но что-то не туда (((

Код Выделить Развернуть


Если Найти(ТекущийДокумент.Комментарий, ":") > 0 Тогда
  Для Каждого ТекущийДокумент Из МассивОтклоненныхДокументов Цикл
   Попытка
    ТекущийДокумент = МассивОтклоненныхДокументов.Добавить();
   Исключение
    СообщитьОбИсключительнойОшибке(Ложь, "Ошибка ТРА-ТА-ТА: ");
   Возврат Ложь;
   КонецПопытки;
КонецЦикла;
КонецЕсли;


[Kintim]

Может быть через Функцию... ?!?
Наверное пишу сущую чушь, Прошу у всех прощения за это, но разобраться очень хочется...)

Код Выделить Развернуть


Функция ОбработатьЗначениеЭлемента(МассивОтклоненныхДокументов)
  Если ИмяЭлемента = "Документ.Комментарий" Тогда
    ТекущийДокумент.Комментарий = ТекущийДокумент.Комментарий + ": " + ЗначениеЭлемента;
      И Найти(ТекущийДокумент.Комментарий, ":") > 0 Тогда
       МассивОтклоненныхДокументов.Добавить(ТекущийДокумент);
      КонецЕсли;
  КонецЕсли;
КонецФункции


[Dethmontt]

Какой же ты всетаки А!!! Все за вас напиши, когда сами думать начнете...

Код Выделить Развернуть

Для Каждого ДокументПроведения Из МассивДокументовДляПроведения Цикл

Если Найти(ДокументПроведения.Ссылка.Коментарий, ":") > 0 Тогда
Продолжить;
КОнецЕсли; //И ДУМАТЬ НЕ НУЖНО!!!!
       
        Если МассивОтклоненныхДокументов.Найти(ДокументПроведения.Ссылка) <> Неопределено Тогда
            Продолжить;
        КонецЕсли;
       
        Попытка
           
            ДокументПроведения.ПометкаУдаления = Ложь;
            ДокументПроведения.Записать(РежимЗаписиДокумента.Проведение, РежимПроведения);           
                       
        Исключение
           
            СообщитьОбИсключительнойОшибке(Ложь, "Ошибка при проведении документа: " + Строка(ДокументПроведения) + Символы.ПС + ОписаниеОшибки());
            Возврат Ложь;
                       
        КонецПопытки;
       
    КонецЦикла;
   
    Для Каждого ДокументПроведения Из МассивОтклоненныхДокументов Цикл
       
        Попытка
           
            ДокОбъект = ДокументПроведения.ПолучитьОбъект();
            ДокОбъект.ПометкаУдаления = Истина;
            ДокОбъект.Записать(РежимЗаписиДокумента.ОтменаПроведения);           
                       
        Исключение
           
            СообщитьОбИсключительнойОшибке(Ложь, "Ошибка при отмене проведения документа: " + Строка(ДокументПроведения) + Символы.ПС + ОписаниеОшибки());
            Возврат Ложь;
                       
        КонецПопытки;
       
    КонецЦикла;

[Dethmontt]

Единственное что, мне кажется, они у тебя не проведенные будут. Т.к. я тебе уже где то приводил кусок кода где документ заполняется из XML (а в XML он всегда не проведен)

[Kintim]

Низкий вам поклон.. Dethmontt
и аплодисменты...
Сразу видно профессионал... не то что я..
Буду разбираться... )) 

[Kintim]

Все работает.. Еще раз огромнейшее всем спасибо ! Точнее не всем, а Dethmontt...

Код Выделить Развернуть


Если Найти(ДокументПроведения.Ссылка.Комментарий, ":") > 0 Тогда
   сообщить("Уберем "+ДокументПроведения);
   ДокументПроведения.Записать(РежимЗаписиДокумента.ОтменаПроведения);
  Продолжить;
  КонецЕсли;


[Kintim]

Кстати чтобы было ясно.. при написании:

Код Выделить Развернуть

Если Найти(ТекущийДокумент.Комментарий, ":") > 0 Тогда
   МассивОтклоненныхДокументов.Добавить(ТекущийДокумент);
КонецЕсли;
Документы будут помечаться на удаление в 1С...
Мне же нужно было, чтобы они не проводились автоматически...)
Еще раз скажу, что работаю с УПП (Ликероводочный и винный завод) а не с УТ (где все дописано и готово к работе из коробки...)