Geraldo (gbsilva)

Pessoal gostaria de alterar alguns fontes para compilar condicionalmente dependendo da rdd usando um .ch, mas não deu certo. Criei um config.ch e usando #define para a constante da rdd, mas no prg não reconhece. Veja abaixo defini como rdd_sqllib, mas ao tentar o #ifdef ele não acha e compila após o #else. Aonde estou errando? Grato, No prg esta assim: #include "config.ch" #ifdef rdd_sqllib #Include "sqllib.Ch" #Include "sqlerror.ch" #Include "sqlevents.ch" #else #include "tdolphin.ch" #endif Function Main() ... comandos ... comandos return Grato, Conteúdo do config.ch //-> Usando TDolphin //#define rdd_TDolphin //-> Usando Sqllib #define rdd_Sqllib Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

É João parei por ai. Tem esse tópico no forum internacional, mas não sei se ajuda. http://forums.fivetechsupport.com/viewtopic.php?f=3&t=24236&p=131655&hilit=toexcel#p131655 Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Assim deve funcionar. Incluir novo campo ALTER TABLE ADD CHAR(1) ; Alterar campo ALTER TABLE MODIFY CHAR(20) ; Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Certo João eu não uso o report, mas imagino que voce deve criar um objeto para o relatório. No xBrowse com array esse método gera um excel de tudo que tiver no objeto/array, será que não seria a mesma coisa no report, tudo que tiver no objeto ele vai gerar um excel desses dados. local oRel .... comandos //-> Usando tecla F9 SETKEY(VK_F9,{|| oRel:ToExcel() }) Vi no meu five e tem vários defines, acho que só testando mesmo. Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

João voce já esse método no xBrowse, será que não seria mais ou menos igual. REDEFINE SBUTTON oExporta ID 702 RESOURCE "22_EXCEL" PROMPT "Exportar [F9]" OF oDlg ACTION (oBrw:ToExcel() ) Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

João obrigado pela resposta e quanto ao uso em alguns módulos e outros não isso pode ser feito. Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal estou com dúvida em relação a utilização de transações em mysql e também algumas em relação ao uso com a Sqllib. Exemplo usando Sqllib SQLBeginTrans() TRY Grava/Altera CATCH SQLRollBack() END SQLEndTrans() Commit //-> preciso fazer isso 2 - Posso utilizar ao longo do sistema rotinas com transações e outras sem e usar somente TRY/CATCH por exemplo. 3 - Esta correto usar esses comandos "Start Transaction" TRY ... gravar CATCH "Rollback" END ??? Como não achei um comando para encerrar o "Start Transaction" um "commit" além de gravar fecha a transação id=code>id=code>Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal estou com dúvida em relação a utilização de transações em mysql e também algumas em relação ao uso com a Sqllib. Exemplo usando Sqllib SQLBeginTrans() TRY Grava/Altera CATCH SQLRollBack() END SQLEndTrans() Commit //-> preciso fazer isso 2 - Posso utilizar ao longo do sistema rotinas com transações e outras sem e usar somente TRY/CATCH por exemplo. 3 - Esta correto usar esses comandos "Start Transaction" TRY ... gravar CATCH "Rollback" END ??? Como não achei um comando para encerrar o "Start Transaction" um "commit" além de gravar fecha a transação id=code>id=code>Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Opa agradeço ao dois e Daniel pode ter certeza que a expressão do Erciley foi em tom de brincadeira sobre comandos DBF. Diante das observações dos amigos, vou rever esse módulo, porque só trava esse módulo e ao gravar numa tabela específica se não diria que o problema é no servidor, mas todas as outras rotinas continuam funcionando. Assim que tiver novidades posto aqui e Daniel se precisar vou incomodá-lo sim obrigado. Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Erciley fiz um teste hoje quando ocorreu o erro, mas direto no EMS, não sei se fazendo via código será diferente, mas retornou só essa mensagem. ===========INNODB MONITOR OUTPUT ========================== Vou testar depois via código exatamente sobre o registro quando der o erro. Quando tento alterar direto via EMS não consigo alterar nada e retorna o seguinte erro: "Lock wait timeout exceeded; try restarting transaction" Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Daniel obrigado pelo retorno, mas a resposta é não, eu não atualizei é a mesma versão. Erciley vou testar assim que der o pau, porque isso não ocorre todo dia e isso é o mais complicado, porque as vezes acontece as vezes não. Obrigado ao dois vou postando assim que tiver mais dados. Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Erciley exatamente como devo colocar isso no meu código dentro do TRY/CATCH e se sim como executar essa linha de código. Obrigado pelo retorno, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal estou com um problema numa tabela do mysql no mínimo estranho. Tenho uma rotina de gravação que de vez em quando trava por excesso de tempo e não grava. O engraçado é que isso só ocorre em um ponto do sistema e em apenas uma das tabelas. Não é erro no código por 2 motivos um é que o mesmo usado em outras etapas de gravação do sistema e outro é porque quando ocorre isso não consigo alterar nada na tabela direto no banco através do EMS. Já fiz testes nas tabelas, cheguei inclusive a criar uma nova tabela com outro nome e fiz uma rotina para passar os registros para a nova tabela e mesmo assim o problema persiste. O sistema possui várias tabelas e algumas delas muito maior que essa e nunca dá erro. Alguem teria alguma idéia do que poderia ser? Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal estou com um problema numa tabela do mysql no mínimo estranho. Tenho uma rotina de gravação que de vez em quando trava por excesso de tempo e não grava. O engraçado é que isso só ocorre em um ponto do sistema e em apenas uma das tabelas. Não é erro no código por 2 motivos um é que o mesmo usado em outras etapas de gravação do sistema e outro é porque quando ocorre isso não consigo alterar nada na tabela direto no banco através do EMS. Já fiz testes nas tabelas, cheguei inclusive a criar uma nova tabela com outro nome e fiz uma rotina para passar os registros para a nova tabela e mesmo assim o problema persiste. O sistema possui várias tabelas e algumas delas muito maior que essa e nunca dá erro. Alguem teria alguma idéia do que poderia ser? Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal resolvido, usei get multine para apresentar o texto. Por enquanto fica assim mesmo. Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal preciso mostrar 3 campos e um deles é tipo text do mysql, pensei em usar a FGET, mas fiquei meio perdido, gostaria de saber se com xBrowse dá para fazer sem muito sofrimento. Campos a serem apresentados DATA | CÓDIGO | Campo Text Existe como definir as linhas, mas não é isso que preciso, pois por ser um texto não gostaria de fixar com oBrw:nDataLines. Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Pessoal preciso mostrar 3 campos e um deles é tipo text do mysql, pensei em usar a FGET, mas fiquei meio perdido, gostaria de saber se com xBrowse dá para fazer sem muito sofrimento. Campos a serem apresentados DATA | CÓDIGO | Campo Text Existe como definir as linhas, mas não é isso que preciso, pois por ser um texto não gostaria de fixar com oBrw:nDataLines. Grato, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Opa desculpe link errado. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17839 Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Beto te enviei via e-mail, mas vai aqui também. Não sei se vai ajudar e nem sei se dá para acessar Firebird, mas ai vai. http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=21085 Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Por nada Luiz eu praticamente só uso array, uma vez tentei usar 2 browses com array e não consegui, acabei não usando. E ainda vou precisar e quando se tiver eu é que vou precisar de umas dicas suas rsss.... Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Luiz tente assim uma ou as duas opções abaixo. a variavel wAT já é a linha do primeiro browse, deveria dar certo. // AQUI É AONDE DOU O VALOR nSql[wAT,04]:=aSql[oBrw1] // codigo da regiao nSql[wAT,05]:=aSql[oBrw1] // nome da regiao ? vari1[wat,04] // aqui confirmo que realmente o valor da matriz esta certa //-> incluir aqui a linha e não pode perder o conteúdo pois voce já testou Afill(nSql[wAT],nSql[wAT,04],4,1) oBrw:refresh() ? 'aqui' endif ou tente assim incluir uma variável local na função pregiao() local cCodigo:=space(3) cCodigo := aSql[oBrw1] Afill(nSql[wAT],cCodigo,4,1) oBrw:refresh() id=code>id=code>Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Luiz faltou uma coisa a posição da primeira array no browse, ser for em um for/next. for i = 1 to ? Afill(nSql,nSql[wAT,04],4,1) next oBrw:refresh() se não acho que assim pode dar certo. Afill(nSql[oBrw],nSql[wAT,04],4,1) oBrw:refresh() Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Luiz voce tentou com Afill(). Afill(nSql,nSql[wAT,04],4,1) oBrw:refresh() Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Yury essa sqllib é a free? Se for acho que ela não grava com comando xbase, voce teria que usar comandos sql. Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP

Edilson mostra como voce esta fazendo e quando voce inclui voce quer que o cursor vá para o registro inserido no browse é isso? Sds, Geraldo B. Silva Fwh1112 Novembro/2011, xHarbour 2.0, Bcc582, Pelles, xDev, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP