FONTS FROM ETALON — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м (→Текст) |
||
| Строка 16: | Строка 16: | ||
// копируем | // копируем | ||
| − | sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[[[ | + | sql:=[Select * From "]+[[Nice_UNC_Path]](EtalonPath)+[R[[457]]" r[[457]] Where KOD>0] |
[[SimpleSql]]([Insert into [[R457]] ]+sql,ReflisPath) | [[SimpleSql]]([Insert into [[R457]] ]+sql,ReflisPath) | ||
Версия 15:40, 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
