FONTS FROM ETALON — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 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" | + | 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) | //IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0) | ||
| Строка 31: | Строка 31: | ||
endif | endif | ||
| − | |||
= Смотрите также = | = Смотрите также = | ||
Версия 15:37, 28 декабря 2016
FONTS_FROM_ETALON - это функция из справочника R266
Перенос профилей настроек шрифтов из эталона
FONTS_FROM_ETALON()
Текст
local sql if YesNo("Перенести профили ( размеры и наименования ) шрифтов из эталона?",true) // чистим SimpleSql([Delete From R457 Where KOD>0],ReflisPath) SimpleSql([Delete From R204 Where PROFILEKOD>0],ReflisPath) // копируем sql:=[Select * From "]+Nice_UNC_Path(EtalonPath)+[[[R457]]" r457 Where KOD>0] SimpleSql([Insert into R457 ]+sql,ReflisPath) //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,),; IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,),IsNull(SITTINGNUM,),IsNull(PROFILEKOD,0) ; From "]+Nice_UNC_Path(EtalonPath)+[R204" r204 Where PROFILEKOD>0] // ,BOLD,ITALIC,UNDERLINE,STRIKEOUT SimpleSql([Insert into R204(TASK,USERCODE,KOD,IDNAME,NAME,SIZE,; SCRIPT,FONTCOLOR,SITTINGNUM,PROFILEKOD) ]+sql,ReflisPath) Message("Профили успешно перенесены. Для выбора профиля используйте пункт "+Chr(10)+Chr(13)+"; Сервис - Настройки - Цвета и шрифты - Все пользователи и все модули - 'Выбрать профиль'") endif
