Jmsilva

Parece que o problema está oBRW:nLEN MUDE oBrw:aCols[9]:bStrData := {||mDad[oBrw]*(mDad[oBrw]-mDad[oBrw])} //nEditType := EDIT_GET PARA: oBrw:aCols[9]:bStrData := {||mDad[oBrw]*(mDad[oBrw]-mDad[oBrw])} //nEditType := EDIT_GET

Adicione uma coluna no browse..ex: coluna 5 oBrw:aCols[5]:bStrData := {|| TRANSFORM(Qtde*(Preço - Desc),"@E 99999.99")}

Oscar, qual versão do xHarbour que vc usa? o meu é 1.2.1 (Rev. 9411)

Pelos que vejo faltam: \Borland\Bcc582\lib\c0w32.obj + \Borland\Bcc582\lib\psdk\import32.lib + tem que ter tb as duas libs: hbzip e zlib Editado por - JMSILVA on 27/01/2012 13:13:36

Olá alex2002 e demais, Me expressei mal, quis dizer que não me sinto a vontade em usar o MySQL, coisa de aprendiz, mas quanto a SQLLIB sei que é show não tenho nenhum problema. Por favor não ria, para se ter ideia, já formatei uma máquina por causar do MYSQL....mas chego lá. Nas pesquisas que fiz na NET, também pelo comentário dos amigos no fórum, tenho comigo que a melhor solução free de BD é o MySQL com SQLLIB. Vailtom, caso tenha entendido de outra forma me desculpe, você sabe, depois que adquirimos o seu produto, mandei um e-mail parabenizando pelo projeto. Editado por - JMSILVA on 27/01/2012 12:50:16

Quando eu mudei, parece que resolvi o problema assim: Exclui do projeto a lib HBZIP.LIB Inclui no projeto a lib zlib.lib //harbour Inclui no Projeto a lib iphlpapi.lib //bcc582/lib/psdk espero ter ajudado....

Olá, ainda uso DBF, até momento só fiz teste com o MySQL usando a lib SQLLIB, mas ainda não tenho segurança. Em pesquisa pela Net, vi q Antonio Linhares disponibilizar o SqlWin.prg diz que é free. A duvida é: - free RDD for SQL é uma LIB? - Já está inclusa na Fivewin? - ou onde posso baixar ? - Alguém tem teste que funciona ? Vi que que acessa vários bancos de dados... Desculpe, mas como disse ainda sou leigo SQL.

Olá, ainda uso DBF, até momento só fiz teste com o MySQL usando a lib SQLLIB, mas ainda não tenho segurança. Em pesquisa pela Net, vi q Antonio Linhares disponibilizar o SqlWin.prg diz que é free. A duvida é: - free RDD for SQL é uma LIB? - Já está inclusa na Fivewin? - ou onde posso baixar ? - Alguém tem teste que funciona ? Vi que que acessa vários bancos de dados... Desculpe, mas como disse ainda sou leigo SQL.

Olá Gilberto, dei a dica com base na sua rotina, mas tinha visto que ela consomé muito processamento sem necessidade, então vou fazer um ajuste na sua rotina, e vc faz o teste, vai ver a diferença, ok. Segue sugestão: *-----------------Function Indexar()*----------------- //ABRE O ARQUIVO EM MODO EXCLUSIVO, ASSIM VC ELIMINA O TRAVAMENTO DO ARQUIVO DbUseArea(.t. , wRddDad , cTabela , cAlias , .F. ) __dbPack() // nPercReg := RecCount() * nTags // 10 * 3 = 30 oProgress:SetRange(0,nPercReg) oProgress:SetPos(0) ProgressIdx(0) //para iniciar a variavel // Index on &cChave1 TAG &cTag1 TO &(cIndice) WHILE ProgressIdx() // 1a Tag Index on &cChave2 TAG &cTag2 TO &(cIndice) WHILE ProgressIdx() // 2a Tag Index on &cChave3 TAG &cTag3 TO &(cIndice) WHILE ProgressIdx() // 3a Tag // Return(Nil) // // *---------------------------------------------- Static Function ProgressIdx(xPAR) *---------------------------------------------- STATIC _Atual if PCount() > 0 //para iniciar a variavel _Atual := 0 Return(.T.) endIf // _Atual++ oProgress:SetPos(_Atual) SysRefresh() Return(.T.) Editado por - jmsilva on 27/01/2012 10:40:44

Seguindo a sua linha de raciocinio, neste caso sugiro: Index on &cChave1 TAG &cTag1 TO &(cIndice) WHILE ProgressIdx(RecNo(),nPercReg,nTags) // 1a Tag Index on &cChave2 TAG &cTag2 TO &(cIndice) WHILE ProgressIdx(RecCount()+RecNo(),nPercReg,nTags) // 2a Tag Index on &cChave3 TAG &cTag3 TO &(cIndice) WHILE ProgressIdx((RecCount()*2)+RecNo(),nPercReg,nTags) // 3a Tag Assim imagine que o dbf tem 100 registros, no primeiro indice ele vai até 100, no segundo vc soma 100(=Reccount())+reg atual, ele vai 101 ate 200, no terceiro vc dobra 200 (=reccount()*2) + rec atual, vai do 201 ao 300. Ai é só aplicar a regra três simples....

Olá amigo, analisando parte de seu codigo postado, na função "ProgressIdx(_Registros)", ela recebe parametro e quando vc chama vc passa sem parametros,"Index on &cChave TAG &cTag TO &(cIndice) WHILE ProgressIdx()", logo, neste caso _Registros vai ser sempre zero. Sugiro que vc altere: nRegistros := RecCount() para; nRegistros := RecCount() * Número de TAG se for mais de um indice. Index on &cChave TAG &cTag TO &(cIndice) WHILE ProgressIdx() para; Index on &cChave TAG &cTag TO &(cIndice) WHILE ProgressIdx(nRegistros) veja se ajuda.

citação:Olá J.M. Silva. Pelo que entendir a função FParseEx() carrega em um array o conteúdo do arquivo texto, onde cada linha do array é um linha do texto e cada coluna do array é uma coluna do texto. Correto? Grato correto.... id=quote>id=quote>

Amigo, aparentemente a linha abaixo está incorreta: sql_cmd = "INSERT INTO cadastro (Login,Telefone,Endereco,Senha) VALUES (cLogin,cTelefone,cEndereco,cSenha)" tente assim: sql_cmd = "INSERT INTO cadastro (Login,Telefone,Endereco,Senha) VALUES ('"+cLogin+"','"+cTelefone+"','"+cEndereco+"','"+cSenha+");"

Obrigado amigos, resolvido. valeu....

Alguém tem ideia de qual lib precisa no meu projeto? Error: Unresolved external 'GetAdaptersInfo' referenced from C:\XHARBOUR\LIB\FIVEHC.LIB|NETCRDID 0 Files, 0 Warnings, 1 Errors Compile time: 0.00s Link time: 1.30s Total time: 1.61s

Alguém tem ideia de qual lib precisa no meu projeto? Error: Unresolved external 'GetAdaptersInfo' referenced from C:\XHARBOUR\LIB\FIVEHC.LIB|NETCRDID 0 Files, 0 Warnings, 1 Errors Compile time: 0.00s Link time: 1.30s Total time: 1.61s

Olá, uso assim: //segundo parametro é o separador.. //pode ser virgula, ponto e virgula, depende aDADOS := FParseEx(cFile,";") IF LEN(aDADOS) == 0 ; RETURN .F. ; ENDIF TMP->(DBZAP()) FOR nCT:=1 TO LEN(aDADOS) TMP->(DBAPPEND()) TMP->campo1 := aDADOS[nCT,1] ... NEXT

O problemas é simples, mas não consegui resolver ainda.... No primeiro Get do FolderEx, as vezes dou click mas não permite entrar com dados, fica parecendo que está READONLY (mas não está), dou outro click ai ele permite editar, se der um outro click novamente volta ao status anterior, e assim por diante..... Como está td funcionando apenas vou orientar o usuário, mas caso alguém tenha a solução...a propriedade readonly do objeto GET está .f., ela não muda. Outro fato, que após o último GET do Dialog, mando ir para o primeiro Get do FolderEX, como segue: oGetDlg:bLostFocus := {|| oFldGet1:Setfocus()}... O primeiro Get do FolderEx recebe o Focu, mas o cursor não fica intermitente e tb não digita (conforme citado)..., somente com click sobre o mesmo Get e que ele permite editar. Obrigado, Amigos!

O problemas é simples, mas não consegui resolver ainda.... No primeiro Get do FolderEx, as vezes dou click mas não permite entrar com dados, fica parecendo que está READONLY (mas não está), dou outro click ai ele permite editar, se der um outro click novamente volta ao status anterior, e assim por diante..... Como está td funcionando apenas vou orientar o usuário, mas caso alguém tenha a solução...a propriedade readonly do objeto GET está .f., ela não muda. Outro fato, que após o último GET do Dialog, mando ir para o primeiro Get do FolderEX, como segue: oGetDlg:bLostFocus := {|| oFldGet1:Setfocus()}... O primeiro Get do FolderEx recebe o Focu, mas o cursor não fica intermitente e tb não digita (conforme citado)..., somente com click sobre o mesmo Get e que ele permite editar. Obrigado, Amigos!

citação:voce esta no caminho certo. Algum firewall ou antivirus esta bloqueando seu executavel. Agora resta saber se isso esta ocorrendo no firewall da maquina ou o servidor esta bloqueando. Muito provavel que seja na maquina. Verifique novamente o firewall e antivirus. Desabilite tudo e faça o teste. Marcelo Michels E-mail:marcelo@folksistemas.com.br Msn/E-mail:celo.michels@hotmail.com xHarbour 1.2 + Fwh 106(originalid=red>) + Bcc 5.82 + SQLRDD + Mate. id=quote>id=quote>Valeu!

Olá, Tenho um sistema que estava funcionando corretamente em uma rede WORKGROUP, servidor XP e entre as outras máquinas tem uma com o Win 7. Derrepente no PC com Win 7 travava ao iniciar, fiz várias tentativas sem sucesso, entre elas a de recompilação. A solução foi simplesmente alterar o nome do executável. Fiz uma cópia para drive C: do Pc com Win 7, executei local com nome original, funcionou corretamente. Fiz uma pesquisa para saber se firewall estava bloqueando...mas não encontrei nada.... Conclusão: O executável com o nome original trava e renomeado com outro nome funciona, alguém tem alguma ideia do que pode estar ocorrendo?

Olá, Tenho um sistema que estava funcionando corretamente em uma rede WORKGROUP, servidor XP e entre as outras máquinas tem uma com o Win 7. Derrepente no PC com Win 7 travava ao iniciar, fiz várias tentativas sem sucesso, entre elas a de recompilação. A solução foi simplesmente alterar o nome do executável. Fiz uma cópia para drive C: do Pc com Win 7, executei local com nome original, funcionou corretamente. Fiz uma pesquisa para saber se firewall estava bloqueando...mas não encontrei nada.... Conclusão: O executável com o nome original trava e renomeado com outro nome funciona, alguém tem alguma ideia do que pode estar ocorrendo?

Após fazer testes verifiquei que faltou três linhas de comandos para rotina funcionar corretamente, que estão grafadas com "//NOVO". /* Site para pesquisa: http://msdn.microsoft.com/en-us/library/aa211881%28v=office.11%29.aspx */ #Include "Fivewin.ch" **============================================================================== Function Main() **============================================================================== LOCAL cFile := CurDrive()+":\"+CurDir()+"\teste.doc" LOCAL oWord, oDocument, oText, cText TRY oWord := CreateObject( "Word.Application" ) CATCH MsgStop("ERRO! Word não instalado.","Alerta") RETURN Nil END // oculta o word oWord:visible := .F. //-- oDocument := oWord:documents:open(cFile) //abre um arquivo doc/rtf //-- oDocument:Activate() //novo //-- oRng := oDocument:Content //novo oRng:Select() //novo //-- oText := oWord:selection() cText := oText:Text //-- oDocument:close() //fecha o doc oWord:quit() //finaliza //-- MsgStop(cText) Return Nil id=code>id=code>Editado por - JMSILVA on 04/01/2012 09:28:54

Olá, Com referência a Classe RICHEDIT: - Colar, gostaria de saber de existe alguma forma de validar para impedir que seja colado imagem da memória (copiar/recortar), permitir somente texto. - Preciso habilitar o READONLY de acordo com a situação. Usei o oGet:bGotFocus := {|| oGet:SetReadOnly(lCHK)} Com teclado funcionou corretamente (ENTER/TAB), mas com o MOUSE ele não está obedecendo a regra. xHarbour Rev 9376/FIVEWIN 11/10

Olá, Com referência a Classe RICHEDIT: - Colar, gostaria de saber de existe alguma forma de validar para impedir que seja colado imagem da memória (copiar/recortar), permitir somente texto. - Preciso habilitar o READONLY de acordo com a situação. Usei o oGet:bGotFocus := {|| oGet:SetReadOnly(lCHK)} Com teclado funcionou corretamente (ENTER/TAB), mas com o MOUSE ele não está obedecendo a regra. xHarbour Rev 9376/FIVEWIN 11/10