Letodbf - problema ao usar console e hmg simultâneos

[Itamar M. Lins Jr.]

Ola!
Com o RDD LETO desligado funciona ? Abrindo pelo WVT e Minigui ?

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
O problema está aqui.

Código:

   lexcl:= iif(Type("lexcl") != "L", .F., lexcl)

Não sei pq vc fez isso. Essa variável é passada sem saber se é Logical, Numeric, Character... ?
A mensagem não é nem de erro, é "Arquivo não liberado..." O arquivo está sendo aberto de modo exclusivo e não foi fechado em outro processo. Só isso!

Saudações,
Itamar M. Lins Jr.

[Itamar M. Lins Jr.]

Ola!
Used() diz se está em uso pelo próprio programa, se abrir o DBF por dois programas diferentes USED não tem como saber, Pois os ALIAS não foi aberto pelo programa em questão. Vai retornar false sendo que outro desconhecido abriu.

Saudações,
Itamar M. Lins Jr.

[JoséQuintas]

Used() testa se tem arquivo aberto na área atual.
Se falhou pra abrir um novo arquivo, mesmo assim pode existir arquivo em uso.
Ou seja... não é um teste eficiente.
Se isso tem a ver com o travamento ou não... aí é outra história.

[JoséQuintas]

dbSetIndex( x ) retorna .F. se não conseguir abrir o índice.
Sem teste... grande chance de índice corrompido.

Como eu disse, precisa refazer a rotina de abrir arquivos.
Em caso de problemas, ela só vai contribuir pra mais problemas.

[Nascimento]

Itamar M. Lins Jr. escreveu :
Com o RDD LETO desligado funciona ? Abrindo pelo WVT e Minigui ?]

sim , sim com o rdd leto desligado funcionam todos os modulos wvt e minigui juntos

como falei estou em viagem , quando chegar vou procurar melhorar essa função que esta assim há mais de 10 anos desde
que era em puro clipper rsrs

não respondi antes porque onde eu estava , estava sem internet

[Nascimento]

Ranier escreveu :
Olá, posso fazer duas sugestões.
A primeira, use NetErr() ao invés de Used() para verificar se ocorreu erro na abertura,
além do que dbUseArea já retorna .T. se ok, e .F. se falhou, bastaria então:
lret = DbUsearea()
Mas, sempre usei NetErr com sucesso.

A segunda, sempre crie um tópico novo para questionar a respeito de outro assunto, mesmo que relacionado,
e sempre coloque [RESOLVIDO] para ajudar outros que estão passando pelo mesmo problema.

a primeira vou analizar direitinho, não respondi porque ainda estou em viagem e a net ta muito ruim, 2 dias funcionou poucas horas

sobre a segunda não solucionei por hora, muito embora eu ja fiz isso aqui, duvida e solução
mais a sugestão é muito boa

[Nascimento]

bom fiz as alterações que , os amigos me falaram troquei o comando "use()" por "neterr()"
modifiquei a parte que o nobre Itamar falou , mesmo assim continua o mesmo problema
ta dureza, amanhã posto as alterações que fiz nos 2 aplicativos o com o wvt e o outro com o minigui

explicando novamente, se eu usar sem o letodb em rede mapeada abro todos sem problemas o wvt e o com minigui ,
quantos módulos quiser , sem erro nem um em abertura, gravação em fim
so da problema quando é com o letodb, ja fiz as alterações como citei acima, mesmo assim o problema continua

[Nascimento]

é amigo até o limite do meu conhecimento em letodb eu fui
todas as sugestões aqui apresentadas eu fiz

foram elas:

passei as variaveis privates para locais

troquei o comando use() pelo neterr()

modifiquei esse trecho
de : lexcl:= iif(Type("lexcl") != "L", .F., lexcl)

para : hb_default(@lexcl,.f.)

mesmo assim o problema continua e como o amigo itamar perguntou , se era so com o letodb ligado sim só com o letodb ligado

em rede mapeada os 2 abrem normais , o compilado em semi console com wvt , e o grafico com a minigui

esta ai mostrando os 2 aplicativos um com wvt e o outro com minigui abertos simultaneos sob rede mapeada, sem problemas

[Itamar M. Lins Jr.]

Ola!
Eu não encontrei a sua configuração do LetoDB.ini

Saudações,
Itamar M. Lins Jr.

[Nascimento]

Itamar M. Lins Jr. escreveu :
Ola!
Eu não encontrei a sua configuração do LetoDB.ini

segue abaixo a configuração do letodb.ini

;Server = 192.168.2.47
;IP = 192.168.2.47
Port = 2812
DataPath = D:/Motel/Dados/
;LogPath = /tmp
Default_Driver = CDX
;Lock_Scheme = 6
;Memo_Type = FPT
Share_Tables = 0
No_Save_WA = 1
Lower_Path = 0
EnableFileFunc = 1
EnableAnyExt = 1
Allow_UDF = 1
Pass_for_Login = 0
Pass_for_Manage = 0
Pass_for_Data = 0
Pass_File = leto_users
Cache_Records = 21
;Max_Vars_Number = 1000
;Max_Var_Size = 67108864
;Tables_Max = 999
;Users_Max = 99
Debug = 1
Optimize = 1
;AutOrder = 0
;ForceOpt = 0
;TimeOut = 360
;Zombie_Check = 0
;Server_User = advantage
;Server_UID = 1000
;Server_GID = 4
;BC_Services = letodb;
;BC_Interface = eth2
;BC_Port = 2812
;SMB_SERVER = 1
DataBase =d:/Dados/
Backup = /tmp/backup
Mask = *.dbf,*.dbt,*.ntx
Lock = 1
Seconds = 30
Wait = 1
ArcCmd = tar -cvzf /tmp/backup/leto.tar.gz /tmp/backup/*

[Itamar M. Lins Jr.]

Ola!
Leia o "MANUEL" sempre!

Código:

Share_Tables = 0         -    other software simultanous access tables used by server,
                                    which changes logical or physical record locking -- in dependance:
                                    # No_Save_WA = 0
                                    0  server open all tables in exclusive mode, what leads to
                                       performance increase as e.g. record-/ file- locks are not applied by OS.
                                    1  tables are opened in the same mode [shared/exclusive] as client
                                       applications opened them, what allows LetoDB to work in coexistence with
                                       other applications [ non LetoDB users ] simultanous on the same DBF tables.
                                    # No_Save_WA = 1
                                    1  physical record-/ file- locks set with the OS are viewable for other
                                    0  only logical internally locking, don't respect other record locks
                                    * SAMBA: *
                                      co-work with Samba file-service needs very special treatment/ setup
                                      and have limits of possibilities -- see chapter 4.4


Vc está abrindo em modo exclusivo a tabela. (exclusivo pelo letodbf)

Saudações,
Itamar M. Lins Jr.

[Nascimento]

Itamar M. Lins Jr. escreveu:
Ola!
Leia o "MANUEL" sempre!

:-Y

parei o servidor leto modifiquei :
de Share_Tables = 0
para Share_Tables = 1

mesmo assim ainda continua o problema, lembro que ja fiz essa alteração antes segundo o "MANUEL" mais como não tinha surtido efeito eu
voltei ao que estava
em fim ainda quebrando a cabeça , perseverança :% sempre!!!

[JoséQuintas]

mesmo assim ainda continua o problema, lembro que ja fiz essa alteração antes segundo o "MANUEL" mais como não tinha surtido efeito eu voltei ao que estava

Faça outra tentativa.
Tudo indica que deve ser relacionado a isso.
Confirme também se a configuração alterada está no lugar certo.
E não custa lembrar, precisa reiniciar o servidor pra ele usar a nova configuração.
E se nos fontes está seguindo o uso compartilhado pra tudo, ou se deixou escapar algum em modo exclusivo.

[Nascimento]

JoséQuintas escreveu : E não custa lembrar, precisa reiniciar o servidor pra ele usar a nova configuração

Nascimento escreveu: parei o servidor leto modifiquei

parei o letodb modifiquei depois dei o start

eu acho que é algum detalhe na configuração do letodb que esta passando despercebido

posso estar equivocado, mais se fosse erro em abertura de banco e indice daria o mesmo erro na rede mapeada se tentasse abrir os dos "wvt" e o outro "minigui" funcionam perfeitamente
independente de quem eu abro primeiro faço todas as operações sem erros sobre a rede mapeada
ja no leto deu esse gancho rsrs, pra mim seria uma mão na roda os 2 funcionarem no leto, porque me daria mais tempo para portar outros modulos para grafico
mais vamos tentando!! rsrs