Estou tentando localizar aonde o aplicativo salva nota fiscal de remessa...
Acabei criando uma rotina interessante....
São duas pastas: atual e ./dbf_bhp
Pesquisar qualquer coisa em qualquer lugar.
/*
PPESQNUM - Pesquisar um numro
*/
#include "dbstruct.ch"
#include "directry.ch"
#include "inkey.ch"
PROCEDURE PPESQNUM
LOCAL mNumero := 0, GetList := {}
@ 1, 0 SAY "Numero:" GET mNumero PICTURE "999999"
READ
IF LastKey() == K_ESC
RETURN
ENDIF
Pesquisa( ".\", mNumero )
Pesquisa( ".\dbf_bhp\", mNumero )
Mensagem( "Tecle ESC", " 27" )
RETURN
STATIC FUNCTION Pesquisa( cPath, mNumero )
LOCAL aFiles, nCont, cFile, nField, lEncontrou, xValue, aStru, nAtual, nTotal
aFiles := Directory( cPath + "*.dbf" )
FOR nCont = 1 TO Len( aFiles )
cFile := cPath + aFiles[ nCont, F_NAME ]
USE ( cFile )
aStru := dbStruct()
GOTO TOP
nAtual := 0
nTotal := LastRec()
GrafTempo( Ltrim( Str( nCont ) ) + "/" + Ltrim( Str( Len( aFiles ) ) ) + " " + cFile )
DO WHILE ! Eof()
GrafTempo( nAtual++, nTotal )
FOR nField = 1 TO Len( aStru )
xValue := FieldGet( nField )
lEncontrou := .F.
IF ValType( xValue ) == "N"
IF xValue == mNumero
lEncontrou := .T.
ENDIF
ELSEIF ValType( xValue ) == "C"
IF Ltrim( Str( mNumero ) ) $ xValue
lEncontrou := .T.
ENDIF
ENDIF
IF lEncontrou
SayScroll( "Encontrado em " + cFile + " " + FIeldName( nField ) + " " + Str( RecNo(), 6 ) )
Errorsys_WriteErrorLog( "Encontrado em " + cFile + " " + FIeldName( nField ) + " " + ;
Str( RecNo(), 6 ) + " " + Transform( xValue, "" ) )
Inkey(1)
ENDIF
NEXT
SKIP
ENDDO
USE
NEXT
RETURN NIL
Agora ver se realmente está em algum lugar....
Encontrado em .\arqmv2.dbf ORDEM 3789 053629
Encontrado em .\artmov.dbf CODIGO 10858 53629
Encontrado em .\artmov.dbf CODIGO 10859 53629
Encontrado em .\b0100.dbf CGC 5984 01536291000108
Encontrado em .\b0100.dbf CGC 13044 09536294000145
Encontrado em .\b0100.dbf COD_CLI 62869 53629
Encontrado em .\b0800.dbf ORDEM 52995 053629
Encontrado em .\b0800.dbf DOC 107504 1536299
Encontrado em .\b0800.dbf DOC 107505 1536299
Encontrado em .\b1300.dbf ORDEM 67177 053629
Encontrado em .\b1300.dbf ORDEM 67178 053629
Encontrado em .\b1300.dbf ORDEM 67179 053629
Encontrado em .\b1300.dbf DOC 134469 1536299
Encontrado em .\b1300.dbf DOC 134470 1536299
Encontrado em .\b1600.dbf COD_CLI 116309 53629
Encontrado em .\b1700.dbf COD_CLI 289710 53629
Encontrado em .\b1700.dbf COD_CLI 289711 53629
Encontrado em .\b1700.dbf COD_CLI 289712 53629
Encontrado em .\b1700.dbf COD_CLI 289713 53629
Encontrado em .\b1700.dbf COD_CLI 289714 53629
Encontrado em .\b5800.dbf COD_FLG 120173 053629
Encontrado em .\b5800.dbf COD_FLG 120174 053629
Encontrado em .\b5800.dbf CODIGO 249395 53629
Encontrado em .\b5800.dbf CODIGO 249396 53629
Encontrado em .\b6400.dbf ORDEM 21030 053629
Encontrado em .\b6400.dbf COD_FLG 51094 053629
Encontrado em .\b6400.dbf CODIGO 99509 53629
Encontrado em .\client.dbf CGC 5986 01536291000108
Encontrado em .\cliente.dbf CGC 6033 01536291000108
Encontrado em .\clientes.dbf CGC 5983 01536291000108
Encontrado em .\cpcli.dbf COD_CLI 64847 53629
Encontrado em .\cpcli.dbf COD_CLI 64848 53629
Encontrado em .\kitmov.dbf CODIGO 2765 53629
Encontrado em .\mov03.dbf COD_FLG 95121 053629
Encontrado em .\mov03.dbf COD_FLG 95122 053629
Encontrado em .\mov03.dbf CODIGO 212638 53629
Encontrado em .\mov03.dbf CODIGO 212639 53629
Encontrado em .\dbf_bhp\b2500.dbf COD_PRO 8157 053629
Encontrado em .\dbf_bhp\b2600.dbf COD_PRO 15384 053629
Encontrado em .\dbf_bhp\b2600.dbf COD_PRO 15401 053629
Encontrado em .\dbf_bhp\b2900.dbf COD_PRO 25971 053629
Encontrado em .\dbf_bhp\b3000.dbf COD_PRO 24751 053629
Encontrado em .\dbf_bhp\b3200.dbf COD_PRO 15278 053629