Заполнить Грузоотправителя и Грузополучателя в печатной форме УПД

Форум Учет и отчетность Бухгалтерский учет и налоги (БУ)

1. buksol 26.01.21 10:48 Сейчас в теме

Друзья, может кто поможет дельным советом. В документах РеализацияТоваровУслуг (Бухгалтерия 3.0) в штатную печатную форму УПД не тянется Грузотправитель и Грузополучатель. С помощью форумчан сделал внешнюю печатную форму, но сообразить как её доработать, чтобы Грузоотправитель и Грузополучатель подтягивались мозгов не хватает. Может кто поможет дельным советом? Заранее спасибо

Прикрепленные файлы:

it_Логика_УПД_Заполненная.epf

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. stein13 12 26.01.21 11:25 Сейчас в теме

проблема вся в том, что вам необходимо "локализировать" общие процедуры и функции.В частности:

УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "it_Логика_УниверсальныйПередаточныйДокумент", "Универсальный передаточный документ",
УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(НастройкиПечати.УниверсальныеПередаточныеДокументы, ОбъектыПечати,
Документы.СчетФактураВыданный.ТекстЗапросаПечатьСчетовФактур(Истина, Истина, Истина),,, ПараметрыПечати),,
"it_Логика_УниверсальныйПередаточныйДокумент");

Надо вытянуть эту процедуру в свой модуль. На данный момент он входит в общий модуль.

3. buksol 26.01.21 13:26 Сейчас в теме

(2) "Надо вытянуть эту процедуру в свой модуль. На данный момент он входит в общий модуль" - можно немного поподробней?

4. stein13 12 26.01.21 13:36 Сейчас в теме

Я правильно понимаю, вам нужно заполнить Груз-лей и Груз-лей как-то по своему? Если да, то вытащите процедуру УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981 из общего модуля и перетащите в свой. Будет уже не
УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(НастройкиПечати.УниверсальныеПередаточныеДокументы
а
.ПечатьУниверсальныхПередаточныхДокументов981(НастройкиПечати.УниверсальныеПередаточныеДокументы

Тем самым вы внесете поправки в код уже нужном месте и в своем модуле.

5. buksol 26.01.21 13:39 Сейчас в теме

(4)Понял. Сейчас поправлю. Заполнить Груз-лей и Груз-лей не то что как-то по своему, а просто заполнить, потому что во внутренней печатной форме они не тянутся

6. buksol 26.01.21 14:41 Сейчас в теме

(4) Исправил. Сейчас вот такая ошибка на скрине

Прикрепленные файлы:

7. stein13 12 26.01.21 15:23 Сейчас в теме

(6) что-то вы по-моему где-то борщанули))
покажите фрагмент " УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981 "

8. buksol 26.01.21 15:41 Сейчас в теме

(7)

Процедура Печать(МассивОбъектов, КоллекцияПечатныхФорм,ОбъектыПечати, ПараметрыВывода) Экспорт

ПараметрыПечати = Новый Структура;
ПараметрыПечати.Вставить("ДополнитьКомплектВнешнимиПечатнымиФормами", Ложь);
ПараметрыПечати.Вставить("ИдентификаторВКомплекте", "УниверсальныйПередаточныйДокументКомплект");

НастройкиПечати = УчетНДСВызовСервера.ПолучитьНастройкиПечатиУниверсальныхПередаточныхДокументов(
МассивОбъектов);

ЕстьСчетаФактурыВыданные = Ложь;
ЕстьСчетаФактурыПолученные = Ложь;

Для каждого Объект Из НастройкиПечати.УниверсальныеПередаточныеДокументы Цикл
Если ТипЗнч(Объект) = Тип("ДокументСсылка.СчетФактураВыданный") Тогда
ЕстьСчетаФактурыВыданные = Истина;
Прервать;
ИначеЕсли ТипЗнч(Объект) = Тип("ДокументСсылка.СчетФактураПолученный") Тогда
ЕстьСчетаФактурыПолученные = Истина;
Прервать;
КонецЕсли;
КонецЦикла;

Если ЕстьСчетаФактурыВыданные Тогда

УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(КоллекцияПечатныхФорм, "it_Логика_УниверсальныйПередаточныйДокумент", "Универсальный передаточный документ",
//УчетНДС.ПечатьУниверсальныхПередаточныхДокументов981(НастройкиПечати.УниверсальныеПередаточныеДокументы, ОбъектыПечати,
ПечатьУниверсальныхПередаточныхДокументов(НастройкиПечати.УниверсальныеПередаточныеДокументы, ОбъектыПечати,
Документы.СчетФактураВыданный.ТекстЗапросаПечатьСчетовФактур(Истина, Истина, Истина)),,
"it_Логика_УниверсальныйПередаточныйДокумент");
//Документы.СчетФактураВыданный.ТекстЗапросаПечатьСчетовФактур(Истина, Истина, Истина),,, ПараметрыПечати),,




ОбщегоНазначенияБП.ЗаполнитьДополнительныеПараметрыПечати(МассивОбъектов, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода);

КонецЕсли;

КонецПроцедуры

Показать

9. buksol 26.01.21 15:44 Сейчас в теме

Я ПечатьУниверсальныхПередаточныхДокументов981 сделал без 981. У меня есть и такая печатная форма, решил проверить. Ошибка одинаковая вылезает в обоих случаях. И пришлось убрать параметр ПараметрыПечати, потому что тоже вылезала ошибка Слишком много параметров.

Оставьте свое сообщение

E-mail: