PC Toledo

Em homenagem a Paulo Cesar Toledo
https://pctoledo.org/

Prescisando de Libs para xHarbour 1.0.0

https://pctoledo.org/viewtopic.php?t=10011

Página 1 de 2

Prescisando de Libs para xHarbour 1.0.0

Enviado: 03 Dez 2009 17:37
por frazato
Boa tarde a todos, estou mudando para a versão 1.0.0 do xHarbour e estou tendo problemas na geração de novas libs, gostaria de pedir para quem tem as seguintes libs compiladas me enviar:

Gtwvw.lib
HbZip.lib
Hbcomm.lib
Pdf.lib

Até baixei a basta da contrib(1.2.0) mais nao estou conseguindo compilar.

favor enviar para frazato@ibest.com.br

Obrigado.

Frazato

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 03 Dez 2009 22:02
por sygecom
A Contrib atual não compia com versões anteriores. Segue em anexo as lib's.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 04 Dez 2009 08:17
por frazato
Muito obrigado!

Frazato

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 04 Dez 2009 13:42
por frazato
Bom Dia, consegui gerar o novo sistema usando o xharbour versao 1.0.0 com as libs enviadas pelo Leonardo, ate consegui fazer uso da LetoDb.lib mais estou tendo alguns problemas na criação de arquivos temporarios:

Ate criar o arquivo temporario eu consigo atraves do comando.

DBCREATE('C:\TEMP\TESTE.DBF',ESTRU,"DBFCDX")

e indexa-lo.


Porem quando tenho que criar um indice atraves de um dbf aberto pelo letodb esta dando erro, estou usando os seguintes comandos:

SELE MOVIMENT
INDEX ON CODIGO TO C:\TEMP\TMP_001 WHILE ( IDFORNE==CFORNE)


Uso quase que em todo o sistema a criacao deste tipo de arquivos temporarios.


Obrigado..

Frazato

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 04 Dez 2009 22:30
por Itamar M. Lins Jr.
Ola!
SELE MOVIMENT
INDEX ON CODIGO TO C:\TEMP\TMP_001 WHILE ( IDFORNE==CFORNE)
Lembre-se que o LetoDb é cliente/servidor. Então variaveis "IDFORNE==CFORNE" não serão vistas pelo servidor.
O mesmo ocorre com o ADS e outros DB's afins.

Saudações,
Itamar M. Lins Jr.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 08:31
por frazato
Existe alguma maneira de utiziliar indice temporario com o LetoDbf ?


Frazato

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 08:58
por Itamar M. Lins Jr.
O LetoDb usa o RDDCDX/NTX do Harbour, então as clausulas do rdd for/while..., são válidas, mas sem uso de variaveis que possam não ser visiveis do lado do servidor.

Saudações,
Itamar M. Lins Jr.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 09:35
por frazato
SELE MOVIMENT
INDEX ON CODIGO TO C:\TEMP\TMP_001 WHILE ( IDFORNE==CFORNE)

Neste caso como faria para passar esse comando para o leto, sendo que:

IDFORNE e o campo do DBf
CForne e a variavel


Obrigado.

Frazato

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 12:09
por sygecom
Olá Frazato,
Se esse ALIAS MOVIMENT for local com DBFCDX então pode criar o indice local também com DBFCDX, que o LETO vai ignorar esse comando, mas deixe como DEFAULT O LETODB e use para criar e abrir os DBF temporario o comando VIA DBFCDX

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 13:03
por Itamar M. Lins Jr.
Olhe como estou usando:

Código: Selecionar todos

index on reduzida tag pl03 to planocta.cdx for tipo = 'A'
ou
index on descricao tag ct04 to contas.cdx for len(rtrim(conta)) = 6
É como o Sygecom explicou também.

Código: Selecionar todos

Local MinhaVar := 6
index on descricao tag ct04 to contas.cdx for len(rtrim(conta)) = MinhaVar via "DBFCDX"
ou
index on descricao tag ct04 to contas.cdx for len(rtrim(conta)) = 6 via "LETO"
Saudações,
Itamar M. Lins Jr.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 15:10
por carlos_dornelas
Sygecom,

Por acaso você não teria as libs hbprinter e minigui compiladas com o xharbour 1.0.0?

Antonio Carlos
Curitiba

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 05 Dez 2009 15:21
por sygecom
Olá Carlos,
Pior que não tenho, fico lhe devendo essa.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 07 Dez 2009 13:01
por frazato
Bom dia! estou a 2 dias tentando gerar um indice temporario com o WHILE e nada, estou usando o codigo abaixo, conforme descrito por colegas do forum mais nao funciona.

Frazato

Código: Selecionar todos

Function Main
Local cPath
Local cCodig 

    REQUEST DBFCDX
    RDDSETDEFAULT("dbfcdx")
    DBSETDRIVER("dbfcdx")

    REQUEST LETO
    RDDSETDEFAULT( "LETO" )

    cPath := "//192.168.27.200:2812\"

    IF leto_Connect( cPath ) == -1
       Alert( "Can't connect to server ..."+cPath)
    *   Return nil
    else
       ? 'Ok-Conectado'
    ENDIF


    SET PATH TO (cPath)


     Close All
           cCdx   := GeraCDXTmp()
           Inicio := dATE()-30
           Final  := DATE()

          SELE 1
               USE MOVIMENT NEW
               SET INDEX TO MOVIMENT



          SELE MOVIMENT
               OrdSetFocus('movimen2')
               Go top
               Seek '02763'
               If !Found()
                   alert('Nao localizado Item 02763')
               Endif

               //-- Funciona Legal

               Index on Codigo Tag Temporal to (cCdx) ;
                               While ( Codigo == '02763' )

               Dbedit(0,0,24,79)

               //-- Nao funciona
               cCodig := '02763'

               Sele Moviment

               cCdx   := GeraCDXTmp()


               Index on Codigo Tag Temporal to (cCdx) ;
                               While (codigo == cCodig)

               DBEDIT(0,0,24,79)

Close All
return nil


//------------------------------------------------
Function GeraCDXTmp()
Local nseq := Int(hb_random(10000))
Local cFile3
cFILE3 := "LET_"+StrZero(nSeq,4)
Return (cFile3)

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 08 Dez 2009 16:23
por Itamar M. Lins Jr.
Ola
Fica assim:

Código: Selecionar todos


Request DBFCDX,LETO
*****************
Function Main
*****************
*
*
Local cPath
Local cCodig 
Set AutOpen on

    RDDSETDEFAULT( "LETO" )

    cPath := "//192.168.27.200:2812/" //Aqui a barra é assim.

    IF leto_Connect( cPath ) == -1
       Alert( "Can't connect to server ..."+cPath)
    *   Return nil
    else
       ? 'Ok-Conectado'
    ENDIF

           cCdx   := GeraCDXTmp()
           Inicio := dATE()-30
           Final  := DATE()

          SELECT 1
               USE MOVIMENT NEW
               If Leto_file('moviment.cdx')
                   SET INDEX TO MOVIMENT
               Else
                  index ... via "LETO" //se for pelo LetoDb
               EndIf

          SELECT MOVIMENT
               OrdSetFocus('movimen2') //AQUI EU NAO ESTOU ENTENDENDO. Quais tags ?
               If !DbSeek('02763')
                   alert('Nao localizado Item 02763')
               Endif

               //-- Funciona Legal

               Index on Codigo Tag Temporal While ( Codigo == '02763' ) via "LETO"

               Dbedit(0,0,24,79)

               //-- Nao funciona
               cCodig := '02763'

               Sele Moviment

               cCdx   := GeraCDXTmp()


               Index on Codigo Tag Temporal   While (codigo == cCodig) Via "DBFCDX"

               DBEDIT(0,0,24,79)

Close All
return nil


//------------------------------------------------
Function GeraCDXTmp()
Local nseq := Int(hb_random(10000))
Local cFile3
cFILE3 := "LET_"+StrZero(nSeq,4)
Return (cFile3)
Saudações,
Itamar M. Lins Jr.

Re: Prescisando de Libs para xHarbour 1.0.0

Enviado: 09 Dez 2009 09:54
por frazato
Bom dia! Obrigado pela atenção!


Essas linhas de comando abaixo não chega a nem compilar quando utilizado o "VIA LETO" ou "VIA DBFCDX"

Desta Maneira:

Index on Codigo Tag Temporal While ( Codigo == '02763' ) via "LETO"
Index on Codigo Tag Temporal While (codigo == cCodig) Via "DBFCDX"

o curioso que consigo fazer filtro utilizando variaveis, tipo:

Set filter to CodigoItem==cCodigoItem

Obrigado pela atenção.


Frazato
sistema_jaf@hotmail.com
Todos os horários são UTC-03:00
Página 1 de 2

Powered by phpBB® Forum Software © phpBB Limited

Traduzido por: Suporte phpBB