Новости для бухгалтера, бухучет, налогообложение, отчетность, ФСБУ, прослеживаемость и маркировка, 1С:Бухгалтерия

Вход или Регистрация

Показывать по 10 20 40 сообщений
Новая тема Ответить
Письмо в техподдержку 1С
[Прочее]

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

fif@ru
читатель
офлайн
Дата регистрации: 15.11.2007
Сообщений: 71
Пост №1
 
07.07.2010 10:55

"Здравствуйте!<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>"

zak555 (398843952)
читатель
офлайн
Дата регистрации: 27.03.2008
Сообщений: 4656
Пост №2
 
07.07.2010 10:56

Боже мой !

Показывать по 10 20 40 сообщений

Читают тему:

Быстрый переход
Для технических специалистов
  • Книга жалоб и предложений по работе сайта
  • Для технических специалистов
  • Представление регламентированной отчетности
  • Говорильня
  • Бухгалтерский учет: обсуждаем проекты нормативных актов и рекомендаций по ведению учета от БМЦ
  • Новый порядок применения ККТ (онлайн кассы с передачей сведений в ФНС)
  • Интернет-конференция: Оформление командировок по новым правилам
  • МАРКИРОВКА
  • ЕГАИС
  • Учет, налогообложение, автоматизация