поступлений » Поиск

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

Как удалить движения документа программно?

Потребовалось в УТ быстро удалить все движения по банку, дело вроде легкое - отменить проведение всех поступлений и списаний безналичных денежных средств, но не тут то было...

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

Ну не может типовым способом, заставим не типовым: Через запрос делаем выбору необходимых нам документов и в обработке результата пишем:

Код 1C v 8.3

 Для Каждого СтрокаРезультата Из РезультатТаблица Цикл

   //алгоритм обработки строки результата - начало

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

Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));

            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;

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

        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;

        Попытка

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

        Исключение

            Сообщить(ОписаниеОшибки());

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

    КонецЦикла;



	ДокОбъект.Проведен = Ложь;

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

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



   //алгоритм обработки строки результата - конец

КонецЦикла;

Готовая функция для использования в своих обработках или общем модуле:

Код 1C v 8.3

 Процедура УдалитьДвиженияДокумента(Документ)



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



    Для Каждого Движение ИЗ ДокОбъект.Движения Цикл



        Если Движение.Количество() > 0 Тогда

            Точка = Найти(Строка(Движение), ".");

            ВидРегистра = Лев(Строка(Движение), Точка - 13);

            РегистрИмя = СокрП(Сред(Строка(Движение), Точка + 1));



            Если ВидРегистра = "РегистрНакопления" Тогда

                НаборЗаписей = РегистрыНакопления[РегистрИмя].СоздатьНаборЗаписей();            

            ИначеЕсли ВидРегистра = "РегистрБухгалтерии" Тогда

                НаборЗаписей = РегистрыБухгалтерии[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрСведений" Тогда

                НаборЗаписей = РегистрыСведений[РегистрИмя].СоздатьНаборЗаписей();    

            ИначеЕсли ВидРегистра = "РегистрРасчета" Тогда

                НаборЗаписей = РегистрыРасчета[РегистрИмя].СоздатьНаборЗаписей();    

            КонецЕсли;



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



        Иначе

            НаборЗаписей = Движение;

        КонецЕсли;



        Попытка

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

        Исключение

            Сообщить(ОписаниеОшибки());

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

    КонецЦикла;



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

Категория: Документы

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

Этой статьей мы начинаем серию "Хотелок" - то что бухгалтера, менеджеры и т.д. просят добавить в программу 1С для удобства своей работы.

Хотелка: Необходимо для каждого документа Поступление товаров и услуг добавить выбор статуса наличия оригиналов Документов.

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

Решение: 1. В документ поступление добавлен выбор статуса наличия документов

2. В список документов поступлений добавлена информативная колонка с выделением статусов по цветам:

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

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

1. Документ Поступление товаров и услуг, добавили переключатель

2. В список документов добавили колонку Статус документа:

3. В модуле списка в процедуре ДокументСписокПриПолученииДанных добавили:

Код 1C v 8.х

 //W1C - Отображение статуса наличия документов

	Для Каждого Строка Из ОформленияСтрок Цикл

		Если Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 0 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Нет");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(255, 87, 87);

		ИначеЕсли Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 1 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Скан");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(255, 255, 153);

		ИначеЕсли Строка.ДанныеСтроки.Ссылка.ТипОригинал  = 2 Тогда

			Строка.Ячейки.СтатусДокумента.УстановитьТекст("Оригинал");

			Строка.Ячейки.СтатусДокумента.ЦветФона = Новый Цвет(155, 255, 155);

		КонецЕсли;

	КонецЦикла; 

	//*//

Результат: Теперь бухгалтер быстро фильтрует документы по статусу и менеджеру - печатает реестр, далее менеджер занимается получением оригиналов от контрагентов.

Если Вы столкнулись с подобной проблемой!?
Хотите автоматизировать аналогичный процесс - Обращайтесь, Мы поможем Вам! - Контакты > 1С Программирование

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

Пример переноса данных из 1С 7.7 в 8.1 посредством XML файла

Код 1C v 7.x

    xmldoc = CreateObject("Msxml2.DOMDocument");

xmlDoc.loadXML("<root/>");

nodeRoot = xmlDoc.documentElement;

расходы = xmlDoc.createElement("СправочникРасходы");

Спр = Создатьобъект("Справочник.Расходы");

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

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

	расход = xmlDoc.createElement("Расход");

	расход.setAttribute("Код",Спр.Код);

	расход.setAttribute("Наименование",Спр.Наименование);

	расход.setAttribute("Родитель",Строка(Спр.Родитель));

	расход.setAttribute("Цена",Строка(Спр.Цена.Получить(ТекущаяДата())));

	расход.setAttribute("Количество",Строка(Спр.Количество));

	расход.setAttribute("ЭтоГруппа",Строка(Спр.ЭтоГруппа()));

	расходы.appendChild(расход);

КонецЦикла;

nodeRoot.appendChild(расходы);

ДвижениеСчетов = xmlDoc.createElement("ДвижениеСчетов");

рег = СоздатьОбъект("Регистр.Счет");

рег.ВыбратьДвижения();

Пока Рег.ПолучитьДвижение()=1 цикл

	Движение = xmlDoc.createElement("Движение");	

	Движение.setAttribute("Приход",Строка(Рег.Приход));

	Движение.setAttribute("Дата",Строка(Рег.ТекущийДокумент().ДатаДок));

	Движение.setAttribute("Описатель",Строка(Рег.Описатель));

	Движение.setAttribute("СтатьяРасходов",Строка(Рег.СтатьяРасходов));

	Движение.setAttribute("СтатьяПоступлений",Строка(Рег.СтатьяПоступлений));

	Движение.setAttribute("Кто",Строка(Рег.Кто));

	Движение.setAttribute("Кому",Строка(Рег.Кому));

	Движение.setAttribute("Остаток",Строка(Рег.Остаток));

	Движение.setAttribute("Количество",Строка(Рег.Количество));

	

	ДвижениеСчетов.appendChild(Движение);

КонецЦикла;		

nodeRoot.appendChild(ДвижениеСчетов);

  	

xmlDoc.save("C:\budjet.xml");

Код 1C v 8.х

 

Функция Кошель(Кош)

    стр = ТП2.Найти(Кош,"Описатель");

	Возврат Стр.Счет;

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

Функция Вал(Кош)

    стр = ТП2.Найти(Кош,"Описатель");

	Возврат Стр.Валюта;

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

Функция Дата1С(дат)

	Возврат "20"+сред(дат,7,2)+сред(дат,4,2)+лев(дат,2);	

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



Процедура Загрузка(Элемент)

    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");

	xmlDoc.load("C:\budjet.xml");

	nodeRoot = xmlDoc.documentElement;



	Для каждого nod из nodeRoot.childNodes цикл

		Если nod.nodeName = "СправочникРасходы" тогда 

			Сообщить("нашли СправочникРасходы");

			ТЗ = Новый ТаблицаЗначений;

			ТЗ.Колонки.Добавить("Код");

			ТЗ.Колонки.Добавить("Наименование");

			ТЗ.Колонки.Добавить("Родитель");

			ТЗ.Колонки.Добавить("Цена");

			ТЗ.Колонки.Добавить("Количество");

			ТЗ.Колонки.Добавить("ЭтоГруппа");

			Для Каждого Расход из nod.childNodes Цикл

				Строка = ТЗ.Добавить();

				Строка.Код = Расход.getAttribute("Код");

				Строка.Наименование = Расход.getAttribute("Наименование");

				Строка.Родитель = Расход.getAttribute("Родитель");

				Строка.Цена = Число(Расход.getAttribute("Цена"));

				Строка.Количество = Число(Расход.getAttribute("Количество"));

				Строка.ЭтоГруппа = ?(Расход.getAttribute("ЭтоГруппа")="1",True,Ложь);

			КонецЦикла;		

			//ТЗ.ВыбратьСтроку();



			Для Каждого Стр из ТЗ Цикл

				Родитель = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Родитель,истина);

				Справ = Справочники.СтатьиЗатрат.НайтиПоНаименованию(Стр.Наименование,истина);

				Если Справ = Справочники.СтатьиЗатрат.ПустаяСсылка() тогда

					Если Стр.ЭтоГруппа тогда

						Справ = Справочники.СтатьиЗатрат.СоздатьГруппу();

						Справ.Код = Стр.Код;

						Справ.Наименование = Стр.Наименование;

						Справ.Родитель = Родитель;

						Справ.Записать();

					Иначе

						Справ = Справочники.СтатьиЗатрат.СоздатьЭлемент();

						Справ.Код = Стр.Код;

						Справ.Наименование = Стр.Наименование;

						Справ.Родитель = Родитель;

						Справ.Цена = Стр.Цена;

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

						Справ.Записать();

					КонецЕсли;

				Иначе

				КонецЕсли;

			КонецЦикла;

		ИначеЕсли nod.nodeName = "ДвижениеСчетов" тогда

			Сообщить("нашли движения счетов");

			ТЗ = Новый ТаблицаЗначений;

			ТЗ.Колонки.Добавить("Приход");

			ТЗ.Колонки.Добавить("Дата");

			ТЗ.Колонки.Добавить("Описатель");

			ТЗ.Колонки.Добавить("Статья");

			ТЗ.Колонки.Добавить("Цена");

			ТЗ.Колонки.Добавить("Количество");

			Для каждого движ из nod.childNodes цикл

                Строка = ТЗ.Добавить();

				Строка.Приход = ?(движ.getAttribute("Приход")="1",True,Ложь);

				Строка.Дата = Дата(Дата1С(движ.getAttribute("Дата")));

				Строка.Описатель = движ.getAttribute("Описатель");

				Строка.Статья = Справочники.СтатьиЗатрат.НайтиПоНаименованию(движ.getAttribute(?(Строка.Приход,"СтатьяПоступлений","СтатьяРасходов")),истина);

				Строка.Цена = Число(движ.getAttribute("Остаток"));

				Строка.Количество = Число(движ.getAttribute("Количество"));

			КонецЦикла;

			ТЗ.ВыбратьСтроку();

        	Доки = Новый ТаблицаЗначений;

			Доки.Колонки.Добавить("Док");

			Доки.Колонки.Добавить("Дата");

			Доки.Колонки.Добавить("КошелекС");

			Доки.Колонки.Добавить("КошелекНа");

			Доки.Колонки.Добавить("Статья");

			Доки.Колонки.Добавить("ВалютаС");

			Доки.Колонки.Добавить("ВалютаНа");

			Доки.Колонки.Добавить("ЦенаС");

			Доки.Колонки.Добавить("ЦенаНа");

			Доки.Колонки.Добавить("Количество");

			УжеЕстьДок=Ложь;

			док=0;

			Для Каждого Стр Из ТЗ цикл

				Если Стр.Приход Тогда

					Если УжеЕстьДок тогда

						Док.КошелекНа = Кошель(Стр.Описатель);

						Док.ВалютаНа = Вал(Стр.Описатель);

						Док.ЦенаНа = Стр.Цена;

						Док.Количество = Стр.Количество;

						Док.Статья = Стр.Статья;         

						УжеЕстьДок=Ложь;

					Иначе

						Док = Доки.Добавить();

						Док.КошелекНа = Кошель(Стр.Описатель);

						Док.ВалютаНа = Вал(Стр.Описатель);

						Док.ЦенаНа = Стр.Цена;

						Док.Количество = Стр.Количество;

						Док.Статья = Стр.Статья; 

						Док.Док = "ПоступлениеСредств";  

					КонецЕсли;					

				Иначе

					Док = Доки.Добавить();

					Док.КошелекС = Кошель(Стр.Описатель);

					Док.ВалютаС = Вал(Стр.Описатель);

					Док.ЦенаС = Стр.Цена;

					Док.Количество = Стр.Количество;

					Док.Статья = Стр.Статья; 

					Если СокрЛП(Стр.Статья.Наименование)="Обмен валюты" тогда

						Док.Док = "ОбменВалюты";

						УжеЕстьДок=истина;

					ИначеЕсли СокрЛП(Стр.Статья.Наименование)="Перевод средств" тогда

						Док.Док = "ПереводСредств";

						УжеЕстьДок=истина;

					Иначе

						Док.Док = "РасходСредств";  

						УжеЕстьДок=Ложь;

					КонецЕсли;	            

				КонецЕсли; 

				Док.Дата = Стр.Дата;

			КонецЦикла;	

			Доки.ВыбратьСтроку();

		КонецЕсли;	  

	КонецЦикла;



	Для Каждого Док из Доки Цикл

		Если Док.Док = "ПоступлениеСредств" тогда

        	Докум = Документы.ПоступлениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекНа;

			Докум.Валюта = Док.ВалютаНа;

			Докум.Сумма = Док.ЦенаНа;

			Докум.Статья = Док.Статья;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

		ИначеЕсли Док.Док = "ПереводСредств" тогда

        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.КошелекКуда = Док.КошелекНа;

			Докум.КошелекОтКуда = Док.КошелекС;

			Докум.Валюта = Док.ВалютаНа;

			Докум.Сумма = Док.ЦенаНа;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

        ИначеЕсли Док.Док = "ОбменВалюты" тогда

        	Докум = Документы.ПеремещениеСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.КошелекКуда = Док.КошелекНа;

			Докум.КошелекОтКуда = Док.КошелекС;

			Докум.Валюта = Док.ВалютаС;

			Докум.Сумма = Док.ЦенаС;

			Докум.Записать(РежимЗаписиДокумента.Проведение);



			Докум = Документы.ОбменВалюты.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекНа;

			Докум.ВалютаС = Док.ВалютаС;

			Докум.ВалютаНа = Док.ВалютаНа;

			Докум.СуммаС = Док.ЦенаС;

			Докум.СуммаНа = Док.ЦенаНа;

			Докум.Курс = Докум.СуммаС / Докум.СуммаНа;

			Докум.Переключатель = 1;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

		Иначе

            Докум = Документы.РасходСредств.СоздатьДокумент();

			Докум.Дата = Док.Дата;

			Докум.Кошелек = Док.КошелекС;

			Докум.Валюта = Док.ВалютаС;

            тч = Докум.Затраты.Добавить();

			тч.Сумма = Док.ЦенаС;

			тч.Статья = Док.Статья;

			тч.Цена = Док.ЦенаС;

			тч.Количество = Док.Количество;

			Докум.Записать(РежимЗаписиДокумента.Проведение);

        КонецЕсли;

	КонецЦикла;

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



	

Процедура ЗаполнитьТЗДанными(Элемент)

    xmlDoc = Новый COMОбъект("MSXML2.DOMDocument");

	xmlDoc.load("C:\budjet.xml");

	nodeRoot = xmlDoc.documentElement;

	Для каждого nod из nodeRoot.childNodes цикл

		Если nod.nodeName = "ДвижениеСчетов" тогда

			Сообщить("нашли движения счетов");

            ТП1 = Новый ТаблицаЗначений;

			ТП1.Колонки.Добавить("Описатель");

			Типы = Новый Массив(1);	Типы[0] = Тип("СправочникСсылка.Кошельки");

			Тип = Новый ОписаниеТипов(Типы);

			ТП1.Колонки.Добавить("Счет",Тип);

			Типы[0] = Тип("СправочникСсылка.Валюты");

			Тип = Новый ОписаниеТипов(Типы);

			ТП1.Колонки.Добавить("Валюта",Тип);

			Для каждого движ из nod.childNodes цикл

				Описатель = движ.getAttribute("Описатель");

				если ТП1.Найти(Описатель,"Описатель") = Неопределено тогда

					стр = ТП1.Добавить();

					Стр.Описатель = Описатель;

				КонецЕсли;	  			

			КонецЦикла;

			ТП2=ТП1;//ВыбратьСтроку();

		КонецЕсли;	  

	КонецЦикла;

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

Категория: XML, DBF, TXT, CSV

Обработка для быстрого редактирования Табличных частей документов

Иногда, при формировании деклараций, бухгалтерам необходимо быстро поправить табличные части документов реализации и поступлений -...

Иногда, при формировании деклараций, бухгалтерам необходимо быстро поправить табличные части документов реализации и поступлений - увеличим или уменьшив общую сумму документа до нужных значений.

Им в помощь я разработал небольшую обработку для быстрого редактирования ТЧ..

Обработка универсальна и умеет:

Отображает все данные Табличной части
Позволяет быстро редактировать ячейки и целые колонки
Выгружает данные ТЧ в Файл и Загружает обратно в любую другую ТЧ

Обработка для Обычных Форм

Добавление обработки в конфигурацию

Обработка Регистрируется в конфигурации как Внешняя обработка ТЧ

Сервис - Дополнительные отчеты и обработки - Дополнительные внешние обработки табличных частей

Добавляем новую обработку и выбираем файл - получаем:

Обработка имеет параметры Авторегистрации для следующих документов бухгалтерии:

Документы.ПеремещениеТоваров Товары
Документы.СчетНаОплатуПокупателю Товары
Документы.РеализацияТоваровУслуг Товары
Документы.ПоступлениеТоваровУслуг Товары
Документы.КомплектацияНоменклатуры Комплектация

Работа с обработкой ТЧ

Для примера работы, откроем документ Поступление товаров и услуг, в кнопке Заполнить появился выбор Обработки ТЧ:

Открытая обработка:

Обработка для Управляемого приложения - Такси

Добавление обработки в конфигурацию

Обработка Регистрируется в конфигурации как Внешняя обработка ТЧ

Администрирование- Внешние печатные формы и обработки - Дополнительные отчеты и обработки

Добавляем новую обработку, кнопка Создать и выбираем файл, в результате:

Обработка создавалась для Бухгалтерии 3.0 и при добавлении автоматически регистрируется для документов: Реализация и Поступление.

Вы можете подключить ее к другим документам указав Назначение:

Работа с обработкой ТЧ

Для примера работы, откроем документ Реализации товаров и услуг, в кнопке Заполнить появился выбор Обработки ТЧ:

Открытая обработка:

Интерфейс обработки интуитивно понятен

Категория: Обработки документов