FONTS FROM ETALON - История изменений

Hisava в 06:07, 21 июля 2017

2017-07-21T06:07:58Z

2016-12-28T12:40:22Z

‎Текст

2016-12-28T12:39:57Z

‎Текст

2016-12-28T12:39:45Z

‎Текст

2016-12-28T12:38:29Z

‎Текст

2016-12-28T12:37:21Z

‎Текст

2016-12-28T12:32:54Z

2016-12-28T12:29:28Z

Новая страница: «= Смотрите также = Функции Delphi Полезные функции»

Новая страница

= Смотрите также =
[[Функции Delphi]]

[[Полезные функции]]

@@ Строка 1: / Строка 1: @@
 [[FONTS_FROM_ETALON]] - это функция из справочника [[R266]]
+ Перенос профилей настроек шрифтов из эталона
-Перенос профилей настроек шрифтов из эталона
+[[FONTS_FROM_ETALON]]()
-−
- FONTS_FROM_ETALON()
-−
 = Текст =
   local sql
@@ Строка 31: / Строка 27: @@
   endif
 [[Функции Delphi]]

@@ Строка 16: / Строка 16: @@
     // копируем
-    sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[[[R457]]" r[[457]] Where KOD>0]
+    sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[R[[457]]" r[[457]] Where KOD>0]
     [[SimpleSql]]([Insert into [[R457]] ]+sql,ReflisPath)

@@ Строка 22: / Строка 22: @@
     sql:=[Select IsNull(TASK,""),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,""),IsNull(NAME,""),;
       IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,""),IsNull(SITTINGNUM,""),IsNull(PROFILEKOD,0) ;
-      From "]+[[Nice_UNC_Path]](EtalonPath)+[R204" r[[204]] Where PROFILEKOD>0]
+      From "]+[[Nice_UNC_Path]](EtalonPath)+[R[[204]]" r[[204]] Where PROFILEKOD>0]
     // ,BOLD,ITALIC,UNDERLINE,STRIKEOUT
     SimpleSql([Insert into [[R204]](TASK,USERCODE,KOD,IDNAME,NAME,SIZE,;

@@ Строка 22: / Строка 22: @@
     sql:=[Select IsNull(TASK,""),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,""),IsNull(NAME,""),;
       IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,""),IsNull(SITTINGNUM,""),IsNull(PROFILEKOD,0) ;
-      From "]+[[Nice_UNC_Path]](EtalonPath)+[[[R204]]" r[[204]] Where PROFILEKOD>0]
+      From "]+[[Nice_UNC_Path]](EtalonPath)+[R204" r[[204]] Where PROFILEKOD>0]
     // ,BOLD,ITALIC,UNDERLINE,STRIKEOUT
     SimpleSql([Insert into [[R204]](TASK,USERCODE,KOD,IDNAME,NAME,SIZE,;

@@ Строка 20: / Строка 20: @@
     //IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0)
-    sql:=[Select IsNull(TASK,''),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,''),IsNull(NAME,''),;
+    sql:=[Select IsNull(TASK,""),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,""),IsNull(NAME,""),;
-      IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,''),IsNull(SITTINGNUM,''),IsNull(PROFILEKOD,0) ;
+      IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,""),IsNull(SITTINGNUM,""),IsNull(PROFILEKOD,0) ;
-      From "]+Nice_UNC_Path(EtalonPath)+[R204" r204 Where PROFILEKOD>0]
+      From "]+[[Nice_UNC_Path]](EtalonPath)+[[[R204]]" r[[204]] Where PROFILEKOD>0]
     // ,BOLD,ITALIC,UNDERLINE,STRIKEOUT
-    SimpleSql([Insert into R204(TASK,USERCODE,KOD,IDNAME,NAME,SIZE,;
+    SimpleSql([Insert into [[R204]](TASK,USERCODE,KOD,IDNAME,NAME,SIZE,;
       SCRIPT,FONTCOLOR,SITTINGNUM,PROFILEKOD) ]+sql,ReflisPath)
-    Message("Профили успешно перенесены. Для выбора профиля используйте пункт "+Chr(10)+Chr(13)+";
+    [[Message]]("Профили успешно перенесены. Для выбора профиля используйте пункт "+[[Chr]](10)+[[Chr]](13)+";
       Сервис - Настройки - Цвета и шрифты - Все пользователи и все модули - 'Выбрать профиль'")

@@ Строка 12: / Строка 12: @@
     // чистим
-    [[SimpleSql]]([Delete From R457 Where KOD>0],ReflisPath)
+    [[SimpleSql]]([Delete From [[R457]] Where KOD>0],ReflisPath)
-    [[SimpleSql]]([Delete From R204 Where PROFILEKOD>0],ReflisPath)
+    [[SimpleSql]]([Delete From [[R204]] Where PROFILEKOD>0],ReflisPath)
     // копируем
-    sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[R457" r457 Where KOD>0]
+    sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[[[R457]]" r[[457]] Where KOD>0]
-    [[SimpleSql]]([Insert into R457 ]+sql,ReflisPath)
+    [[SimpleSql]]([Insert into [[R457]] ]+sql,ReflisPath)
     //IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0)
@@ Строка 31: / Строка 31: @@
   endif
 = Смотрите также =