henning

Com filezilla deu certo... já estou baixando.... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Uso o leechftp, conecta no servidor mas não aparece nenhum arquivo. FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Estou baixando via torrent, está indo a 100 kb/s tem mais alguém baixando via torrent ? Entrando no FTP não apareceu nenhum arquivo. Dá a seguinte mensagem de erro 425 Can't open data connection. ~ Could not retrieve directory listing for "/" FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Consegui com cGetFile com cGetFile32 não deu certo... o códigoficou assim cArquivo := cGetFile( "*.zip |*.zip|" , "Escolha um local para Gravar o Backup",,'.\\',.t.,,,"backup20110902") id=code>id=code>Obrigado... eu não tinha visto o último parâmetro... hehehe... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Luis não apareceu o nome do arquivo... o campo nome ficou em branco... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Olá, Gostaria que o cGetFile ficasse como na imagem, mas também com um nome de arquivo padrão, como por exemplo "backup_2009022011" mas não sei como colocar um nome de arquivo padrão, alguém tem um luz ? Hoje uso o cGetFile da seguinte forma: id=code>id=code> Gostaria que ficasse como está abaixo, ou seja, ao entrar no cGetFile ele já mostrasse no campo nome o nome arquivo padrão e no campo tipo *.zip Editado por - henning on 02/09/2011 11:27:43 Editado por - henning on 02/09/2011 11:40:19

Olá, Gostaria que o cGetFile ficasse como na imagem, mas também com um nome de arquivo padrão, como por exemplo "backup_2009022011" mas não sei como colocar um nome de arquivo padrão, alguém tem um luz ? Hoje uso o cGetFile da seguinte forma: id=code>id=code> Gostaria que ficasse como está abaixo, ou seja, ao entrar no cGetFile ele já mostrasse no campo nome o nome arquivo padrão e no campo tipo *.zip Editado por - henning on 02/09/2011 11:27:43 Editado por - henning on 02/09/2011 11:40:19

Concordo com o Anderson também... cada ferramenta tem seu propósito.. Se quiser pregar um prego use martelo se quiser parafusar use a chave de fenda.. Você pode até conseguir pregar um prego com a chave de fenda mas com certeza vai ser mais difícil do que usar um simples martelo... Demorei para aprender isso... mas agora vejo que xHarbour, FiveWin não são a "bala de prata", ou seja, não servem para tudo... e hoje sou mais feliz.... hehehehe... e aprendi muita coisa boa fora do mundo xHArbour+Fivewin... e vi que acabei perdendo muito tempo tentando reinventar a roda.... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

tem alguém de Curitiba na lista ? A gente podia se reunir um dia a noite para conversar sobre nosso FiveWin... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Seguindo a linha do tópico média de idade, vamos colocar aqui qual é a sua cidade e estado de cada um... É interessante saber onde estão os fivewinners... Vou começar... Emerson Henning Curitiba/PR FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Seguindo a linha do tópico média de idade, vamos colocar aqui qual é a sua cidade e estado de cada um... É interessante saber onde estão os fivewinners... Vou começar... Emerson Henning Curitiba/PR FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Olá, Tenho 32 anos. Comecei o com o clipper em 1994, usava o summer 87, lembro que compilava em um XT sem Winchester(naquela época HD se chamava Winchester), só no disquetão, a gente fazia RamDrive para compilar mais rápido... muito boa aquela época.. FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Que tal esse: http://www1.la.dell.com/br/pt/domesticos/Port%C3%A1teis/inspiron-duo/pd.aspx?refid=inspiron-duo&s=dhs&cs=brdhs1 É notebook e ainda vira um tablet.... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Veja a propriedade lActive Ex.: If obtnX:lActive == .f. MsgAlert("Botão está desativado") EndIf FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Estou disponibilizando os fontes de um sistema que fiz em xharbour puro de contas a pagar/receber, não comercializo mais esse sistema, se servir para alguém ótimo, o link dos fontes é: http://www.emersonhenning.com.br/fontes/hcpr.zip e o xharbour 0.99.70 que foi compilado está disponível em http://www.emersonhenning.com.br/fontes/xharbour09970.zip . Se forem usar comecialmente só mencionem a origem: Henning Informática http://www.henning.com.br/ FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Estou disponibilizando os fontes de um sistema que fiz em xharbour puro de contas a pagar/receber, não comercializo mais esse sistema, se servir para alguém ótimo, o link dos fontes é: http://www.emersonhenning.com.br/fontes/hcpr.zip e o xharbour 0.99.70 que foi compilado está disponível em http://www.emersonhenning.com.br/fontes/xharbour09970.zip . Se forem usar comecialmente só mencionem a origem: Henning Informática http://www.henning.com.br/ FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Não conhecia a função AddMonth.... realmente com ela facilita e muito..... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

É só fazer como postei anteriormente.... dDataAnt := Date() nParcelas := 10 nCont := 1 Do While nPar > nCont If Month(dDataAnt) = 12 dVenc:= Ctod(Str(nNroDias)+'/'+'01/'+Str(Year(dVenc)+1)) dDataAnt:= dVenc Else dVenc:= Ctod(Str(nNroDias)+'/'+Str(Month(dDataAnt)+1)+'/'+Str(Year(dDataAnt))) n := 1 Do While(dVenc == Ctod(" / / ")) dVenc:= Ctod(Str(nNroDias-n)+'/'+Str(Month(dDataAnt)+1)+'/'+Str(Year(dDataAnt))) n := n+1 EndDo dDataAnt:=dVenc EndIf Alert(dVenc) ncont++ EndDo id=code>id=code>FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

@DonRuan - Minhas sinceras desculpas...... interpretei sua mensagem de forma errada.... @Luisão - Atualize a página no seu Browser... Novamente peço desculpas a todos.... Não vou mais responder esse tópico para evitar FLAMES, qualquer coisa mandem email diretamente para mim: emerson@henning.com.br FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Peço desculpas pelo meu ato... não vai mais acontecer.... De certa forma fiz isso como um protesto ao DonJuan que sempre fica anunciando seus produtos na seção de Programação... ... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Alterado... Obrigado pela dica.... FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

ops... segue a correção.... Function Main() nN01 := 50 nN02 := 10 Vnome := "O RESULTADO PERCENTUAL É N01 E SEU VALOR ABSOLUTO É EM MILHOES" lPegaFormula:= .f. cFormula := "" nCont := 1 DO While Len(VNome) > nCont If vNome[nCont] == "<" lPegaFormula := .t. EndIf If lPegaFormula cFormula := cFormula + vNome[nCont] EndIf If VNome[nCont] == ">" lPegaFormula := .f. EndIf nCont ++ EndDo Alert('Formula:'+cFormula) // Temos a Formula... // Agora vamos substituir os valores e retirar o < e o > cFormulaParaCalculo := StrTran(cFormula, '<', '') cFormulaParaCalculo := StrTran(cFormulaParaCalculo, '>', '') cValor := StrTran(cFormulaParaCalculo, 'N01', Str(nN01)) cValor := StrTran(cValor, 'N02', Str(nN02)) nCont := 1 nValor := 0 cAuxValor1 := '' cAuxValor2 := '' cOperador:= '' lValor1Vazio := .t. DO While Len(cValor) > nCont If cValor[nCont] == "/" .or. cValor[nCont] == '*' cAuxValor2:= '' cOperador := cValor[nCont] ncont ++ Else Do While cValor[nCont] <> '/' .and. cValor[nCont] <> '*' .and. len(cValor) >= nCont If lValor1Vazio == .t. cAuxValor1 := cAuxValor1 + cValor[nCont] Else cAuxValor2 := cAuxValor2 + cValor[nCont] EndIf nCont++ EndDo lValor1Vazio := .f. If(len(cOperador) > 0 .and. Len(cAuxValor1) > 0 .and. LEN(cAuxValor2) > 0) If cOperador == '/' nValor := Val(cAuxValor1) / Val(cAuxValor2) EndIf If cOperador == '*' nValor := Val(cAuxValor1) * Val(cAuxValor2) EndIf cAuxValor1 := Str(nValor) cOperador := '' EndIf EndIf EndDo VNome := StrTran(vNome, cFormula, AllTrim(Str(nValor))) VNome := StrTran(vNome, 'N01', Alltrim(Str(nN01))) Alert(HB_ANSITOOEM(vNome)) Return Nil id=code>id=code>FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

se você puder mudar um pouca a string, dá para fazer da seguinte forma: Function Main() nN01 := 10 nN02 := 20 Vnome := "O RESULTADO PERCENTUAL É N01 E SEU VALOR ABSOLUTO É EM MILHOES" lPegaFormula:= .f. cFormula := "" nCont := 1 DO While Len(VNome) > nCont If vNome[nCont] == "<" lPegaFormula := .t. EndIf If lPegaFormula cFormula := cFormula + vNome[nCont] EndIf If VNome[nCont] == ">" lPegaFormula := .f. EndIf nCont ++ EndDo Alert('Formula:'+cFormula) // Temos a Formula... // Agora vamos substituir os valores e retirar o < e o > cFormulaParaCalculo := StrTran(cFormula, '<', '') cFormulaParaCalculo := StrTran(cFormulaParaCalculo, '>', '') cValor := StrTran(cFormulaParaCalculo, 'N01', Str(nN01)) cValor := StrTran(cValor, 'N02', Str(nN02)) nValor := Val(cValor) Alert(nValor) // Valor da conta, agora é só substituir na String Inicial.. VNome := StrTran(vNome, cFormula, AllTrim(Str(nValor))) VNome := StrTran(vNome, 'N01', Alltrim(Str(nN01))) Alert(HB_ANSITOOEM(vNome)) Return Nil id=code>id=code>FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Sistema para controle de almoxarifados, totalmente online: http://www.almoxarifadoonline.com.br Já que é para fazer propaganda, vamos fazer... hehehehehe.. FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).

Não seria o caso de usar o strtran nVal1 := 10 nVal2 := 20 nVal3 := 30 Vnome := "O RESULTADO PERCENTUAL É E SEU VALOR ABSOLUTO É */100 EM MILHOES" Vnome := StrTran(VNome, '', Alltrim(Str(nVal1))) Vnome := StrTran(VNome, '', Alltrim(Str(nVal2))) Vnome := StrTran(VNome, '', Alltrim(Str(nVal3))) FWH 9.08 xHarbour 1.2.1, hbMake, ContexT, PellesC 6.00.4, DBF/CDX, MySql(Nativo).