A sintaxe de linha de comando do RTLink é praticamente igual a do BLinker. Pelo menos no básico é igual.sygecom escreveu:Tche, vc esta usando o RTLINK neh......eu uso o Blinker....de uma procurada no forum que tem varios post mostrando como se usa as LIB com o RTLINK.
Rode o demo da SIX e estude os fontes. Há muitas coisa ali que você certamente poderá aproveitar. Inclusive, estude a forma de compilação dele. Ajuda também.Gilberto M Silva escreveu:Maligno, baixei o SIX.lib vou dar uma estudada nele
Tche, se não me engano é algo assim:Gilberto M Silva escreveu:Blz, Leonardo, vou fazir isso, melhor, já estou fazendo é que são muitas páginas, acho q ainda ñ passei por algum tópico sobre isso.
:*
Código: Selecionar todos
clipper %1
if not errorlevel 1 rtlink file %1 library DBFCDX
Tche, use nos nome dos CDX no maximo até 8 caracter.ex:Gilberto M Silva escreveu:Gente uma pequena orientação, estou indexando desta forma:
O primeiro indexa blz, no segundo dar o seguinte erroCódigo: Selecionar todos
REQUEST DBFCDX RDDSETDEFAULT("DBFCDX") DBSETDRIVER("DBFCDX") SET EXCLUSIVE ON JANELA(07,15,15,65) @ 08,17 SAY "AGUARDE INDEXACAO DOS ARQUIVOS" @ 09,17 SAY "indexando arquivo de Clientes......." If Ferase("DEVEDOR1.CDX") == -1 MENSAGE("Arquivo em uso... ") ELSE USE DEVEDOR alias DEVEDOR1 excl new ENDIF IF !neterr() pack DELETE FILE DEVEDOR1.CDX index on CODCLI TAG 1 to DEVEDOR1 EVAL Progress() every lastrec()/100 index on NOMCLI TAG 2 to DEVEDOR1 EVAL Progress() every lastrec()/100 index on DATFIM TAG 3 to DEVEDOR1 EVAL Progress() every lastrec()/100 ELSE MOTIVO() ENDIF @ 09,17 SAY "indexando arquivo de Produtos......." If Ferase("ACECAD001.CDX") == -1 MENSAGE("Arquivo em uso... ") ENDIF USE ACECAD00 alias ACECAD001 excl new IF !neterr() pack DELETE FILE ACECAD001.CDX index on CCCODMAT TAG 1 to ACECAD001 EVAL Progress() every lastrec()/100 index on CCNOMMAT TAG 2 to ACECAD001 EVAL Progress() every lastrec()/100 ELSE MOTIVO() ENDIF
DBFCDX CORRUPTION DETECTED
Gilberto
Código: Selecionar todos
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")
SET EXCLUSIVE ON
JANELA(07,15,15,65)
@ 08,17 SAY "AGUARDE INDEXACAO DOS ARQUIVOS"
@ 09,17 SAY "indexando arquivo de Clientes......."
If Ferase("DEVEDOR1.CDX") == -1
MENSAGE("Arquivo em uso... ")
ELSE
USE DEVEDOR alias DEVEDOR1 excl new
ENDIF
IF !neterr()
pack
DELETE FILE DEVEDOR1.CDX
index on CODCLI TAG 1 to DEVEDOR1 EVAL Progress() every lastrec()/100
index on NOMCLI TAG 2 to DEVEDOR1 EVAL Progress() every lastrec()/100
index on DATFIM TAG 3 to DEVEDOR1 EVAL Progress() every lastrec()/100
ELSE
MOTIVO()
ENDIF
@ 09,17 SAY "indexando arquivo de Produtos......."
If Ferase("ACECAD1.CDX") == -1
MENSAGE("Arquivo em uso... ")
ENDIF
USE ACECAD00 alias ACECAD1 excl new
IF !neterr()
pack
DELETE FILE ACECAD1.CDX
index on CCCODMAT TAG 1 to ACECAD1 EVAL Progress() every lastrec()/100
index on CCNOMMAT TAG 2 to ACECAD1 EVAL Progress() every lastrec()/100
ELSE
MOTIVO()
ENDIF
RDDSETDEFAULT("DBFCDX") já seta o CDX como RDD default na aplicação, então o seguinte DBSETDRIVER("DBFCDX") está a mais, só tá chovendo no molhado...REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")
Dá a amensagem q está em uso e depoisIf Ferase("ACECAD1.CDX") == -1
MENSAGE("Arquivo em uso... ")
ENDIF
USE ACECAD00 alias ACECAD1 excl new
IF !neterr()
pack
DELETE FILE ACECAD1.CDX
index on CCCODMAT TAG 1 to ACECAD1 EVAL Progress() every lastrec()/100
index on CCNOMMAT TAG 2 to ACECAD1 EVAL Progress() every lastrec()/100
ELSE
MOTIVO()
ENDIF
Tche, muito estranho...ele esta aparecendo em USO....alias depois de indexar o arquivo de um USE para fehcar o mesmo....e tente colocar no inico da sua rotina um DBCLOSEALL()Gilberto M Silva escreveu:Sei q está dando o erro porque de alguma forma o arquivo ACECAD00 está em uso por quem ñ sei.