gifts2017

Универсальный передаточный документ (УПД) для конфигурации ТиС 7.7

Опубликовал Spektr Тунда (Spektr) в раздел Печать - Печатные формы документов

Внешняя печатная форма универсального передаточного документа (УПД) для конфигурации ТиС 7.7

Подключается к документу "Реализация" через "Сервис" - "Регистрация внешних печатных форм".

Код открыт, протестирован на конфигурации версии 7.70.984.

Скачать файлы

Наименование Файл Версия Размер
УПД_ТиС 99
.ert 203,50Kb
05.05.15
99
.ert 203,50Kb Скачать

См. также

Подписаться Добавить вознаграждение
Комментарии
1. Ольга Фигуркина (@Sonya) 04.06.15 12:03
Спасибо за разработку. Одно замечание - когда номер берется из накладной, а не из СФ, надо и статус документа ставить "2".
2. _Vovik (_Vovik) 06.07.15 11:57
Добрый день. Спасибо пользуюсь.
Хочу показать вам ошибочку. Если распределяется по партиям вторая строка документа - то косяк.
Вот это я исправил:
МнЧ.Номенклатура = МнЧ.ПолучитьЗначение(1,"Номенклатура");  
						МнЧ.ТоварКод	 = МнЧ.ПолучитьЗначение(1,"ТоварКод");
						МнЧ.Цена		 = МнЧ.ПолучитьЗначение(1,"Цена");
						МнЧ.СтавкаНДС	 = МнЧ.ПолучитьЗначение(1,"СтавкаНДС");
						МнЧ.Единица      = МнЧ.ПолучитьЗначение(1,"Единица");
						МнЧ.ЕдиницаКод   = МнЧ.ПолучитьЗначение(1,"ЕдиницаКод");
						МнЧ.АкцизЦена    = МнЧ.ПолучитьЗначение(1,"АкцизЦена");	
...Показать Скрыть

Так:
Перед циклом:
НомерОсновнойСтроки = 0;

Потом так:
Если РаспредГТД.НомерСтроки = 1 Тогда
						НомерОсновнойСтроки = МнЧ.НомерСтроки;
					Иначе
										
						МнЧ.НоваяСтрока();
						МнЧ.Номенклатура = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"Номенклатура");  
						МнЧ.ТоварКод	 = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"ТоварКод");
						МнЧ.Цена		 = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"Цена");
						МнЧ.СтавкаНДС	 = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"СтавкаНДС");
						МнЧ.Единица      = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"Единица");
						МнЧ.ЕдиницаКод   = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"ЕдиницаКод");
						МнЧ.АкцизЦена    = МнЧ.ПолучитьЗначение(НомерОсновнойСтроки,"АкцизЦена");				        			
					КонецЕсли; 
...Показать Скрыть
3. Artur (xxart) 08.12.16 18:53
Легло на 941 релиз почти без доработки. Пришлось изменить строки начиная с 414 так:

//Если глЕстьРеквизитШапки("КодОперации", ВидОсн) = 1 Тогда
// БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок, Докум.КодОперации);
//Иначе
// БратьСуммыИзУчета = глБратьСуммыИзУчета(Докум.ДатаДок);
//КонецЕсли;

БратьСуммыИзУчета = 0;

В остальном все ОК