Rogerio Figueira

Olá Valdir me passe seu e-mail, que vou lhe enviar os dados de acesso ao meu servidor para você testar a conexão . []´s

Valdir, quando começo a aprender algo novo, vou de pouco em pouco, funcionando o "Olá Mundo!" eu passo adiante. Então minha proposta, pegue o código que passei antes, que repito aqui, crie um programinha só com ele, sem nada mais, só o básico. Tem que funcionar. Funcionando, então vai colocando mais funcionalidades, se der erro, vai saber onde foi . Estou fazendo assim no meu estudo para implementação do sql. Passo a passo. Então segue o código: #include "tdolphin.ch" #define CRLF Chr( 13 ) + Chr( 10 ) PROCEDURE Main() LOCAL oServer := NIL LOCAL cText := "" local cCmdSql , oQry IF ( oServer := ConnectTo() ) == NIL msgAlert("Erro de conexão") return nil ENDIF IF ! oServer:lError cText += oServer:GetServerInfo() + CRLF cText += oServer:GetClientInfo() msginfo(cText,"Server Info") ENDIF oServer:End() RETURN //---------------------------------------------------------- FUNCTION ConnectTo( ) LOCAL hIni LOCAL oServer LOCAL cServer, cUser, cPassword, nPort, cDBName,nFlags LOCAL oErr LOCAL cText := "" oServer := NIL cServer := "stt.com.br" cUser := "stf_zero" cPassword := "dxxxxxxj0" nPort := "3306" cDBName := "stf_cpw4" nFlags := "0" TRY CONNECT oServer HOST cServer ; USER cUser ; PASSWORD cPassword ; PORT nPort ; FLAGS nFlags; DATABASE cDBName CATCH oErr MsgInfo( oErr:Description ) RETURN NIL END IF ! oServer:lError cText += "Connection OK" + CRLF cText += "Host: " + oServer:cHost +CRLF cText += "Database: " +oServer:cDBName + CRLF cText += oServer:GetServerInfo() + CRLF cText += oServer:GetClientInfo() msginfo( cText ,"Dados da conexão ") ENDIF RETURN oServer //====================================== []´s

Aguiar já te mandei. Valdir, eu também desisti várias vezes, até que chegou a um ponto que não tem mais como deixar de usar o sql. Equivalente ao tempo que ainda trabalhava com Clipper e estudei tantas opções, até chegar no FiveWin, que quando criei o primeiro teste, uau funcionou!, foi depois tudo muito rápido. Então sobre o seu problema de conexão, mostre o seu fonte, vamos ver, deve ser alguma bobeirinha. []´s

Valdir, se você inclui a lib não precisa incluir as classes. Você está tentando acessar um banco de dados local ou na web? Pode passar o trecho de código da conexão? Aguiar a classe não é paga. No seu projeto você incluiu a lib com este endereço: e:\tdolphin\lib\xharbour\bcc\dolphin.lib tem certeza que está certo? []´s Rogerio

Valdir, na minha resposta acima, eu indiquei todas as libs que estou usando nesse projeto, quanto a isso, ok, pode colocar as mesmas. Você deve ter baixado a classe tDolphin do Daniel O link está aqui https://bitbucket.org/danielgarciagil/tdolphin/downloads Após instalar essa lib, veja na pasta samples os exemplos e na pasta source os fontes e detalhes diversos. Você deve criar a lib apropriada do tdolphin conforme a sua utilização do fw e harbour ou xharbou, 32 ou 64. Na pasta raiz da classe tem os .bat apropriados para cada caso. Como uso o xharbour e bcc usei o setenvx.bat que criou a dolphin.lib em lib\xharbour\lib Com isso instalado, pode fazer o primeiro prg só para testar a conexão: #include "tdolphin.ch" #define CRLF Chr( 13 ) + Chr( 10 ) PROCEDURE Main() LOCAL oServer := NIL LOCAL cText := "" local cCmdSql , oQry IF ( oServer := ConnectTo() ) == NIL msgAlert("Erro de conexão") return nil ENDIF IF ! oServer:lError cText += oServer:GetServerInfo() + CRLF cText += oServer:GetClientInfo() msginfo(cText,"Server Info") ENDIF oServer:End() RETURN //---------------------------------------------------------- FUNCTION ConnectTo( ) LOCAL hIni LOCAL oServer LOCAL cServer, cUser, cPassword, nPort, cDBName,nFlags LOCAL oErr LOCAL cText := "" oServer := NIL cServer := "stt.com.br" cUser := "stf_zero" cPassword := "dxxxxxxj0" nPort := "3306" cDBName := "stf_cpw4" nFlags := "0" TRY CONNECT oServer HOST cServer ; USER cUser ; PASSWORD cPassword ; PORT nPort ; FLAGS nFlags; DATABASE cDBName CATCH oErr ? hb_dumpvar( oErr ) RETURN NIL END IF ! oServer:lError cText += "Connection OK" + CRLF cText += "Host: " + oServer:cHost +CRLF cText += "Database: " +oServer:cDBName + CRLF cText += oServer:GetServerInfo() + CRLF cText += oServer:GetClientInfo() msginfo( cText ,"Dados da conexão ") ENDIF RETURN oServer //====================================== No exemplo acima, você deve trocar estes valores conforme os dados do seu banco já criado: cServer := "stt.com.br" cUser := "stf_zero" cPassword := "dxxxxxxj0" nPort := "3306" cDBName := "stf_cpw4" []´s

Valdir estou usando com o xHarbour. LIBFILES = E:\FWH13\lib\FiveHX.lib \ E:\FWH13\lib\FiveHC.lib \ E:\FWH13\lib\libmysql.lib \ E:\tdolphin\lib\xharbour\bcc\dolphin.lib \ E:\xHarbour123\LIB\HBZIP.LIB \ E:\xHarbour123\LIB\ZLIB.LIB \ E:\xHarbour123\lib\rtl.lib \ E:\xHarbour123\lib\vm.lib \ E:\xHarbour123\lib\gtgui.lib \ E:\xHarbour123\lib\lang.lib \ E:\xHarbour123\lib\macro.lib \ E:\xHarbour123\lib\rdd.lib \ E:\xHarbour123\lib\dbfntx.lib \ E:\xHarbour123\lib\dbfcdx.lib \ E:\xHarbour123\LIB\DEBUG.LIB \ E:\xHarbour123\LIB\HBSIX.LIB \ E:\xHarbour123\LIB\DBFFPT.LIB \ E:\xHarbour123\LIB\PCREPOS.LIB \ E:\xHarbour123\lib\common.lib \ E:\xHarbour123\lib\pp.lib \ e:\xHarbour123\lib\tip.lib \ e:\xHarbour123\lib\png.lib \ e:\xHarbour123\lib\libmisc.lib \ e:\xHarbour123\lib\codepage.lib \ e:\xHarbour123\lib\ct.lib \ E:\BORLAND\bcc582\lib\cw32.lib \ E:\BORLAND\bcc582\lib\import32.lib \ E:\BORLAND\bcc582\lib\PSDK\odbc32.lib \ E:\BORLAND\bcc582\lib\wininet.lib []´s

Valdir também estou nessa, depois de tanto protelar, vamos pro MySQL Optei pela opção do tDolphin, até agora, tranquilo, tenho conseguido fazer ir em frente. Estou optando por usar o BD na web, pois sei que deixar os usuários instalar e gerenciar o servidor e o BD só vai dar zica. Dá uma verificada aqui: http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31918&p=186782&hilit=tdolphin&sid=19cdf915c02568f63b6978de5705e36f#p186782 e aqui http://forums.fivetechsupport.com/viewtopic.php?f=6&t=31917 []´s

Caros, postei em Dicas, um zip com a classe MRboletos, funcional.

Já mandei. []´s

Eduardo implementei o MRboleto para um cliente que usa esse mesmo banco com esse tipo de cobrança e funciona bem. Tive que fazer alguns ajustes, eu tinha postado respostas aqui no fórum com solução, procurei agora, sumiram.... Me passa teu email que te mando a classe que uso. []´s

Caros utilizava há bastante tempo essa classe para mostrar o mapa do google maps do endereço do cliente. Agora, meus clientes estão reclamando e eu constatei que não abre mais o mapa na janela, apenas um aviso do google de que está sendo usado um navegador incompatível. Alguém usa essa classe e tem idéia do que aconteceu? []´s

Blz João, mas a classe que eu tinha te passado já está com o novo leiaute onde cedente é trocado por benificiário, sacado por pagador. Novas regras da central dos banqueiros. []´s

Estou usando xHarbour 1.2.3 Intl. (SimpLex) (Build 20130903) vou mandar no seu e-mail um ex. do prg que chama a classe. []´s

Atualize as libs haru, estou usando estas http://stonesoft.com.br/hb/Harupdf.zip

Estou usando tudo isto: LIBFILES = E:\FWH13\lib\Fivehx.lib \ E:\FWH13\lib\FiveHC.lib \ E:\XHARBOUR13\lib\rtl.lib \ E:\XHARBOUR13\lib\vm.lib \ E:\XHARBOUR13\lib\gtgui.lib \ E:\XHARBOUR13\lib\lang.lib \ E:\XHARBOUR13\lib\macro.lib \ E:\XHARBOUR13\lib\rdd.lib \ E:\XHARBOUR13\lib\dbfntx.lib \ E:\XHARBOUR13\lib\dbfcdx.lib \ E:\XHARBOUR13\lib\dbffpt.lib \ E:\XHARBOUR13\lib\hbsix.lib \ E:\XHARBOUR13\lib\debug.lib \ E:\XHARBOUR13\lib\common.lib \ E:\XHARBOUR13\lib\pp.lib \ E:\XHARBOUR13\lib\pcrepos.lib \ E:\XHARBOUR13\lib\ct.lib \ E:\XHARBOUR13\lib\zlib.lib \ E:\XHARBOUR13\lib\hbzip.lib \ E:\XHARBOUR13\lib\haru\hbhpdf.lib \ E:\xHARBOUR13\lib\haru\hbzebra.lib \ E:\xHARBOUR13\lib\haru\libharu.lib \ e:\xHarbour13\lib\tip.lib \ E:\XHARBOUR13\lib\haru\png.lib \ E:\BORLAND\bcc582\lib\cw32.lib \ E:\BORLAND\bcc582\lib\import32.lib \ E:\BORLAND\bcc582\lib\uuid.lib \ E:\BORLAND\bcc582\lib\psdk\odbc32.lib \ E:\BORLAND\bcc582\lib\psdk\rasapi32.lib \ E:\BORLAND\bcc582\lib\psdk\nddeapi.lib \ E:\BORLAND\bcc582\lib\psdk\msimg32.lib \ E:\BORLAND\bcc582\lib\psdk\psapi.lib \ E:\BORLAND\bcc582\lib\psdk\iphlpapi.lib \ E:\BORLAND\bcc582\lib\psdk\wininet.lib

Eu mandei a classe que uso no seu e-mail Tente com ela. Se ainda tiver erro, deve ser ref. alguma lib. []´s

Marcio, o arquivo remessa fiz no braço para itau, bradesco e santander. É fácil, tem que pegar os manuais e ir seguindo. Como depende do banco de de dados de cada um e das preferencias de cada usuário, acho melhor fazer no braço e personalizado. []´s

João, veja aqui a solução: http://fivewin.com.b...e-2#entry263917 []´s

João, MrBoleto roda com xHarbour sim. Estou usando ele, tranquilo. []´s

OK, obrigado a todos.

caros, está havendo um erro na criação das tags dhemi e dhsaient Estava usando a dica do Gilmer, montando as datas assim: Transf(DtoS(Date()),"@R 9999-99-99")+"T"+Time()+TimeZone() só que isso me cria um valor errado 2015-03-11T13:11:362015-03-11T13:11:36-03:00 repete data e hora parece que o erro está no retorno de timezone() se testo somente o retorno de timezone() retorna -3 uso o fivewin 14.01 e o xHarbour 1.2.3 Alguma dica? []´s

Oscar, Programa cgi pearl, pode ter extensão .exe ou .cgi ou .pl Nada a ver com os nossos .exe para windows.

Eu uso assim e nunca dá erro: DEFINE BITMAP oBmp FILENAME "fundo.bmp" ... ACTIVATE WINDOW oWmaster ; VALID MsgYesNo( "Deseja sair do programa ?", "Confirme!" ); ON PAINT ( BmpTiled( hDC, oWmaster, oBmp ) ) //--------------------------------- function BmpTiled( hDC, oWnd, oBmp ) local nWidth := oWnd:nWidth(), nHeight := oWnd:nHeight() local nRow := 0, nCol := 0, n local nBmpWidth := oBmp:nWidth(), nBmpHeight := oBmp:nHeight() while nRow < nHeight nCol = 0 while nCol < nWidth PalBmpDraw( hDC, nRow, nCol, oBmp:hBitmap ) nCol += nBmpWidth end nRow += nBmpHeight end return nil //--------------------------

Sim, seria fantástico. Estou perdendo clientes a cada dia, por não ter solução para Android.

Alessandro, já mandei no seu emai do hotmail.