Вы искали 1с - Страница 35 из 40

1C Бухгалтерия: учет комиссии при проведении документа «Поступление на р/с» на другом счете.

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

Решение не мое, подсмотрено. Но! Расскажу как реализовано, может кому пригодится.

Итак: в 1С Бухгалтерия приходят платежки из банка, с суммой, и выделенной в поле «назначение платежа» комиссией. Например:

Зачисление средств по операциям с МБК (на основании реестров платежей). Мерчант №121512049. Дата реестра 07.01.2018.СУММА 1215,53 В Т.Ч.Комиссия 24.31 Возврат покупки 0.00/0.00. НДС не облагается.
&nbsp;

1 2	Зачисление средств по операциям с МБК (на основании реестров платежей). Мерчант №121512049. Дата реестра 07.01.2018.СУММА 1215,53 В Т.Ч.Комиссия 24.31 Возврат покупки 0.00/0.00. НДС не облагается.

Нужно чтоб движения документа выглядели так:

» Читать далее

Оставить комментарий 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с, отправка по почте, программное формирование, скд

Проверка наличия индекса массива в массиве

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

Почему то в 1С нет встроенной функции проверка наличия индекса в массиве. Хотя в принципе понятно, индекс идет по порядку, и если проверяемое значение меньше количества элементов в массиве, то индекса нет. Но мне приспичило… Вот результат:

Функция ПроверкаНаличичияИндексаВМассиве(масс,индекс)
	рез=истина;	
		попытка
			масс.Получить(индекс);
		исключение
			рез=ложь;
		конецпопытки;		
	возврат рез;
конецфункции

Функция ПроверкаНаличичияИндексаВМассиве(масс,индекс)

рез=истина;

попытка

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

исключение

рез=ложь;

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

возврат рез;

конецфункции

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

Подключения сканера штрихкодов к ТИС

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

Задача: старая-старая ТИС, не обновляемая лет 10 уже. Прикрутить сканер штрихкодов. ОС Windows 10

Решение: используем последнюю «бесплатную» версию драйверов АТОЛ для подключения.

Скачаем эти драйвера. Установим по учетной записью администратора. Если ругнется на то что «не подходят драйвера» — не обращаем внимание
Заходим в папку куда установилась утилита, копируем всё содержимое папки bin в windows/system32
Можно запустить утилиту scaner_t.exe и потестировать, что-то посканировав. Если сканирует — ок, идем в 1С
В 1С запускаем меню «подключение внешнего оборудования», создаем новый тип устройства, dll обработки указываем scaner1C.dll из папки АТОЛ.
В меню Сервис-Настройки должна появится настройка сканера.

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

Учет оргтехники в организации v 3.х 2013-2017 (работа в браузере) (Завершено)

Внимание! Проект более не развивается. Скачать последнюю версию: здесь GIT репозитарий: здесь DEMO сайт :<проект заброшен и завершен>Вход: test/test База обнуляется раз в час. Wiki проекта: <проект заброшен и завершен> Попросить помочь: <проект заброшен и завершен> Содержание Общие сведения Лицензионное соглашение Материальное стимулирование Установка Обновление Настройка Первоначальное заполнение справочников Журнал «Имущество» Размещение ТМЦ на карте Новости Бизнес процессы Удаление объектов Разработчикам Общие […]

» Читать далее

« 1 … 33 34 35 36 37 … 40 »

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