хозрасчетныйостатки » Поиск

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

Как получить сальдо дебетовое или кредитовое?

Примеры универсальных функций 1С для получения Конечных Сальдо Дк и Дт:

Код 1C v 8.х

  //Перед использованием укажите значения переменных:
знОрганизация = Организация;
КонПериода = ТекущаяДата();

// СКД - Сальдо Конечное Дебетовое
Функция СКД(Счет, ДатаО = Неопределено)
Если ДатаО = Неопределено Тогда ДатаО = КонецДня(КонПериода) КонецЕсли;	
СчетПЛ = ПланыСчетов.Хозрасчетный.НайтиПоКоду(Счет); 
Если СчетПЛ = ПланыСчетов.Хозрасчетный.ПустаяСсылка() Тогда
	Возврат "Нет счета!";
КонецЕсли;	
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |	ХозрасчетныйОстатки.СуммаОстатокДт,
               |	ХозрасчетныйОстатки.СуммаОстатокКт
               |ИЗ
               |	РегистрБухгалтерии.Хозрасчетный.Остатки(&DatO, Счет В ИЕРАРХИИ(&Scet), , Организация = &Organ) КАК ХозрасчетныйОстатки
               |";
Запрос.УстановитьПараметр("DatO", Новый Граница(ДатаО, ВидГраницы.Включая));
Запрос.УстановитьПараметр("Scet", СчетПЛ);
Запрос.УстановитьПараметр("Organ", знОрганизация);

Результат = Запрос.Выполнить();
Результат = Результат.Выбрать();
Если Результат.Следующий() Тогда
	Возврат Результат.СуммаОстатокДт;
Иначе
	Возврат 0;
КонецЕсли;
КонецФункции	

// СКК - Сальдо Конечное Кредитовое
Функция СКК(Счет, ДатаО = Неопределено)
Если ДатаО = Неопределено Тогда ДатаО = КонецДня(КонПериода) КонецЕсли;	
СчетПЛ = ПланыСчетов.Хозрасчетный.НайтиПоКоду(Счет); 
Если СчетПЛ = ПланыСчетов.Хозрасчетный.ПустаяСсылка() Тогда
	Возврат "Нет счета!";
КонецЕсли;	
Запрос = Новый Запрос;
Запрос.Текст = "ВЫБРАТЬ
               |	ХозрасчетныйОстатки.СуммаОстатокДт,
               |	ХозрасчетныйОстатки.СуммаОстатокКт
               |ИЗ
               |	РегистрБухгалтерии.Хозрасчетный.Остатки(&DatO, Счет В ИЕРАРХИИ (&Scet), , Организация = &Organ) КАК ХозрасчетныйОстатки";
Запрос.УстановитьПараметр("DatO", Новый Граница(ДатаО, ВидГраницы.Включая));
Запрос.УстановитьПараметр("Scet", СчетПЛ);
Запрос.УстановитьПараметр("Organ", знОрганизация);

Результат = Запрос.Выполнить();
Результат = Результат.Выбрать();
Если Результат.Следующий() Тогда
	Возврат Результат.СуммаОстатокКт;
Иначе
	Возврат 0;
КонецЕсли;

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

Пример использования:

Код 1C v 8.х

 ТекЗнач = СКД("04.01")-СКК("05")+СКД("08.05");

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

Проведение документа по регистру бухгалтерии

Задача: Есть два склада Склад1 и Склад2. Нужно переместить определенное количество товара со склада1 на склад2. При списании со склада1 нужно проверять остаток, что хватает товара. Проведение сделать по регистру бухгалтерии.(проверку тоже по регистру бухгалтерии).

Решение: В Шапке документа Склад1 и Склад2. В Табличной части номенклатура и количество.

Код 1C v 8.х

 Процедура ОбработкаПроведения(Отказ, Режим)
 
	Движения.Хозрасчетный.Очистить();
	Движения.Хозрасчетный.Записать();
	Движения.Хозрасчетный.Записывать = Истина;
	Для Каждого ТекСтрокаТовары Из Товары Цикл		
		Запрос = Новый Запрос;       //проверяем сколько осталось на складе1
		Запрос.Текст = "ВЫБРАТЬ
		|	ХозрасчетныйОстатки.КоличествоОстатокДт
		|ИЗ
		|	РегистрБухгалтерии.Хозрасчетный.Остатки КАК ХозрасчетныйОстатки
		|ГДЕ
		|	ХозрасчетныйОстатки.Счет = &Счет
		|	И ХозрасчетныйОстатки.Субконто1 = &Субконто1
		|	И ХозрасчетныйОстатки.Субконто2 = &Субконто2";
		Запрос.УстановитьПараметр("Счет",ПланыСчетов.Хозрасчетный.ТоварыНаСкладах);  //41.1
		Запрос.УстановитьПараметр("Субконто1",ТекСтрокаТовары.Номенклатура);
		Запрос.УстановитьПараметр("Субконто2",Склад1);
		Выборка = Запрос.Выполнить().Выбрать();
		Если Выборка.Следующий() Тогда
			Если Выборка.КоличествоОстатокДт < ТекСтрокаТовары.Количество Тогда
				Сообщить("На складе1 остака: " + СокрЛП(Выборка.КоличествоОстатокДт)); 
				Отказ = Истина;
				Возврат;
			КонецЕсли;   
		Иначе
			Сообщить("нет остатка на складе1"); 
			Отказ = Истина;
			Возврат;
		КонецЕсли;   

		Движение = Движения.Хозрасчетный.Добавить();
		Движение.СчетКт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //Списываем
		Движение.СчетДт = ПланыСчетов.Хозрасчетный.ТоварыНаСкладах;      //приходуем
		Движение.Период = Дата;
		Движение.КоличествоКт = ТекСтрокаТовары.Количество;
		Движение.ДатаЗаписи = Дата;
		Движение.Содержание = "Перемещение";
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетКт,Движение.СубконтоКт,
                "Склады",Склад1);
		
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Номенклатура",ТекСтрокаТовары.Номенклатура);
		БухгалтерскийУчет.УстановитьСубконто(Движение.СчетДт,Движение.СубконтоДт,
                "Склады",Склад2);
		//Или так
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоКт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад1;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Номенклатура] = Номенклатура;
		//Движение.СубконтоДт[ПланыВидовХарактеристик.ВидыСубконтоХозрасчетные.Склады] = Склад2;
	КонецЦикла;

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

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

Как в запросе задать условие по типы значения? Категория: Запросы

Как в запросе отобрать значения по Типу? Категория: Запросы

Как найти первый документ, приведший к появлению кредитового остатка на счете? Категория: Регистры бухгалтерии

Как перенести остаток со счета на счет?

Код 1C v 8.х

 Запрос = Новый Запрос; 
Запрос.Текст = "ВЫБРАТЬ 
|	ХозрасчетныйОстатки.СуммаОстатокДт 
|ИЗ 
|	РегистрБухгалтерии.Хозрасчетный.Остатки(&Период, Счет = &Счет, , 
|	Субконто1 = &Контрагент И Организация = &Организация И Субконто2 = &Договор) КАК ХозрасчетныйОстатки"; 

// Считаем что на счете ведется аналитика только в разрезе контрагентов 
// и договоров. 
Запрос.УстановитьПараметр("Период", Период1); 
Запрос.УстановитьПараметр("Контрагент", Контрагент); 
Запрос.УстановитьПараметр("Договор", Договор); 
Запрос.УстановитьПараметр("Организация", Организация); 
Запрос.УстановитьПараметр("Счет", ПланыСчетов.Хозрасчетный.РасчетыСПокупателями); 

Выборка = Запрос.Выполнить().Выбрать(); 

Если Выборка.Следующий() Тогда 
    Документ = Документы.ОперацияБух.СоздатьДокумент(); 

    Документ.Дата = РабочаяДата; 
    Документ.Организация = Организация; 
    Документ.Содержание = "Погашение дебиторской задолженности"; 

    Проводка = Документ.Движения.Хозрасчетный.Добавить(); 
    Проводка.СчетДт = ПланыСчетов.Хозрасчетный.РасчетыСПокупателями; 
    Проводка.СчетКт = ПланыСчетов.Хозрасчетный.ПрочиеРасходы; 
    Проводка.СубконтоДт.Контрагенты = Контрагент; 
    Проводка.СубконтоДт.Договоры = Договор; 
    Проводка.Сумма = Выборка.СуммаОстатокДт; 

    Документ.СуммаОперации = Выборка.СуммаОстатокДт; 

    Форма = Документ.ПолучитьФорму(); 
    Форма.Открыть(); 
КонецЕсли;

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

Как получить остатки по счетам? Категория: Регистры бухгалтерии

Как получить остаток по счету? Категория: Регистры бухгалтерии

Выбрать Остатки и Обороты по указанным счетам, отбор по субконто и выгрузка результата в EXCEL

Код 1C v 8.х

  Запрос=Новый Запрос;
Запрос.Текст="
|ВЫБРАТЬ
|	ХозрасчетныйОстаткиИОбороты.Счет,
|	ХозрасчетныйОстаткиИОбороты.Субконто1,
|	ХозрасчетныйОстаткиИОбороты.Субконто2,
|	ХозрасчетныйОстаткиИОбороты.Субконто3,
|	ХозрасчетныйОстаткиИОбороты.Организация,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборот,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборотДт,
|	ХозрасчетныйОстаткиИОбороты.СуммаОборотКт
|ИЗ
|	РегистрБухгалтерии.Хозрасчетный.ОстаткиИОбороты(
|			&ДатаНач,
|			&ДатаКон,
|			Период,
|			,
|			Счет В (&Cчета),
|			,";
//Если задан отбор по контрагенту
Если Не Контрагент.Пустая() Тогда 
Запрос.Текст=Запрос.Текст+"
|			Субконто1 = &Контрагент
|				ИЛИ Субконто2 = &Договор";
КонецЕсли;
Запрос.Текст=Запрос.Текст+"
|) КАК ХозрасчетныйОстаткиИОбороты
|";

//Создадим список счетов
СписокСчетов=Новый СписокЗначений;
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыСПоставщикамиИПодрядчиками); //60,01
СписокСчетов.Добавить(ПланыСчетов.Хозрасчетный.РасчетыПоАвансамВыданным);          //60,02
Запрос.УстановитьПараметр("Cчета",СписокСчетов);
Запрос.УстановитьПараметр("ДатаКон",ДатаК);
Запрос.УстановитьПараметр("ДатаНач",ДатаН);
Запрос.УстановитьПараметр("Договор",Договор);
Запрос.УстановитьПараметр("Контрагент",Контрагент);
Результат = Запрос.Выполнить();
ТабДок=ЭлементыФормы.ТД;
ТабДок.Очистить();
ПечатьТЗвТаб(ТабДок, Результат);

//Выгрузка выведенного результата запроса в Excel
Режим = РежимДиалогаВыбораФайла.Сохранение; 
ДиалогОткрытияФайла = Новый ДиалогВыбораФайла(Режим); 
ДиалогОткрытияФайла.ПолноеИмяФайла = ""; 
Фильтр = "Excel(*.xls)|*.xls"; 
ДиалогОткрытияФайла.Фильтр = Фильтр; 
ДиалогОткрытияФайла.МножественныйВыбор = Ложь; 
ДиалогОткрытияФайла.Заголовок = "Выберите куда сохранить файл Excel"; 
Если ДиалогОткрытияФайла.Выбрать() Тогда 
	ПутьКФайлу = ДиалогОткрытияФайла.ПолноеИмяФайла; 
КонецЕсли;
ТабДок.Записать(ПутьКФайлу,ТипФайлаТабличногоДокумента.XLS97);

Категория: Запросы