jfaguiar Posted May 18, 2007 Report Share Posted May 18, 2007 /* Olá pessoal esta semana precisei transportar minha base de dbfntx para cdx e fiz esta funçãozinha. Se alguém interessar pode copiar. */ REQUEST DBFCDX SET DATE BRITISH SET EPOCH TO 1990 CLEAR // PRIVATE MAT_DBF := DIRECTORY("C:\ORIGEM\*.DBF") FOR I = 1 TO LEN(MAT_DBF) VARQ := MAT_DBF[i,1] RDDSETDEFAULT("DBFNTX") IF Netuse("c:\ORIGEM\&VARQ","ARQORIG",.F.,0) RDDSETDEFAULT("DBFCDX") @ 13,15 SAY PADR(VARQ,15) COPY TO C:\DESTINO\&VARQ WHILE !EOF() USE ENDIF NEXT RETURN ************************************************************ FUNCTION Netuse(arq, ape, uso_excl, tempo) * Objetivo..: Tenta abrir um arquivo exclusivo ou * compartilhado. ************************************************************ LOCAL sempre sempre := (tempo = 0) DO WHILE (sempre .OR. tempo > 0) .AND. INKEY()<>27 IF uso_excl // exclusivo USE (ARQ) ALIAS (APE) EXCLUSIVE NEW ELSE USE (ARQ) ALIAS (APE) SHARED NEW ENDIF IF .NOT. NETERR() // USE bem sucedido @ 24,00 CLEAR RETURN (.T.) ENDIF INKEY(1) -- Tempo ENDDO @ 24,00 CLEAR ERRORED := .T. ALERT("O Arquivo "+ ARQ +" Nao Esta DisponÃvel!") RETURN (.F.) && USE mal sucedido ************************************************************ Quote Link to comment Share on other sites More sharing options...
jfaguiar Posted May 18, 2007 Author Report Share Posted May 18, 2007 /* Olá pessoal esta semana precisei transportar minha base de dbfntx para cdx e fiz esta funçãozinha. Se alguém interessar pode copiar. */ REQUEST DBFCDX SET DATE BRITISH SET EPOCH TO 1990 CLEAR // PRIVATE MAT_DBF := DIRECTORY("C:\ORIGEM\*.DBF") FOR I = 1 TO LEN(MAT_DBF) VARQ := MAT_DBF[i,1] RDDSETDEFAULT("DBFNTX") IF Netuse("c:\ORIGEM\&VARQ","ARQORIG",.F.,0) RDDSETDEFAULT("DBFCDX") @ 13,15 SAY PADR(VARQ,15) COPY TO C:\DESTINO\&VARQ WHILE !EOF() USE ENDIF NEXT RETURN ************************************************************ FUNCTION Netuse(arq, ape, uso_excl, tempo) * Objetivo..: Tenta abrir um arquivo exclusivo ou * compartilhado. ************************************************************ LOCAL sempre sempre := (tempo = 0) DO WHILE (sempre .OR. tempo > 0) .AND. INKEY()<>27 IF uso_excl // exclusivo USE (ARQ) ALIAS (APE) EXCLUSIVE NEW ELSE USE (ARQ) ALIAS (APE) SHARED NEW ENDIF IF .NOT. NETERR() // USE bem sucedido @ 24,00 CLEAR RETURN (.T.) ENDIF INKEY(1) -- Tempo ENDDO @ 24,00 CLEAR ERRORED := .T. ALERT("O Arquivo "+ ARQ +" Nao Esta DisponÃvel!") RETURN (.F.) && USE mal sucedido ************************************************************ Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.