Erciley Junior

Ultra Edit

Fiz uma rotina criando um campo blob no mysql, salvando e restaurando com o fMime e funciona 101%. (postei no fórum antigo aliás, não sei se isso se perdeu) Abro o PDF com shellexecute, ou seja, a aplicação padrão (Adobe Reader) irá exibi-lo.

Olá Arthur. Não há nenhum trecho que é feito um select e criado um objeto? (tabela de funcionários, veja isso) Esse Fun pelo que entendi, era pra ser o objeto que recebeu dados de um select, como um sqlArray por exemplo. Digo isso pois está semelhante a C#.

http://alanart.net/fivewin/index.php?/topic/20993-jogar-foco-em-coluna-desejada-xbrowse-coluna-real-posicionada/

Boa tarde. Segue método, quase gambiarra, para setar o foco na coluna desejada do xBrowse. Não sei se na classe original há alguma forma de fazer isso, mas segue o que fiz para ter esse resultado, junto com o método para se saber a real coluna posicionada. METHOD SetColPos(nCol) //Erciley Junior 22/10/2012 - Ajustada em 23/04/2013 METHOD nRealCol() INLINE (::nColOffset + ::nColSel - 1) //Erciley Junior 21/11/2011 * * Jogar foco para coluna deseja no xBrowse * Erciley Junior 22/10/2012 - Ajustada em 23/04/2013 * METHOD SetColPos(nCol) CLASS TXBrowse LOCAL nCount:=0 LOCAL nOld:=0 ::GoLeftMost() WHILE .T. IF ::nRealCol() == nOld EXIT ENDIF nOld:=::nRealCol() IF ::nRealCol() < nCOL ::GoRight() ELSE EXIT ENDIF nCount++ IF nCount > 999 ::GoLeftMost() EXIT ENDIF ENDDO ::Refresh() ::SetFocus() RETURN Código para teste: oB23301:bKeyDown := {|A,B| b:=0, IF(A == 45, (MSGGET('','',@ , oB23301:SetColPos( ),.T.) } //INSERT

Olá Luiz, to fazendo um METHOD aqui, quando pronto eu posto ^^ (tá quase 100%)

@ SAY é para os fortes.

A entendi, pensei q não tinha visto. Veja esta outra rotina de e-mail, se lhe serve http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=18439

Isso Arthur, você carrega um arquivo (um layout / quadro todo feito) e aí só imprime/preenche as informações que precisa, não tendo que se preocupar em ficar desenhando box, etc.. Muito prático para relatórios mais detalhados.

Pesquise sobre imprimir WMF Você usa a classe TPrinter normalmente e vira um homem feliz da vida ^^

Olá Everton, quando se dá um use, não há porque dar erro de ENGINE. Poste o erro que a LIB gravou no SQLLOG.TXT, que é gerado na pasta onde está o executável.

Já resolveu? Fez a conexão com o banco?

Olá Everton. Não sei se o tópico que criei quanto a isso se perdeu (vou procurar)..., mas a SQLLIB faz isso internamente, você não vai conseguir alterar em todos os pontos. Para a criação das suas tabelas com DBCREATE sim, e para isso execute o comando no início do seu sistema apenas: SQLCreateFlags( 'ENGINE=INNODB' )

Uma forma fácil de tratar é no bKeyDown #include "InKey.ch" . . . oLbx:bKeyDown:={|a| IF( a == VK_LEFT , FUNCAO01() , .T. ); ,IF( a == VK_RIGHT , FUNCAO02() , .T. ); }

25 segundos é muito tempo, indexe isso. ^^ Para saber se o seu SELECT está "correto", ou seja, utilizando índices, utilize a função/comando EXPLAIN EXPLAIN select codigo from produto where nome...

Theotokos, se não resolver verifique o seguinte... Aqui já aconteceu isso trabalhando com 2 browses por exemplo Ao mover a setinha em um dos browses, o segundo era refeito, trazendo novas informações segurando o dedão na setinha pra correr os registros do primeiro browse, o segundo browse ficava sendo refeito a todo momento, e isso acabava ocasionando este erro.....

X2 Única coisa que acho interessante, é definir variáveis públicas no sistema com O NOME das tabelas do sistema.

Pelo que entendi você gostaria de REPLICAR as informações, é isso? Se for, é tudo configuração do mysql, pesquise sobre REPLICATE no mysql.

Use a dicas dos 2, crie um campo BLOB ou MEDIUMBLOB, use a função MemoRead para "capturar" a String e depois grave

Esse exemplo que postei funcionou perfeitamente no Fivewin usando SQLLIB. FUNCTION TESTE() LOCAL cSQL LOCAL aSQL cSQL:='SET @VAR_TESTE:="ABA"' sqlExecute(cSQL) cSQL:='call ecoeco(null,@VAR_TESTE)' sqlExecute(cSQL) cSQL:='SELECT @VAR_TESTE' aSQL:=sqlArray(cSQL) ?TOSTRING(aSQL) // OU VALTOPRG NATIVO RETURN

É simples... SET @var_teste:=1; call sp_sua( 1 , @var_teste ); select @var_teste; neste último select, será retornado o valor de sua variável, que foi modificado pela procedure. Qualquer coisa posta o código da procedure simplificado para ver o pq do erro.