Архивы 1с - Страница 19 из 29

Проверка сходимости эквайринговых операций для Розница 2.2

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

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

Данная обработка предназначена для поиска сомнительных операций по платежным картам, которые требуют проверки. Например:

— сумма эквайринговой операции не сходится с суммой реализации (клиент заплатил больше или меньше? документ реализации был изменен менеджером?)
— документ реализации один, а эквайринговых операций более одной (клиент заплатил с разных карточек? документ реализации был изменен менеджером?)

Публикация: https://infostart.ru/public/669370/

Оставить комментарий 1с, розница, эквайринговые операции

Программное сохранение отчета СКД в файл Excel

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

Задача: по расписанию формировать файл отчета СКД и отправлять его по электронной почте.

Решение:

1. Формируем файл

таб1=новый ТабличныйДокумент();
	
	СКД=Отчеты.ПрибыльЗаПериод.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");
	Настройки=СКД.НастройкиПоУмолчанию;
	Дата1=Настройки.ПараметрыДанных.Элементы.Найти("Дата1");
	Дата1.Значение=НачалоМесяца(ТекущаяДата());
	Дата2=Настройки.ПараметрыДанных.Элементы.Найти("Дата2");
	Дата2.Значение=КонецДня(ТекущаяДата());
	ВидЦены=Настройки.ПараметрыДанных.Элементы.Найти("ВидЦены");
	ВидЦены.Значение=Справочники.ВидыЦен.НайтиПоНаименованию("Основная цена закупки");
	Магазин=Настройки.ПараметрыДанных.Элементы.Найти("Магазин");
	Магазин.Значение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");

	 	Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;
		КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;    
		
        //Передаем в макет компоновки схему, настройки и данные расшифровки
        МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);    
        ВнешниеПараметры = Новый Структура;    
		
        //Выполним компоновку с помощью процессора компоновки
        ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;
        ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);    
		
        //Выводим результат в табличный документ
        ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;
        ПроцессорВывода.УстановитьДокумент(таб1);    
        ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);    	 
		
		таб1.Записать("c:\temp\моржа.xls",ТипФайлаТабличногоДокумента.XLS);

таб1=новый ТабличныйДокумент();

СКД=Отчеты.ПрибыльЗаПериод.ПолучитьМакет("ОсновнаяСхемаКомпоновкиДанных");

Настройки=СКД.НастройкиПоУмолчанию;

Дата1=Настройки.ПараметрыДанных.Элементы.Найти("Дата1");

Дата1.Значение=НачалоМесяца(ТекущаяДата());

Дата2=Настройки.ПараметрыДанных.Элементы.Найти("Дата2");

Дата2.Значение=КонецДня(ТекущаяДата());

ВидЦены=Настройки.ПараметрыДанных.Элементы.Найти("ВидЦены");

ВидЦены.Значение=Справочники.ВидыЦен.НайтиПоНаименованию("Основная цена закупки");

Магазин=Настройки.ПараметрыДанных.Элементы.Найти("Магазин");

Магазин.Значение=Справочники.Магазины.НайтиПоНаименованию("Вологда Торговля");

Расшифровка = Новый ДанныеРасшифровкиКомпоновкиДанных;

КомпоновщикМакета = Новый КомпоновщикМакетаКомпоновкиДанных;

//Передаем в макет компоновки схему, настройки и данные расшифровки

МакетКомпоновки = КомпоновщикМакета.Выполнить(СКД, Настройки, Расшифровка);

ВнешниеПараметры = Новый Структура;

//Выполним компоновку с помощью процессора компоновки

ПроцессорКомпоновкиДанных = Новый ПроцессорКомпоновкиДанных;

ПроцессорКомпоновкиДанных.Инициализировать(МакетКомпоновки, ВнешниеПараметры, Расшифровка);

//Выводим результат в табличный документ

ПроцессорВывода = Новый ПроцессорВыводаРезультатаКомпоновкиДанныхВТабличныйДокумент;

ПроцессорВывода.УстановитьДокумент(таб1);

ПроцессорВывода.Вывести(ПроцессорКомпоновкиДанных, Истина);

таб1.Записать("c:\temp\моржа.xls",ТипФайлаТабличногоДокумента.XLS);

2.Отправляем его по почте

	ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;
		ПараметрыПочты.АдресСервераSMTP = пснмп;
		ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;
		ПараметрыПочты.ПользовательSMTP = плогин;
		ПараметрыПочты.ПарольSMTP=ппароль;
		
		Письмо=новый ИнтернетПочтовоеСообщение;
		Письмо.Тема="Комплексный отчет по продажам в магазине Вологда Торговля";
		Письмо.ИмяОтправителя="1С отправка отчетов";
		Письмо.Отправитель=побратный;
		Письмо.Получатели.Добавить(пполучатель);	
		Письмо.Получатели.Добавить("blabla@mail.ru");	

		Письмо.Тексты.Добавить("Комплексный отчет по продажам в магазине Вологда Торговля");		
		Письмо.Вложения.Добавить("c:\temp\моржа.xls");
		
		Подключение=новый ИнтернетПочта;
		Попытка
		Подключение.Подключиться(ПараметрыПочты);
		Подключение.Послать(Письмо);

ПараметрыПочты = новый ИнтернетПочтовыйПрофиль;

ПараметрыПочты.АдресСервераSMTP = пснмп;

ПараметрыПочты.АутентификацияSMTP = СпособSMTPАутентификации.ПоУмолчанию;

ПараметрыПочты.ПользовательSMTP = плогин;

ПараметрыПочты.ПарольSMTP=ппароль;

Письмо=новый ИнтернетПочтовоеСообщение;

Письмо.Тема="Комплексный отчет по продажам в магазине Вологда Торговля";

Письмо.ИмяОтправителя="1С отправка отчетов";

Письмо.Отправитель=побратный;

Письмо.Получатели.Добавить(пполучатель);

Письмо.Получатели.Добавить("blabla@mail.ru");

Письмо.Тексты.Добавить("Комплексный отчет по продажам в магазине Вологда Торговля");

Письмо.Вложения.Добавить("c:\temp\моржа.xls");

Подключение=новый ИнтернетПочта;

Попытка

Подключение.Подключиться(ПараметрыПочты);

Подключение.Послать(Письмо);

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

Ошибка вывода шаблона этикетки поле обновления 1С Розница с 2.2.5 до 2.2.6

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

После обновления конфигурации, все шаблоны начали выводить ошибку вида «Не верные параметры «Справочник.СправкиБЕГАИС.ПустаяСсылка»:

krana-ot-2017-07-07-11-25-11.png»>

4 комментария 1с, обновление, ошибка шаблонов, печать ценника

1С — Отчет на почту по расписанию.

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

Задача: сформировать отчет и отправить его по почте раз в день.

Используем для этого регламентные задания.

krana-iz-2017-05-17-09-52-05.png»>» Читать далее

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

1С интерфейс Такси, с окнами в отдельных закладках.

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

Всё началось с того, что в один прекрасный момент у всех пользователей документы стали открываться не в закладках, а отдельными окнами, что жутко не удобно для тех кто уже привык к интерфейсу Такси. Плюс у меня еще навешана обработка, которая запускается при входе в 1с, и заменяет «Рабочий стол» пользователя, соотвественно стала открываться отдельным окном. Что делать? Гугленье результатов не дало этого странного поведения, но был найден выход — при открытии обработки, подменяем и перезаписываем настройки пользователя на нужные нам: интерфейс такси, режим форм — закладки.

&НаСервере
Процедура СохранитьНастройкиП()
	// Вставить содержимое обработчика.
    нп=Новый НастройкиКлиентскогоПриложения;
	нп.РежимОткрытияФормПриложения=РежимОткрытияФормПриложения.Закладки;
	нп.ВариантИнтерфейсаКлиентскогоПриложения=ВариантИнтерфейсаКлиентскогоПриложения.Такси;
	нп.ВариантМасштабаФормКлиентскогоПриложения=ВариантМасштабаФормКлиентскогоПриложения.Обычный;
	нп.ОтображатьПанельРазделов=Истина;	
	ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиКлиентскогоПриложения",,нп);
КонецПроцедуры

&НаКлиенте
Процедура ПриОткрытии(Отказ)
	// Вставить содержимое обработчика.
    СохранитьНастройкиП();
	ОбновитьИнтерфейс();
КонецПроцедуры

&НаСервере

Процедура СохранитьНастройкиП()

// Вставить содержимое обработчика.

нп=Новый НастройкиКлиентскогоПриложения;

нп.РежимОткрытияФормПриложения=РежимОткрытияФормПриложения.Закладки;

нп.ВариантИнтерфейсаКлиентскогоПриложения=ВариантИнтерфейсаКлиентскогоПриложения.Такси;

нп.ВариантМасштабаФормКлиентскогоПриложения=ВариантМасштабаФормКлиентскогоПриложения.Обычный;

нп.ОтображатьПанельРазделов=Истина;

ХранилищеСистемныхНастроек.Сохранить("Общее/НастройкиКлиентскогоПриложения",,нп);

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

&НаКлиенте

Процедура ПриОткрытии(Отказ)

// Вставить содержимое обработчика.

СохранитьНастройкиП();

ОбновитьИнтерфейс();

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

Пн	Вт	Ср	Чт	Пт	Сб	Вс
		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