переберем » Поиск

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

Программная корректировка движений документа

В некоторых типовых конфигурациях фирмы 1С существует возможность ручной корректировки движений документа по регистрам. В конфигурации 1С: Бухгалтерия 8 для этого, при наличии соответствующих прав, нужно открыть движения документа и установить флаг “Ручная корректировка”. Однако, иногда возникает необходимость выполнить корректировку движений большого количества документов. В этом случае нам понадобится обработка, которая изменит движения документов без перепроведения.

Рассмотрим как изменить движения документа на примере конфигурации 1С: Бухгалтерия 8. Менять будем движения по регистру бухгалтерии “Хозрасчетный”. Пусть перед нами стоит задача заполнить суммы налогового учета по данным бухгалтерского. Предположим, что у нас уже есть обработка, которая выбирает необходимые нам документы и последовательно обрабатывает их с помощью описанной нами процедуры “ИзменитьДвиженияДокумента”. Посмотрим как должна выглядеть эта процедура.

Код 1C v 8.х

 Процедура ИзменитьДвиженияДокумента(ДокументСсылка)

 // прочитаем набор записей регистра по документу	

 НаборЗаписей = РегистрыБухгалтерии.Хозрасчетный.СоздатьНаборЗаписей();

 НаборЗаписей.Отбор.Регистратор.Установить(ДокументСсылка);

 НаборЗаписей.Прочитать();    





 Если НаборЗаписей.Количество() = 0 Тогда

  Возврат;

 КонецЕсли;

 // переберем все записи набора и заполним суммы по налоговому учету

 Для каждого Запись из НаборЗаписей Цикл

  // перед изменением сумм проверяем ведется ли налоговый учет на выбранном счёте

  Если Запись.СчетДт.НалоговыйУчет Тогда

   Запись.СуммаНУДт = Запись.Сумма;

  КонецЕсли;

  Если Запись.СчетКт.НалоговыйУчет Тогда

   Запись.СуммаНУКт = Запись.Сумма;

  КонецЕсли;

 КонецЦикла;

 // установим признак обмена данными

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

 НаборЗаписей.Записать();

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

 // предварительно установив признак обмена данными

 ДокументОбъект = ДокументСсылка.ПолучитьОбъект();

 ДокументОбъект.ОбменДанными.Загрузка = Истина;

 ДокументОбъект.РучнаяКорректировка   = Истина;

 ДокументОбъект.Записать(); 

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

Хотелось бы отметить, что без проверки ведения налогового учета на счёте, при попытке записать набор, содержащий проводку с ненулевой суммой по счёту на котором не ведется налоговый учет, возникнет ошибка следующего содержания:

Запись не верна! Поле “Сумма (налоговый учет)” должно быть пустым! (Регистр бухгалтерии: Журнал проводок (бухгалтерский и налоговый учет); Номер строки: 1)

Режим обмена данными устанавливается следующими строками:

Код 1C v 8.х

 НаборЗаписей.ОбменДанными.Загрузка = Истина;

ДокументОбъект.ОбменДанными.Загрузка = Истина;

Это необходимо для того, чтобы не выполнялся программный код, находящийся в обработчиках событий “ПередЗаписью” модуля набора записей регистра бухгалтерии “Хозрасчетный” и модуля корректируемого документа. В каждом из них (для типовых конфигураций) есть проверка следующего вида:

Код 1C v 8.х

 Если ОбменДанными.Загрузка Тогда



Возврат;



КонецЕсли;

Признак ручной корректировки документа (ДокументОбъект.РучнаяКорректировка = Истина) необходимо устанавливать для того, чтобы изменения сохранились при повторном проведении документа. При проведении такого документа в конфигурации 1С:Бухаглерия 8 выдается следующее сообщение:

Движения документа отредактированы вручную и не могут быть автоматически актуализированы.

Источник

Категория: Регистры бухгалтерии

Как перебрать все даты с НачалоПериода по КонецПериода и получить таблицу периодов? Категория: Работа с Датами (Временем)

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

Открыть диалог множественного выбора файлов и чтение выбранных файлов Категория: Работа с Файлами и Каталогами

Автоматическая установка ширины колонки табличного документа.

Процедура, которая "примерно" делает автоширину колонок (навроде, как если бы выделить все колонки и дважды щелкнуть мышкой по границе заголовка колонки). Привожу текст, работает неахти, но лучше чем ничего:

Код 1C v 8.х

 Процедура РасчетШириныКолонок(ТабличныйДокумент)

    

    Перем МаксимальноеКоличествоСтрок, МаксимальнаяШиринаКолонки;

    Перем КонечнаяСтрока, НачальнаяСтрока, ТекущаяКолонка, ТекущаяСтрока, НачалоДанных;

    Перем ОбластьШапки, ОбластьПодвала;

    Перем ШиринаКолонки, ТекстЯчейки, НомерСтрокиТекста;

    Перем КоличествоУровнейГруппировокСтрок, Отступ;

    Перем ШириныКолонок;

    

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

 

    МаксимальноеКоличествоСтрок = 50;

    // Ограничение максимальной ширины колонки

 

    МаксимальнаяШиринаКолонки = 50;

    // Массив, в который будут помещаться ширины колонок

 

    ШириныКолонок = Новый Массив;

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

 

    КоличествоУровнейГруппировокСтрок = ТабличныйДокумент.КоличествоУровнейГруппировокСтрок();

    

    // Инициализируем начальные строки

 

    НачальнаяСтрока = 0;

    НачалоДанных = 0;

    

    // Найдем в результирующем документе область шапки таблицы

 

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

    Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        

        // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

         НачальнаяСтрока = ОбластьШапки.Верх;

        НачалоДанных = ОбластьШапки.Низ + 1;

    Иначе

        

        // Если область шапки таблицы не найдена, найдем область шапки строк

         ОбластьШапки = ТабличныйДокумент.Области.Найти("ШапкаСтрок");

        Если ТипЗнч(ОбластьШапки) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

            

            // Из шапки таблицы получим начальную строку с которой будем рассчитывать ширины

             НачальнаяСтрока = ОбластьШапки.Верх;

            НачалоДанных = ОбластьШапки.Низ + 1;

            

        КонецЕсли;

    КонецЕсли;

    

    // Получим область подвала отчета и вычислим конечную строку расчета

 

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

    Если ТипЗнч(ОбластьПодвала) = Тип("ОбластьЯчеекТабличногоДокумента") Тогда

        // Область подвала найдена

        КонечнаяСтрока = ОбластьПодвала.Верх - 1;

        Если КонечнаяСтрока - НачальнаяСтрока > МаксимальноеКоличествоСтрок Тогда

            КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

        КонецЕсли;

    Иначе 

            // Область подвала не найдена

        КонечнаяСтрока = НачальнаяСтрока + МаксимальноеКоличествоСтрок;

    КонецЕсли;

    

    // Ограничим конечную строку

    КонечнаяСтрока = Мин(КонечнаяСтрока, ТабличныйДокумент.ВысотаТаблицы);

    // Переберем все колонки отчета

    Для ТекущаяКолонка = 1 По ТабличныйДокумент.ШиринаТаблицы Цикл

        АвтоОтступ = 0;

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

        Для ТекущаяСтрока = НачальнаяСтрока По КонечнаяСтрока Цикл

            ШиринаКолонки = 0;

            // Получим область текущей ячейки

            ОбластьЯчейки = ТабличныйДокумент.Область(ТекущаяСтрока, ТекущаяКолонка);

            Если ОбластьЯчейки.Лево <> ТекущаяКолонка Или ОбластьЯчейки.Верх <> ТекущаяСтрока Тогда

                // Данная ячейка принадлежит объединенным ячейкам и не является начальной ячейкой

                Продолжить;

            КонецЕсли;

            Если КоличествоУровнейГруппировокСтрок > 0 И ТекущаяСтрока = НачалоДанных Тогда

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

                АвтоОтступ = ОбластьЯчейки.АвтоОтступ;

            КонецЕсли;

            // Получим текст ячейки

            ТекстЯчейки = ОбластьЯчейки.Текст;

            // Для каждой строки из текста ячейки рассчитаем количество символов в строке

            Для НомерСтрокиТекста = 1 По СтрЧислоСтрок(ТекстЯчейки) Цикл

                ШиринаТекстаЯчейки = СтрДлина(СтрПолучитьСтроку(ТекстЯчейки, НомерСтрокиТекста));

                // Если используется автоотступ, то прибавим к ширине ячейки его величину

                Если АвтоОтступ <> Неопределено И АвтоОтступ > 0 Тогда

                    ШиринаТекстаЯчейки = ШиринаТекстаЯчейки + КоличествоУровнейГруппировокСтрок * АвтоОтступ;

                КонецЕсли;

                ШиринаКолонки = Макс(ШиринаКолонки, ШиринаТекстаЯчейки);

            КонецЦикла;



            Если ШиринаКолонки > МаксимальнаяШиринаКолонки Тогда

                // Ограничим ширину колонки

                ШиринаКолонки = МаксимальнаяШиринаКолонки;

            КонецЕсли;

            Если ШиринаКолонки <> 0 Тогда

                // Ширина колонки рассчитана

                // Определим, сколько ячеек по ширине используется в области для текущей ячейки

                КоличествоКолонок = ОбластьЯчейки.Право - ОбластьЯчейки.Лево;

                // Переберем все ячейки, расположенные в области

                 Для НомерКолонки = 0 По КоличествоКолонок Цикл

                    Если ШириныКолонок.ВГраница() > ТекущаяКолонка - 1 + НомерКолонки Тогда

                        // В массиве ширин колонок уже был элемент для текущей колонки

                        Если ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = Неопределено Тогда

                            // Значение ширины колонки еще не было установлено

                            ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = ШиринаКолонки / (КоличествоКолонок + 1);

                        Иначе

                            // Значение ширины колонки уже было установлено

                             // Вычислим максимум ширины колонки

                             ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки] = 

                                Макс(ШириныКолонок[ТекущаяКолонка - 1 + НомерКолонки], ШиринаКолонки / (КоличествоКолонок + 1));

                        КонецЕсли;

                    Иначе

                        // В массиве ширин колонок еще не было элемента для данной колонки

                        // Добавим элемент в массив ширин колонок

                        ШириныКолонок.Вставить(ТекущаяКолонка - 1 + НомерКолонки, ШиринаКолонки / (КоличествоКолонок + 1));

                    КонецЕсли;

                КонецЦикла;

            КонецЕсли;

        КонецЦикла;    // Конец цикла перебора строк

    КонецЦикла;    // Конец цикла перебора колонок

    

    // Переберем все элементы в массиве вычисленных ширин колонок

     Для ТекущаяКолонка = 0 По ШириныКолонок.ВГраница() Цикл

        Если ШириныКолонок[ТекущаяКолонка] <> Неопределено Тогда

            // Ширина колонок установлена

            // Установим ширину области ячеек

            ТабличныйДокумент.Область(, ТекущаяКолонка + 1, НачалоДанных, ТекущаяКолонка + 1).ШиринаКолонки = ШириныКолонок[ТекущаяКолонка] + 1;

        КонецЕсли;

    КонецЦикла;

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

Очень полезная штука при условии, что у Вас заранее невозможно определить размер итоговых колонок в печатной форме. А так, надо просто "натравить" процедуру с соответствующими параметрами на нужные ячейки таблицы, и они сами "выровняются" и приобретут необходимый размер (ширину).

Код 1C v 7.x

 //<!-- Патырило С.С. 22-04-2004 : Автоматическая установка ширины колонки

//  Для изменения ширины колонки уже сформированной таблицы, требуется передать

// в качестве параметров переменную с объектом "Таблица", координаты ячейки (группы ячеек)

// для которых нужно установить ширину столбца и ширину столбца в символах.

// При этом не обязательно передавать координаты требуемой ячейки (итоговой),

// (т.е. когда нет возможности или сложно определить позицию итоговой строки)

// достаточно указать ячейку из данного столбца (например первую).

//  Процедура установит ширину столбца выбрав максимальное из значений - 

// текущего размера (установленного в конфигураторе, или программно перед вызовом 

// функции) и переданного в качестве параметра. 

Процедура глУстШиринуЯчейки(Таб, Строка1, Столбец1, Строка2, Столбец2, ДлТекста = 0) Экспорт

	Если ДлТекста = 0 Тогда

	    врДлина	= СтрДлина(СокрЛП(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).Текст));

	Иначе

		врДлина	= ДлТекста;

	КонецЕсли;

	Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(Макс(Таб.Область(Строка1, Столбец1, Строка2, Столбец2).ШиринаСтолбца(), врДлина));

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

// --> Патырило С.С. 22-04-2004

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

Запись движений Приход или Расход в регистр остатков Категория: Регистры

Добавить, удалить, перебрать строки табличного поля документа Категория: Документы