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: 1914
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: 20420
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

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, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (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