RDD LETO Sem Mistério

[frazato]

Estou tentando usar o LetoDb, so que nao estou conseguindo gerar a lib, estou usando o xharbour 99.70, gostaria de saber se existem alguem que tenha a lib ja compilada para me enviar. Não estou usando a versao 1.00 do xharbour pois faco uso da Gtwvw, Pdf, Hbcom e fica muito trabalhoso ter que recompilar tudo novamente.



Muito obrigado pela atenção.


frazato@ibest.com.br


frazato

[sygecom]

Buenas,
Com a 9970 o LetoDB não funciona, acho que vale a penas você recompilar suas LIB, se se tiver com um pouco mais de tempo, já de uma olhada no Harbour que está voando baixo e com Letodb roda perfeito, tnato em Windows como Linux.

[Hasse]

Boa noite colegas.

Como não estou mais conseguindo compilar aplicativos com LetoDB acredito que estou com uma tremenda salada de versões, entre LIBS, CH's, etc..

Eu gostaria de tirar isto a limpo.

Alguém poderia fazer a gentileza de encaminhar para o meu e-mail o LetoDB (todos os arquivos auxiliares) compilado para BCC ? Não esquercer de informar qual a versão do xHarbour que devo usar para compilar o aplicativo.

Antecipadamente os meus agradecimentos.

ivo.hasse@fiomaq.com.br

[sygecom]

Olá Hasse,
Com xHarbour não está compilando a versão do CVS, a não ser que compile com a CFLAG: -D__OLDRDD__ , Isso faz ele compilar com uma compatibilidade antes de algumas mudança importantes para Harbour.
Eu compilei com a Versão 1.2.1 do xHarbour, coloquei em anexo o que acabei de compilar.

[Hasse]

Obrigado, Leonardo.

[asimoes]

Pessoal,

Estou tendo este problema na compilação com harbour já algum tempo, se não me engano até uma versão do dia 16/11/09 eu conseguia gerar a lib rddleto.lib e o letodb.exe

A atualizações partir desta data apresentam o erro abaixo.

Alguém está tendo o mesmo problema?

Confirmando foi uma atualização a partir do 16/11/09

Os fontes com problema:
errint.c (letodb)
hbapierr.h (harbour)

[]´s

Código: Selecionar todos

MAKE Version 5.2  Copyright (c) 1987, 2000 Borland
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\leto1.obj source\client\leto1.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\client\leto1.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\letomgmn.obj source\client\letomgmn.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\client\letomgmn.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\hbip.obj source\common\hbip.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\common\hbip.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\net.obj source\common\net.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\common\net.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\common_c.obj source\common\common_c.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\common\common_c.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\blowfish.obj source\common\blowfish.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\common\blowfish.c:
	D:\HARBOURX\bin\harbour.exe -iinclude;D:\HARBOURX\include -n -q0 -w -es2 -gc0 -d__WIN_DAEMON__   source\client\rddsys.prg -oobj\b32\rddsys.c
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\rddsys.obj obj\b32\rddsys.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\b32\rddsys.c:
	IF EXIST "lib\rddleto.lib" del "lib\rddleto.lib" > NUL
	TLIB "lib\rddleto.lib" /0 @MAKE0000.@@@
TLIB 4.5 Copyright (c) 1987, 1999 Inprise Corporation
+obj\b32\leto1.obj &
+obj\b32\letomgmn.obj &
+obj\b32\hbip.obj &
+obj\b32\net.obj &
+obj\b32\common_c.obj &
+obj\b32\blowfish.obj &
+obj\b32\rddsys.obj &
+
	D:\HARBOURX\bin\harbour.exe -iinclude;D:\HARBOURX\include -n -q0 -w -es2 -gc0 -d__WIN_DAEMON__   source\server\server.prg -oobj\b32\server.c
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\server.obj obj\b32\server.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\b32\server.c:
	D:\HARBOURX\bin\harbour.exe -iinclude;D:\HARBOURX\include -n -q0 -w -es2 -gc0 -d__WIN_DAEMON__   source\common\common.prg -oobj\b32\common.c
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\common.obj obj\b32\common.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
obj\b32\common.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\letofunc.obj source\server\letofunc.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\server\letofunc.c:
Warning W8004 source\server\letofunc.c 3053: 'pData' is assigned a value that is never used in function leto_Skip
Warning W8066 source\server\letofunc.c 4704: Unreachable code in function thread2
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\letoacc.obj source\server\letoacc.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\server\letoacc.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\leto_win.obj source\server\leto_win.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\server\leto_win.c:
	bcc32 -c -Iinclude;D:\HARBOURX\include -d   -tWM -D__WIN32__ -D__WIN_DAEMON__  -oobj\b32\errint.obj source\server\errint.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
source\server\errint.c:
Error E2356 source\server\errint.c 66: Type mismatch in redeclaration of 'hb_errInternalRaw'
Error E2344 D:\HARBOURX\include\hbapierr.h 171: Earlier declaration of 'hb_errInternalRaw'
Error E2356 source\server\errint.c 96: Type mismatch in redeclaration of 'hb_errInternal'
Error E2344 D:\HARBOURX\include\hbapierr.h 170: Earlier declaration of 'hb_errInternal'
*** 4 errors in Compile ***

** error 1 ** deleting obj\b32\errint.obj

[Hasse]

Boa tarde colegas.

F U N C I O N O U . . . . ! ! ! ! ) ) )

Instalei o pacote que o colega Leonardo (Sygecom) disponibilizou e imediatamente a compilação do aplicativo funcionou na primeira tentativa. É claro que também copiei os arquivos da pasta INCLUDE e LIB do LetoDB para as homônimas do xHarbour antes de compilar.

É evidente que havia alguma incompatibilidade entre o xHarbour, a Lib do LetoDB e os arquivos *.ch e *.h da pasta INCLUDE.

Obrigado a todos que colaboraram. :{ :{ :{

[alaminojunior]

Aproveitando o prestigioso tópico, pergunto aos colegas se seria possível a seguinte situação:

1º Possuo um cliente que possui duas lojas de vestuário;
2º Nestas lojas existe rodando, o meu sistema em xHarbour com DBFCDX;

3º Às vezes surge a necessidade de receber na loja 1, contas que o cliente contraiu na loja 2 e vice-versa, coisa que já foi superada por meio do TS;
4º Em outras ocasiões surge a necessidade de a loja 1, puxar os dados de um cliente que cadastrou-se na loja 2, e vice-versa, e essa é a questão:

Adiantando....

Por hora estou fugindo de ter de migrar tudo para o LetoDB ou MYSQL, em vista do tempo já demandado por outras coisas urgentes como
TEF e PAF.
Também está descartada por hora, a unificação do cadastro de clientes.

Enfim, seria possível continuar trabalhando com DBFCDX, e no momento de precisar transferir os dados de um cliente para outra loja, fazer esta transferência usando simultâneamente os recursos do LetoDB ?
Na prática, imaginei o seguinte:
Eu faço a consulta ao cadastro da outra loja via TS;
Encontrado o cliente desejado, eu armazenaria os dados cadastrais deste cliente e em seguida, em sentido contrário (da máquina remota para a local) o sistema que está na máquina remota, por meio do LetoDB appendava os dados no DBF local.
Não sei se me fiz entender, mas seria possível esta proeza ?

[asimoes]

Alamino,

Tente expor por meio de gráficos, acho que ficaria mais entendivel. Como por exemplo usando a figura de 2 computadores e a sequencia de transmissão/recepção de dados.

[]´s

[asimoes]

Hasse,

Eu baixei os fontes que o Sygecom disponibilizou, tentei compilar com harbour e não funcionou, apresentou ou erro.
Na versão da cvs, pelo menos gera a lib, o letodb.exe, não.

[alaminojunior]

Alamino,
Tente expor por meio de gráficos

Hare Baguandí, daí eu teria que fazer um curso antes.

Mas a idéia é simples:
Os dois sistemas (loja 1 e loja 2) estão trabalhando com xHarbour e DBFCDX;
Em dado momento, o usuário da loja 1 precisa consultar na loja 2 um determinado cliente nela cadastrado (coisa que já funciona atravéz de TS), e trazer o cadastro deste cliente para a loja 1.
Esse "trazer o cadastro" é que preciso resolver.
Aliás, pensando bem e deixando de lado a idéia do post anterior...eu poderia acessar o cadastro da loja 2 via RDDLETO , estando esta loja a usar o DBF com DBFCDX ?
Se me disserem que é possível, eu meto as caras.

[asimoes]

eu poderia acessar o cadastro da loja 2 via RDDLETO , estando esta loja a usar o DBF com DBFCDX ?

Alamino,

Sim perfeitamente, eu já fiz este teste e funciona.

Para isto você vai ter que usar um serviço de dns como por exemplo o no-ip ou dyndns.

Não esquecendo de liberar a porta 2812 no roteador.

Ficaria por exemplo assim: cServidorDB:='//meuservicodns.org:2812/'

Observação: Se você vai fazer consulta da base clientes, sem problemas, mas se for uma base muito grande, pode perder performance.

[]´s

[alaminojunior]

Legal então. Já tenho diversão para o resto da semana )

Observação: Se você vai fazer consulta da base clientes, sem problemas, mas se for uma base muito grande, pode perder performance.

Deve ter lá os seus 10000 registros.
Mas eu penso em:
No sistema e loja locais, ter um comando onde eu insira o cpf do cliente a consultar, e em seguida escolher em qual loja consultar. Esta escolha poderia ser feita num dbf onde tenha o seguinte:

Código: Selecionar todos

loja                   ip
loja 01              loja001.no-ip.info
loja 02              loja002.no-ip.info

Com isso o sistema local vai abrir a base de dados de clientes lá na loja remota, e fazer um seek pelo cpf informado, caso encontrar, eu appendo um novo registro na loja local com os dados remotos. Nem precisa exibir em browse, somente confirmar se existe o cpf ou não.
E para finalizar encerro a conexão e já elvis.

Se for isso mesmo ...

Obrigado pela força.

[asimoes]

Senhores,

Alguém já consegiui gerar o binário: letodb.exe com o harbour beta 3?
Desde a ultima atualização do harbour beta 3 de 16/11/2009, só gera a lib: rddleto.lib.

[]´s

[sygecom]

Olá Asimões,
Esse LetoDB, que postei está corrigido para rodar com xHarbour. Mandei para o Russo as alterações para ele commitar no CVS, mas ainda não me respondeu.
Com Harbour nem testei, mas baixe do ZERO do cvs do LetoDB, e tente compilar com o Harbour do SVN. Assim que sobrar um tempinho vou fazer isso.