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

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

Читают тему

(гостей: 1)

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