PC Toledo

Amigos, estou com problemas com essas rotina simples, acontece que depois de mudei de NTX para CDX, simplesmente ela naum vai para o final do arquivo e consequentemente naum incrementa....

Ajudem.....

Marcio Ril

Ai vai um trecho da rotina:
* TITULO : SISCREDI - SISTEMA DE CREDIARIO
* DATA : 15/07/2002
* PROGRAMA : CLIENTE.PRG
* COMENTARIO : CADASTRO DE CLIENTE

FERASE("INDCLI.CDX")

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

SET DELETED ON
DO WHILE .T.

MENSAGEM("Tecle <ESC> para retornar")

WCOD_CLI := 0
WNOME_CLI := SPACE(40)
WEND_CLI := SPACE(40)
WBAIRRO_CLI := SPACE(15)
WCID_CLI := SPACE(20)
WUF_CLI := SPACE(02)
WCEP_CLI := SPACE(10)
WFONE_CLI := SPACE(13)
WDTNAS_CLI := CTOD("99/99/9999")
WRG_CLI := SPACE(12)
WCPF_CLI := SPACE(14)
WPAI_CLI := SPACE(30)
WMAE_CLI := SPACE(30)
WCASA_CLI := SPACE(01)
WEMPREG_CLI := SPACE(30)
WTEMPO_CLI := SPACE(15)
WFONEMP_CLI := SPACE(13)
WSITUA_CLI := "S"
WLIMITE_CLI := 0
WDADOS1_CLI := SPACE(40)
WDADOS2_CLI := SPACE(40)
WDADOS3_CLI := SPACE(40)
WDTCAD_CLI := DATAATU
WCONF :="S"

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

@ 05,05 SAY "Codigo Cliente:"
@ 06,05 SAY "Nome..........:"
@ 07,05 SAY "Endereco......:"
@ 08,05 SAY "Cidade........:"
@ 08,46 SAY "Bairro.....:"
@ 09,05 SAY "Estado........:"
@ 09,46 SAY "Cep........:"
@ 10,05 SAY "Fone..........:"
@ 10,46 SAY "Dt Nascim..:"
@ 11,05 SAY "N§ Identidade.:"
@ 11,46 SAY "N§ CPF.....:"
@ 12,05 SAY "Nome do PAI...:"
@ 13,05 SAY "Nome da MAE...:"
@ 14,05 SAY "Emprego Atual.:"
@ 15,05 SAY "Fone..........:"
@ 15,46 SAY "Tempo Serv.:"
@ 16,05 SAY "Casa Propria..: [SIM/Nao]"
@ 16,46 SAY "Dt.Cadastro:"
@ 17,05 SAY "Libera Credito: [SIM/Nao]"
@ 17,46 SAY "Lim.Credito:"

JANELA(03,63,10,76," MENU ")

COR("MENU")

@ 05,65 PROMPT " Inclusao "
@ 06,65 PROMPT " Alteracao "
@ 07,65 PROMPT " Consulta "
@ 08,65 PROMPT " Delecao "

MENU TO OP

IF LASTKEY() = 27
EXIT
CLS
ENDIF

DO CASE
CASE OP=1
DO WHILE .T.
MENSAGEM("Tecle <ESC> para retornar")

WCOD_CLI := 0
WNOME_CLI := SPACE(40)
WEND_CLI := SPACE(40)
WBAIRRO_CLI := SPACE(15)
WCID_CLI := SPACE(20)
WUF_CLI := SPACE(02)
WCEP_CLI := SPACE(10)
WFONE_CLI := SPACE(13)
WDTNAS_CLI := CTOD("99/99/9999")
WRG_CLI := SPACE(12)
WCPF_CLI := SPACE(14)
WPAI_CLI := SPACE(30)
WMAE_CLI := SPACE(30)
WCASA_CLI := SPACE(01)
WEMPREG_CLI := SPACE(30)
WTEMPO_CLI := SPACE(15)
WFONEMP_CLI := SPACE(13)
WSITUA_CLI := "S"
WLIMITE_CLI := 0
WDADOS1_CLI := SPACE(40)
WDADOS2_CLI := SPACE(40)
WDADOS3_CLI := SPACE(40)
WDTCAD_CLI := DATAATU
WCONF :="S"

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

@ 05,05 SAY "Codigo Cliente:"
@ 06,05 SAY "Nome..........:"
@ 07,05 SAY "Endereco......:"
@ 08,05 SAY "Cidade........:"
@ 08,46 SAY "Bairro.....:"
@ 09,05 SAY "Estado........:"
@ 09,46 SAY "Cep........:"
@ 10,05 SAY "Fone..........:"
@ 10,46 SAY "Dt Nascim..:"
@ 11,05 SAY "N§ Identidade.:"
@ 11,46 SAY "N§ CPF.....:"
@ 12,05 SAY "Nome do PAI...:"
@ 13,05 SAY "Nome da MAE...:"
@ 14,05 SAY "Emprego Atual.:"
@ 15,05 SAY "Fone..........:"
@ 15,46 SAY "Tempo Serv.:"
@ 16,05 SAY "Casa Propria..: [SIM/Nao]"
@ 16,46 SAY "Dt.Cadastro:"
@ 17,05 SAY "Libera Credito: [SIM/Nao]"
@ 17,46 SAY "Lim.Credito:"

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

Bom dia Marcio, tente definir o indice q vc vai ultilizar

FERASE("INDCLI.CDX")

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

SET ORDER TO "INDICE1"
ou, eu prefiro usar assim:
OrdSetFocus("INDICE1")

@braços Ale