Jump to content
Fivewin Brasil

toya

Membros
  • Posts

    293
  • Joined

  • Last visited

  • Days Won

    15

Posts posted by toya

  1. Sugiro utilizares um contador de linhas baseado no tipo de folha que desejas imprimir (Retrato ou Paisagem), tamanho da pagina, SPACING utililizados nas linhas de detalhes, etc...

    Veja um dos exemplos em http://www.toyanet.com.br/rotinas.php'>http://www.toyanet.com.br/rotinas.php arquivo 0140

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

    Linux 2.4.29 - Slack 10.1

    Editado por - toya on 29/12/2005 07:01:45

  2. Mas que inveja "mardita" por não ter tido condições de participar pessoalmente. Como sempre falei, alguem tinha que ficar trabalhando na Senzala (!!!)

    Mas participei possibilitando 160 clicks atraves do link colocado na toyaNET.

    Como sempre deixei claro desde os velhos tempos, "O Clipper não morreu...", hoje continua respirando através de nós fivewiners

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

    Linux 2.4.29 - Slack 10.1

  3. Helio, em se tratando de comunicação com bombas de combustiveis, apesar de não teres mencionado a marca e modelo, tente algo por aqui:

    http://www.companytec.com.br:8080/download.php

    Tem algum material por lá que dá para teres alguma luz...

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

    Linux 2.4.29 - Slack 10.1

  4. Marcelo, No Workshop salve como .RES e depois abra no PellesC normalmente.

    Realmente, na versão anterior havia um bug ao tentar copiar de uma e colar em outra. Nesta versão não tenho mais me deparado com tal erro.

    Caso, os Text fiquem com aquele ar de "vitiligo", basta na Name colocar -1 que assume a cor do fundo.

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99 - MySql 5.0.12 Beta - SqlLib

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

    Linux 2.4.29 - Slack 10.1

    Editado por - toya on 03/11/2005 13:46:57

  5. Sugiro, apenas para evitar algumas coincidencias desagradaveis, não querendo emendar o Guru Evandro:

    if ".DOC"$upper(cArq)

    winexec( 'C:\Arquivos de programas\Microsoft Office\Office\winword.exe '+cArq )

    elseif ".XLS"$upper(cArq)

    winexec( 'C:\Arquivos de programas\Microsoft Office\Office\excel.exe '+cArq )

    endif

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

    Editado por - toya on 03/07/2005 22:29:47

  6. Não estou conseguindo descompilar utilizando a Hb_UnZipFile().

    Se utilizo: Hb_UnZipFile( '\dir1\dir2\zip\4001_20050503.zip',,,,'\dir1\dir2\txt\' ) o sistema aborta sem gerar o log de erro.

    Se utilizo: Hb_UnZipFile( '\dir1\dir2\zip\4001_20050503.zip',,,,'\dir1\dir2\txt\', ) o sistema passa pela função, porém, não descompacta nenhum arquivo.

    Estou utilizando a hbzip.lib.

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

  7. Teras que converte-las para .RES.

    1-Podes trabalhar varios arquivos *.RES

    2-Não sei dizer quanto ao brc.exe pois utilizo o xBuild, e o mesmo procede sem nenhum problema.

    3-o Pelles é o editor de recursos, dentre outras coisas, mas não um compilador.

    Obs.: Sugiro que quando houver duvidas de procedimentos os colegas informassem como estão procedendo para assim avaliarmos onde pode estar ocorrendo o erro de procedimento.

    toya

    toyasis@yahoo.com.br

    http://www.toyanet.com.br

    FWH 2.4+PellesC+xBuild+xHarbour.org 0.99

    FW 2.4+WS 4.5+Blinker 7.0+Clipper 5.2E

  8. Perdoem-me os gurus, mas acho que faltaram alguns detalhes.

    Segue abaixo o exemplo ajustado:

    function LeLinhas()

    local cTexto:='', cLin1, cLin2, cLin

    local x, y

    local oTxt1:=TTxtFile():New( 'arq1.txt' ),;

    oTxt2:=TTxtFile():New( 'arq2.txt' ),;

    oTxt3:=TTxtFile():New( 'arq3.txt' )

    for x=1 to oTxt1:reccount()

    cLin1:=oTxt1:ReadLn()

    cLin2:=oTxt2:ReadLn()

    cLin:=''

    for y=1 to len( cLin1 )

    cLin+=substr( cLin1,y,1 )+substr( cLin2,y,1 )+'0'

    next

    cTexto+=cLin+CRLF

    oTxt1:skip()

    oTxt2:skip()

    next

    oTxt1:Close()

    oTxt2:Close()

    if oTxt3:Open()

    oTxt3:add( cTexto )

    oTxt3:Close()

    endif

    msginfo( 'Operação realizada com sucesso','Parabens' )

    return nil

  9. Alexandre,

    elaborei o teste com a lib que vc enviou ao Evandro.

    Ocorreu o seguinte:

    Se executar a compactacao de um só arquivo ela efetua:

    Hb_ZipFile(cZip,'contabil.dbf')

    Mas, se utilizar um vetor, somente compacta o primeiro arquivo:

    cArq:=Directory( oVI:vpcPastaBanco+'ct_*.*')

    aFiles:={}

    set cent off

    cZip:=oVI:vpcPastaBanco+'becape\ct'+strtran( dtoc( dData ), '/','' )+'.zip'

    set cent on

    for x:=1 to Len(cArq)

    aadd(aFiles,cArq[x,1])

    next

    if hb_zipfile( cZip,aFiles )

    msginfo('Compactação executada com sucesso!!!')

    endif

  10. Estou usando xHarbour + XP e esta ocorrendo um erro ...GPF Ocurred quando da

    primeira vez executo a minha aplicação e logo em seguida processa

    normalmente mas gera o arquivo zip com zero bytes.

    Alguem poderia me ajudar ?

×
×
  • Create New...