Отчет "Книга продаж", в котором выданные Счета-фактуры отображаются без лидирующего префикса. Для Бухгалтерии Предприятия 3.0.
В компании основной учет ведется в Торговле, затем в Бухгалтерию 3.0 выгружаются все документы за период, всё хорошо, но в штатной книге продаж номера счета-фактур представлены в первозданном виде, с префиксами и нулями, например АБ0000713. Поскольку документы печатались в Торговле, то контрагенты получили счета-фактуры с короткими цифровыми номерами. Пришлось для Бухгалтерии создать внешний отчет "Книга продаж", который выводит номера документов точно так же, как они были представлены на твердых копиях.
Файлы
ВНИМАНИЕ:
Файлы из Базы знаний - это исходный код разработки.
Это примеры решения задач, шаблоны, заготовки, "строительные материалы" для учетной системы.
Файлы ориентированы на специалистов 1С, которые могут разобраться в коде и оптимизировать программу для запуска в базе данных.
Гарантии работоспособности нет. Возврата нет. Технической поддержки нет.
| Наименование |
Скачано |
Купить файл
(только для физ. лиц) |
По подписке PRO
|
|
Книга продаж с номерами счетов-фактур без ПРЕФИКСА:
.erf 54,68Kb ver:1.0
|
26 |
1 850 руб.
Купить
|
1 SM
Скачать
|
Подписка
PRO — скачивайте любые файлы со
скидкой до 85% из Базы знаний
Оформите подписку на
компанию для решения рабочих задач
Оформить подписку и скачать решение со скидкой
Отчет создан на основе штатного, входящего в релиз Бухгалтерии предприятия 3.0.57.10. Встраивать в справочник "Внешние отчеты" не стал, но это легко сделать. Чтобы воспользоваться этим отчетом его следует открыть через меню "Файл". Код открыт, основное изменение в функции ОпределитьДатуИНомерСчетаФактурыДляПечати():
// НомерСФ = СокрЛП(ЗаписьКниги.НомерСчетаФактуры);
НомерСФ = ПрефиксацияОбъектовКлиентСервер.НомерНаПечать(СокрЛП(ЗаписьКниги.НомерСчетаФактуры), Истина, Истина);
Префикс должен быть указан в настройках Организации, используется также реквизит ПрефиксБП20, его значение также стоит установить. Я это делал программно:
&НаСервере
Процедура УстановитьПрефиксБП20НаСервере()
ОрганизацияС = Справочники.Организации.НайтиПоКоду("000000001");
ОрганизацияО = ОрганизацияС.ПолучитьОбъект();
ОрганизацияО.ПрефиксБП20 = ОрганизацияО.Префикс;
ОрганизацияО.Записать();
КонецПроцедуры
Это необходимо, если выданные счета-фактуры имеют номер без символа "-".
Вступайте в нашу телеграмм-группу
Инфостарт
Книга продаж
