Архивы Павел - Страница 95 из 288

Пауза в исполнении кода в 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"))

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

RainLoop как сделать подпись

10.06.2020 Павел Грибов WEB

Пришлось гуглить:

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

MYSQL: <имя таблицы> is marked as crashed and should be repaired

05.06.2020 Павел Грибов MySQL

В моем случае обошлось просто (Внимание! данные в таблице удаляются!):

shell> mysql db_name
mysql> SET AUTOCOMMIT=1;
mysql> TRUNCATE TABLE table_name;
mysql> quit

shell> mysql db_name

mysql> SET AUTOCOMMIT=1;

mysql> TRUNCATE TABLE table_name;

mysql> quit

Если данные важны для сохранения,восстановить можно попробовать так:

myisamchk -r --update-state /var/lib/mysql/dbname/table_name.MYI

1	myisamchk -r --update-state /var/lib/mysql/dbname/table_name.MYI

Оставить комментарий marked as crashed, mysql

« 1 … 93 94 95 96 97 … 288 »

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