m.mac

Bom dia Angelo, O arquivo .QRP é gerado normalmente pelos programas em Delphi. No Delphi existe a possibilidade de adicionar alguns componentes no form que contêm o QuickReport que possibilitam ao usuário salvar o relatório para outros formatos. Eu tenho um aplicativo gerado em Delphi que abre os arquivos .QRP e salva em vários formatos como: .TXT, .CVS, .HTM, .PDF, .XLS, e outros... Estou enviando para o seu e-mail. Abraço, Marcelo Marcelo Alessandro ------------------ Fwh 7.01/xH 0.99.7/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá, no componente TLabel do Delphi existe uma propriedade chamada FocusControl cujo objetivo é associar um componente que receberá o foco quando eu teclar a sequencia ALT + teclaescolhida. Ex: Se eu definir o caption de um TLabel como &Nome e informar um componente TEdit qualquer no FocusControl do TLabel, quando pressionar ALT + "N" o foco vai diretamente para o TEdit. Como fazer isso em Fivewin ? Abraços, Marcelo xH 0.96/FW 2.7/xMate/MED Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá, no componente TLabel do Delphi existe uma propriedade chamada FocusControl cujo objetivo é associar um componente que receberá o foco quando eu teclar a sequencia ALT + teclaescolhida. Ex: Se eu definir o caption de um TLabel como &Nome e informar um componente TEdit qualquer no FocusControl do TLabel, quando pressionar ALT + "N" o foco vai diretamente para o TEdit. Como fazer isso em Fivewin ? Abraços, Marcelo xH 0.96/FW 2.7/xMate/MED Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá Valdir, Ok então, estaremos esperando no local combinado (Av. Cruzeiro do Sul, em frente a Entrada Principal do Estacionamento). Imprimirei uma folha com o logo do Fivewin para identificação. Segue um nro. de celular para contato em caso de emergência: (41)9975-9284 (Nelson). Se puder mandar o seu também seria bom. Abraço e obrigado ! Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

PESSOAL, ESTAMOS INDO EM 2 (DUAS) PESSOAS PRO ENCONTRO E ESTOU COM UM PROBLEMA DE ÚLTIMA HORA: A PESSOA QUE IRIA NOS RECEBER EM SP NÃO VAI MAIS PODER ESTAR LÃ. CHEGAREMOS NO TERMINAL TIETE POR VOLTA DAS 7:00H .. SERà QUE ALGUEM QUE VAI PASSAR POR Là TERIA DUAS VAGAS PRA CARONA AINDA ? ABRAÇO, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá, Laurenti, conferi a estrutura dos dados e está correta. Vailton, estou usando o xHarbour simplex 0.99.4 e não o 0.96, pode ser a versão ? E quanto ao FWH, funciona a SqlLib a partir de qual versão ? Abraços, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá, Kleyton ou outro amigo, alguém poderia compilar o exemplo postado anteriormente mas utilizando o xBrowse ao invés do Listbox e colar uma imagem da janela aqui ? Gostaria de ver como os dados são dispostos na tela pois para mim continua dando um erro na apresentação. Para usar o xBrowse no exemplo é só substituir a linha: @ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720 por: oBrw := TXBrowse():New( oDlg ) oBrw:cAlias := "Clientes" FOR i := 1 to FCOUNT() oCol := oBrw:AddCol() oCol:bStrData := {|| cValToChar( FIELDGET(i))} oCol:cHeader := FIELDNAME(i) NEXT i oBrw:nTop := 170 oBrw:nLeft := 2 oBrw:nRight := 450 oBrw:nBottom := 300 oBrw:nMarqueeStyle := 4 oBrw:SetRDD() oBrw:CreateFromCode() Obrigado, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá Geraldo, Na verdade eu estou conseguindo acessar normalmente, tanto a minha base local quanto a remota. Para mim, o programa se conecta à base remota do Vailton, abre a tabela clientes, tudo certo, mas na hora de exibir o ListBox a dialog apenas dá uma "piscada" na tela e já some, ou seja, tudo indica que seja nesta linha o problema: @ 01, 01 LISTBOX oLbx ... O mesmo ocorre quando tento exibir os dados no xBrowse, quando chega na linha oBrw:CreateFromCode() faz a mesma coisa. Vou tentar desinstalar o MySql e instalar novamente... já estou apelando pra qualquer coisa, :-) Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá, Evandro, o SqlLib.LOG (SqlLib) está vazio e o Error.LOG (FWH) tem apenas registros de erros de sintaxes, mas nada a ver com o problema comentado. Sérgio, segue o programa de teste que eu e o Evandro estamos analisando. Para mim, o programa se conecta à base remota do Vailton, abre a tabela clientes, tudo certo, mas na hora de exibir o ListBox a dialog apenas dá uma "piscada" na tela e já some, ou seja, tudo indica que seja nesta linha o problema: @ 01, 01 LISTBOX oLbx ... O mesmo ocorre quando tento exibir os dados no xBrowse, quando chega na linha oBrw:CreateFromCode() faz a mesma coisa. Parece até problema de Canvas. Alguma sugestão ? ----------------------- #include "FiveWin.ch" #include "sqllib.ch" #translate TRUE => .T. #translate FALSE => .F. REQUEST SQLLIB REQUEST MySQL Function Main() public oDlg public connect := true RDDSetDefault('MySQL') DEFINE DIALOG oDlg FROM 100, 100 TO 450, 600 PIXEL TITLE "SQL Lib" CLOSE ALL CheckConn() cCmdSql:='SELECT nome, cidade FROM cadacli ORDER BY nome' use sql cCmdSql alias cli new via 'MYSQL' dbselectarea("cli") dbgotop() @ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720 ACTIVATE DIALOG oDlg CENTERED return nil //======================================================================= function CheckConn() static hasconnected := false local host, db, user, pwd /* É para se conectar novamente, mas já existe conexão aberta?*/ if connect .and. hasconnected hasconnected := false SQL DISCONNECT end if /* Já se conectou e não precisa se conectar novamente...*/ if hasconnected .and. !connect return nil end if host := 'kssoftware.com.br' db := 'kssoftwa_sqllib' user := 'kssoftwa_sqllib' pwd := 'sqllib' SQL CONNECT ON host; PORT 3306 ; DATABASE db ; USER user ; PASSWORD pwd ; LIB "MySQL" hasconnected := true return ------------------------- Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá Evandro, Primeiro quero agradecer sua atenção e empenho. Segundo gostaria de pedir para encaminhar novamente o e-mail com o arquivo zipado, pois meu provedor bloqueou o .prg. Terceiro, acho que não consegui me fazer entender. Até concordo contigo que as linhas do exemplo que te passei podem gerar erro devido ao número de campos (2) da tabela da base do Vailton, o problema é que, mesmo que eu tire esta linha e coloque um simples MsgInfo("teste") o programa aborta, e aborta na linha "do while !eof()", ou seja, não chega a entrar no while. Assim: do while !eof() // <-- AQUI CAI FORA .. msginfo("teste") DBSKIP() enddo Se eu colocar um for/next funciona, eu já havia testado isso. O mesmo acontece nas outras situações citadas anteriormente (origem desse tópico), ou seja, quando vai instanciar o ListBox(1) ou o xBrowse(2). (1) @ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720 (2) oxBrw:CreateFromCode() Acredito que contigo este mesmo código funcione, por isso eu acho muito estranho, a não ser que houvesse alguma configuração de ambiente errada. Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Evandro, enviei o .PRG. O SQLLOG.TXT está vazio. Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Evandro, Continua o problema e não sei mais o que pensar.. Se o servidor MySQL está instalado e rodando, abro as tabelas tanto local quanto remota sem problemas, se o ambiente xH/FW está certo (pois rodo meus projetos normalmente) não entendo por que numa linha simples como um "do while !eof()" ou quando mando desenhar um ListBox ou um Browse com os dados o programa aborta... Já verifiquei e o MySQL não está gerando nada no arquivo de Log. Estou pensando na configuração do Servidor MySQL instalado na minha máquina. Como fiz a primeira instalação agora imagino que tenha algo que não esteja corretamente configurado. Você (ou o Vailton) saberiam me passar a configuração básica e correta pro servidor MySQL apenas pra verificar ? Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Olá Evandro, Quando digo que "deu crepe" não estou me referindo à apresentação mas sim que o programa aborta (encerra) nesta linha e volta o controle ao S.O. Quanto ao xBrowse ser compatível com FW confesso que fiquei preocupado quando o José Carlos questinou e não tinha observado que você já havia respondido quando perguntei ao Vailton, de qualquer forma obrigado ! Segue apenas o trecho alterado que fiz pra testes: ... dbselectarea("cli") dbgotop() do while !eof() //APENAS PARA EXIBIR OS DADOS msginfo(FIELDNAME(recno()) + " - " + cValToChar(FIELDGET(recno()))) DBSKIP() enddo @ 01, 01 LISTBOX oLbx FIELDS cli->nome, cli->cidade HEADERS 'Nome', 'Cidade' OF oDlg PIXEL SIZES 220, 720 ... Obs: Se coloco simplesmente "MsgInfo(cValToChar(FIELDGET(recno())))" exibe normal a informação ("AAAAAAAAAABBBBBBE") da base do Vaiton. Abraço, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Evandro, peguei o código que você postou e criei um novo .prg. Resultado: Conectou ao banco remoto normalmente, abriu a tabela sem problemas, mas... quando chegou na linha de montar o listbox (@ 01, 01 LISTBOX oLbx FIELDS ...) deu crepe !! Está muito estranho, observei agora que quando coloco um do while !eof() pra exibir os dados o programa aborta também... Poderia ser a configuração do meu servidor MySql ou do ambiente FWH ? ------------- E aí Vailton, o xBrowse é compatível com a SqlLib ? Abraços, Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5

Laurenti, obrigado pelas dicas. Porém acho que trabalhamos de formas diferentes, por exemplo, não uso recursos, não uso (por enquanto) browse com array e só uso xBrowse... :-) Estou relutando em trocar de classe browse pois já fiz vários ajustes no xBrowse e que pra mim ficaram bons. Meu problema está na hora de exibir o xBrowse. Carrego o servidor do MySQL, abro tabelas, exibo dados em outros objetos como o Combo por exemplo, mas quando chamo o método :CreateFromCode() do xBrowse o programa cai. Você tem algum exemplo de uso de xBrowse com RDD MySQL ?? Abraço Marcelo Alessandro ------------------ Fwh 2.7/xH 0.99.4/MED 3.02/xMate 1.15/Delphi 6.0/Firebird 1.5