бухгалтерскиеитоги » Поиск

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

Как заполнить диаграмму данными?

Код 1C v 8.х

 Диаграмма = ЭлементыФормы.Диаграмма; 



// Очистить диаграмму, возможно ранее в нее уже выводились данные. 

Диаграмма.КоличествоСерий = 0; 

Диаграмма.КоличествоТочек = 0; 



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

Диаграмма.МаксимумСерий = МаксимумСерий.Ограничено; 

Диаграмма.МаксимумСерийКоличество = 7; 

Диаграмма.ВидПодписей = ВидПодписейКДиаграмме.Процент; 

Диаграмма.ОбластьЗаголовка.Текст = "Обороты номенклатуры"; 



Запрос = Новый Запрос; Запрос.Текст = "ВЫБРАТЬ 

|	ПродажиКомпанииОбороты.Номенклатура, 

|	СУММА(ПродажиКомпанииОбороты.КоличествоОборот) КАК КоличествоОборот 

|ИЗ 

|	РегистрНакопления.Продажи.Обороты(, , , ) КАК ПродажиКомпанииОбороты 

|СГРУППИРОВАТЬ ПО 

|	ПродажиКомпанииОбороты.Номенклатура"; 



Результат = Запрос.Выполнить(); 



// Запретить обновление диаграммы на время вывода данных. 

Диаграмма.Обновление = Ложь; 



// Установить единственную точку. 

Диаграмма.КоличествоТочек = 1; 

Диаграмма.Точки[0].Текст = "Количество"; 

Выборка = Результат.Выбрать(); 



Пока Выборка.Следующий() Цикл 



	// Количество серий, если бы не ограничивали зависело бы от результата запроса. 

	КоличествоСерий = Диаграмма.Серии.Количество(); 

	Диаграмма.КоличествоСерий = КоличествоСерий + 1; 

	Диаграмма.Серии[КоличествоСерий].Текст = Выборка.Номенклатура; 



	// Установить значение "на пересечении" точки и серии. 

	// Первый параметр - 0 , так как в диаграмме только одна точка. 

	Диаграмма.УстановитьЗначение(0, КоличествоСерий, Выборка.КоличествоОборот); 



КонецЦикла; 



// Обновить диаграмму. 

Диаграмма.Обновление = Истина;

Код 1C v 7.x

 //Пример 1:

Процедура ПостроитьДиаграмму(Диагр)

  КолСерий=0;

  //количество серий определяется по количеству элементов в справочнике Материалы   Спр=СоздатьОбъект("Справочник.Материалы");

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    // группы элементов пропускаются

    Если Спр.ЭтоГруппа()=0 Тогда

      КолСерий=КолСерий+1;

    КонецЕсли;

  КонецЦикла;

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

  Диагр.КоличествоСерий(КолСерий);

  Диагр.КоличествоТочек(1);

  //в качестве значений на диаграмме примем количественное сальдо конечное по счету 10 и текущему элементу справочника

  БИ=СоздатьОбъект("БухгалтерскиеИтоги");

  БИ.Рассчитать(ДатаОтчета, ДатаОтчета);

  номер=1;

  Спр.ВыбратьЭлементы();

  Пока Спр.ПолучитьЭлемент()=1 Цикл

    Если Спр.ЭтоГруппа()=0 Тогда

      Диагр.УстановитьИмяСерии(Номер, Спр.Наименование);

      Диагр.УстановитьЗначение(1,номер,БИ.СКД("10","К",,Спр.ТекущийЭлемент()));

      номер=номер+1;

    КонецЕсли;

  КонецЦикла;

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

Код 1C v 7.x

 // Пример 2:

Процедура СформироватьДиаграмму(Диаграмма1)

    // Блокируем обновление, пока обрабатываются данные

    Диаграмма1.Обновление(0);

    Диаграмма1.Заголовок = "Поступления от покупателей";

    Диаграмма1.УстановитьИмяСерии(1, "Рубли");

    Диаграмма1.АвтоУстановкаИменТочек(1);



    // Заполним диаграмму значениями

    БухИт = СоздатьОбъект("БухгалтерскиеИтоги");



    Бухит.ВыполнитьЗапрос(НачКвартала(РабочаяДата()),

    КонКвартала(РабочаяДата()),"60.1",,,1,"Неделя","С");



    БухИт.ВыбратьПериоды();

    А = 1;

    // дебетовые обороты по счету 60.1 покажут поступления

    // денег от покупателей

    Пока БухИт.ПолучитьПериод() = 1 Цикл



        Диаграмма1.УстановитьЗначение(А, 1, БухИт.ДО());

        А = А +1;



    КонецЦикла;



    // после наполнения данными перерисовываем

    Диаграмма1.Обновление(1);



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

Категория: Диаграмма

Проверка наличия компонент "Бухгалтерский, Оперативный Учеты, Расчет"

Код 1C v 7.x

 

// При старте проверяем наличие компоненты "Бухгалтерский Учет" 1С:Предприятия

Попытка

     БухИтоги = СоздатьОбъект("БухгалтерскиеИтоги");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие" + РазделительСтрок

                      +"компоненты Бухгалтерский Учет 1С:Предприятия 7.7!"+ РазделительСтрок

                      +"Повторите запуск программы после проверки"+ РазделительСтрок

                      +"состава установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

КонецПопытки;



// При старте проверяем наличие компоненты "Оперативный учет" 1С:Предприятия

Попытка

     ТестовыйРегистр = СоздатьОбъект("Регистр.ВидЛюбогоРегистра");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок

                      +"компоненты Оперативный Учет 1С:Предприятия 7.7!"+ РазделительСтрок

                      +"Повторите запуск программы после проверки состава "+ РазделительСтрок

                      +"установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

КонецПопытки;



// При старте проверяем наличие компоненты "Расчет" 1С:Предприятия

Попытка

     ЖЗ = СоздатьОбъект("ЖурналРасчетов.ЛюбойВидЖурналаРасчетов");

Исключение

     Предупреждение("Для работы конфигурации необходимо наличие"+ РазделительСтрок

                      +"компоненты Расчет! Повторите запуск программы после проверки"+ РазделительСтрок

                      +"состава установленных компонент и доступа к ключам защиты.");

     СтатусВозврата(0);

     Возврат;

КонецПопытки;

Категория: Полезные, Универсальные Функции

Реализация алгоритмов «FIFO» и «LIFO»

Для реализации алгоритмов «FIFO» и «LIFO» (FIFO (первый пришел – первый ушел), LIFO (последний пришел – первый ушел)) необходимо добавить на счет учета ТМЦ субконто «Партии». Тогда определяется текущая стоимость товара и текущий остаток первой (последней) партии товара. Их отношение дает нам цену партии товара. Если остаток по партии товара меньше, чем реализуется, тогда выбираем следующую партию товаров и так далее.

Код 1C v 7.x

 	БИ=СоздатьОбъект("БухгалтерскиеИтоги");

БИ.ИспользоватьСубконто("ЦенныеБумаги",ЦБ,2);

БИ.ИспользоватьСубконто("ПартииЦБ");

БИ.ВыполнитьЗапрос(,ТекущийДокумент(),"58.6"); 



Если Константа.МетодОпределенияСебестоимости =   Перечисление.МетодыОпределенияСебестоимости.ФИФО Тогда

	БИ.ВыбратьСубконто(2,,,,,,0);

Иначе

	БИ.ВыбратьСубконто(2,,,,,,1);

КонецЕсли; 



Кол=Количество; 

Пока БИ.ПолучитьСубконто(2)=1 Цикл

	Сум=БИ.СКД(1);

	Ост=БИ.СКД(3);

	Если Ост<=Кол Тогда

		// списываем весь остаток по партии

		СумСпис=Сум;

		КолСпис=Ост; 

	ИначеЕсли Ост>Кол Тогда 

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

		ЦенаСпис=Сум/Ост;

		КолСпис=Кол;

		СумСпис=Окр(КолСпис*ЦенаСпис,2); 

	Иначе     

		Продолжить;

	КонецЕсли;  



	Операция.НоваяПроводка();

	Операция.Дебет.Счет=Сч91_2;

	Операция.Кредит.Счет=Сч58_6;

	Операция.Кредит.ЦенныеБумаги=ЦБ;

	Операция.Кредит.ПартииЦБ=БИ.Субконто(2);  

	Операция.Сумма=СумСпис;

	Операция.Количество=КолСпис; 

	Кол=Кол-КолСпис; 

	Если Кол=0 Тогда

		Прервать;

	КонецЕсли;

КонецЦикла;



Если Кол>0 Тогда

	Сообщить("Остаток меньше нуля");

	НеПроводитьДокумент();

КонецЕсли;

Категория: Полезные, Универсальные Функции

Реализация алгоритма «По среднему» Категория: Полезные, Универсальные Функции

Функция проверки типа значения

Код 1C v 8.х

 

// Функция возвращает Истина при соответствии типов, ложь в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Возврат ТипЗнч(ИсхЗнач) = Тип(ТипЗнач);

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



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")

// НужныйТипЗнач(глЗначениеПеременной("глТекущийПользователь"),"СправочникСсылка.Пользователи")

// НужныйТипЗнач(ИсхЗнач,"Форма")

// НужныйТипЗнач(ИсхЗнач,"Булево")

// НужныйТипЗнач(ИсхЗнач,"Строка") 

// НужныйТипЗнач(ИсхЗнач,"Число")

// НужныйТипЗнач(ИсхЗнач,"Дата"))

// НужныйТипЗнач(ИсхЗнач,"Массив") 

// НужныйТипЗнач(ИсхЗнач,"Структура") 

// НужныйТипЗнач(ИсхЗнач,"Соответствие")

// НужныйТипЗнач(ИсхЗнач,"СписокЗначений")

// НужныйТипЗнач(ИсхЗнач,"ТаблицаЗначений")

// НужныйТипЗнач(ИсхЗнач,"ДеревоЗначений")

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Хозрасчетный") 

// НужныйТипЗнач(ИсхЗнач,"ПланСчетовСсылка.Налоговый") 

// НужныйТипЗнач(ИсхЗнач,"ХранилищеЗначения")

// НужныйТипЗнач(ИсхЗнач,"Картинка")

// НужныйТипЗнач(ИсхЗнач,"ПолеВвода")

// НужныйТипЗнач(ИсхЗнач,"Панель")

// НужныйТипЗнач(ИсхЗнач,"Флажок")	

// НужныйТипЗнач(ИсхЗнач,"РегистрРасчетаНаборЗаписей.УправленческиеНачисления")

// НужныйТипЗнач(ИсхЗнач,"ПланВидовРасчетаСсылка.ОсновныеНачисленияОрганизаций") 

// НужныйТипЗнач(ИсхЗнач,"ДокументСсылка.ОтпускПоУходуЗаРебенком")

// НужныйТипЗнач(ИсхЗнач,"ИнтернетПочтовоеСообщение")

// НужныйТипЗнач(ИсхЗнач, "БизнесПроцессСсылка.м_Документооборот")

Код 1C v 7.x

 

// Функция возвращает 1 при соответствии типов, 0 в обратном случае

Функция НужныйТипЗнач(ИсхЗнач,ТипЗнач)

	Если ТипЗначенияСтр((ИсхЗнач) = ТипЗнач тогда

		Возврат 1;

	Иначе

		Возврат 0;

	КонецЕсли;

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



// Некоторые примеры обращения

// ИсхЗнач  - проверяемое значение

// НужныйТипЗнач(ИсхЗнач,"Строка")



// Значения типов данных:

// ''Число'' (''Number'') - числовой тип данных;

// ''Строка'' (''String'') - строковый тип данных;

// ''Дата'' (''Date'') - тип данных Дата;

// ''Перечисление'' (''Enum'') - агрегатный тип данных ''Перечисление'';

// ''Справочник'' (''Reference'') - агрегатный тип данных ''Справочник'';

// ''Документ'' (''Document'') - агрегатный тип данных ''Документ'';

// ''Регистр'' (''Register'') - агрегатный тип данных ''Регистр'';

// ''Календарь'' (''Calendar'') - агрегатный тип данных ''Календарь'';

// ''ВидРасчета'' (''Calculation'') - агрегатный тип данных ''ВидРасчета'';	

// ''ЖурналРасчетов'' (''CalcJournal'') - агрегатный тип данных ''ЖурналРасчетов'';

// ''ПланСчетов'' (''ChartOfAccounts'') - агрегатный тип данных ''ПланСчетов'';

// ''Счет'' (''Account'') - агрегатный тип данных ''Счет'';

// ''Операция'' (''Operation'') - агрегатный тип данных ''Операция'';

// ''КорректныеПроводки'' (''CorrectEntries'') - агрегатный тип данных ''КорректныеПроводки'';

// ''БухгалтерскиеИтоги'' (''BookkeepingTotals'') - агрегатный тип данных ''БухгалтерскиеИтоги'';

// ''Таблица'' (''Table'') - агрегатный тип данных ''Таблица'';

// ''Текст'' (''Text'') - агрегатный тип данных ''Текст'';

// ''Запрос'' (''Query'') - агрегатный тип данных ''Запрос'';

// ''СписокЗначений'' (''ValueList'') - агрегатный тип данных ''СписокЗначений'';

// ''ТаблицаЗначений'' (''ValueTable'') - агрегатный тип данных ''ТаблицаЗначений'';

// ''Периодический'' (''Periodic'') - агрегатный тип данных ''Периодический'';

// ''Картинка'' (''Picture'') - агрегатный тип данных ''Картинка'';

// ''ГрупповойКонтекст'' (''GroupContext'') - контекст программного модуля или Формы;

// ''OLE'' (''OLE'') - OLE-объект.

// ''НеизвестныйОбьект'' (''UnknownObject'') - для типов, для которых в системе не предусмотрено специальное строковое обозначение;

// '''' (пустая строка)  - неопределенный тип данных.

Категория: Работа с Типами данных

Как отключить вывод splash заставки 1C предприятия ? Категория: Администрирование