rubensma

Ok valew, já respondeu. Abraços Rubens

Bom-dia Luiz onde conseguiu esses bitmaps?

São vários campos cujos conteúdos gostaria de transportar para uma única célula do excel. Da maneira como disse também dá p/fazer só precisa juntar todos num get e colar e copiar. Mas quero ver se faço com o paste clicando num botão e na célula direto sem ter que concatenar num get

Bom-dia! Alguém já usou esse metodo da Tget. Preciso transportar um texto do aplicativo para o excel, semelhante ao da calculadora or IRPF da Receita Federal.

Olá, 1 - João Santos - Email: joao@pleno.com.br 2 - Luiz Fernando - Email: empresoft@globo.com 3 - Alexandre Serafini - alexandre@polirep.com.br 4 - Nárlem - narlem@nagas.com.br 5 - Gilmer - gilmer@fivewin.com.br 6 - Alexandre Pereira - alexandre@declatecnologia.com.br 7- Evandro G. de Paula - imortal@skillnet.com.br 8 - Vailton Renato - contato@vailton.com.br 9 - Rubens Martins - rumarti@gmail.com

Creio que assim da certo, tenta ai oGet:bLostFocus := { || oGet:disable(),oGel:Refresh() } // após a linha do get

Colega, desculpe não é o que pediu, pensei numa coisa e fiz outra, confundi com outra função qua faz o que vc quer, vou tentar localizar, acho que perdi. Se encontrar post.

Utilizo essa função e funciona certinho. Lembrando que consegui essas funções aqui no fórum, infelizmente não lembro os nomes dos autores que me desculpem a falha.. coloquei em um botão. Crie as vars antes cEnde, cCidade e cBairro //Exemplo de uso: //MapsGoogle("SISTEMASIT","RUA BOAVENTURA DA SILVA, 1227","BELEM","PA","UMARIZAL") ACTION MapsGoogle("SISTEMASIT",TiraAcento(cEnde),TiraAcento(cCidade),"SP",TiraAcento(cBairro)) function MapsGoogle(xMPNOME,xMPENDERECO,xMPCIDADE,xMPESTADO,xMPBAIRRO) xMPNOME:=StrTran(alltrim(xMPNOME)," ","+") xMPNOME:=StrTran(alltrim(xMPNOME),"&"," E ") xMPENDERECO:=StrTran(alltrim(xMPENDERECO),",","") xMPENDERECO:=StrTran(alltrim(xMPENDERECO)," ","+") xMPCIDADE:=StrTran(alltrim(xMPCIDADE)," ","+") xMPBAIRRO:=StrTran(alltrim(xMPBAIRRO)," ","+") if isinternet() oPg:=CreateObject("Microsoft.XMLHTTP") xSITEMG:="http://maps.google.com/maps/api/geocode/json?address="+xMPENDERECO+"+"+xMPCIDADE+"+-+"+xMPESTADO+"+"+xMPBAIRRO+"&sensor=false" oPg:Open("GET",xSITEMG,.F.) ErroNET:=.F. Try oPg:Send() catch oError ErroNET:=.T. End Try if !ErroNET cBuf := oPg:responseBody else cBuf := space(255) end xPosLOC:=At("location",cBuf) if xPosLOC=0 msginfo("Erro na busca. Tire os acentos do endereço","Maps Google") else cBuf:=right(cBuf,len(cBuf)-xPosLOC) xLat:=subs(cBuf,at("lat",cBuf)+6,14);xLat:=alltrim(left(xLat,at(",",xLat)-1)) xLon:=alltrim(subs(cBuf,at("lng",cBuf)+6,14)) xARQMAPA := "c:\mapa.htm" //wsrd_loca+"\SitLocal\mapa.htm" ConteudoHTM:='<iframe width="425" height="350" frameborder="0" scrolling="no" marginheight="0"'+; ' marginwidth="0" src="http://maps.google.com.br/?ie=UTF8&hq=&'+; 'hnear='+; '&ll='+xLAT+','+xLON+'&spn='+xLAT+','+xLON+'&z=17&output=embed">' MemoWrit( xARQMAPA, ConteudoHTM ) oOle:=CreateObject("InternetExplorer.Application") oOle:width:=475 oOle:height:=420 oOle:Visible:=.t. // Apresenta o Browser oOle:ToolBar:=.f. // Desativa a barra de ferramentas oOle:StatusBar:=.f. // Desativa a barra de status oOle:MenuBar:=.f. // desativa a barra de menu oOle:Navigate(xARQMAPA) // Abre o site SysRefresh() end end return nil FUNCTION TiraAcento(cText) cText := StrTran(cText,"\","/") cText := StrTran(cText,"Ã","A") cText := StrTran(cText,"Â","A") cText := StrTran(cText,"Á","A") cText := StrTran(cText,"Ä","A") cText := StrTran(cText,"À","A") cText := StrTran(cText,"ã","a") cText := StrTran(cText,"â","a") cText := StrTran(cText,"á","a") cText := StrTran(cText,"ä","a") cText := StrTran(cText,"à","a") cText := StrTran(cText,"É","E") cText := StrTran(cText,"Ê","E") cText := StrTran(cText,"Ë","E") cText := StrTran(cText,"È","E") cText := StrTran(cText,"é","e") cText := StrTran(cText,"ê","e") cText := StrTran(cText,"ë","e") cText := StrTran(cText,"è","e") cText := StrTran(cText,"Í","I") cText := StrTran(cText,"Î","I") cText := StrTran(cText,"Ï","I") cText := StrTran(cText,"Ì","I") cText := StrTran(cText,"í","i") cText := StrTran(cText,"î","i") cText := StrTran(cText,"ï","i") cText := StrTran(cText,"ì","i") cText := StrTran(cText,"Ó","O") cText := StrTran(cText,"Õ","O") cText := StrTran(cText,"Ô","O") cText := StrTran(cText,"ó","o") cText := StrTran(cText,"Ö","O") cText := StrTran(cText,"Ò","O") cText := StrTran(cText,"õ","o") cText := StrTran(cText,"ô","o") cText := StrTran(cText,"ó","o") cText := StrTran(cText,"ö","o") cText := StrTran(cText,"ò","o") cText := StrTran(cText,"Û","U") cText := StrTran(cText,"Ú","U") cText := StrTran(cText,"Ü","U") cText := StrTran(cText,"Ù","U") cText := StrTran(cText,"û","u") cText := StrTran(cText,"ú","u") cText := StrTran(cText,"ü","u") cText := StrTran(cText,"ù","u") cText := StrTran(cText,"Ç","C") cText := StrTran(cText,"ç","c") cText := StrTran(cText,"£","E") cText := StrTran(cText,"&","E") cText := StrTran(cText,"<",".") cText := StrTran(cText,">",".") cText := StrTran(cText,"ª","a") cText := StrTran(cText,"º","o") cText := StrTran(cText,"´"," ") cText := StrTran(cText,"²","2") cText := StrTran(cText,"³"," ") cText := StrTran(cText,"¹","1") arINICIO:=32 arFIM :=126 xRetText:="" For IcText=1 to len(cText) LetracText:=subs(cText,IcText,1) if asc(LetracText)<arINICIO .or. asc(LetracText)>arFIM LetracText:=" " end xRetText+=LetracText next RETURN(xRetText)

001 - Valdir - Jundiaí/SP 002 - Ana - Cianorte/PR 003 - Cesar - Cianorte/PR 004 - EMotta Sistemas - Nova Odessa/SP 005 - EMotta Sistemas - Nova Odessa/SP 006 - EMotta Sistemas - Nova Odessa/SP 007 - EMotta Sistemas - Nova Odessa/SP 008 - EMotta Sistemas - Nova Odessa/SP 009 - Império 010 - Evandro - Curvelo/MG 011 - Dorneles 012 - Dorneles 013 - Kleyber Derick / MA 014 - Geraldo (gbsilva) 015 - Fnl - Jorge (SP) 016 - - Fnl - Aum (SP) 017 - Rubens (SP)

Boa-noite! Também confirmo minha presença. Se for dificil trazer o Linares, porque não fazer algo virtual. Apenas uma idéia.

Grato pelas respostas, mas devido a minha versão (6.12 ainda), vou ter que fazer na unha mesmo, seguindo o link do João. Valew, abraços

Bom-dia! Tenho um arquivo texto que foi delimitado com o til "~". append from "112120503060.txt" delimited with "~" Não está trazendo considerando o "~" e sim uma virgula que tem no texto. Será que não pode usar o til?

Já não está mais lá, agora somente com o Gilmer.

Pegue aqui a versão Free http://forums.fivetechsupport.com/viewtopic.php?f=6&t=16842

Rone, conforme o Alain informou acima, acerte o seu uol {"@uol.com.br", "smtps.uol.com.br", 465, .t. } é .T. nos demais também não posso ajudar abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Tem também o varput que pode ficar no valid do get anterior oG05:varput(wvalor * wnparc) Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

vc pode definir na entrada do get antes do foco oG05:bgotfocus() := {|| wtotal := wvalor * wnparc,oG05:refresh() } DEFINE GET oG05 VAR wtotal ID 39 OF oDlg PICTURE "@E 999,999.99" UPDATE Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Bom-dia. Coloque na pasta c:\system que para de dar o erro. Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

... anos depois... Ainda estou precisando, para outro caso. Já tentei de vários modos e nada! Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

valew, grato my friend abraços Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Boa noite, Não estou conseguindo montar a função p/pegar a data e hora de um, somente um determinado arquivo usando a função directory(). Já pesquisei e não encontrei nada, alguma dica? // nome do arquivo cFile := cGetFile( "Arquivos de DCTF | 62577929000135*.dec", ; "Selecione a DCTF a ser importada") aDir := DIRECTORYRECURSE( cFile ) vData := AEVAL( aDir, {|aFile| QOUT(aFile[F_DATE])} ) ???? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop Editado por - rubensma on 02/10/2012 08:39:23

Boa noite, Não estou conseguindo montar a função p/pegar a data e hora de um, somente um determinado arquivo usando a função directory(). Já pesquisei e não encontrei nada, alguma dica? // nome do arquivo cFile := cGetFile( "Arquivos de DCTF | 62577929000135*.dec", ; "Selecione a DCTF a ser importada") aDir := DIRECTORYRECURSE( cFile ) vData := AEVAL( aDir, {|aFile| QOUT(aFile[F_DATE])} ) ???? Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop Editado por - rubensma on 02/10/2012 08:39:23

Renato, dê uma olhada nesses videos, deve ajudar a configurar a xDev Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

Olá, não sei se dá, mas uso nClrText para mudar a cor da linha em certos casos, talvez dê para fonte, não testei oLbx:nClrText = { || IIF(( cAlia )->usuario=cUsuario,sColor(0), sColor(1)) } FUNCTION sColor( nNivel ) LOCAL nColor := CLR_BLACK do case case nNivel == 1 nColor = CLR_HRED case nNivel == 2 nColor = CLR_WHITE case nNivel == 3 nColor = CLR_HBLUE case nNivel == 4 nColor = CLR_RED case nNivel == 5 nColor = CLR_GREEN case nNivel == 6 nColor = CLR_BLUE case nNivel == 7 nColor = CLR_BLACK case nNivel == 8 nColor = CLR_YELLOW endcase RETURN( nColor ) Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop

uma luz http://www.forumrm.com.br/index.php?/topic/4120-darf/ Rubens Martins rumarti@gmail.com FWH 6.12 + xHARBOUR + Workshop