материалов » Поиск

Результаты по ключевому слову: материалов

Табличный документ: Колонтитулы и параметры страницы

Большинство обучающих материалов по программированию в системе 1С при описании формирования печатных форм на основе объекта «Табличный документ» ограничиваются выводом готовой формы на экран. Для пользователей же куда более важным является то, как документ будет выглядеть в распечатанном виде. Здесь, кроме хорошо сверстанного макета, играют роль и установки параметров печати.Почти все параметры, доступные в диалогах настройки печати (настройки принтера, свойства страницы), можно указать непосредственно при формировании табличного документа.Рассмотрим свойства и методы табличного документа, относящиеся к настройкам печати (в приведенных примерах «ТабДок» это объект типа «Табличный документ»).

Свойство «ИмяПринтера» позволяет задать для печати принтер, отличный от установленного по умолчанию. Имя должно совпадать с именем принтера, заданным в системе:

ТабДок.ИмяПринтера="HP LaserJet 3050 Series PCL 6";

При печати пакета документов можно сэкономить время, установив признак разбора по копиям:

ТабДок.РазборПоКопиям=истина;

Число копий можно указать так:

ТабДок.КоличествоЭкземпляров=5;

Разумеется, можно задать поля:

ТабДок.ПолеСлева=20;//Поле слева 20мм, остальные поля 10мм (по умолчанию)

Еще несколько свойств страницы:

ТабДок.ОриентацияСтраницы=ОриентацияСтраницы.Ландшафт; ТабДок.ЭкземпляровНаСтранице=2; //на листе будет размещено 2 страницы ТабДок.Автомасштаб=истина; //аналогично настройкам масштаба «по ширине страницы»

При необходимости можно указать конкретное значение масштабирования в процентах (свойство «МасштабПечати»).

Свойство «РазмерСтраницы» позволяет задать стандартные форматы страницы – “A3”, “A4”, “A5” (полный список вариантов доступен в справке 1С).

ТабДок.РазмерСтраницы="A3";// буква А должна быть английской

Для нестандартного размера бумаги (Custom) можно указать значения высоты и ширины страницы (в мм):

ТабДок.РазмерСтраницы="Custom";//нестандартный размер ТабДок.ВысотаСтраницы=350; ТабДок.ШиринаСтраницы=350;

Также в табличном документе доступно управление выводом колонтитулов и их содержимым. Для этого служат свойства «ВерхнийКолонтитул» и «НижнийКолонтитул». Например:

ТабДок.ВерхнийКолонтитул.Выводить=истина; //будет напечатан верхний колонтитул ТабДок.РазмерКолонтитулаСверху=7; //размер колонтитула 7мм (по умолчанию 10мм) ТабДок.ВерхнийКолонтитул.ВертикальноеПоложение=ВертикальноеПоложение.Верх; ТабДок.ВерхнийКолонтитул.НачальнаяСтраница=2;//колонтитул выводится со второй страницы ШрифтКолонтитула=Новый Шрифт("Courier New", 8,,Истина); ТабДок.ВерхнийКолонтитул.Шрифт=ШрифтКолонтитула; //наклонный шрифт ТабДок.ВерхнийКолонтитул.ТекстВЦентре="Верхний колонтитул"; ТабДок.ВерхнийКолонтитул.ТекстСправа="Стр.[&НомерСтраницы] из [&СтраницВсего]"; //нумерация страниц ТабДок.ВерхнийКолонтитул.ТекстСлева="[&Дата]";//текущая дата

Сформированный документ отправляется на печать с помощью метода «Напечатать()». Возможно два варианта вызова.

1) Непосредственно на принтер:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.НеИспользовать); ТабДок.Напечатать(истина);

2) Перед печатью будет выведен диалог печати:ТабДок.Напечатать(РежимИспользованияДиалогаПечати.Использовать); ТабДок.Напечатать(ложь);

Кроме того можно управлять и разбиением документа на страницы. Оценить количество страниц в документе по настройкам текущего принтера можно так:

ТабДок.КоличествоСтраниц();

С помощью методов «ПроверитьВывод()» и «ПроверитьПрисоединение()» можно определить, умещается ли табличный документ или массив областей табличного документа на странице в высоту и в ширину при текущих настройках принтера.Надо иметь ввиду, что работа последних трех методов зависит от установленного принтера. Если методу не удается его найти, вызывается исключение.

Принудительно вставить разрывы страниц позволяют методы «ВывестиВертикальныйРазделительСтраниц()» и «ВывестиГоризонтальныйРазделительСтраниц()».Таким образом, можно управлять постраничным выводом на печать и контролировать заполнение страницы:

Если Не ТабДок.ПроверитьВывод(МассивВыводимыхОбластей) Тогда ТабДок.ВывестиГоризонтальныйРазделительСтраниц();КонецЕсли;

Категория: Табличный документ

Загрузка картинок в базу 1С (сохранение в хранилище значений)

В теме форма: v8: Получение данных из ХралищаЗначений

Bell в управляемом интерфейсе пробует сохранить выбранные картинки в базу 1С, но возникли сложности с сохранением в хранилище значений. как пример Bell приложил CF файл с мини конфигурацией, за что ему большое спасибо, т.к. большая часть материалов этой статьи написана им, я лишь поправил небольшие участки кода связанные с передачей файлов и сохранение в хранилище значений.

Так как везде уже Такси, то CF я перевел в этот режим и в нем демонстрирую.

Имеется справочник Хранилище данных:

Основная Форма Элемента:

Ее код:

Код 1C v 8.3

 // ПРОЦЕДУРЫ ФОРМЫ

//======================================================================================================

&НаСервере

Процедура ПриСозданииНаСервере(Отказ, СтандартнаяОбработка)

	

	Если Объект.Ссылка.Пустая() Тогда

			Объект.Наименование = ".";

	КонецЕсли;

		

	Если НЕ Параметры.Ключ.Пустая() Тогда

	   ДанныеАдрес = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеХЗ");

	КонецЕсли;

	

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

	

	Если Объект.Ссылка.Пустая() Тогда

	КонецЕсли;





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

&НаСервере

Процедура ПередЗаписьюНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

	

	Если ЭтоАдресВременногоХранилища(ДанныеАдрес) Тогда

		

		РежимСжатия              = Новый СжатиеДанных(9);

		ДанныеСохранения         = ПолучитьИзВременногоХранилища(ДанныеАдрес);

		ТекущийОбъект.ДанныеХЗ   = Новый ХранилищеЗначения(ДанныеСохранения, РежимСжатия);

		

	КонецЕсли;

	

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

&НаСервере

Процедура ПриЗаписиНаСервере(Отказ, ТекущийОбъект, ПараметрыЗаписи)

	

	Если ЭтоАдресВременногоХранилища(ДанныеАдрес) Тогда

		УдалитьИзВременногоХранилища(ДанныеАдрес);

		ДанныеАдрес =  ПолучитьНавигационнуюСсылку(ТекущийОбъект.Ссылка, "ДанныеХЗ");

	КонецЕсли;





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





// ПРОЦЕДУРЫ ЭЛЕМЕНТОВ ФОРМЫ

//======================================================================================================





&НаКлиенте

Процедура ВыбратьДанные(Команда)

	

	ДанныеВыбрать();





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





&НаКлиенте

Процедура СохранитьДанные(Команда)

  	

	Если НЕ ЗначениеЗаполнено(Объект.Ссылка) Тогда

		Предупреждение(НСтр("ru = 'Элемент не записан !!!'"));

		Возврат;

	КонецЕсли;

	

	ДанныеСохранения = ПолучитьНавигационнуюСсылку(Объект.Ссылка, "ДанныеХЗ");

	ИмяСохранения    = Объект.Наименование; 

	//ИмяСохранения    = Объект.Наименование + Объект.ДанныеРасширение; 

    ПолучитьФайл(ДанныеСохранения, ИмяСохранения, Истина);

	

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





// ПРОЦЕДУРЫ ПРОЧИЕ

//======================================================================================================





&НаКлиенте

Процедура ДанныеВыбрать()

	

	ПолученныеДанныеАдрес = "";

	Если ПоместитьФайл(ПолученныеДанныеАдрес, , Объект.ДанныеПуть, Истина, УникальныйИдентификатор)Тогда

		

		ДанныеАдрес = ПолученныеДанныеАдрес;

		

		ВыбранныйФайл = Новый Файл(Объект.ДанныеПуть);

		Объект.Наименование          =  ВыбранныйФайл.Имя;

		Объект.ДанныеТекущаяДата     =  ТекущаяДата();

		

		Модифицированность = Истина; 		

	КонецЕсли;

 	

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

так же имеется общая форма ФормаЗагрузкиФайлов

При помощи ее выбираются файлы изображений и загружаются в справочник - одновременно можно загружать несколько файлов

код формы:

Код 1C v 8.3

 // ПРОЦЕДУРЫ ЭЛЕМЕНТОВ ФОРМЫ

//======================================================================================================

&НаКлиенте

Процедура СписокФайловПередНачаломДобавления(Элемент, Отказ, Копирование, Родитель, Группа)

	

	Отказ = Истина;

	

	ДобавитьФайлы();





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



// ПРОЦЕДУРЫ ПРОЧИЕ

//======================================================================================================

&НаКлиенте

Процедура ДобавитьФайлы()

	

	ВыборФайла = Новый ДиалогВыбораФайла(РежимДиалогаВыбораФайла.Открытие);

	ВыборФайла.МножественныйВыбор = Истина;

	ВыборФайла.Заголовок = НСтр("ru = 'Выбор файла'", "ru");

	ВыборФайла.Фильтр = НСтр("ru = 'Все файлы'", "ru") + " (*.*)|*.*";

	ВыборФайла.ПредварительныйПросмотр = Истина;

	Если ВыборФайла.Выбрать() Тогда

		

		Для каждого СтрокаФайл Из ВыборФайла.ВыбранныеФайлы Цикл

			

			ОписаниеФайла = Новый Файл(СтрокаФайл);

			

			НВС = СписокФайлов.Добавить();

			НВС.ПолноеИмяФайла   = СтрокаФайл; 

			НВС.РазмерФайла      = ОписаниеФайла.Размер();

			

		КонецЦикла;

		

	КонецЕсли;

		

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

&НаКлиенте

Процедура Загрузить()

	

	Если НЕ ПроверитьЗаполнение() Тогда

		Возврат;

	КонецЕсли;

	

	ОчиститьСообщения();

	Если СписокФайлов.Количество() = 0 Тогда

		Сообщить("Файлы не выбраны !!!'");

		Возврат;

	КонецЕсли;

	

	ПомещаемыеФайлы = Новый Массив;

	Для каждого СтрокаФайл Из СписокФайлов Цикл

		Описание = Новый ОписаниеПередаваемогоФайла(СтрокаФайл.ПолноеИмяФайла, "");

		ПомещаемыеФайлы.Добавить(Описание);

	КонецЦикла;

	

	// -------------------------------------------------------------------------------

	ПомещенныеФайлы         = Новый Массив;

	СписокЗагруженныхФайлов = Новый СписокЗначений;

	

	Если ПоместитьФайлы(ПомещаемыеФайлы, ПомещенныеФайлы, , Ложь, УникальныйИдентификатор) Тогда

		

		Закрыть(Истина);

		

	Иначе

		

		Сообщение = Новый СообщениеПользователю();

		Сообщение.Текст = НСтр("ru = 'Файлы не загружены'", "ru");

		Сообщение.Сообщить();

		

	КонецЕсли;





	ОповеститьОВыборе(ПомещенныеФайлы);





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

&НаСервере

Функция ПоместитьВыбранныеФайлыВХранилище(ПомещаемыеФайлы)

	

	АдресХЗ = ПоместитьВоВременноеХранилище(ПомещаемыеФайлы, УникальныйИдентификатор);

	Возврат АдресХЗ;

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

в коде вызывается ОповеститьОВыборе(ПомещенныеФайлы) и срабатывает обработчик в ФормаСпискаДополнительно

Код 1C v 8.3

 &НаКлиенте

Процедура ОбработкаВыбора(ВыбранноеЗначение, ИсточникВыбора)

	

	Если ИсточникВыбора.ИмяФормы = "ОбщаяФорма.ФормаЗагрузкиФайлов" Тогда

		ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение);

	КонецЕсли;

	

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

и следующим кодом идет создание элементов справочника и загрузка изображений из временного хранилища

Код 1C v 8.3

 &НаСервере

Процедура ОбработкаВыбораПодборНаСервере(ВыбранноеЗначение)

	

	Для Каждого СтрокаФайл Из ВыбранноеЗначение Цикл 		

		Файл = Новый Файл(СтрокаФайл.Имя);

		ХранимыйФайл = Справочники.ХранилищеДанныхСправочники.СоздатьЭлемент();

		ХранимыйФайл.Наименование                      = Файл.Имя;

		ХранимыйФайл.ДанныеПуть                        = Файл.Путь;

		ХранимыйФайл.ДанныеТекущаяДата                 = ТекущаяДата();

		ХранимыйФайл.ДанныеХЗ = Новый ХранилищеЗначения(ПолучитьИзВременногоХранилища(СтрокаФайл.Хранение), Новый СжатиеДанных());

 		ХранимыйФайл.Записать();

	КонецЦикла;

	

	Элементы.Список.Обновить();

	

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

Скачать DT - Платформа 8.3.4

Категория: Работа с Хранилищем Значений

Материалы по ЗУП Проф и ЗУП Корп

Попросили сделать подборку материалов для сравнение ЗУП ПРОФ и ЗУП КОРП, и дальнейшего изучения, вот решил выложить, может кому пригодится:
И так, таблица сравнения:
title

Презентации
Презентация ЗУП ПРОФ на сайте 1С - http://v8.1c.ru/hrm/prof_versiya.htm
Презентация ЗУП ПРОФ - http://v8.1c.ru/hrm/zup_overview.ppt

Презентация ЗУП КОРП на сайте 1С - http://v8.1c.ru/hrm/corp_versiya.htm
Презентация ЗУП КОРП - http://v8.1c.ru/hrm/hrm_corp.ppt

Демо ролик от 1С: - http://v8.1c.ru/hrm/demo/00.html

Видео
Видео по ЗУП с youtube - https://www.youtube.com/watch?v=hcIni9RU5zg
Еще сайт с видео уроками по ЗУП http://videozup.ru/zup/

Книги для обучения:
1. Книга Настольная книга по оплате труда и ее расчету в программе "1С:Зарплата и управление персоналом 8"
2. Книга Секреты профессиональной работы с "1С:Зарплата и управление персоналом 8". Кадровый учет и управление персоналом
3. Профессиональная работа в "1С:Зарплата и Управление персоналом 8.2"
4. Книга 1С 8 Зарплата и кадры в вопросах и ответах

Категория: 1С Зарплата и Управление Персоналом 2.5

Получить развернутое сальдо по субконто

Функции СНДРС, СНКРС, СКДРС, СККРС предназначены для расчета остатков по счетам, у которых ведется аналитический учет по субконто. Каждая функция из этой группы возвращает остаток как сумму соответствующих остатков (дебетовых или кредитовых) по всем объектам аналитического учета.
Если аналитический учет по счету ведется по двум и более субконто, то для развернутого сальдо параметр <ТипФильтра> устанавливает участие данног вида субконто в получении развернутого сальдо. В зависимости от значения этого параметра данное субконто может участвовать в «развороте» остатка, или накладывать дополнительное ограничение (отбирать) на анализируемые остатки, или никак не влиять на результат функции.

СНДРС – дебетовое развернутое сальдо по субконто на начало периода
СНКРС – кредитовое развернутое сальдо по субконто на начало периода
СКДРС – дебетовое развернутое сальдо по субконто на конец периода
СККРС – кредитовое развернутое сальдо по субконто на конец периода

Синтаксис (у всех одинаковый):

Код 1C v 7.x

 СНДРС(<Счет>, <ТипСуммы>, <Валюта>, <Субконто1>, <ТипФильтра1>, <Субконто2>, <ТипФильтра2>...)

<ТипФильтра> – Необязательный параметр. Тип использования субконто. (Строка или число).
“*” (1) — Разворачивать по данному субконто.
“!” (2) — Отбирать по данному субконто.
“ “ (3) — Не учитывать данное субконто.
Значения по умолчанию: “*” (1) — для первого субконто, “ “ (3) — для остальных субконто.

Код 1C v 7.x

 //Получим развернутое сальдо дебетовое на начало периода по счету 60,

// учет ведется по субконто Организации.

СР60 = БухИтоги.СНДРС("60");

//Получим развернутое сальдо дебетовое на начало периода по счету 10

//конкретному складу в разрезе материалов, учет ведется по

//субконто «Материалы» и «Склады».

СР10 = БухИтоги.СНДРС("10", 1, , , "*", ВыбСклад, "!");

Категория: Виды Субконто

Как выбрать все записи регистра накопления за текущий месяц

Код 1C v 8.х

 Выборка = РегистрыНакопления.ОстаткиМатериалов.Выбрать(НачалоМесяца(ТекущаяДата()), КонецМесяца(ТекущаяДата()));

Категория: Регистры накопления

Получить движения документа по регистру накоплений

Код 1C v 8.х

 НужныйДокумент = Документы.ПриходнаяНакладная.НайтиПоНомеру(4);

Движения = РегистрыНакопления.ОстаткиМатериалов.СоздатьНаборЗаписей();

Движения.Отбор.Регистратор.Значение = НужныйДокумент;

Движения.Прочитать();

Код 1C v 8.х

 НужныйДокумент = Документы.ПриходнаяНакладная.НайтиПоНомеру(4);

Движения = РегистрыНакопления.ОстаткиМатериалов.СоздатьНаборЗаписей();

Движения.Отбор.Регистратор.Значение = НужныйДокумент;

Движения.Прочитать();

Для Каждого ОчередноеДвижение Из Движения Цикл

   // Алгоритм обработки движений

КонецЦикла;

Категория: Регистры накопления

Как активизировать требуемую строку списка регистра накопления

Код 1C v 8.х

 СтруктураКлючевыхПолей = Новый Структура;

СтруктураКлючевыхПолей.Вставить("Регистратор", Документы.ПриходнаяНакладная.НайтиПоНомеру("0000002"));

СтруктураКлючевыхПолей.Вставить("НомерСтроки", 2);

ЭлементыФормы.ТабличноеПоле1.ТекущаяСтрока = РегистрыНакопления.ОстаткиМатериалов.СоздатьКлючЗаписи(СтруктураКлючевыхПолей);

Категория: Регистры накопления

Рассчитать итоги регистра накопления на указанную дату

Код 1C v 8.х

 // Рассчитать итоги регистра накопления на указанную дату

ИмяРегистра = ОстаткиМатериалов;

РегистрыНакопления[ИмяРегистра].УстановитьПериодРассчитанныхИтогов(УказаннаяДата);

Категория: Регистры накопления

Открыть форму списка регистра накопления ОстаткиМатериалов

Код 1C v 8.х

 // Открыть форму списка регистра накопления

Форма = РегистрыНакопления.ОстаткиМатериалов.ПолучитьФормуСписка();

Форма.Открыть();

Категория: Регистры накопления

Ошибка: УСН учет строка 1 не списано и перечисляется что не списано!

Вопрос:
В бухгалтерии 8.1 программа не списывает материалы в документе требование накладная. В служебном сообщении написано "УСН учет строка 1 не списано и перечисляется что не списано" в чем я допускаю ошибку ?

Ответ:
Такое сообщение означает, что по подсистеме УСН (соответствующие регистры) списываемые материалы не числятся (и списаны быть не могут).
Вам надо проверять поступление этих материалов: делают ли документы прихода движения по регистрам УСН.

Категория: 1С Бухгалтерия 2.0