Dois utilitários do LetoDbf

[Itamar M. Lins Jr.]

Olá!
Segue os dois gerenciadores do LetoDbf serve para monitorar as conexões "penduradas" na rede e os DBF abertos.
Tem como derrubar uma conexão (kill) Para não precisar desligar o servidor/serviço do Letodbf quando tem um arquivo dbf travado.(aberto em modo exclusivo) ou uma conexão da rede perde e não deixa abrir o DBF.
c:\letodbf\bin\console servidor

ou
c:\letodbf\bin\manage
Um é em console como o nome já diz e o outro é grafico em Hwgui.

manage.rar

(1.74 MiB) Baixado 93 vezes

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Nesta empresa tem 16 maquinas logadas usando DBF.
Emissão de NFe, NFCe... Entre outras coisas, movimento razoável de ENTRADAS e SAÍDAS milhares de registros em alguns DBFs
Todos os relatórios são praticamente instantâneos, o que demora alguns segundos são relatórios anuais de históricos de compra de clientes/mercadoria.
Servidor Core i5 16RAM(win10), rodava antes(chuva aqui na região queimou todo o CPU, até mouse/teclado queimou) com um i5 8Ram os dois com SSD.
Barramento trabalhando em 100 das placas de rede.(tenho até que ver isso) aumentar para 1000.
Nada especial nos aparelhos da rede, inclusive com acesso ao sistema via WIFI. (notebooks) Agora mesmo fiz essas telas de acesso ao sistema via WIFI.

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Olá!
Outras informações, para quem não entende o funcionamento do LetoDBf
Não tem pasta compartilhada, não é Terminal Service. É a mesma técnica de uso do MySQL, Postgree, etc. É um servidor acesso via TCP.
Não muda o "ANTIGO" código em DBF fica da forma que está. Pode mudar ou melhor acrescentar novas formas de criar indices uma vez que todo o processo de criação, inclusão, etc são REQUISIÇÕES ao servidor.
Mudança do DBF.

Código: Selecionar todos

//usando leto
 DbUseArea(.T.,"LETO",cDB,cAlias,.T.,.F.,'PTISO')
set index to &cIndice //Aqui opcional pode estar com "set autopen on"
//acesso tradicional sem o letodb
 DbUseArea(.T.,'DBFCDX',cDB,cAlias,.T.,.F.,'PTISO')
set index to &cIndice

Atenção com a troca que pode ser feita no INICIO(main) .prg

Código: Selecionar todos

RDDSetDefault("LETO") //Ao invés de "DBFCDX" 

Se usar assim o comando "USE" nem precisa mudar. Continua da mesma forma.
use clientes ... ; use fornecedores ...

Depois que conecta no servidor LetoDbf não muda mais nada nos fontes.
Para conectar no servidor:

Código: Selecionar todos

leto_Connect( cServidor )

Essa função retorna alguns números e tem um tratamento, estou procurando evitar encher a tela com códigos.
Basicamente é isso ai para usar LetoDb com nossos sistema em DBF.

Forma de indexar com for etc.

Código: Selecionar todos

cOrdBy  := "cod_client + dtos(vencimento) + cod_venda"
cQuery := " dtos(vencimento) >= '"+dtos(inicio)+"' .and. dtos(vencimento) <= '"+dtos(fim)+"' .and. cod_venda = " + "'" + cVenda + "'"
Index on &cOrdBy TAG re99 FOR &cQuery temporary ...

Mesma coisa do SQL, tem que "REVELAR" antes de mandar para o servidor o conteúdo das variáveis.

Código: Selecionar todos

"'" + cVenda + "'"

Saudações,
Itamar M. Lins Jr.

[RamonXHB]

Bom dia a todos !!!
Onde posso encontrar versão atualizada do LetoDBF
Gostaria de testar suas potencialidades para sistemas de pequeno porte, para redes pequenas.

[Itamar M. Lins Jr.]

Olá!

Onde posso encontrar versão atualizada do LetoDBF

https://pctoledo.org/forum/viewto ... 43&t=25904

Linux e Windows.

Saudações,
Itamar M. Lins Jr.