PC Toledo

Pelo tempo que faz já deve ter tomado uma decisão, mas se ajudar, vale a pena mudar, uso desde 2008. Excelente editor agora versão 7.

Eu fiz vários testes e pesquisa sobre a Sr_Setjoin, não funcionou, acredito que a lib que uso ela está com bug.
Set relation funciona bem, porém faz muita requisições no banco de dados.

Segue um exemplo que acho interessante sobre o DBEdit()

#INCLUDE "DBEDIT.CH"
#INCLUDE "INKEY.CH"

REQUEST HB_GT_WIN_DEFAULT
Function Main()
//Local aCols := {{"PadR(AllTrim(FIRST)+' '+AllTrim(LAST),30)", {|x| IIf(FIELD->SALARY<10000, {3,2}, IIf(FIELD->SALARY<100000,{1,2},{4,5}))}},;
// "CITY ...

Procura na web, por prwin3, app excelente free do amigo Vagus. Faz exatamente o que precisa. Usei por anos!
http://www.vagucs.com.br/?p=40

Eu transformo o texto criptografado em hexadecimal e gravo no banco SQL, para recuperar só fazer o inverso. Atenção para tamanho do campo deve ser o dobro. Normal Tam 10, para dado hexadecimal será 20.