36
Рейтинг

Отчёт для анализа наличия проводки для номенклатуры табличной части документа "Реализация товаров и услуг", сравнение по количеству в проводке и документе!

1 стартмани

28.05.2015 8285 10 DeniNikitin 1

Анализ бухгалтерского и управленческого учёта на наличие проводок по документам реализации
+1 –

Отчеты и формы Бухгалтер Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Windows Абонемент ($m) Внешний отчет (ert,erf) Оптовая торговля Производство готовой продукции (работ, услуг) Анализ учета

Отчёт для анализа наличия проводки для номенклатуры табличной части документа "Реализация товаров и услуг"

1 стартмани

25.05.2015 7447 7 DeniNikitin 2

Анализ закупочных цен
+2 –

Отчеты и формы Бизнес-аналитик Пользователь Платформа 1С v8.3 1С:Управление производственным предприятием Россия Управленческий учет Windows Абонемент ($m) Внешний отчет (ert,erf) Ценообразование, анализ цен

Анализ закупочных цен с отображением суммы и процента разницы

1 стартмани

25.05.2015 9336 21 DeniNikitin 1

Сравнение данных взаиморасчётов по УУ и БУ
+4 –

Отчеты и формы Бизнес-аналитик Бухгалтер Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Управленческий учет Windows Абонемент ($m) Внешний отчет (ert,erf) Взаиморасчеты Анализ учета

Отчёт для сравнения данных управленческого и бухгалтерского учёта в конфигурации УПП

1 стартмани

25.05.2015 8465 37 DeniNikitin 1

Внешняя печатная форма "Унифицированная форма Т-2"
+2 –

Отчеты и формы Бухгалтер Платформа 1С v8.3 1С:Управление производственным предприятием Россия Бухгалтерский учет Windows Абонемент ($m) Внешняя обработка (ert,epf) Печатные формы Кадровый учет

Внешняя печатная форма "Унифицированная форма Т-2" с фотографией для справочника "Сотрудники организации"

1 стартмани

29.01.2014 11354 23 DeniNikitin 3

Смотреть все

Код
Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт СтруктураТипов = ОбщегоНазначенияУТ.СоответствиеМассивовПоТипамОбъектов(МассивОбъектов); Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВРус") Тогда ПараметрыПечати = Новый Структура("КодЯзыка","ru"); УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию( КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВРус", НСтр("ru='Заказ поставщику ИТГВ Рус'"), СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати)); КонецЕсли; Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВАнгл") Тогда ПараметрыПечати = Новый Структура("КодЯзыка","en"); УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию( КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВАнгл", НСтр("ru='Заказ поставщику ИТГВ Англ'"), СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати)); КонецЕсли; // << Проф ИТ {[](фрагмент ДОБАВЛЕН), Никитин Д.В. 14.12.2023 19:00:56 Доработка ПФ Заказ поставщику_2 (сервис) ФормированиеПечатныхФорм.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, СтруктураТипов, КоллекцияПечатныхФорм); // << Проф ИТ {[](фрагмент ДОБАВЛЕН), Никитин Д.В. 14.12.2023 19:00:56 Доработка ПФ Заказ поставщику_2 (сервис) КонецПроцедуры

Процедура Печать(МассивОбъектов, ПараметрыПечати, КоллекцияПечатныхФорм, ОбъектыПечати, ПараметрыВывода) Экспорт
   
    СтруктураТипов = ОбщегоНазначенияУТ.СоответствиеМассивовПоТипамОбъектов(МассивОбъектов);
   
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВРус") Тогда
      ПараметрыПечати = Новый Структура("КодЯзыка","ru");
     
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
            КоллекцияПечатныхФорм,
            "проф_ЗаказПоставщикуИТГВРус",
            НСтр("ru='Заказ поставщику ИТГВ Рус'"),
            СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати));
   КонецЕсли;
      
   Если УправлениеПечатью.НужноПечататьМакет(КоллекцияПечатныхФорм, "проф_ЗаказПоставщикуИТГВАнгл") Тогда
      ПараметрыПечати = Новый Структура("КодЯзыка","en");
      
        УправлениеПечатью.ВывестиТабличныйДокументВКоллекцию(
            КоллекцияПечатныхФорм,
            "проф_ЗаказПоставщикуИТГВАнгл",
            НСтр("ru='Заказ поставщику ИТГВ Англ'"),
            СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати));
    КонецЕсли;
   
   // << Проф ИТ {[*](фрагмент ДОБАВЛЕН), Никитин Д.В. 14.12.2023 19:00:56 Доработка ПФ Заказ поставщику_2 (сервис)
   ФормированиеПечатныхФорм.ЗаполнитьПараметрыОтправки(ПараметрыВывода.ПараметрыОтправки, СтруктураТипов, КоллекцияПечатныхФорм);   
   // << Проф ИТ {[*](фрагмент ДОБАВЛЕН), Никитин Д.В. 14.12.2023 19:00:56 Доработка ПФ Заказ поставщику_2 (сервис)
   
КонецПроцедуры

Dev › Обработка печати и отображение ее заголовка ERP и сохранения › #8 15.12.23 13:10

Печатная форма выведена без проблем я её не программно сохраняю

Dev › Обработка печати и отображение ее заголовка ERP и сохранения › #7 15.12.23 13:09

Цитата
Функция СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати) Экспорт КодЯзыка = "ru"; Если ЗначениеЗаполнено(ПараметрыПечати) И ПараметрыПечати.Свойство("КодЯзыка") Тогда КодЯзыка = ПараметрыПечати.КодЯзыка; КонецЕсли; ТабличныйДокумент = Новый ТабличныйДокумент; ТабличныйДокумент.ОтображатьСетку = Ложь; ТабличныйДокумент.ОтображатьЗаголовки = Ложь; ТабличныйДокумент.АвтоМасштаб = Истина; ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ВНЕШНЯЯ_ПФ" + КодЯзыка; Макет = УправлениеПечатью.МакетПечатнойФормы("Обработка.проф_ПечатьЗаказПоставщикуИТГВ.проф_ПФ_MXL_ЗаказПоставщикуИТГВ"); ЭтоПервыйДокумент = Истина; УстановитьПривилегированныйРежим(Истина); Для Каждого ЗаказПоставщику Из МассивОбъектов Цикл Если ЭтоПервыйДокумент Тогда ЭтоПервыйДокумент = Ложь; Иначе ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц(); КонецЕсли; ЗаголовкиПолей = СтруктураПараметровЗаголовки(КодЯзыка); // ШАПКА ОбластьШапка = Макет.ПолучитьОбласть("Шапка"); ОбластьШапка.Параметры.Заполнить(ЗаголовкиПолей); ПараметрыШапки = ПолучитьПараметрыШапки(ЗаказПоставщику, КодЯзыка); ОбластьШапка.Параметры.Заполнить(ПараметрыШапки); ТабличныйДокумент.Вывести(ОбластьШапка); // Заполнение табличного документа Итого = 0; Валюта = ЗаказПоставщику.Валюта; // Таблица Шапка ОбластьТаблицаШапка = Макет.ПолучитьОбласть("ТаблицаШапка"); ОбластьТаблицаШапка.Параметры.Заполнить(ЗаголовкиПолей); ТабличныйДокумент.Вывести(ОбластьТаблицаШапка); // Таблица Строки Для Каждого ТекСтр Из ЗаказПоставщику.Товары Цикл ОбластьТаблицаСтрока = Макет.ПолучитьОбласть("ТаблицаСтрока"); ПараметрыСтроки = ПолучитьПараметрыСтроки(ТекСтр, КодЯзыка); ОбластьТаблицаСтрока.Параметры.Заполнить(ПараметрыСтроки); ТабличныйДокумент.Вывести(ОбластьТаблицаСтрока); КонецЦикла; // Таблица Подвал ОбластьТаблицаПодвал = Макет.ПолучитьОбласть("ТаблицаПодвал"); ОбластьТаблицаПодвал.Параметры.Заполнить(ЗаголовкиПолей); ОбластьТаблицаПодвал.Параметры.Валюта = ЗаказПоставщику.Валюта; ОбластьТаблицаПодвал.Параметры.ИтогоСумма = Формат(ЗаказПоставщику.Товары.Итог("Сумма"), "ЧДЦ=2"); ТабличныйДокумент.Вывести(ОбластьТаблицаПодвал); // ПОДВАЛ ОбластьПодвал = Макет.ПолучитьОбласть("Подвал"); ОбластьПодвал.Параметры.Заполнить(ЗаголовкиПолей); ПараметрыПодвала = ПолучитьПараметрыПодвала(ЗаказПоставщику, КодЯзыка); ОбластьПодвал.Параметры.Заполнить(ПараметрыПодвала); ТабличныйДокумент.Вывести(ОбластьПодвал); КонецЦикла; УстановитьПривилегированныйРежим(Ложь); Возврат ТабличныйДокумент; КонецФункции

Цитата

Функция СформироватьПечатнуюФорму(МассивОбъектов, ОбъектыПечати, ПараметрыПечати) Экспорт

КодЯзыка = "ru";

Если ЗначениеЗаполнено(ПараметрыПечати) И ПараметрыПечати.Свойство("КодЯзыка") Тогда
КодЯзыка = ПараметрыПечати.КодЯзыка;
КонецЕсли;

ТабличныйДокумент = Новый ТабличныйДокумент;
ТабличныйДокумент.ОтображатьСетку = Ложь;
ТабличныйДокумент.ОтображатьЗаголовки = Ложь;
ТабличныйДокумент.АвтоМасштаб = Истина;
ТабличныйДокумент.ИмяПараметровПечати = "ПАРАМЕТРЫ_ПЕЧАТИ_ВНЕШНЯЯ_ПФ" + КодЯзыка;

Макет = УправлениеПечатью.МакетПечатнойФормы("Обработка.проф_ПечатьЗаказПоставщикуИТГВ.проф_ПФ_MXL_ЗаказПоставщикуИТГВ");

ЭтоПервыйДокумент = Истина;

УстановитьПривилегированныйРежим(Истина);

Для Каждого ЗаказПоставщику Из МассивОбъектов Цикл

Если ЭтоПервыйДокумент Тогда
ЭтоПервыйДокумент = Ложь;
Иначе
ТабличныйДокумент.ВывестиГоризонтальныйРазделительСтраниц();
КонецЕсли;

ЗаголовкиПолей = СтруктураПараметровЗаголовки(КодЯзыка);

// ШАПКА
ОбластьШапка = Макет.ПолучитьОбласть("Шапка");
ОбластьШапка.Параметры.Заполнить(ЗаголовкиПолей);

ПараметрыШапки = ПолучитьПараметрыШапки(ЗаказПоставщику, КодЯзыка);
ОбластьШапка.Параметры.Заполнить(ПараметрыШапки);

ТабличныйДокумент.Вывести(ОбластьШапка);

// Заполнение табличного документа
Итого = 0;
Валюта = ЗаказПоставщику.Валюта;

// Таблица Шапка
ОбластьТаблицаШапка = Макет.ПолучитьОбласть("ТаблицаШапка");
ОбластьТаблицаШапка.Параметры.Заполнить(ЗаголовкиПолей);
ТабличныйДокумент.Вывести(ОбластьТаблицаШапка);

// Таблица Строки
Для Каждого ТекСтр Из ЗаказПоставщику.Товары Цикл
ОбластьТаблицаСтрока = Макет.ПолучитьОбласть("ТаблицаСтрока");

ПараметрыСтроки = ПолучитьПараметрыСтроки(ТекСтр, КодЯзыка);
ОбластьТаблицаСтрока.Параметры.Заполнить(ПараметрыСтроки);

ТабличныйДокумент.Вывести(ОбластьТаблицаСтрока);
КонецЦикла;

// Таблица Подвал
ОбластьТаблицаПодвал = Макет.ПолучитьОбласть("ТаблицаПодвал");
ОбластьТаблицаПодвал.Параметры.Заполнить(ЗаголовкиПолей);
ОбластьТаблицаПодвал.Параметры.Валюта = ЗаказПоставщику.Валюта;
ОбластьТаблицаПодвал.Параметры.ИтогоСумма = Формат(ЗаказПоставщику.Товары.Итог("Сумма"), "ЧДЦ=2");

ТабличныйДокумент.Вывести(ОбластьТаблицаПодвал);

// ПОДВАЛ
ОбластьПодвал = Макет.ПолучитьОбласть("Подвал");
ОбластьПодвал.Параметры.Заполнить(ЗаголовкиПолей);

ПараметрыПодвала = ПолучитьПараметрыПодвала(ЗаказПоставщику, КодЯзыка);
ОбластьПодвал.Параметры.Заполнить(ПараметрыПодвала);

ТабличныйДокумент.Вывести(ОбластьПодвал);

КонецЦикла;

УстановитьПривилегированныйРежим(Ложь);

Возврат ТабличныйДокумент;

КонецФункции

Dev › Обработка печати и отображение ее заголовка ERP и сохранения › #5 15.12.23 12:50

Повторюсь вывод идеальный! Вывелось нажимаю кнопку сохранить там выбираю формат и в эту процедуру не приходит параметр Функция ПоместитьТабличныеДокументыВоВременноеХранилище(ПереданныеНастройки) а в типовой приходит!

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

2023-12-15_164907.png

Dev › Обработка печати и отображение ее заголовка ERP и сохранения › #3 15.12.23 12:30

А это тут при чём! С выводом нет проблем! При попытке сохранить из обшей формы и попадпнии в процедуру Функция ПоместитьТабличныеДокументыВоВременноеХранилище(ПереданныеНастройки) в типовой форме Переданные настройки есть документ, а не в типовой нету!

Dev › Обработка печати и отображение ее заголовка ERP и сохранения › #1 15.12.23 11:06

Здравствуйте!

Проблема в общем в следующем: Обработка встроенная в конфигурацию ERP УХ формирует печатную форму всё идеально выводит, но первое 1.Если вывожу типовую, то в заголовке указан документ и при сохранении в общей форме печати и процедуре формирования файла, в параметрах приходит ДокументСсылка. 2. При формировании моей печатной формы заголовок просто печать документа и сохранение тоже не приходит ДокументСсылка. Подскажите где и что не так работает и как исправить!
Обработку прилагаю!

Заранее благодарен!

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

проф_ПечатьЗаказПоставщикуИТГВ.epf

Торговля › Прайс-лист с картинками для УТ 11.4 › #25 16.09.22 9:23

Исправил как в (23) всё заработало!

Торговля › Прайс-лист с картинками для УТ 11.4 › #24 16.09.22 9:22

Ошибка инициализации модуля: ВнешнийОтчет.ПрайсЛистСКартинками_11_4_6.МодульОбъекта
по причине:
{ВнешнийОтчет.ПрайсЛистСКартинками_11_4_6.МодульОбъекта(112,19)}: Переменная не определена (ПрисоединенныеФайлы)
АдресКартинки = <<?>>ПрисоединенныеФайлы.ПолучитьДанныеФайла(ФайлКартинки).СсылкаНаДвоичныеДанныеФайла;

Версия Управление торговлей, редакция 11 (11.4.14.129)

Можете исправить?

Торговля › КНД 1160068. Согласие налогоплательщика, плательщика сбора, плательщика страховых взносов, налогового агента на информирование о наличии недоимки и (или) задолженности по пеням, штрафам, процентам › #8 16.09.22 9:13

В текущей версии нет! У меня не стаяло такой задачи!

36 Рейтинг

DeniNikitin Денис Никитин

Рейтинг 36

Комментарии

36
Рейтинг

DeniNikitin
Денис Никитин