Prescisando de Libs para xHarbour 1.0.0

[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

[sygecom]

A Contrib atual não compia com versões anteriores. Segue em anexo as lib's.

[frazato]

Muito obrigado!

Frazato

[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

[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.

[frazato]

Existe alguma maneira de utiziliar indice temporario com o LetoDbf ?


Frazato

[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.

[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

[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

[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.

[carlos_dornelas]

Sygecom,

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

Antonio Carlos
Curitiba

[sygecom]

Olá Carlos,
Pior que não tenho, fico lhe devendo essa.

[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)

[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.

[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