Вопросы и Ответы
[ Главная | Лучшие | Популярные | Список ]
ВСЕ КАТЕГОРИИ : 50
1С:Бухгалтерия » 14Пользователь, роль доступа, интерфейс » 13
1С:Зарплата, Персонал » 22Работа с Microsoft Office и OpenOffice » 46
1С:Общие вопросы » 38Работа с Датами (Временем) » 38
1С:Торговля » 13Работа с Деревом Значений » 9
COM-объекты, WMI, WSH » 42Работа с Интернет, Почтой (Mail), FTP » 17
OLE, ActiveX » 1Работа с Массивом, Структурой, Соответсвием » 15
XML, DBF, TXT » 18Работа с Списком Значений » 4
Администрирование » 57Работа с Таблицей Значений » 19
Бизнес-процессы » 3Работа с Текстом (Строкой) » 24
Внешние компоненты » 2Работа с Типами данных » 6
Встроенные Функции » 43Работа с Файлами и Каталогами » 26
Географическая схема » 6Работа с Формой (Диалог) и её элементами » 49
Диаграмма » 8Работа с Хранилищем Значений » 11
Документы » 42Работа с Числами » 18
Журнал документов, список элеменов справочника » 18Регистры бухгалтерии » 17
Задачи » 3Регистры накопления » 13
Запросы » 65Регистры расчета » 4
Константы » 7Регистры сведений » 27
Метаданные » 5Регулярные выражения » 11
Отчеты » 1Системные Ошибки » 7
Перенос данных, Конвертация, Обмен » 19Справочники » 45
Перечисления » 8Схема Компоновки Данных » 46
Планы видов расчета » 3Табличный документ » 18
Планы видов характеристик » 1Текстовый документ » 2
Полезные, Универсальные Функции » 44Штрих-код (barcode) » 3

Справочники Как установить префикс нумерации справочника? Добавлен в течение недели

УстановитьНовыйКод(<ПрефиксКода>)
Параметры:
<ПрефиксКода> (необязательный)
Тип: Строка.
Строковое значение префикса. Если префикс указан, то новый код будет формироваться с учетом префикса.
Описание:
Устанавливает новый код. Если в коде присутствует числовая часть, то новый код автоматически устанавливается следующим за имеющимся максимальным. При этом определяется текущий максимальный код среди элементов данного справочника.
Если передан префикс, то новый код устанавливается следующим образом: выполняется поиск максимального кода среди кодов, имеющих данный префикс, новый код выбирается как следующий от найденного кода.

Доступность:
Сервер, толстый клиент, внешнее соединение.
Примечание:
Префикс имеет смысл, если для справочника в конфигураторе выбран тип кода Строка.
Пример:
Код 1C v 8.х
 УстановитьНовыйКод(Организация.Префикс+Строка(Прав(Год(ТекущаяДата()),2))+"-");

Объект.УстановитьНовыйКод("Пр-");
Подробнее Разместил: E_Migachev Для версии: 8.x 8.2 УП Дата: 14.05.12 Прочитано: 44 Комментарии Распечатать

Документы Как установить префикс документа? Добавлен в течение недели

УстановитьНовыйНомер(<ПрефиксНомера>)
Параметры:
<ПрефиксНомера> (необязательный)
Тип: Строка.
Префикс устанавливаемого номера.
Значение по умолчанию: Пустая строка
Описание:
Устанавливает новый номер документа для заданного префикса номера.
Доступность:
Сервер, толстый клиент, внешнее соединение.
Примечание:
Для документов с нумерацией в пределах периода, номер устанавливается в пределах периода, соответствующего установленной дате документа. Если дата - пустая, процедура установит номер в пределах периода соответствующего пустой дате.
Пример:
Код 1C v 8.х
 УстановитьНовыйНомер(Организация.Префикс+"СП-"); 

РасходнаяНакладная.УстановитьНовыйНомер(ПрефиксИБ);


В типовой конфигурации, как правило, установка нового номера происходит через подписку на событие "ПриУстановкеНовогоНомера...". Последовательность вызова процедур, при работе через форму документа, при этом следующая:
- МодульФормы ПередЗаписью()
- МодульОбъекта ПередЗаписью()
- МодульОбъекта ПриУстановкеНовогоНомера()
- Событие(подписка) ПриустановкеНовогоНомера() (установка префиксов и номера)
- МодульОбъекта ПриЗаписи() (префиксы и номер установлены)
- Модульформы ПриЗаписи()
- МодульФормы ПослеЗаписи()
Подробнее Разместил: E_Migachev Для версии: 8.x 8.2 УП Дата: 14.05.12 Прочитано: 46 Комментарии Распечатать

1С:Зарплата, Персонал Перерасчет, возврат и передача на взыскание НДФЛ

Для проведения перерасчетов налога и регистрации возврата излишне удержанного НДФЛ предназначен документ «Перерасчет НДФЛ». Документ можно вызвать из меню «Расчет зарплаты организации» – «Налоги» (интерфейс «Полный»).
title

Передача налога, который организация не может удержать с работника, на взыскание в инспекцию производится одновременно с представлением сведений о доходах физического лица по форме 2-НДФЛ.
title
Подробнее Разместил: E_Migachev Для версии: 8.x 8.2 УП Дата: 03.05.12 Прочитано: 94 Комментарии Распечатать

Работа с Интернет, Почтой (Mail), FTP Как Загрузить файлы с FTP

Код 1C v 8.2 УП
 // Пробуем подключиться

		Попытка

			Соединение = Новый FTPСоединение(FTPСервер,FTPПорт,FTPПользователь,FTPПароль, ,Ложь);

			Массив = Соединение.НайтиФайлы(FTPКаталогЗагрузки, "*.csv");

			Если Не Массив.Количество() = 0 Тогда

				Для Каждого Стр Из Массив Цикл

					//Проверяем, есть ли файл в каталоге, если нет - то грузим

					КаталогНаДиске = Новый Файл(КаталогЗагрузкиДанных+"\"+Стр.Имя);

					Если НЕ КаталогНаДиске.Существует() Тогда

						ИмяФайла = КаталогЗагрузкиДанных+"\"+Стр.Имя;

						Соединение.Получить(Стр.ПолноеИмя, ИмяФайла); 	

					КонецЕсли;	

				КонецЦикла;

			Иначе	

				Сообщить("Нет файлов!");

			КонецЕсли;			 

		Исключение

			Сообщить("Ошибка подключения FTP!!!");

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


Как Выгрузить файлы и папки из каталога на FTP
Подробнее Разместил: E_Migachev Для версии: 8.x 8.2 УП Дата: 11.04.12 Прочитано: 323 Комментарии
2
  •  
 Распечатать

Работа с Интернет, Почтой (Mail), FTP Как Выгрузить файлы и папки из каталога на FTP

Код 1C v 8.2 УП
 

Функция ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, ТекущаяПапка=Неопределено)

	Рез = Истина;

	Если ТекущаяПапка = Неопределено Тогда ТекущаяПапка = НачальнаяПапкаВыгрузкиКомп КонецЕсли; 

	МассивФайлов = НайтиФайлы(ТекущаяПапка, "*");

	ТекКаталог = СтрЗаменить(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(ТекущаяПапка, НачальнаяПапкаВыгрузкиКомп, ""), "\", "/"), "//", "/");

	Если Прав(ТекКаталог, 1) <> "/" Тогда

		ТекКаталог = ТекКаталог + "/";

	КонецЕсли;

	

	Для Каждого НайденныйФайл Из МассивФайлов Цикл

		Файл = Новый Файл(НайденныйФайл.ПолноеИмя);

		Если Файл.ЭтоКаталог() Тогда

			ЕстьТакаяПапка = Соединение.НайтиФайлы(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.Путь, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/"), НайденныйФайл.Имя).Количество() > 0;

			

			Если не ЕстьТакаяПапка Тогда

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				НомерПопытки = 1;

				Успешно = Ложь;

				Пока НомерПопытки < 4 и не Успешно Цикл

					Попытка

						Соединение.СоздатьКаталог(НайденныйФайл.Имя);

						Успешно = Истина;

					Исключение

						Сообщить("Попытка №" + НомерПопытки + ", каталог " + НайденныйФайл.Имя + " - " + ОписаниеОшибки());

						НомерПопытки = НомерПопытки + 1;

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

				КонецЦикла;

				

				Если Не Успешно Тогда

					Возврат Ложь;

				КонецЕсли;

				

				

			КонецЕсли;

			

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(НачальныйКаталогВыгрузкиFTP + СтрЗаменить(СтрЗаменить(НайденныйФайл.ПолноеИмя, НачальнаяПапкаВыгрузкиКомп + "\", ""), "\", "/") + "/");

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, НачальныйКаталогВыгрузкиFTP, НачальнаяПапкаВыгрузкиКомп, НайденныйФайл.ПолноеИмя);



			Если не Рез Тогда

				Возврат Ложь;

			КонецЕсли;

			

		Иначе

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.УстановитьТекущийКаталог(ТекКаталог);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", установка каталога " + ТекКаталог + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

		

			

			

			// почему-то иногда при большой выгрузке глюкает ((

			// а со второй попытки выкладывается.... странно...

			НомерПопытки = 1;

			Успешно = Ложь;

			Пока НомерПопытки < 4 и не Успешно Цикл

				Попытка

					Соединение.Записать(НайденныйФайл.ПолноеИмя, НайденныйФайл.Имя);

					Успешно = Истина;

				Исключение

					Сообщить("Попытка №" + НомерПопытки + ", файл " + НайденныйФайл.ПолноеИмя + " - " + ОписаниеОшибки());

					НомерПопытки = НомерПопытки + 1;

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

			КонецЦикла;

			

			Если Не Успешно Тогда

				Возврат Ложь;

			КонецЕсли;

			

			#Если Клиент Тогда

				Состояние("Выгрузка файла: " + НайденныйФайл.ПолноеИмя);

			#КонецЕсли

			

		КонецЕсли;

	КонецЦикла;

	

	Возврат Рез;

	

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





// ПРИМЕР обращения к функции

КаталогиДляПередачиНаFTP = Новый Соответствие;

// цикл и в нем

КаталогиДляПередачиНаFTP.Вставить(СсылкаНаЭлементСправочника);

// Конец цикла



// Теперь Выгрузим все на FTP

	Для Каждого Выборка из КаталогиДляПередачиНаFTP Цикл

	ВыборкаДетальныеЗаписи = Выборка.Ключ;

	Соединение = Новый FTPСоединение(ВыборкаДетальныеЗаписи.FTPСервер,

	ВыборкаДетальныеЗаписи.FTPПорт,

	ВыборкаДетальныеЗаписи.FTPПользователь,

	ВыборкаДетальныеЗаписи.FTPПароль, ,Ложь);

	ВыгрузитьФайлыИПапкиНаFTP_Рекурсивно(Соединение, ВыборкаДетальныеЗаписи.FTPКаталогВыгрузки, ВыборкаДетальныеЗаписи.КаталогВыгрузкиДанных);

	КонецЦикла;


Как загрузить файлы с FTP
Подробнее Разместил: E_Migachev Для версии: 8.x 8.2 УП Дата: 11.04.12 Прочитано: 273 Комментарии
1
  •  
 Распечатать

Всего 1184 на 237 страницах по 5 на каждой странице

1 2 3 4 5 6 7 8 ... 237 >>
[ Главная | Все | 7.х | 8.х | 8.2 УП | Поиск | Файлы | Вопросы | Задать вопрос | Поддержать проект | Реклама | Статистика | Обратная связь ]
 Help1C.com «Помощник по "1С"» - это библиотека полезных функций, примеров и советов для "1С:Предприятия". Которая будет полезна как начинающему программисту или пользователю, так и опытному, забывшему некоторые моменты программирования или работы в среде "1С". Вы можете также поучавствовать в составлении библиотеки, отвечая на вопросы пользователей, находя ошибки, оставляя комментарии и добавляя свои полезные функции и примеры.

HitsВсе материалы, размещенные на сайте, взяты из свободных источников или присланы посетителями сайта. Подробнее... Генерация: 0.041 сек. и 7 запросов к db за 0.012 сек.
© 2009-2012 Help1C.com Admin : Евгений Мигачев (WickeD).		 Яндекс.Метрика