Бухгалтерия 8, найти документы по номеру и дате

Новая тема
"Здравствуйте!
Задача такая: У меня есть текстовый файл и из него в бухгалтерию загружаются документы РеализацияТоваровУслуг и СчетФактураВыданный, в комментарии счет-фактуры я пишу основание документа счет-фактура выданный (берется из текстового файла), теперь хочу чтобы по номеру и дате (номер и дату извлекаю из строки комментария) найти документы РеализацияТоваровУслуг для всех документов СчетФактураВыданный у которых не заполнено значение ДОкументОснование и его заполнять.
часть кода
боркаДокументов.Комментарий;
               Если Найти(ВспомогательнаяШтука,"Приходный кассовый ордер") Тогда
                   МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,26,СтрДлина(СокрП(ВспомогательнаяШтука))));
                   Поз = Найти(СокрЛП(МояСтрока),"(");
                   Поз1 = Найти(СокрЛП(МояСтрока),")");
                   СтрНом = Лев(МояСтрока,Поз-1);
                   СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
                   МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
                   МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
                   МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
                   МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
                   Сообщить(МояДата);
               КонецЕсли;    

           ИначеЕсли ВыборкаДокументов.ВидСчетаФактуры=Перечисления.НДСВидСчетаФактуры.НаРеализацию Тогда
                ВспомогательнаяШтука="""";
                ВспомогательнаяШтука = ВыборкаДокументов.Комментарий;
               Если Найти(ВспомогательнаяШтука,"Реализация") Тогда
                   МояСтрока=СокрЛП(Сред(ВспомогательнаяШтука,12,СтрДлина(СокрП(ВспомогательнаяШтука))));
                   Поз = Найти(СокрЛП(МояСтрока),"(");
                   Поз1 = Найти(СокрЛП(МояСтрока),")");
                   СтрНом = Лев(МояСтрока,Поз-1);
                   СтрДат = Сред(СокрЛП(МояСтрока),Поз+1,8);
                   МойГод= Строка("20")+Строка(Сред(СокрЛП(СтрДат),7,2));
                   МойМесяц = Строка(Сред(СокрЛП(СтрДат),4,2));
                   МоеЧисло =Строка(Сред(СокрЛП(СтрДат),1,2));
                   МояДата = Дата(МойГод+МойМесяц+МоеЧисло);
                   Сообщить(МояДата);
               КонецЕсли;    
               
               ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СокрЛП(СтрНом),МояДата);
а дальше не получается
делала так
ИскомыйДокумент=Документы.РеализацияТоваровУслуг.НайтиПоНомеру(СтрНом,МояДата);
Если НЕ ИскомыйДокумент.Пустая() Тогда    
   Сообщить(ИскомыйДокумент);            
КонецЕсли;

"
Боже мой !
Читают тему
(гостей: 1)

Быстрый переход