Olá pessoal!
Estou migrando do Clipper 5.2e com ADS utilizando DBFCDXAX para o harbour mas aconteceu o seguinte:
Compilei meu sistema com as seguintes linhas no PRG principal:
REQUEST ADS
RddRegister("ADS",1)
AdsSetFileType(2)
RddSetDefault("ADSCDX")
AdsSetServerType( ADS_REMOTE_SERVER )
e criei os índices normalmente, porém, tenho campos com conteúdo String minúsculos e maiúsculos e os índices invertem a ordem ASC dos caracteres colocando os minúsculos antes do maiúsculo.
Por exemplo: Antes um registro com STATUS='AA' viria antes do STATUS='aA', agora isso se inverteu ocasionando a quebra de vários processamentos.
Seria o caso de alguma configuração que desconheço?
Ficarei imensamente grato se alguém apresentar uma solução.
Abrçs,
SeijiKim
Problemas com índices ADSCDX (clipper para harbour)
Moderador: Moderadores
-
Kapiaba
- Colaborador

- Mensagens: 1908
- Registrado em: 07 Dez 2012 16:14
- Localização: São Paulo
- Contato:
Problemas com índices ADSCDX (clipper para harbour)
Veja se ajuda:
Código: Selecionar todos
#Include "ads.ch"
REQUEST ADSKEYCOUNT, ADSGETRELKEYPOS, ADSSETRELKEYPOS, ADSKEYNO
FUNCTION Main()
RddRegister( "ADS", 1 )
AdsSetServerType( ADS_LOCAL_SERVER )
RDDSetDefault( "ADSCDX" )
USE CUSTOMER NEW ALIAS CUST VIA "ADSCDX" SHARED
BROWSE()
RETURN NIL
- JoséQuintas
- Administrador

- Mensagens: 20267
- Registrado em: 26 Fev 2007 11:59
- Localização: São Paulo-SP
Problemas com índices ADSCDX (clipper para harbour)
Não está parecendo problema de codepage.SeijiKim escreveu:Por exemplo: Antes um registro com STATUS='AA' viria antes do STATUS='aA', agora isso se inverteu ocasionando a quebra de vários processamentos.
Por acaso existe alguma função no ADS pra ignorar maiúsculas e minúsculas? Neste caso misturaria e não inverteria a ordem.
Como o ADS aceita trabalhar por comando SQL, imagino que poderia ser normal existir essa opção de ignorar maiúscula/minúscula, e explicaria caso esteja ativada por default para o Harbour.
José M. C. Quintas
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Harbour 3.2, mingw, gtwvg mt, fivewin 25.04, multithread, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui mt), (hmg3), (hmg extended), (oohg), PNotepad, ASP, stored procedure, stored function, Linux (Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"
https://github.com/JoseQuintas/
Problemas com índices ADSCDX (clipper para harbour)
Caríssimos,
Obrigado pela atenção mas continuo com o dilema.
Sigo na minha peleja e se conseguir contornar posto o resultado aqui.
Obrigado pela atenção mas continuo com o dilema.
Sigo na minha peleja e se conseguir contornar posto o resultado aqui.
Problemas com índices ADSCDX (clipper para harbour)
Alterando o padrão de caracteres para OEM até o momento manteve a compatibilidade e tem resolvido meu problema.
AdsSetCharType( ADS_OEM )
:)Pos
AdsSetCharType( ADS_OEM )
:)Pos
