Архивы 1C - Страница 7 из 46

1C: вывод картинки в списке формы документа с изменением

04.12.2023 Павел Грибов 1C

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

Решение:

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

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

...
	ВЫБОР
		КОГДА СК_ГР_Статусы_ДПС.Статус = ЗНАЧЕНИЕ(Перечисление.СК_ГР_СтатусКартинкой.Флажок)
			ТОГДА 0
		КОГДА СК_ГР_Статусы_ДПС.Статус = ЗНАЧЕНИЕ(Перечисление.СК_ГР_СтатусКартинкой.Галочка)
			ТОГДА 1
		ИНАЧЕ 2
	КОНЕЦ КАК СтатусК
ИЗ
	Документ.СК_ЗаявкаНаКУКУ КАК ДокументСК_ЗаявкаНаСК_ЗаявкаНаКУКУ 
		ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СК_ГР_Статусы_ДПС КАК СК_ГР_Статусы_ДПС
		ПО (СК_ГР_Статусы_ДПС.ДокОснование = ДокументСК_ЗаявкаСК_ЗаявкаНаКУКУ .Ссылка)
...

...

ВЫБОР

КОГДА СК_ГР_Статусы_ДПС.Статус = ЗНАЧЕНИЕ(Перечисление.СК_ГР_СтатусКартинкой.Флажок)

ТОГДА 0

КОГДА СК_ГР_Статусы_ДПС.Статус = ЗНАЧЕНИЕ(Перечисление.СК_ГР_СтатусКартинкой.Галочка)

ТОГДА 1

ИНАЧЕ 2

КОНЕЦ КАК СтатусК

ИЗ

Документ.СК_ЗаявкаНаКУКУ КАК ДокументСК_ЗаявкаНаСК_ЗаявкаНаКУКУ

ЛЕВОЕ СОЕДИНЕНИЕ РегистрСведений.СК_ГР_Статусы_ДПС КАК СК_ГР_Статусы_ДПС

ПО (СК_ГР_Статусы_ДПС.ДокОснование = ДокументСК_ЗаявкаСК_ЗаявкаНаКУКУ .Ссылка)

...

Для следующего шага необходимо подготовить картинку высотой 32 пикселя, и шириной 32*количество_статусов, например что-то в этом духе:

Далее на форме списка, у колонки «СтатусК», выберем вид «Поле картинки» и в свойство «Картинка значений», загрузим картинку:

Ну и соответственно в событие таблицы «выбор» добавим изменение статуса по двойному клику по столбцу «СтатусК»:

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

	возврат ТекущийСтатус;
КонецФункции	

&НаСервере
Процедура ИзменитьСтатусКНаСервере(НомерДок)
	док=Документы.СК_ЗаявкаНаИсполнениеПлатныхУслуг.НайтиПоНомеру(НомерДок);
	ТекСтат=ПолучитьТекущийСтатусДокумента(док);
	если ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка() тогда
		ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок;
	иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок тогда
		ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка;
	иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка тогда
		ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка();
	конецесли;
	
	МенеджерЗаписи = РегистрыСведений.СК_ГР_Статусы_ДПС.СоздатьМенеджерЗаписи(); 
	МенеджерЗаписи.ДокОснование = док; 
	МенеджерЗаписи.Статус = ТекСтат; 
	МенеджерЗаписи.Записать();   	
	
КонецПроцедуры


&НаКлиенте
Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)
	если Поле.Имя="СтатусК" тогда 
		ИзменитьСтатусКНаСервере(Элемент.ТекущиеДанные.Номер);
		Элементы.Список.Обновить(); 
		СтандартнаяОбработка=ложь;
	конецесли;	
КонецПроцедуры

&НаСервере

Функция ПолучитьТекущийСтатусДокумента(Регистратор)

ТекущийСтатус=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка();

Запрос = Новый Запрос;

Запрос.Текст =

"ВЫБРАТЬ

| СК_ГР_Статусы_ДПС.Статус КАК Статус

|ИЗ

| РегистрСведений.СК_ГР_Статусы_ДПС КАК СК_ГР_Статусы_ДПС

|ГДЕ

| СК_ГР_Статусы_ДПС.ДокОснование = &Регистратор";

Запрос.УстановитьПараметр("Регистратор", Регистратор);

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

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

Пока ВыборкаДетальныеЗаписи.Следующий() Цикл

ТекущийСтатус=ВыборкаДетальныеЗаписи.Статус;

КонецЦикла;

возврат ТекущийСтатус;

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

&НаСервере

Процедура ИзменитьСтатусКНаСервере(НомерДок)

док=Документы.СК_ЗаявкаНаИсполнениеПлатныхУслуг.НайтиПоНомеру(НомерДок);

ТекСтат=ПолучитьТекущийСтатусДокумента(док);

если ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка() тогда

ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок;

иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Флажок тогда

ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка;

иначеесли ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.Галочка тогда

ТекСтат=Перечисления.СК_ГР_СтатусКартинкой.ПустаяСсылка();

конецесли;

МенеджерЗаписи = РегистрыСведений.СК_ГР_Статусы_ДПС.СоздатьМенеджерЗаписи();

МенеджерЗаписи.ДокОснование = док;

МенеджерЗаписи.Статус = ТекСтат;

МенеджерЗаписи.Записать();

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

&НаКлиенте

Процедура СписокВыбор(Элемент, ВыбраннаяСтрока, Поле, СтандартнаяОбработка)

если Поле.Имя="СтатусК" тогда

ИзменитьСтатусКНаСервере(Элемент.ТекущиеДанные.Номер);

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

СтандартнаяОбработка=ложь;

конецесли;

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

Оставить комментарий 1с, вывод картинки в списке, изменение, картинка в списке, статус

1С: получаем список НКО с сервера minjust.gov.ru

22.11.2023 Павел Грибов 1C

Почему то у нас как всегда всё.. Государство требует проверять контрагента является ли он НКО, а инструментарий для этого не предлагает. Не, ну какой-никакой сервис у них был — можно было зайти на сайт, ввести в поле поиска название НКО и и получить результат — есть в списке это организация или нет. Но это согласитесь бред. «Автоматизировать процесс проверки?? А зачем? Куча бухгалтеров — бездельников, чего делать будет? ;)». Всего файла целиком скачать возможности не было. Поэтому приходилось парсить у них сайт, собирая по кусочками Excel файлы в одну кучу (была у них кнопка «экспорт текущей страницы»). Теперь сайт изменили..но лучше не стало. Возможности скачать весь файл целиком как не было так и не стало. Чуть поковыряв их страницу нашел как получить «сессионный ключ» и способ как передавать правильные POST параметры, чтобы получить кусочки JSON, кои потом можно склеить в единую базу. Результат вылился в обработку для 1С, которую можно скачать тут

Оставить комментарий 1с, нко, скачать, список

1С: Получение ссылки на перечисление по её синониму

01.11.2023 Павел Грибов 1C

Нехитрая задача, и решение простое, «в лоб»:

&НаСервере
Функция НайтиПеречислениеПоИмени(перечисление,перечисление_строка)	
	для каждого стр из перечисление цикл
		если строка(стр)=перечисление_строка тогда 
			возврат стр;
		конецесли;	
	конеццикла;	
	возврат перечисление.ПустаяСсылка();
КонецФункции

&НаСервере

Функция НайтиПеречислениеПоИмени(перечисление,перечисление_строка)

для каждого стр из перечисление цикл

если строка(стр)=перечисление_строка тогда

возврат стр;

конецесли;

конеццикла;

возврат перечисление.ПустаяСсылка();

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

Оставить комментарий перечисление, синоним, ссылка

1с: Число прописью без нулей

12.10.2023 Павел Грибов 1C

Задача: вывести число прописью, число должно быть целым

Решение:

ЧислоПрописью(ПроцентВознаграждения,"НП=Ложь",",,,,,,,,0")

1	ЧислоПрописью(ПроцентВознаграждения,"НП=Ложь",",,,,,,,,0")

Ну и бонусом, перечислю наиболее распространенные варианты использования.

Вывод рублей и копеек:

ЧислоПрописью(итвсегосндс,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

1	ЧислоПрописью(итвсегосндс,"Л=ru_RU; ДП=Ложь","рубль, рубля, рублей, м, копейка, копейки, копеек, ж" );

Вывод процентов:

ЧислоПрописью(ПроцентВознаграждения,"НП=Истина","процент,процента,процентов,,,,,,0")

1	ЧислоПрописью(ПроцентВознаграждения,"НП=Истина","процент,процента,процентов,,,,,,0")

Оставить комментарий без нулей, проценты, число прописью

1С Бухгалтерия 3.0.121.31: отправка письма

29.09.2023 Павел Грибов 1C

В данной версии БСП используемой в БУх, отправка письма производится так:

	тело="Прювет";
	ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", объект.email, "Абырвалг", тело,"HTML");
	РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(),ПараметрыПисьма);

тело="Прювет";

ПараметрыПисьма = Новый Структура("Кому, Тема, Тело,ТипТекста", объект.email, "Абырвалг", тело,"HTML");

РаботаСПочтовымиСообщениями.ОтправитьПочтовоеСообщение(РаботаСПочтовымиСообщениями.СистемнаяУчетнаяЗапись(),ПараметрыПисьма);

Оставить комментарий 1с, отправка письма

« 1 … 5 6 7 8 9 … 46 »

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		1	2	3	4	5
6	7	8	9	10	11	12
13	14	15	16	17	18	19
20	21	22	23	24	25	26
27	28	29	30	31