PC Toledo

Código: Selecionar todos

Use Produto Alias Produto Shared New
DbSetIndex('Produto')
if Produto->( DBSeek( cCodigo ) )  // falar q a área não esta aberta sendo q a linha pra abrir esta acima... 
                                                       //Vejam q não tem logica pq não ocorre constante, eventualmente em uma linha tipo essa vem um relatorio de erro
   // Faz tal coisa
endif

Código: Selecionar todos

DBFCDX/1201.... Area não indexada (Sendo q esta)  Cheguei a fazer um MyDBSeek pra contornar isso onde:

#translate DBSEEK( <xpar> ) => MyDbSeek( <xpar> )
********************************************************************************
func MyDbSeek(xPar)
	if OrdNumber() == 0
		DbSetIndex(Alias()) 
	endif
	SEEK xPar
return Found()

Código: Selecionar todos

BASE/1003 Variavel Indefinida    Para comandos tipo Venda->Item 

Código: Selecionar todos

procedure MY_DBDELETE() // ROTINA PARA NA HORA DO DELETE SETAR O INDICE ZERO E MELHORAR A ESTABILIDADE DOS DBFCDX
	LOCAL nIdx := OrdNumber()
	while ! dbRLock() // antes era somente dbRLock() ai devido a dica de um colega do forum seria interessante dar uma pausa
		inkey(0.5)
	end
	dbSetOrder(0)
	dbDelete()
	dbCommit()
	dbSetOrder(nIdx)
	dbSkip( 0 ) // topic 16174
	dbUnLock()
return

Código: Selecionar todos

Use Produto Alias Produto Shared New
If !neterr()
   DbSetIndex('Produto')
   if Produto->( DBSeek( cCodigo ) )
   ...
   endif
Else
   // erro na abertura do arquivo
EndIf

Código: Selecionar todos

DbSetIndex('Produto')
if Produto->( DBSeek( cCodigo ) )

Código: Selecionar todos

IF .NOT. Encontra( cCodigo, "produto", "produto" )
   ...
ENDIF

FUNCTION Encontra( cChave, cAlias, cIndex )

   LOCAL nSelect, cOrdSetFocus, nSelect, nRecNo

   nSelect := Select()
   IF Select( cAlias ) == 0
      SELECT 0
     USE (sei lá qual arquivo)
     SET INDEX TO ( sei lá quais índices )
      WriteErrorLog( "Faltou abrir arquivo " + cAlias, 2 )
   ENDIF
   SELECT ( Select( cAlias ) )
   cOrdSetFocus := OrdSetFocus()
   OrdSetFocus( cIndex )
   SEEK cChave
   nRecNo := RecNo()
   lEof := Eof()
   OrdSetFocus( cOrdSetFocus )
   GOTO ( nRecNo )
   SELECT ( nSelect )

   RETURN .NOT. lEof

Código: Selecionar todos

IF .NOT. Encontra( cCodigo, "produto", "produto" )
 ...
ENDIF

FUNCTION Encontra( cChave, cAlias, cIndex )

 LOCAL nSelect, cOrdSetFocus, nSelect, nRecNo

 nSelect := Select()
 IF Select( cAlias ) == 0
   SELECT 0
  USE (sei lá qual arquivo)
  SET INDEX TO ( sei lá quais índices )
   WriteErrorLog( "Faltou abrir arquivo " + cAlias, 2 )
 ENDIF
 SELECT ( Select( cAlias ) )
 cOrdSetFocus := OrdSetFocus()
 OrdSetFocus( cIndex )
 SEEK cChave   //-------> Eventualmente ia dar erro aki, mesmo tudo pra cima estando certo, como se algo tivesse fechado a tabela/indice
 nRecNo := RecNo()
 lEof := Eof()
 OrdSetFocus( cOrdSetFocus )
 GOTO ( nRecNo )
 SELECT ( nSelect )

 RETURN .NOT. lEof

Código: Selecionar todos

if file('testeleto')
 ... trabalha via LetoDB... 
ELSE
    ... forma atual
endif.

Código: Selecionar todos

hb_ThreadStart( { || OcupaServidor() } )

FUNCTION OcupaServidor()
   LOCAL aFiles
  hb_gtReload( "WVG" )
   DO WHILE .T.
        aFiles := Directory("*.*")
      Inkey(60)
   ENDDO
   RETURN NIL

Código: Selecionar todos

Static pThread_01

Func Main()
   ...
   pThread_01 := hb_ThreadStart( { || OcupaServidor() } )
   ..

   hb_threadQuitRequest( pThread_01 )  // coloquei assim pq ao sair ficava executando ainda a Thread e não fechava ai mandei forçar o fechamento dela aki
   hb_threadWaitForAll()
return


***************************************
FUNCTION OcupaServidor()
 LOCAL aFiles
// hb_gtReload( "WVG" ) // Tirei pq imagino ser algo relativo a lib gráfica, e no meu caso seria apenas console puro
 DO WHILE .T.
    aFiles := Directory("*.*")
      tone(300, 4) ;     tone(300, 7)   // apenas em testes pra ouvir o comportamento da Thread
    hb_idleSleep(60) // se comportou melhor q o Inkey (aparentemente)
 ENDDO
 RETURN NIL