kleyber

Grande Paulo, Compartilho com vc a mesma situação. Esta foi uma semana muito cheia de incêndios também, e o que me deixou mais chateado é que poderiam ter sido evitados pelos usuários (...). 1 - Em um sistema, na conversão dos dados para o sistema de escrita fiscal, tudo estava bem testado (aparentemente) e de repente o contador tinha esquecido de passar o arquivo pelo validador do Sintegra e aí vem me dizer que tinha dado erro, por causa da falta de atenção dele (mas sempre jogando a culpa no sistema, é mole?). 2 - Em outro sistema, como eu uso (ou melhor usava, já estou mudando) o tsbrowse exaustivamente, acabei descobrindo que ele tem um problema SERÃSSIMO de consumo de memória e que simplesmente faz com que o sistema caia sem gerar mensagem de erro algum. Só que esta semana quase todos os sistemas deram pau de memória e ainda não tive tempo de mudar todos os browses de TODOS os sistemas (ufa!) Como vêem, a coisa aqui também pegou nesta semana que graças a Deus está no fim. Abraço Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Fala Laurenti, Bom, é o seguinte: pra vc converter tuas tabelas dbf pra mysql vc primeiramente deve ter o mysql instalado e devidamente configurado na tua máquina, ou seja, deve ter já definido o host, o nome do banco de dados, o usuário e a senha. Após tudo isso definido no mysql vc coloca todas essas definições na tela de conexão com o banco, podendo até gravar essa configuração para outras conversões. Daí vc pode definir se driver usado pelo sistema em dbf usa arquivos memo e se é com CDX ou NTX (DBT ou FPT) e aí é só escolher todos os dbfs que queres migrar, podendo inclusive selecionar vários de uma só vez e aí é só conectar e enviar. Qualquer coisa, estamos por aqui. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Syda, citação:Já pensei na possibilidade de compilar com o xHarbour, mas empaca no problema de eu utilizar algumas ferramentas de terceiros que eu creio não existirem para xHarbour, entre estas ferramentas está a Visual Lib, a Flipper (que gera gráficos comerciais - Pizza, linha, etc)e a PageScript (geração de relatórios). A PageScript eu até consigo substituir, mas gerar gráficos ainda não encontrei nenhuma referência.Isto inviabilizou a simples mudança para o xHarbour. id=quote>id=quote>1 - Bom, falando sobre gráficos comerciais, tem a TGraph 2 que foi cedida pelo Alfredo Arteaga e alterada por mim, que faz todos os gráficos comerciais sem problemas no xHarbour, e imprime muito bem também. Qualquer coisa, Pega em dicas a TGraph 2 e podes me chamar no MSN pra qualquer dúvida. 2 - Por que você não cria esses índices uma só vez no teu sistema, ao invés de gerá-los somente na hora do processamento? Isso iria diminuir imensamente o tráfego na rede, como de gasto de CPU. O que achas? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Geraldo, Eu faço assim, usando o OLE do xHarbour: //----------------------------------------------------------------- Static Function CopyToExcel() // Gera uma planilha Excel a partir de um DBF //----------------------------------------------------------------- oExcel:= TOleauto():New( "Excel.Application") if Ole2TxtError() # "S_OK" MsgInfo("EXCEL não está instalado nesta máquina."+CRLF+"Impossível gerar planilha","ATENÇÃO") return nil endif oExcel:WorkBooks:Add() oFolha := oExcel:Get( "ActiveSheet") oFolha:Cells:Font:Name := "Arial" oFolha:Cells:Font:Size := 10 use vforn alias vfn new nX:=1 do while !eof() for nI = 1 to FCount() cCampo:=FieldName(nI) oFolha:Columns(nI):AutoFit() oFolha:Cells( nX, 01 ):set("NumberFormat","@") // (formato texto) oFolha:Cells( nX, 04 ):set("NumberFormat","0,00") // (Duas casas decimais) oFolha:Cells( nX, 05 ):set("NumberFormat","0,00") // (Duas casas decimais) oFolha:Cells(nX, nI):Value := &cCampo. next ++nX skip enddo oFolha:Cells( nX+1, 05 ):Value := "=SOMA(E1:E"+alltrim(str(nX-2))+")" oFolha:Columns(05):AutoFit() oExcel:Visible = .T. use RETURN NIL Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Fábio, if !IsInternet() oRas := RasDial():New(oWnd,@cEntry,@cUsuar,@cSenha) lCon:=.t. endif /*---- Funcao para Verificar se a Internet esta ativa ----*/ Static Function IsInternet() #define HKEY_LOCAL_MACHINE 2147483650 LOCAL oReg,lVar oReg:=TReg32():New(HKEY_LOCAL_MACHINE,"System\CurrentControlSet\Services\RemoteAccess") lVar:=oReg:Get("Remote Connection") IF VALTYPE(lVar)='C' lVar=BIN2N(lVar) lVar:=!lVar=0 ELSE lVar:=.F. ENDIF oReg:Close() return lVar STAT FUNCTION BIN2N(cBin) LOCAL N:=0,I FOR I=LEN(cBin) TO 1 STEP -1 n=n*256+ASC(SUBSTR(cBin,i,1)) NEXT RETURN n Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

citação: xBackupLite FreeWare... Dúvidas, Hablar com Kleyber Derick... hehehehehe. Eu sou Mal! id=quote>id=quote>Kapi, Você não é mal não... é só ardiloso (hehehe). Bom quem for alterar e/ou melhorar, não esqueçam de mandar as alterações pra mim também... hehehe Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

citação:Para usar o xHarbour acima da versao 0.99.51 com versoes inferiores do FWH 2.7 somente com a fivehc.lib disponibilizada com a alteracao da FiveTech. id=quote>id=quote>Muito bom saber disso. E a Fivehc.lib é disponibilizada gratuitamente ou só vem nos builds do FWH? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Simples: É que para vc identificar que os rádio pertencem a um grupo somente, deve-se marcar o primeiro deles como group e ele considera todos os demais que não tem group dentro desse grupo, até encontrar outro que seja marcado como group e assim por diante. Acho que é isso, qualquer coisa o Gilmer explica melhor que eu! (hehehe) Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Marcelo e demais colegas, Estava lendo este tópico e realmente não aguentei e vou colocar aqui minha opinião. Eu li a respeito do Delphi e realmente o que acontece é que o Delphi vai deixar de existir como linguagem de desenvolvimento pra ser, como disse o Marcelo Gomes, uma ferramenta de produtividade. Isso deixa espaço para o Fivewin crescer cada vez mais e isto é um fato! citação:o verdadeiro programador não aquele que escreve tudo na mão e sim o que sabe desenvolver independente da linguagem e sabe agradar o cliente fazendo um sistema bom confiavel e com uma boa estrutura id=quote>id=quote>Concordo com você, Marcelo Michels, mas em parte. Veja que quando eu ainda não conhecia o Fivewin, eu tentei aprender o Delphi. Tudo ia muito bem, muito fácil e rápido, até que chegou o momento onde tinha que reescrever a maioria das minhas rotinas. Então isto significa que teria que aprender (na época) o Pascal, pra poder escrever as rotinas específicas da forma como eu precisava, deixando de ser apenas um arrastar/clicar de botões e propriedades. O que acontece é que a grande maioria dos que usam Delphi sempre fizeram gozações e brincadeiras de mau gosto com os profissionais que, como eu, usava Clipper. É lógico que isso não faz do Delphi um vilão, mas faz de quem o defendia dessa forma indelicada, no mínimo execrável. Descobri o Fivewin, desenvolvo sistemas com ele, uso o xHarbour e se o Delphi está mudando, nós também sempre procuramos mudar pra melhor, tornando a nossa ferramenta cada vez maior e melhor.Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Felipe, No WS você deve fazer o seguinte: 1 - No radio 122 vc marca a opção GROUP 2 - No radio 125 idem E veja se funciona Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Guilherme, Você pode postar a rotina em questão pra podermos ver o que pdoe estar acontecendo? Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Christiano, citação:Também usava o xDev até que o pessoal aqui da firma comprou a vLib, a vLib tem de ser compilada antes das libs da Fivewin e com o xDev é impossivel... id=quote>id=quote>Não é impossível não... Pra isso basta que vc faça o seguinte: nas propriedades do projeto, ao invés de escolher o FIVEWIN, escolha CUSTOM GUI e dentro da aba LIBs, vc coloca as libs que vc precisa, colocando as libs que vc deseja que estejam ANTES das do FW e as outras. Dica: Se vc usa o xMate, pegue a sequencias das libs que está lá e coloque na definição das libs do xDev. Funciona 100% Espero ter ajudado, Abraço Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Fábio, Experimente assim: REDEFINE GET oGetCot[3] VAR vn_prod ID 32 OF oFld:aDialogs[7] PICTURE "999999" VALID (CHKPR(),.T.) Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Vagner, Pra vc descansar mesmo, só vindo pra S.Luis... hehehehehehe. Bom descanso, meu amigo. Abraços, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Leonardo, Até onde eu sei a VGet já traz por default um bitmap do lado direito. Se não me engano o nome é CALENDA1.BMP ou CALENDAR.BMP. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

wdellano, E porque não fazer isto diretamente no banco Oracle, tipo criar um campo somente para esta finalidade. Se a aplicação VB estiver usando o registro, este campo fica .T., se o FW estiver usando, idem, assim as duas aplicações veriam o mesmo campo com a mesma finalidade. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Realmente a VLib está e é fantástica. Grande Vagner, parabéns pelo trabalho feito. As minhas telas também agradecem (e muito!). Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Mais simples ainda: Vc clica com o botão direito em cima da(s) dialog(s) que vc quer, e escolhe a opção SAVE RESOURCES TO. Aí o resto é igual (criar DLG) e pronto Abraços, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Olá, Tem sim, basta vc salvar as dialogs da DLL que vc tem, como DLG (e pode ser diretamente na pasta da outra DLL) e dai abrir a nova DLL e inserí-las com a opção ADD TO PROJECT e pronto! Abraços, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Olá, O WS tem um recurso chamado EDIT AS TEXT. Faça isso em cada dialog e onde tiver um controle com o nome BORLAND, apague-o. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Olá Marcos, É simples. Dentro da rotina de inclusão, você manda gravar e ao invés de usar o oDlg:End(), você limpa as variáveis e manda o foco de volta ao primeiro campo. Daí você pode até usar um contador, etc. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Já postei lá também... e nada até agora. Vamos aguardar. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Pessoal, Algum de vocês trabalha com ferramentas CASE, como o CASE Studio 2? Eu vi que ele tem suporte a DBFs também, mas não tenho muita idéia de como usar-lo. É uma ótima ferramenta para definição das bases de dados, relacionemantos, etc. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Pessoal, Algum de vocês trabalha com ferramentas CASE, como o CASE Studio 2? Eu vi que ele tem suporte a DBFs também, mas não tenho muita idéia de como usar-lo. É uma ótima ferramenta para definição das bases de dados, relacionemantos, etc. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores

Pessoal, Algum de vocês trabalha com ferramentas CASE, como o CASE Studio 2? Eu vi que ele tem suporte a DBFs também, mas não tenho muita idéia de como usar-lo. É uma ótima ferramenta para definição das bases de dados, relacionemantos, etc. Abraço, Kleyber Derick xHarbour 0.99.4 + FWH 2.5 Visite São Luís - MA A Ilha dos Amores