{isaenkov.iamroot.ru

Янв 6, 2018 |

ftp vs. 1с

Доброго всем дня!

Появилась задача по работе 1с с ftp. В частности перегона файлов туда сюда (знаю бредовая идея, но как просили так и сделали). Так как же всё таки реализовать соединение с ftp? Я реализовал все это простой функцией:

Функция ВыгрузкаЛокНаФТП() 
		
	Попытка
		Состояние("Тут пишем информацию любую так мне будет удобно узнать если повиснет на этапе подключения к фтп");
		Соединение 	= Новый FTPСоединение("адрес.сервера.ру",порт,"имя_пользователя","пароль",УказываемРежим_Подробнее_ниже_будет_описано);
		Состояние("Соединение установлено. Приступаю к выгрузке...");

		КаталогЛ 	= "Путь/к/каталогу/где/файл/лежит/";
		КаталогФ 	= "Путь/каталога/фтп";
		ИмяФайла 	= "указываем_имя_файла_без_разширения"; 
		
		Соединение.Записать(КаталогЛ + ИмяФайла + ".csv",КаталогФ + ИмяФайла + ".csv"); //в данном случае у нас файл с расширением .csv
                                                                                                //с локальной машины копируется на фтп

		//Сообщить ("Перегнал всё на фтп");
	Исключение;
		Соединение=Неопределено;
		Сообщить ("Ошибка! Передайте данное сообщение программисту! Этап переноса с Локала на ФТП")
	КонецПопытки;
	    
	Возврат Соединение;
	
КонецФункции

Функция ВыгрузкаЛокНаФТП()

Попытка

Состояние("Тут пишем информацию любую так мне будет удобно узнать если повиснет на этапе подключения к фтп");

Соединение = Новый FTPСоединение("адрес.сервера.ру",порт,"имя_пользователя","пароль",УказываемРежим_Подробнее_ниже_будет_описано);

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

КаталогЛ = "Путь/к/каталогу/где/файл/лежит/";

КаталогФ = "Путь/каталога/фтп";

ИмяФайла = "указываем_имя_файла_без_разширения";

Соединение.Записать(КаталогЛ + ИмяФайла + ".csv",КаталогФ + ИмяФайла + ".csv"); //в данном случае у нас файл с расширением .csv

//с локальной машины копируется на фтп

//Сообщить ("Перегнал всё на фтп");

Исключение;

Соединение=Неопределено;

Сообщить ("Ошибка! Передайте данное сообщение программисту! Этап переноса с Локала на ФТП")

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

Возврат Соединение;

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

Дек 27, 2017 |

0 комментариев

«Обработка заполнения» или как заполнить документ на основании другого

Бывает кто-то ищет, а кто-то забывает (Модуль объекта/ Процедура ОбработкаЗаполнения):

Процедура ОбработкаЗаполнения(Основание)
	Если ТипЗнч(Основание) = Тип("ДокументСсылка.ИнвентаризацияОС") Тогда
		ДокументОснование = Основание;
		// Заполнение шапки
		Комментарий = Основание.Комментарий;
		Организация = Основание.Организация;
		Ответственный = Основание.Ответственный;
		Подразделение = Основание.Подразделение;
	
		Запрос = Новый Запрос;
		Запрос.Текст = "ВЫБРАТЬ
		               |	ИнвентаризацияОСОС.ОС КАК Наименование,
		               |	ИнвентаризацияОСОС.Количество КАК Количество,
		               |	ИнвентаризацияОСОС.КоличествоУчет КАК КоличествоУчет,
		               |	ИнвентаризацияОСОС.Отклонение КАК Отклонение,
		               |	ИнвентаризацияОСОС.Инв Как Инв
		               |ИЗ
		               |	Документ.ИнвентаризацияОС.ОС КАК ИнвентаризацияОСОС
		               |ГДЕ
		               |	ИнвентаризацияОСОС.Ссылка = &ДокОснование
		               |	И ИнвентаризацияОСОС.Отклонение < 0";
		Запрос.УстановитьПараметр("ДокОснование",	ДокументОснование);	 //Документ ссылка: Инвентаризация ОС
		МООС = Запрос.Выполнить().Выгрузить();
		
		Для Каждого СтОС Из МООС Цикл
			ДобСтр = ОсновныеСредства.Добавить();
			ДобСтр.Инв = СтОС.Инв;
			ДобСтр.Количество = (СтОС.Отклонение * (-1));
			ДобСтр.ОС = СтОС.Наименование;
			ДобСтр.Нов = Истина;
		КонецЦикла;
	КонецЕсли;
КонецПроцедуры

Процедура ОбработкаЗаполнения(Основание)

Если ТипЗнч(Основание) = Тип("ДокументСсылка.ИнвентаризацияОС") Тогда

ДокументОснование = Основание;

// Заполнение шапки

Комментарий = Основание.Комментарий;

Организация = Основание.Организация;

Ответственный = Основание.Ответственный;

Подразделение = Основание.Подразделение;

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

Запрос.Текст = "ВЫБРАТЬ

| ИнвентаризацияОСОС.ОС КАК Наименование,

| ИнвентаризацияОСОС.Количество КАК Количество,

| ИнвентаризацияОСОС.КоличествоУчет КАК КоличествоУчет,

| ИнвентаризацияОСОС.Отклонение КАК Отклонение,

| ИнвентаризацияОСОС.Инв Как Инв

|ИЗ

| Документ.ИнвентаризацияОС.ОС КАК ИнвентаризацияОСОС

|ГДЕ

| ИнвентаризацияОСОС.Ссылка = &ДокОснование

| И ИнвентаризацияОСОС.Отклонение < 0";

Запрос.УстановитьПараметр("ДокОснование", ДокументОснование); //Документ ссылка: Инвентаризация ОС

МООС = Запрос.Выполнить().Выгрузить();

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

ДобСтр = ОсновныеСредства.Добавить();

ДобСтр.Инв = СтОС.Инв;

ДобСтр.Количество = (СтОС.Отклонение * (-1));

ДобСтр.ОС = СтОС.Наименование;

ДобСтр.Нов = Истина;

КонецЦикла;

КонецЕсли;

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

Ноя 12, 2017 |

0 комментариев

Как проверить тип значения переменной на равенство нужному

АН = "ДокументСсылка.АктНесоответствия";
Если ТипЗнч(ДокОснование) = Тип(АН) Тогда
             Сообщить ("По АН") Иначе
		Сообщить("Не по АН");
КонецЕсли;

АН = "ДокументСсылка.АктНесоответствия";

Если ТипЗнч(ДокОснование) = Тип(АН) Тогда

Сообщить ("По АН") Иначе

Сообщить("Не по АН");

КонецЕсли;

Или можно так:

Если ТипЗнч(ЗаказыПоставщикамУТ.СтруктурнаяЕдиница) = Тип("СправочникСсылка.Кассы") Тогда
    ПостБух.СтруктурнаяЕдиница = Справочники.Кассы.НайтиПоКоду(Код);    
    Иначе    
    ПостБух.СтруктурнаяЕдиница = Справочники.БанковскиеСчета.НайтиПоКоду(Код);    

    КонецЕсли;

Если ТипЗнч(ЗаказыПоставщикамУТ.СтруктурнаяЕдиница) = Тип("СправочникСсылка.Кассы") Тогда

ПостБух.СтруктурнаяЕдиница = Справочники.Кассы.НайтиПоКоду(Код);

Иначе

ПостБух.СтруктурнаяЕдиница = Справочники.БанковскиеСчета.НайтиПоКоду(Код);

КонецЕсли;

В запросе:

ВЫРАЗИТЬ
(Регистрсведений.ВашРегистр.Регистратор КАК Документ.ВашДокумент) ССЫЛКА Документ.ВашДокумент

1 2	ВЫРАЗИТЬ (Регистрсведений.ВашРегистр.Регистратор КАК Документ.ВашДокумент) ССЫЛКА Документ.ВашДокумент

Ноя 12, 2017 |

0 комментариев

Цикл 1С // Выдержка из Синтаксис-Помощника

Для Каждого (For each)
Синтаксис:
Для Каждого <Имя переменной 1> Из <Имя переменной 2> Цикл
// Операторы
[Прервать;]
// Операторы
[Продолжить;]
// Операторы
КонецЦикла;

Страницы:‹123 4 5 6 7...34 ›

{ isaenkov.iamroot.ru --}!

Афоризм

ftp vs. 1с

Афоризм

«Обработка заполнения» или как заполнить документ на основании другого

Афоризм

Как проверить тип значения переменной на равенство нужному

Афоризм

Цикл 1С // Выдержка из Синтаксис-Помощника