321 123

25
Рейтинг

Lenten
123 321



  •   Регистрация: 22.07.2011 (12 лет назад)

  •   Был(а) на сайте: сегодня в 11:16

Друзья
  • Кирилл Питерский
Подписчики 5

Рейтинг 25

Ускорение обмена УТ - БП

Статья Программист Платформа 1С v8.3 Конфигурации 1cv8 Windows Бесплатно (free) Нет файла Перенос данных 1C

Добрый день. В конторе, в которой я сейчас работаю, возникла необходимость раз в месяц выгружать продажи из Ут в Бухгалтерию. Дело обычное, но проблема заключалась в том, что объем данных оказался приличным (около 500 реализаций в день) и выгрузка/загрузка обычным способом была очень долгой, так что мы решили прибегнуть к некоторым ухищрения, о которых я хочу рассказать в этой публикации, может кому-то они помогут.

28.05.2014    14798    Lenten    38       

25

Комментарии

DevУФ. Гиперссылка на несколько документов на форме#8 11.03.24 11:22
Создал на форме реквизит с типом список значений. И поставил ему галочку гиперссылка

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

Безымянный.jpg
DevВыделить жирным строки где ответственный - текущий пользователь в форме списка документа (УФ).#2 26.02.24 13:41
1) в динамическом списке в запросе добавить строку &ТекущийПользователь КАК ТекущийПользователь
2) в оформлении в динамическом списке - Настройки - Условное оформление сделать условие чтоб был жирный шрифт если ответственный = ТекущийПользователь
3) заполнить параметр запроса при создании на сервере

Код
 &НаСервере
Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)
   Финансы.Параметры.УстановитьЗначениеПараметра("Клиент", Объект.Ссылка);
КонецПроцедуры   
DevОшибка поле объекта недоступно для записи#2 12.09.23 13:19
не в правах дело. Не то меняешь


https://forum.infostart.ru/forum9/topic217516/


не или в поисковике вбей "оле объекта недоступно для записи"
DevВывод итогов после каждой группировки в печатную форму#9 12.09.23 10:50
(8)

Код
ПолеОтчета.Вывести(ОбластьСтрока);  


до сюда не доходит?
DevВывод итогов после каждой группировки в печатную форму#7 12.09.23 10:41
Код
Результат = Запрос.Выполнить();
Итоги = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);     //ЗапросТЧ  на Итоги поменял
Пока Итоги.Следующий() Цикл   
   
   //тут записываем итоги в переменные
   ОбластьИтоги.Параметры.ИтогЦена = Итоги.Цена;
   ОбластьИтоги.Параметры.ИтогМасса = Итоги.Количество;
   ОбластьИтоги.Параметры.ИтогСтоимостьБезНДС = Итоги.Сумма; 
   ОбластьИтоги.Параметры.ИтогНДС = Итоги.СуммаНДС; 
   ОбластьИтоги.Параметры.ИтогСтоимостьСНДС = Итоги.СуммаДокумента; 

   ЗапросТЧ = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);   // Итоги   на ЗапросТЧ поменял

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



еще попытка.
DevВывод итогов после каждой группировки в печатную форму#5 12.09.23 10:30
а ну и переменные переименовать. тяжело без базы конечно


Код
Результат = Запрос.Выполнить();
ЗапросТЧ = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока Итоги.Следующий() Цикл   
   
   ОбластьИтоги.Параметры.ИтогЦена = Итоги.Цена;
   ОбластьИтоги.Параметры.ИтогМасса = Итоги.Количество;
   ОбластьИтоги.Параметры.ИтогСтоимостьБезНДС = Итоги.Сумма; 
   ОбластьИтоги.Параметры.ИтогНДС = Итоги.СуммаНДС; 
   ОбластьИтоги.Параметры.ИтогСтоимостьСНДС = Итоги.СуммаДокумента; 

   Итоги = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   Пока ЗапросТЧ.Следующий() Цикл  
      
      ОбластьСтрока.Параметры.Номенклатура = ЗапросТЧ.НоменклатураНоменклатурнаяГруппа;
      ОбластьСтрока.Параметры.Контрагент = ЗапросТЧ.Контрагент;
      ОбластьСтрока.Параметры.Договор = ЗапросТЧ.ДоговорКонтрагента;
      ОбластьСтрока.Параметры.ДатаСФ = Формат(ЗапросТЧ.Дата,"ДФ=dd.MM.yyyy");
      ОбластьСтрока.Параметры.НомерСФ = ЗапросТЧ.Номер;
      ОбластьСтрока.Параметры.ДатаРТУ = Формат(ЗапросТЧ.ДатаРТУ, "ДФ=dd.MM.yyyy");
      ОбластьСтрока.Параметры.НомерРТУ = ЗапросТЧ.НомерРТУ;
      ОбластьСтрока.Параметры.ЦенаТонна = ЗапросТЧ.Цена;
      ОбластьСтрока.Параметры.Масса = ЗапросТЧ.Количество;
      ОбластьСтрока.Параметры.СтоимостьВТЧ = ЗапросТЧ.Сумма;
      ОбластьСтрока.Параметры.НДСВТЧ = ЗапросТЧ.СуммаНДС;
      ОбластьСтрока.Параметры.СтоимостьСНДСВТЧ = ЗапросТЧ.СуммаДокумента;
      
      ПолеОтчета.Вывести(ОбластьСтрока);  
      
      
   КонецЦикла;

   ПолеОтчета.Вывести(ОбластьИтоги);
   
КонецЦикла; 
DevВывод итогов после каждой группировки в печатную форму#4 12.09.23 10:23
попробуй так выводить


Код
Результат = Запрос.Выполнить();
ЗапросТЧ = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
Пока ЗапросТЧ.Следующий() Цикл   
   
   ОбластьИтоги.Параметры.ИтогЦена = Итоги.Цена;
   ОбластьИтоги.Параметры.ИтогМасса = Итоги.Количество;
   ОбластьИтоги.Параметры.ИтогСтоимостьБезНДС = Итоги.Сумма; 
   ОбластьИтоги.Параметры.ИтогНДС = Итоги.СуммаНДС; 
   ОбластьИтоги.Параметры.ИтогСтоимостьСНДС = Итоги.СуммаДокумента; 

   Итоги = Результат.Выбрать(ОбходРезультатаЗапроса.ПоГруппировкам);
   Пока Итоги.Следующий() Цикл  
      
      ОбластьСтрока.Параметры.Номенклатура = ЗапросТЧ.НоменклатураНоменклатурнаяГруппа;
      ОбластьСтрока.Параметры.Контрагент = ЗапросТЧ.Контрагент;
      ОбластьСтрока.Параметры.Договор = ЗапросТЧ.ДоговорКонтрагента;
      ОбластьСтрока.Параметры.ДатаСФ = Формат(ЗапросТЧ.Дата,"ДФ=dd.MM.yyyy");
      ОбластьСтрока.Параметры.НомерСФ = ЗапросТЧ.Номер;
      ОбластьСтрока.Параметры.ДатаРТУ = Формат(ЗапросТЧ.ДатаРТУ, "ДФ=dd.MM.yyyy");
      ОбластьСтрока.Параметры.НомерРТУ = ЗапросТЧ.НомерРТУ;
      ОбластьСтрока.Параметры.ЦенаТонна = ЗапросТЧ.Цена;
      ОбластьСтрока.Параметры.Масса = ЗапросТЧ.Количество;
      ОбластьСтрока.Параметры.СтоимостьВТЧ = ЗапросТЧ.Сумма;
      ОбластьСтрока.Параметры.НДСВТЧ = ЗапросТЧ.СуммаНДС;
      ОбластьСтрока.Параметры.СтоимостьСНДСВТЧ = ЗапросТЧ.СуммаДокумента;
      
      ПолеОтчета.Вывести(ОбластьСтрока);  
      
      
   КонецЦикла;

   ПолеОтчета.Вывести(ОбластьИтоги);
   
КонецЦикла; 
DevЛоготип в макет печатной формы из конфигурации БП#3 11.09.23 14:06
1 вариант: сделать 2 макета в режиме предприятия (Администрирование – Печатные формы, отчеты и обработки - Макеты печатных форм). Соответствующий макет пользователь сам будет выбирать при печати

2 вариант : Сделать внешнюю печатную форму ( в инете много где есть инструкции, даже скачать можно) и в нее добавить логотипы. И не надо в справочнике присоединенные файлы их хранить. Просто на макет печатной формы добавь 2 картинки и в коде вызывай соответствующие области в зависимости от организации
DevСКД Как собрать данные из двух таблиц в одну ячейку#3 22.08.23 10:14
если в 1 таблице, то используете Объединить