oasys.info

Era só isso? Quebrei a cabeça. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Puxa vida! Esse erro tá difícil de resolver. Compilei o meu programa isolado, fora do sistema e ele roda, quando compilo junto com os outros programas, dentro do sistema ele não roda. O que será que é? Alguém já teve esse problema antes? Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Paulo, Agradeço a sua ajuda, mas continua dando erro, mesmo transformando a variável em privada. Se alguém conseguir compilar em xHarbour o exemplo que está em \fwh\samples\testbrar.prg já me ajuda. O exemplo compila e roda perfeitamente em Fivewin mas não roda no xHarbour. // Browsing a two dimensions array with FiveWin powerfull TWBrowse #include "FiveWin.ch" //----------------------------------------------------------------------------// function Main() local oDlg, oBrw local aData := { { "1", "Cliente", "=", "123456" },; { "2", "Direccion", "$", "Spain" },; { "3", "Telefono", "<>", "889977665" } } SET _3DLOOK ON DEFINE DIALOG oDlg FROM 2, 2 TO 20, 50 @ 1, 1 LISTBOX oBrw FIELDS aData[ oBrw:nAt ][ 1 ],; aData[ oBrw:nAt ][ 2 ],; aData[ oBrw:nAt ][ 3 ],; aData[ oBrw:nAt ][ 4 ] OF oDlg ; SIZE 150, 100 oBrw:SetArray( aData ) @ 10, 9 BUTTON "&End" OF oDlg ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED return nil //----------------------------------------------------------------------------// Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Jackson, O seu exemplo funciona perfeitamente no Fivewin 16bits, mas no xHarbour dá o mesmo erro. Por favor, veja se você consegue executar o meu exemplo aí. Obrigado. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Obrigado Kleyber pela dica, mas não deu certo, o problema parece que está no aFiles, deve haver alguma diferença entre o Fivewin+Clipper e o xHarbour. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Lá vai a função completa: O erro no xHarbour é: Erro BASE/1070 Argument error:= (na linha onde está o oof odlg size 200,100 Obrigado. ******************************************************************************************* ********************************** VISUALIZA RELATÓRIOS *********************************** ******************************************************************************************* FUNCTION VerRel() ******************************************************************************************* Local oDlg, oCbx, oBrw, n := 1 Local bFech Local cCombo := "Arquivos (*.prn)" Local cItens := { "Arquivos (*.prn)",; "Documentos (*.doc)",; "Textos (*.txt)"} // Verifica o acesso ao formulario // if !Acesso(PROCNAME(), .F. ) Return nil endif if Acesso("c_Para", ,.F. ) // verificar se tem acesso ao parametros cItens := { "Arquivos (*.prn)",; "Auditoria (*.aud)",; "Documentos (*.doc)",; "Textos (*.txt)"} endif HelpSetTopic(oaHelp(ProcName())) aFiles := directory( pDado+"*.prn" ) if len( aFiles ) < 1 aFiles := {{" ",0,CTOD(" / / ")," "}} endif asort( aFiles,,, { |x, y | x[1] < y[1] } ) SET _3DLOOK ON define dialog odlg from 2,2 to 18.5, 54.5 title "Selecione o arquivo na pasta "+pDado @ 0.4,0.5 listbox oBrw fields aFiles[n][1],; str(aFiles[n][2],10,0),; dtoc( aFiles[n][3] ),; aFiles[n][4] ; headers "Nome", "Tamanho", "Data", "Hora" ; fieldsizes 120,80,80,60 ; FONT oFontSay ; of odlg size 200, 100 oBrw:bGotop := { || n := 1 } oBrw:bGoBottom := { || n := eval( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant,; n := max( 1, min( n, eval( oBrw:bLogicLen ))),; n - nOld } oBrw:bLogicLen := { || len( aFiles ) } oBrw:cAlias := "Array" @ 6,16 BUTTON "&Consultar" of oDlg SIZE 30,12 ACTION Consulta(n) @ 6,22 BUTTON "Apa&gar" of oDlg SIZE 30,12 ACTION Apaga(oDlg,oBrw,cCombo,n) @ 6,28 BUTTON bFech Prompt "&Sair" of oDlg SIZE 30,12 ; MESSAGE "("+ProcName()+") - FECHA esta janela." ; ACTION oDlg:end() bFech:cToolTip="("+ProcName()+") - FECHA esta janela." @ 7.8, 0.5 COMBOBOX oCbx VAR cCombo STYLE CBS_DROPDOWN ; ITEMS cItens ; SIZE 80,50 ; ON CHANGE (AtuCombo(oDlg,oBrw,cCombo)) OF oDlg activate dialog oDlg centered ON INIT SetaBrw3d( oBrw ) SET _3DLOOK OFF return NIL Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Resolvi alterando o método SAY dentro do TDosPrn da seguinte forma: //----------------------------------------------------------------------------// ** SE Desejar que o sistema calcule uma nova linha, informe: ( nRow = -1 ) // OASyS METHOD Say( nRow, nCol, cText, lAToO ) CLASS TDosPrn DEFAULT lAToO := ::lAnsiToOem if nRow <> -1 // se foi especificada a linha e coluna // OASyS ::SetCoors( nRow, nCol ) endif // OASyS ::Write( cText, lAToO ) Return Self Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Descobri o motivo do erro. É quando uso o comando oPrn:EndPage() para uma página que já foi fechada. O Fivewin não pega esse erro mas o xHarbour sim. Vou revisar meus relatórios que estão apresentando esse tipo de erro. Obrigado a todos. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Meu objetivo é que o TDosPrn imprima sempre na mesma linha e na mesma coluna que a última impressão, por isso é que eu uso Say(-1, -1, "texto"). Exemplo: oPrn:Say( 1, 1, "Codigo ") oPrn:Say(-1, -1, "Descrição") O resultado fica assim: Codigo Descrição No fivewin funciona assim mas no xHarbour ele pula para a próxima página antes de imprimir a descrição. Esse é o meu problema. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Não uso nenhuma biblioteca de terceiros. O curioso é que alguns relatórios dão esse erro e outros não e eu não consegui ver diferenças neles. Obrigado, Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

O trecho abaixo não dá erro no fivewim mas dá no xHarbour, qual é a incompatibilidade? @ 0.4,0.5 listbox oBrw fields aFiles[n][1],; str(aFiles[n][2],10,0),; dtoc( aFiles[n][3] ),; aFiles[n][4] ; headers "Nome", "Tamanho", "Data", "Hora" ; fieldsizes 120,80,80,60 ; FONT oFontSay ; of odlg size 200, 100 oBrw:bGotop := { || n := 1 } oBrw:bGoBottom := { || n := eval( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant,; n := max( 1, min( n, eval( oBrw:bLogicLen ))),; n - nOld } oBrw:bLogicLen := { || len( aFiles ) } oBrw:cAlias := "Array" Obrigado, Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

O trecho abaixo não dá erro no fivewim mas dá no xHarbour, qual é a incompatibilidade? @ 0.4,0.5 listbox oBrw fields aFiles[n][1],; str(aFiles[n][2],10,0),; dtoc( aFiles[n][3] ),; aFiles[n][4] ; headers "Nome", "Tamanho", "Data", "Hora" ; fieldsizes 120,80,80,60 ; FONT oFontSay ; of odlg size 200, 100 oBrw:bGotop := { || n := 1 } oBrw:bGoBottom := { || n := eval( oBrw:bLogicLen ) } oBrw:bSkip := { | nwant, nold | nold := n , n += nwant,; n := max( 1, min( n, eval( oBrw:bLogicLen ))),; n - nOld } oBrw:bLogicLen := { || len( aFiles ) } oBrw:cAlias := "Array" Obrigado, Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

No Fivewin puro, para imprimir na mesma linha e na próxima coluna eu usava assim: oPrn:Say(-1, -1, TRANSFORM(wVrDocum,'@E 999,999.99') ) Funcionava certinho! Agora no xHarbour ele avança para a próxima página. O que devo fazer? Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

No Fivewin puro, para imprimir na mesma linha e na próxima coluna eu usava assim: oPrn:Say(-1, -1, TRANSFORM(wVrDocum,'@E 999,999.99') ) Funcionava certinho! Agora no xHarbour ele avança para a próxima página. O que devo fazer? Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Converti a minha aplicação recentemente para FwH+xHarbour e no preview de alguns relatórios aparece o seguinte erro: Error (6) deleting enhanced metafile Alguém sabe como corrigir esse erro? Obrigado, Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Converti a minha aplicação recentemente para FwH+xHarbour e no preview de alguns relatórios aparece o seguinte erro: Error (6) deleting enhanced metafile Alguém sabe como corrigir esse erro? Obrigado, Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Qual foi a solução? Isso é interessante. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Isso acontece também com o site do Unibanco. Enquanto ele estiver aberto não tem como rodar uma aplicaação xHarbour. Precisamos da ajuda do pessoal do desenvolvimento xHarbour. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Desconfio que é alguma coisa relacionada ao TSButton, pois o meu sistema trava no momento em que se abre a primeira tela que usa essa classe. Vou continuar testando por aqui e informo do resultado. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Desconfio que é alguma coisa relacionada ao TSButton, pois o meu sistema trava no momento em que se abre a primeira tela que usa essa classe. Vou continuar testando por aqui e informo do resultado. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Desconfio que é alguma coisa relacionada ao TSButton, pois o meu sistema trava no momento em que se abre a primeira tela que usa essa classe. Vou continuar testando por aqui e informo do resultado. Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Obrigado Ariston, Vou tentar com o Refresh() Oscar Ribeiro Fº OASyS Informática Itu - São Paulo Fwh27+xHarbour0.99.60+BCC55

Puxa! Eu estava com receio de colocar essa informação no fórum pensando que o problema era com a minha máquina, mas o problema é sério heim! Vamos tentar descobrir do que se trata. O pessoal envolvido no desenvolvimento do xHarbour e do Fwh pode nos ajudar? (OASyS) Oscar Ribeiro Fw27+xHarbour0.99.60+BCC55

Interessante João. É o BtnBmp. Gostei dele. Como é que eu dôu um efeito de XP nele? o xpmanifest não funcionou. (OASyS) Oscar Ribeiro Fw27+xHarbour0.99.60+BCC55

É muito estranho né Vailton! Alguma coisa fica na memória quando eu acesso o site do Unibanco. Fiz inúmeros testes e notei que a aplicação só volta a abrir se eu fizer um logoff no Windows ou fechar o site do banto e aguardar uns 3 minutos. Oscar Ribeiro (OASyS) Oscar Ribeiro Fw27+xHarbour0.99.60+BCC55