XP x Clipper - Logrei grande vitória (CPU NTVDM)

[Mário Isa]

amigos, boa noite! )
Não se lembram, mas eu entrei várias vezes neste fórum para falar sobre este fatal problema:
A CPU NTVDM encontrou uma instrução inválida... bláblábla
Fechar ou Ignorar /?/ xi... e agora...

O problema começou a aparecer quando coloquei para funcionar o clipmous.lib que peguei aqui do fórum na seção Download.

No 98 funcionava mto bem mas no xp...... néca!
Até eu perceber que o problema era do mouse (apesar dos avisos do amigo Vagner Nunes)... foi quando numa dessas percebi que simplesmente passar o mouse porsobre a janela do meu programa e o erro estava lá.

Aí comecei a testar.... entrava no programa... em xp... e começava a passar o mouse prá lá e prá ca, prá cima e prá baixo...

E pronto..... óia o erro aí de novo.

Solução:
Entrei num site dum amigo programador lá da Rússia...
http://www.geocities.com/alkresin/clipmous.html

E peguei o clipmous.obj dele.
Compilei junto.
Testei de novo e, graças a Deus e ao Alexander Kresin....

Nada mais de erro da CPU NTVDM...

chik chik

Abraços
Mário
:xau

P.s.: Se os moderadores quiserem poderem enviar a nova biblioteca para colocarem na seção download.

[momente]

Caro amigo Mário,

Esta biblioteca funciona com Visual Lib?

Um forte abraço!

[Mário Isa]

Sinceramente, eu não sei pois não a tenho aqui comigo.
Mário

[Marcio Antonio Ril]

Mario, bom dia, sei que o que preciso naum tem nada a ver com esse topico, mais estou chutando para todos os lados. Estou mudando meus indices e NTX para CDX, mais depois disso as minhas rotinas que tabalhava Go BOTTOM para incrementar codigo de cliente e outros cadastros naum funciona mais. Simplesmenta quando entro para incluir um novo cliente, deveria me mostrar o numero do proximo cliente a ser cadastrado, mais está sempre mostrando o codigo do cliente como 000001. Já coloquei no programa principal as instruções REQUEST DBFCDX, RDDSETDEFAULT("DBFCDX"). Veja o codigo abaixo, talvez eu esteja fazendo algo errado.

Código: Selecionar todos

FERASE("INDCLI.CDX") 

USE CLIENTE ALIAS CLI 
INDEX ON COD_CLI TAG INDICE1 TO INDCLI 
INDEX ON NOME_CLI TAG INDICE2 TO INDCLI 

DO WHILE .T.
WCOD_CLI := 0 
WNOME_CLI := SPACE(40) 

JANELA(03,03,19,76,"Cadastro de Clientes") 
COR("MENU") 

@ 05,05 SAY "Codigo Cliente:" 
@ 06,05 SAY "Nome..........:" 

SELECT CLI 
GO BOTTOM 
WCOD_CLI := COD_CLI 

@ 05,21 GET WCOD_CLI VALID (WCOD_CLI>0) PICT "999999" 
READ 

IF LASTKEY() = 27 
EXIT 
CLS 
ENDIF 

SELECT 1 
SEEK WCOD_CLI
IF FOUND()
WNOME_CLI := NOME_CLI
@ 06,21 SAY WNOME_CLI PICT "@!"
ELSE
MENSAGEM("cLIENTE NAO EXISTE")
ENDIF

ENDDO

Se puder ajudar, agradeço imensamente.

Marcio Ril

[Mário Isa]

eu tentei por várias vezes muda para CDX.Encontrei vários problemas
e continuo ainda no bom e velho NTX.
Como compilo em modo protegido não tenho tido problemas com memória.
E assim.....
Tenho um e-mail aqui de um programador lá de Bragança Paulista que me ensinou a mudar.
Se quiser te mando uma cópi.a
Envie mensagem particular.
Abraços
:xau

[lgr]

Marcio Antonio Ril,

Nesse trecho de codigo que voce postou, nao encontrei um SET ORDER TO 1 ou um ordsetfocus(¨indice1¨). Nao sera esse o problema?