Бухгалтерия 8, найти документы по номеру и дате
07.07.2010
10:55
#1
"Здравствуйте!<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>"
8.1.6 Ввод партионного учета1C Бухгалтерия 8. 1, Не удается изменить счет учета с помощью "Групповой обработки"
Читают тему
(гостей: 1)