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

Пауза в исполнении кода в 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с, ошибка авторизации

1C: метод объекта не обнаружен ПолучитьНомерНаПечать

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

После очередного обновления конфигурации 1С, бухгалтерия обнаружила что не работает один из отчетов. Выдает ошибку

метод объекта не обнаружен ПолучитьНомерНаПечать

1	метод объекта не обнаружен ПолучитьНомерНаПечать

Проблема известная и легко гуглится — дело в обновлении БСП в конфигурации. Разработчики переименовали функцию ПрефиксацияОбъектовКлиентСервер.ПолучитьНомерНаПечать() на ПрефиксацияОбъектовКлиентСервер.НомерНаПечать()

Оставить комментарий 1с, метод объекта не обнаружен, ПолучитьНомерНаПечать

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С

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

В текстах модулей

Если Дата = ‘00010101‘ Тогда
Если Дата = ‘00010101000000‘ Тогда
Если Дата = ‘0001—01—01‘ Тогда
Если Дата = Дата(1, 1, 1) Тогда
Если Дата = Дата(1, 1, 1, 0, 0, 0) Тогда
Если Не ЗначениеЗаполнено(Дата) Тогда

В запросах

ГДЕ Дата = ДАТАВРЕМЯ(0001,01,01,0,0,0)
ГДЕ Дата = ДАТАВРЕМЯ(1,1,1)
ГДЕ Дата = &ПустаяДата

Запрос.УстановитьПараметр(«ПустаяДата«, ‘00010101‘);

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

« 1 … 8 9 10 11 12 … 29 »

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