Обработка для формирования печатной формы Акта инвентаризации кассы по форме ИНВ-15
Обработка предназначена для формирования печатной формы акта инвентаризации наличных денежных средств по форме ИНВ-15. В форме обработки выбирается или устанавливаются вручную реквизиты для печатной формы.
ошибочку подправь. 😉
В базе с несколькими организациями остаток по 50.01 посчитался без отбора по организации…(((
спасибо
А в БП 2.0 будет работать?
Замечания по работе в БП2.0 да и пожалуй в КА
Почему надо искать по коду 1, а не 0000000001 и не «должность руководителя организации»
Почему надо искать по коду, а не брать Руководителя из справочника «Организации» или «Ответственных лиц»
В БП2.0 обработка все время ставит последний номер кассовых документов № 1 с префиксом «С»
Последний номер подставлять не желает :-/
Как изменить префикс документов?
Обработка работает в БП 2.0, однако если обработку отредактировать в БП 2,0 и сохранить, тогда она перестает работать.
Спасибо за обработку. В КА использовал с небольшими изменениями: — «Процедура КнопкаВыполнитьНажатие(Кнопка)» заменил тест перебора из регистра на запрос. //%%%%%%%%%%%% Заменил на запрос %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
ЗапросПроверка = Новый Запрос;
ЗапросПроверка.Текст =»ВЫБРАТЬ
| ХозрасчетныйОстатки.Счет,
| ХозрасчетныйОстатки.СуммаОстатокДт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(&Дата, Счет.КодБыстрогоВыбора = «»5001″», , ) КАК ХозрасчетныйОстатки»;
ЗапросПроверка.УстановитьПараметр(«Дата»,Дата);
РезультатЗапросПроверка=ЗапросПроверка.Выполнить().Выбрать();
Если РезультатЗапросПроверка.Следующий() Тогда Остаток=РезультатЗапросПроверка.СуммаОстатокДт;Иначе Остаток=0;КонецЕсли;
//Приход = 0;
//Расход = 0;
//ВыборкаПриход = РегистрыБухгалтерии.Хозрасчетный.Выбрать();
//Пока ВыборкаПриход.Следующий() Цикл
// Если ВыборкаПриход.СчетДт.КодБыстрогоВыбора = «5001» Тогда
// Приход = Приход + ВыборкаПриход.Сумма;
// КонецЕсли;
//КонецЦикла;
//ВыборкаРасход = РегистрыБухгалтерии.Хозрасчетный.Выбрать();
//Пока ВыборкаРасход.Следующий() Цикл
// Если ВыборкаРасход.СчетКт.КодБыстрогоВыбора = «5001» Тогда
// Расход = Расход + ВыборкаРасход.Сумма;
// КонецЕсли;
//КонецЦикла;
//Остаток = Приход — Расход;
//%%%%%%%%%%%% Заменил на запрос %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%% -Процедура ОсновныеДействияФормыДействие(Кнопка) заменил чтение Руководителя из справочника на функцию //%%%%%%%%%%%% Заменил на процедуру %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Руководители = РегламентированнаяОтчетность.ОтветственныеЛицаОрганизаций(Организация, КонецДня(Дата),);
Руководитель = Руководители.Руководитель;
РуководительДолжность = Руководители.РуководительДолжность;
Область.Параметры.ДолжностьРук = РуководительДолжность;
Область.Параметры.Руководитель = Руководитель;
//Область.Параметры.ДолжностьРук = Справочники.ДолжностиОрганизаций.НайтиПоКоду(«1»);
//Область.Параметры.Руководитель = ФамилияИО(Справочники.СотрудникиОрганизаций.НайтиПоКоду(«0000000003»));
//%%%%%%%%%%%% Заменил на процедуру %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
Да, с изменениями внесенными buval быстрее работает 🙂
У нас тут получается так, что параметр «Подразделение» в запросе не задействован и выборка независимо от установок этого параметра происходит по всем подразделениям.
Ищу способ задействовать «Подразделение», а то невозможно получить требуемый результат. Может кто уже сделал? 🙂
Сделал.
ЗапросПроверка = Новый Запрос;
ЗапросПроверка.Текст =»ВЫБРАТЬ
| ХозрасчетныйОстатки.Счет,
| ХозрасчетныйОстатки.СуммаОстатокДт
|ИЗ
| РегистрБухгалтерии.Хозрасчетный.Остатки(
| &Дата,
| Счет.КодБыстрогоВыбора = «»5001″»,
| ,
| Субконто1 = &Подразделение
| ИЛИ Субконто2 = &Подразделение
| ИЛИ Субконто3 = &Подразделение
| ИЛИ Субконто4 = &Подразделение) КАК ХозрасчетныйОстатки»;
ЗапросПроверка.УстановитьПараметр(«Дата»,Дата);
ЗапросПроверка.УстановитьПараметр(«Подразделение»,Подразделение);
РезультатЗапросПроверка = ЗапросПроверка.Выполнить().Выбрать();
Если РезультатЗапросПроверка.Следующий() Тогда
Остаток = РезультатЗапросПроверка.СуммаОстатокДт;
Иначе
Остаток = 0;
КонецЕсли;
Осталось сделать в таком-же духе выборку по номерам ПКО, РКО.
Опять сделал.
Вместо:
ВыборкаПКО = Документы.ПриходныйКассовыйОрдер.Выбрать();
Пока ВыборкаПКО.Следующий() Цикл
НомПКО = ВыборкаПКО.Номер;
УбратьНули(НомПКО);
КонецЦикла;
ВыборкаРКО = Документы.РасходныйКассовыйОрдер.Выбрать();
Пока ВыборкаРКО.Следующий() Цикл
НомРКО = ВыборкаРКО.Номер;
УбратьНули(НомРКО);
КонецЦикла;
Вставляем:
ЗапросПКО = Новый Запрос;
ЗапросПКО.Текст =»ВЫБРАТЬ
| ПриходныйКассовыйОрдер.Номер,
| ПриходныйКассовыйОрдер.Дата КАК Дата
|ИЗ
| Документ.ПриходныйКассовыйОрдер КАК ПриходныйКассовыйОрдер
|ГДЕ
| ПриходныйКассовыйОрдер.Подразделение = &Подразделение
| И ПриходныйКассовыйОрдер.Дата < &Дата
|
|УПОРЯДОЧИТЬ ПО
| Дата УБЫВ»;
ЗапросПКО.УстановитьПараметр(«Дата»,Дата);
ЗапросПКО.УстановитьПараметр(«Подразделение»,Подразделение);
РезультатЗапросПКО = ЗапросПКО.Выполнить().Выбрать();
Если РезультатЗапросПКО.Следующий() Тогда
НомПКО = РезультатЗапросПКО.Номер;
// УбратьНули(НомПКО);
КонецЕсли;
ЗапросРКО = Новый Запрос;
ЗапросРКО.Текст =»ВЫБРАТЬ
| РасходныйКассовыйОрдер.Номер,
| РасходныйКассовыйОрдер.Дата КАК Дата
|ИЗ
| Документ.РасходныйКассовыйОрдер КАК РасходныйКассовыйОрдер
|ГДЕ
| РасходныйКассовыйОрдер.Подразделение.Ссылка = &Подразделение
| И РасходныйКассовыйОрдер.Дата < &Дата
|
|УПОРЯДОЧИТЬ ПО
| Дата УБЫВ»;
ЗапросРКО.УстановитьПараметр(«Дата»,Дата);
ЗапросРКО.УстановитьПараметр(«Подразделение»,Подразделение);
РезультатЗапросРКО = ЗапросРКО.Выполнить().Выбрать();
Если РезультатЗапросРКО.Следующий() Тогда
НомРКО = РезультатЗапросРКО.Номер;
//УбратьНули(НомРКО);
КонецЕсли;
Нужная штука, спасибо автору и всем комментирующим!
Пригодилось в БП 2.0, пришлось слегка допилить.
1. Не хватает фильтра по организации при определении остатков кассы и номеров последних пко/рко.
2. Желательно включить сохранение настроек, чтоб не забивать членов комиссии каждый раз.
3. Непонятно, откуда в макете пустые страницы после каждой заполненной.
Добрый день. А данная обработка подходит для Бухгалтерия 8.3?
На сегодняшний день, нет.