On-line: rvu, гостей 1. Всего: 2 [подробнее..]
АвторСообщение
постоянный участник




Пост N: 6477
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 12.10.19 17:14. Заголовок: Совместное использование терминалки и МиниГуи ?


Использую совместно прогу на терминалке и прогу на МиниГуи.
Базы оставил в RU866-кодировке.
Терминалка экран тоже в RU866-кодировке.
МиниГуи - тексты в RU1251

В терминалке в базе в текстовое поле пишу знак галочка "√" - CHR(251)
В тексте для МиниГуи как сделать проверку этого поля на этот знак ?
Достаточно ли будет:
USE TEST ALIAS TEMP VIA 'DBFCDX' NEW CODEPAGE 'RU866' 
? AT(CHR(251), TEMP->TRUBA ) > 0


Спасибо: 0 
ПрофильЦитата Ответить
Ответов - 4 [только новые]


администратор




Пост N: 7112
Зарегистрирован: 17.05.05
ссылка на сообщение  Отправлено: 12.10.19 23:07. Заголовок: Andrey пишет: В тер..


Andrey пишет:

 цитата:
В терминалке в базе в текстовое поле пишу знак галочка "√" - CHR(251)


Пиши "L" или "N" (я про тип поля) а в бровсе показывай галочку или что тебе надо , тогда и таких
мега проверок увязанных с разницей кодировок делать не придется.
А вообще тебе виднее

Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6479
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 13.10.19 19:34. Заголовок: Я проверил, вроде ра..


Я проверил, вроде работает...
cRet := TEMP->TRUBA
IF AT(CHR(251),cRet) > 0
cRet := CharRepl(CHR(251),cRet,"#")
ENDIF
Т.е. для МиниГуи задачи знак галочка заменяю на "#"

А как сделать замену для БД соединённых по SET RELATION.
У меня 0 поле для терминалки внесены CHR(250), и при показе
в базах юзер сразу видит, что колонки справочников не заполнены.
Т.е. вот так в базе:


Если базу показываешь на МиниГуи, то это выглядит так:


Можно ли как то подменять это значение для SET RELATION ?
Я раньше делал перекодировку для МиниГуи, но нужно совместно использовать
базы - для терминалки и МиниГуи. Юзер не хочет пока переходить на новую программу,
привык к терминалке и всё тут.

Спасибо: 0 
ПрофильЦитата Ответить



Пост N: 2942
Зарегистрирован: 17.02.12
ссылка на сообщение  Отправлено: 13.10.19 21:10. Заголовок: попробуй set relatio..


попробуй
 
set relation to ky into my
...
? GetFldRelatC( 'my->TRUBA', "RU866" )
...
FUNC GetFldRelat( cFld, cdp )
Local cdpo := hb_cdpSelect( cdp )
Local cval := &cFld
If chr(250) $ cval
cval := StrTran( cval, chr(250), '?' )
EndIf
hb_cdpSelect( cdpo )
RETURN hb_translate(cval, cdp, cdpo)


Спасибо: 0 
ПрофильЦитата Ответить
постоянный участник




Пост N: 6480
Зарегистрирован: 12.09.06
ссылка на сообщение  Отправлено: 13.10.19 23:56. Заголовок: SergKis пишет: попр..


SergKis пишет:

 цитата:
попробуй


Спасибо !

Спасибо: 0 
ПрофильЦитата Ответить
Ответ:
1 2 3 4 5 6 7 8 9
большой шрифт малый шрифт надстрочный подстрочный заголовок большой заголовок видео с youtube.com картинка из интернета картинка с компьютера ссылка файл с компьютера русская клавиатура транслитератор  цитата  кавычки моноширинный шрифт моноширинный шрифт горизонтальная линия отступ точка LI бегущая строка оффтопик свернутый текст

показывать это сообщение только модераторам
не делать ссылки активными
Имя, пароль:      зарегистрироваться    
Тему читают:
- участник сейчас на форуме
- участник вне форума
Все даты в формате GMT  3 час. Хитов сегодня: 298
Права: смайлы да, картинки да, шрифты да, голосования нет
аватары да, автозамена ссылок вкл, премодерация откл, правка нет