FONTS FROM ETALON — различия между версиями
Материал из Фабиус wiki
Hisava (обсуждение | вклад) м (→Текст) |
Hisava (обсуждение | вклад) м |
||
| (не показаны 4 промежуточные версии этого же участника) | |||
| Строка 1: | Строка 1: | ||
[[FONTS_FROM_ETALON]] - это функция из справочника [[R266]] | [[FONTS_FROM_ETALON]] - это функция из справочника [[R266]] | ||
| − | + | Перенос профилей настроек шрифтов из эталона | |
| − | Перенос профилей настроек шрифтов из эталона | + | [[FONTS_FROM_ETALON]]() |
| − | + | ||
| − | + | ||
| − | + | ||
= Текст = | = Текст = | ||
| − | |||
local sql | local sql | ||
| Строка 16: | Строка 12: | ||
// копируем | // копируем | ||
| − | 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) | ||
//IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0) | //IsNull(BOLD,0),IsNull(ITALIC,0),IsNull(UNDERLINE,0),IsNull(STRIKEOUT,0) | ||
| − | sql:=[Select IsNull(TASK, | + | sql:=[Select IsNull(TASK,""),IsNull(USERCODE,0),IsNull(KOD,0),IsNull(IDNAME,""),IsNull(NAME,""),; |
| − | IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR, | + | IsNull(SIZE,0),IsNull(SCRIPT,0),IsNull(FONTCOLOR,""),IsNull(SITTINGNUM,""),IsNull(PROFILEKOD,0) ; |
| − | From "]+Nice_UNC_Path(EtalonPath)+[ | + | From "]+[[Nice_UNC_Path]](EtalonPath)+[R[[204]]" r[[204]] Where PROFILEKOD>0] |
// ,BOLD,ITALIC,UNDERLINE,STRIKEOUT | // ,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) | SCRIPT,FONTCOLOR,SITTINGNUM,PROFILEKOD) ]+sql,ReflisPath) | ||
| − | Message("Профили успешно перенесены. Для выбора профиля используйте пункт "+Chr(10)+Chr(13)+"; | + | [[Message]]("Профили успешно перенесены. Для выбора профиля используйте пункт "+[[Chr]](10)+[[Chr]](13)+"; |
Сервис - Настройки - Цвета и шрифты - Все пользователи и все модули - 'Выбрать профиль'") | Сервис - Настройки - Цвета и шрифты - Все пользователи и все модули - 'Выбрать профиль'") | ||
endif | endif | ||
| + | = Смотрите также = | ||
| + | [[Полезные функции]] | ||
| − | |||
[[Функции Delphi]] | [[Функции Delphi]] | ||
| − | |||
| − | |||
Текущая версия на 09:07, 21 июля 2017
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
