Problemas com índices ADSCDX (clipper para harbour)

Projeto [x]Harbour - Compilador de código aberto compatível com o Clipper.

Moderador: Moderadores

SeijiKim
Usuário Nível 1
Usuário Nível 1
Mensagens: 3
Registrado em: 03 Abr 2018 08:42
Localização: RONDONIA

Problemas com índices ADSCDX (clipper para harbour)

Mensagem por SeijiKim »

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
Kapiaba
Colaborador
Colaborador
Mensagens: 1908
Registrado em: 07 Dez 2012 16:14
Localização: São Paulo
Contato:

Problemas com índices ADSCDX (clipper para harbour)

Mensagem por Kapiaba »

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
Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20267
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP

Problemas com índices ADSCDX (clipper para harbour)

Mensagem por JoséQuintas »

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.
Não está parecendo problema de codepage.
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/
SeijiKim
Usuário Nível 1
Usuário Nível 1
Mensagens: 3
Registrado em: 03 Abr 2018 08:42
Localização: RONDONIA

Problemas com índices ADSCDX (clipper para harbour)

Mensagem por SeijiKim »

Caríssimos,
Obrigado pela atenção mas continuo com o dilema.
Sigo na minha peleja e se conseguir contornar posto o resultado aqui.
SeijiKim
Usuário Nível 1
Usuário Nível 1
Mensagens: 3
Registrado em: 03 Abr 2018 08:42
Localização: RONDONIA

Problemas com índices ADSCDX (clipper para harbour)

Mensagem por SeijiKim »

Alterando o padrão de caracteres para OEM até o momento manteve a compatibilidade e tem resolvido meu problema.
AdsSetCharType( ADS_OEM )

:)Pos
Responder