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

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

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

Книга учета доходов и расходов

buhcm
читатель
офлайн
Дата регистрации: 13.04.2011
Сообщений: 2
Пост №1
 
26.04.2011 10:44

"Помогите, пожалуйста. В книге учета доходов и расходов при УСНО в колонке № первичного документа ставит № выписки, а нужно поставить № платежки (табличная часть выписки "НомерДокВходящий"), как можно отредактировать эту строчку?<br>Если ТекДокВид = "Выписка" Тогда<br> НомерСтрокиДок = ТекОпер.НомерСтрокиДокумента(); <br> ДатаНомерДок = Формат(ТекДок.ДатаДок, "Д ДДММГГГГ")+", п/п №"ТекДок.НомерДок;"

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №2
 
26.04.2011 20:22

"<pre>Если ТекДокВид = "Выписка" тогда НомерСтрокиДок = ТекОпер.НомерСтрокиДокумента(); Если ТекДок.ПолучитьСтрокуПоНомеру(НомерСтрокиДок) = 1 Тогда Если ПустоеЗначение(ТекДок.ДатаДокВходящий)=1 Тогда ДатаДокВходящий = ТекДок.ДатаДок; Иначе ДатаДокВходящий = ТекДок.ДатаДокВходящий; КонецЕсли; Если ПустоеЗначение(ТекДок.НомерДокВходящий)=1 Тогда НомерДокВходящий = ТекДок.НомерДок; Иначе НомерДокВходящий = ТекДок.НомерДокВходящий; КонецЕсли; ДатаНомерДок = Формат(ДатаДокВходящий, "Д ДДММГГГГ")+", №"+НомерДокВходящий; Если ТекДок.ДатаДок <> ДатаДокВходящий Тогда ДатаНомерДок = ДатаНомерДок+" ("+Формат(ТекДок.ДатаДок, "Д ДДММГГГГ")+")"; КонецЕсли; КонецЕсли;... </pre>"

buhcm
читатель
офлайн
Дата регистрации: 13.04.2011
Сообщений: 2
Пост №3
 
27.04.2011 09:07

Спасибо, большое. Номера платежек попадают в книгу, но одна маленькая проблемка, перед датой и номером ставятся "..,"<br>"№ п/п" Дата и номер первичного документа <br> 1       . . , № п/п179 12.01.2011

Thorvardr
читатель
офлайн
Дата регистрации: 25.02.2005
Сообщений: 3082
Пост №4
 
27.04.2011 15:51

странно, такое может быть если в Выписках "ДатаДокВходящий" не пустое, но и не дата. Вообще, это стандартный 1С-ный алгоритм. Работать должно. Попробуйте заменить строку<br><pre>Если ПустоеЗначение(ТекДок.ДатаДокВходящий)=1 Тогда </pre><br><br>на<br><pre>Если Дата(ТекДок.ДатаДокВходящий)=Дата(0) Тогда </pre>

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

Читают тему:

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