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

Пауза в исполнении кода в 1С

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

В языке 1С нет команды паузы. Ну нет и всё тут! Парадигма: если чего то нет, что вам нужно, значит вы что то делаете не так (с) конечно хороша… Но усложнять код ради «выверта»? Код должен быть читаем и прост! Ну вот как например ПРОСТО сделать 10 попыток чтения чего-то с паузой в 60 секунд например не городя огород из костылей? Например, элементарная схема:

  Для Сч = 1 По 10 Цикл
       рез=ПопытатьсяЧтоТоСделать();           
	если рез=Ложь тогда
	 ГлПауза(1);
	иначе	
	    Прервать;
	конецесли				
 конеццикла

Для Сч = 1 По 10 Цикл

рез=ПопытатьсяЧтоТоСделать();

если рез=Ложь тогда

ГлПауза(1);

иначе

Прервать;

конецесли

конеццикла

А вот так можно реализовать функцию ГлПауза:

 Процедура глПауза(Сек)
scr = Новый COMОбъект("WScript.Shell");
scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);
КонецПроцедуры;

Процедура глПауза(Сек)

scr = Новый COMОбъект("WScript.Shell");

scr.Run("sleep "+СокрЛП(Число(Сек)),0,1);

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

Вариант 2 с загрузкой процессора:

Процедура глПауза(Сек)
	КонДата = ТекущаяДата() + Сек;
  	Пока ТекущаяДата() < КонДата Цикл
      // ждемссс....
  	КонецЦикла;	
КонецПроцедуры

Процедура глПауза(Сек)

КонДата = ТекущаяДата() + Сек;

Пока ТекущаяДата() < КонДата Цикл

// ждемссс....

КонецЦикла;

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

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

1С: Не работает авторизация по учетной записи

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

Ситуация: есть два сервера Windows, один из которых играет роль сервера 1С предприятие+БД, другой RDP. Оба сервера «отдельно стоящие», не входят в AD. Проблема заключается в не возможности входа по учетной записи на RDP сервере, т.к. запущенный клиент 1С на сервере RDP ищет на самом деле у.з. на сервере 1С предприятие.

Решение: создавать ПОЛНОСТЬЮ идентичные учетные записи пользователей на обоих серверах. Вплоть до одинакового пароля. Тогда фишка с авторизацией «прокатывает»

Оставить комментарий 1с, ошибка авторизации

1С: получить ссылку по уникальному идентификатору

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

Задача: есть некий идентификатор 09e5174f-551f-11e8-a22b-0800272d9f13. Нужно по нему получить ссылку на элемент справочника.

Решение:

Номенклатура = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор("09e5174f-551f-11e8-a22b-0800272d9f13"))

1	Номенклатура = Справочники.Номенклатура.ПолучитьСсылку(Новый УникальныйИдентификатор("09e5174f-551f-11e8-a22b-0800272d9f13"))

Оставить комментарий ссылка по идентификатору

1С Чтение CSV

20.05.2020 Павел Грибов 1C, Тупим

Подвох однако В интернетике полно примеров чтения CSV из 1С, но в большинстве из них при попытке использования ругается на «метод объекта не обнаружен ПолучитьСтроку». Секретик прост до безобразия: все эти статьи копипасты из одного какого-то источника, где команда ПолучитьСтроку написана в смеси английскиму-русскими буквами.

Вот нормальный рабочий код:

	//создаем таблицу, в которую будут записаны данные из файла
	Таблица = новый ТаблицаЗначений;

	// чтение
	сообщить("--читаем файл "+тПуть);
	ЗагружаемыйФайл = Новый ТекстовыйДокумент;
	ЗагружаемыйФайл.Прочитать(тПуть); // ИмяФайла - путь к файлу на диске
	сообщить("--ок");
	//Формируем шапку таблицы. Шапка по умолчанию первая строчка
	сообщить("--получаем шапку");
	Шапка = ЗагружаемыйФайл.ПолучитьСтроку(1);
	сообщить("--ок");

	//раскладываем стрoку в массив Разделителем колонок в данном случае является точка с запятой
	МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Шапка, ";");

	//генерируем столбцы
	сообщить("--генерируем столбцы таблицы");
	Для Каждого ИмяСтолбца Из МассивКол Цикл
	  ИмяБезПробелов = СтрЗаменить(ИмяСтолбца," ",""); // убираем из имени пробелы
	  Таблица.Колонки.Добавить(ИмяБезПробелов,,ИмяСтолбца);
	КонецЦикла;
	сообщить("--ок");
	
	сообщить("--загружаем файл в таблицу");
	Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл
		// получить стрoку с указанным номером и преобразуем её в массив
		Строка = ЗагружаемыйФайл.ПолучитьСтроку(НомерСтроки);
		МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка,";");
		НоваяСтрочка= Таблица.Добавить();

		Для НомерСтолбца= 1 по МассивКол.Количество() Цикл //заполняем строчку значениями
			ТекущееЗначение = МассивКол[НомерСтолбца-1];
			ИмяКолонки = Таблица.Колонки[НомерСтолбца-1].Имя;
			НоваяСтрочка[ИмяКолонки] = ТекущееЗначение;
		КонецЦикла;
	КонецЦикла;	
	сообщить("--ок");

//создаем таблицу, в которую будут записаны данные из файла

Таблица = новый ТаблицаЗначений;

// чтение

сообщить("--читаем файл "+тПуть);

ЗагружаемыйФайл = Новый ТекстовыйДокумент;

ЗагружаемыйФайл.Прочитать(тПуть); // ИмяФайла - путь к файлу на диске

сообщить("--ок");

//Формируем шапку таблицы. Шапка по умолчанию первая строчка

сообщить("--получаем шапку");

Шапка = ЗагружаемыйФайл.ПолучитьСтроку(1);

сообщить("--ок");

//раскладываем стрoку в массив Разделителем колонок в данном случае является точка с запятой

МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Шапка, ";");

//генерируем столбцы

сообщить("--генерируем столбцы таблицы");

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

ИмяБезПробелов = СтрЗаменить(ИмяСтолбца," ",""); // убираем из имени пробелы

Таблица.Колонки.Добавить(ИмяБезПробелов,,ИмяСтолбца);

КонецЦикла;

сообщить("--ок");

сообщить("--загружаем файл в таблицу");

Для НомерСтроки=2 по ЗагружаемыйФайл.КоличествоСтрок() Цикл

// получить стрoку с указанным номером и преобразуем её в массив

Строка = ЗагружаемыйФайл.ПолучитьСтроку(НомерСтроки);

МассивКол = СтроковыеФункцииКлиентСервер.РазложитьСтрокуВМассивПодстрок(Строка,";");

НоваяСтрочка= Таблица.Добавить();

Для НомерСтолбца= 1 по МассивКол.Количество() Цикл //заполняем строчку значениями

ТекущееЗначение = МассивКол[НомерСтолбца-1];

ИмяКолонки = Таблица.Колонки[НомерСтолбца-1].Имя;

НоваяСтрочка[ИмяКолонки] = ТекущееЗначение;

КонецЦикла;

сообщить("--ок");

P.S. Тем кто изначально разместил такой не рабочий код, посылаю лучи ненависти. Тоже тупил наверное минут 15.

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

Даунгрейт платформы 1С

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

Бывает так, что обновил платформу, а что-то пошло не так. И нужно вернуть «всё как было». Засада в этот раз подкралась когда удалил обновлённую платформу: перестал стартовать Агент сервера в службах. При внимательном изучении — оказалось что служба пыталась стартовать новый агент, который уже удален. Гугл подсказал, что проблема решается перерегистрацией службы:

ragent.exe -instsrvc

1	ragent.exe -instsrvc

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

« 1 … 13 14 15 16 17 … 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