duvida sobre cdx
Enviado: 30 Nov 2007 12:24
existe um aquivo chamado mov_2007.dbf e um outro mov_2007.cdx
*======================== para o xharbour
SET EXCLUSIVE on
set dbflockscheme to 2 // PARA USO JUNTO COM O CLIPPER
*****====
REQUEST HB_NOMOUSE
REQUEST HB_LANG_PT
HB_LANGSELECT("PT")
REQUEST HB_CODEPAGE_PT850
HB_SETCODEPAGE("PT850")
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")
*------
COR0:= 'W/W,N/W,W/W' && FUNDO
COR1:= 'N/BG' && QUADROS
COR2:= 'B/BG' && APOS GET'S OU SAY'S
COR3:= 'B/W' && SELECAO
COR4:= 'R/BG' && ATENCAO OU CHAMATIVO
OK_TESTE:= .T.
*-----------------------------
dir_c:= 'c:\Brotoc'
dir_MAE:= 'g:\Brotoc'
arq_RTF:= DIR_C+'\TESTE.RTF'
arq_DBF:= dir_mae+'\MOV_2007.DBF'
*------------------
RUN CD &DIR_C
SET PATH TO &DIR_C
SET DEFA TO &DIR_C
*======================
sele 1
use &arq_DBF SHARE
-------- da erro aqui dbf/1012 indice comrrompido ----mov-2007.cdx
como pode dar erro ai se nem coloco
USE &ARQ_DBF INDEX MOV_2007 SHARE
---- SE DETONAR MOV-2007.CDX PASSA
SERA QUE TENHO RENOMEAR PARA OUTRO NOME
??
*======================== para o xharbour
SET EXCLUSIVE on
set dbflockscheme to 2 // PARA USO JUNTO COM O CLIPPER
*****====
REQUEST HB_NOMOUSE
REQUEST HB_LANG_PT
HB_LANGSELECT("PT")
REQUEST HB_CODEPAGE_PT850
HB_SETCODEPAGE("PT850")
REQUEST DBFCDX
RDDSETDEFAULT("DBFCDX")
DBSETDRIVER("DBFCDX")
*------
COR0:= 'W/W,N/W,W/W' && FUNDO
COR1:= 'N/BG' && QUADROS
COR2:= 'B/BG' && APOS GET'S OU SAY'S
COR3:= 'B/W' && SELECAO
COR4:= 'R/BG' && ATENCAO OU CHAMATIVO
OK_TESTE:= .T.
*-----------------------------
dir_c:= 'c:\Brotoc'
dir_MAE:= 'g:\Brotoc'
arq_RTF:= DIR_C+'\TESTE.RTF'
arq_DBF:= dir_mae+'\MOV_2007.DBF'
*------------------
RUN CD &DIR_C
SET PATH TO &DIR_C
SET DEFA TO &DIR_C
*======================
sele 1
use &arq_DBF SHARE
-------- da erro aqui dbf/1012 indice comrrompido ----mov-2007.cdx
como pode dar erro ai se nem coloco
USE &ARQ_DBF INDEX MOV_2007 SHARE
---- SE DETONAR MOV-2007.CDX PASSA
SERA QUE TENHO RENOMEAR PARA OUTRO NOME