LUIS1361303120

SE VC ESTIVER USANDO UM WHILE: EU USARIA O STRTRAN: cLine = StrTran(cLine,"Número" , CRLF + "3159" ) cLine = strTran(cline, "CNPJ" , CRLF + " ??") ESSA E A UMA IDEIA,, MAS TEM Q TESTAR

Obrigado vou olhar,,

aproveitando o topico,, alguem tem um exemplo de como,, enviar um arquivo exemplo (.pdf) para um servidor de site.. via programacao...

Jef.. vc tem razao, as vezes eu passo dos limites no que escrevo, peco desculpas,, por que vc foi humildade na resposta... sem ofender e com inteligencia,,, fico feliz, por pessoas que quer descontrair esse mundo de cao...

Eu acho engracado neste forum,, em vez de postar coisas uteis que possamos utilizar como novidade,,, ficamos preenchendo e ocupando espaco do servidor da fivewin, com coisa que nem se vale a pena entrar, so que a gente entra pensando encontrar coisas que possamos utilizar em nossos sistemas.. so uma coisa,, nao estou criticando vc por isso,, acho legal, quando descobrimos alguma coisa e queremos mostrar para o mundo saber a nossa inteligencia.. eu assisti o macGyer qando era pequeno,, em 1985.... so que hoje o esse cara ja ta quase um pe na cova,,

voce conhece o magico mascarado,, mister M hehehehhehehehhe

citação: uma classe para acessar via dbf Luis, Explique melhor a que tipo de classe vc se referiu. Pergunto, porque o FW possui uma classe para acesso DBF. Perdao: citei errado, o que queria dizer que se criasse uma classe que trabalhasse com internet, browse,, tudo via browse, sem ter que comprar lib de terceiros...

a sua dica foi muito boa Luiz,,, valeu

É isso que me preocupa,, tanto fala desse harbour,, por que nao se cria uma classe para acessar via dbf (inclusao, alteracao, exclusao, relatorios ou coisa parecida) os sistemas,, que as vezes faz falta...

vai ser legal, vc fazer isso , faz um 1 que estou querendo , atualizar o meu fw que e 9.04, se der certo,, ja quero conseguir atualizar para o novo.. parabens pela sua atitude, isso contribui muito para podermos atualizar o fw.

Obrigado pela resposta, duvida meio infantil,, mas valeu a resposta, vou ficar mais seguro quando atualizar os pcs aqui.. obrigado luis antonio

Boa tarde Nao sei se aqui e o lugar certo para perguntar isso,, eu utilizo ainda o fivewin 9.04,, e estamos querendo comprar na camara municipal alguns computadores tudo com windows 7,, sera que vou ter dificuldade em rodar os meus sistemas que uso compilando com esse fw 9.04, ou vai rodar normal ou tenho que atualizar para os fivewins mais novo,,, se por acaso eu estiver errado nessa pergunta por favor desconsidere esse post... obrigado luis antonio

Boa tarde Nao sei se aqui e o lugar certo para perguntar isso,, eu utilizo ainda o fivewin 9.04,, e estamos querendo comprar na camara municipal alguns computadores tudo com windows 7,, sera que vou ter dificuldade em rodar os meus sistemas que uso compilando com esse fw 9.04, ou vai rodar normal ou tenho que atualizar para os fivewins mais novo,,, se por acaso eu estiver errado nessa pergunta por favor desconsidere esse post... obrigado luis antonio

http://www.horariodebrasilia.org/ esse e um site que diz que e hora oficial do brasil, sera que pode pegar alguma coisa automatica....

veja se da certo pra vc: STAT FUNC Limpia(cLine) cLine=StrTran(cLine,Chr(10) , ' ') // LF cLine=StrTran(cLine,Chr(12) , 'PULA') // FF - Line Form Feed cLine=StrTran(cLine,Chr(13) , ' ') // CR cLine=StrTran(cLine,Chr(26) , ' ') // EoF cLine=StrTran(cLine,Chr(27) , ' ') // ESC cLine=StrTran(cLine,Chr(15) , ' ') // Comprime Impressora cLine=StrTran(cLine,Chr(18) , ' ') // Expande Impressora cLine=StrTran(cLine,Chr(196) , '-') cLine=StrTran(cLine,Chr(205) , 'Ã') cLine=StrTran(cLine,'E' , ' ') cLine=StrTran(cLine,'(s16H', ' ') RETURN (cLine)

bom dia eu fiz a minha e inscricao e ja ate paguei o boleto,, tem que mandar alguma coisa para comprovar.... obrigado Luis

vc pode usar o tword, ou uma forma q aprendi q e mais rapido e facil,, no tword se estiver algum arquivo aberto no word ele fecha tudo e nao grava se vc esta alterando e um transtorno, o q fiz foi gravar um arquivo em .rtf e usar os comando strtran para sustituir a variavel q fica la.. tipo [orienta] nesse lugar ele jogaria tudo o texto nele q esteja explicando alguma coisa.

so uma pergunta,, e arquivo q gera o pedido de compras e feito em arquivo do word.. ou outro tipo de arquivo...,, pois eu acho q tem jeito de fazer o q vc disse se for feito em relatorio do word...

Tem umas placas de video q grava direto pra o pc em forma de .mpg ou .avi... se filmar direto pra o pc , quem quizer na hora copia para um pendrive ou coisa parecida.. nao daria certo nao;;;

*-------------------------------------- FUNCTION DIGTEXTO(VOBS,wtexte,arquivos) local o140,o127,TXT1,O113,O114,O115 wlmemo := 0 DEFINE DIALOG TXT1 resource "EDITOR" of TXT1 pixel title arquivos redefine say o140 prompt wtexte id 140 of txt1 COLOR RGB(250,13,1) REDEFINE GET o127 VAR vObs memo ID 127 OF TXT1 ; on change (testatam(o127,if(wlmemo>14,wlmemo:=0,wlmemo++) , arquivos , wtexte)) REDEFINE BUTTON O113 ID 113 OF TXT1 ACTION ( MEMOWRIT(arquivos,vObs) , TXT1:end() ) REDEFINE BUTTON O114 ID 114 OF TXT1 ACTION MEMOWRIT( arquivos , vObs ) if empty(arquivos) O114:DISABLE() O114:HIDE() endif ACTIVATE DIALOG TXT1 centered WLISTATEXTO := if(!empty(vobs), 'S' , 'N' ) memowrit(arquivos,vobs) RETURN VOBS *---- Campo Observacao <-> Grava a cada 13 letras digitadas Func TestaTam( oCod , wlmemo , arquivos ) Local nTama := Len(AllTrim(oCod:cText())) wlmemo ++ If wlmemo > 6 // 13 MEMOWRIT( arquivos , ocod:cText() ) return nil Endif Return nil

coloca essa opcao no inicio do sistema ou em cada procedure onde se utiliza o listbox,, e qual o comportamento nas pesquisa usando ele... fique com essa duvida

*---------------------------------------------------------------* FUNCTION COINLET(A) LOCAL B := '' LOCAL D := 0 LOCAL C,X,CLINE FOR X = 1 TO LEN(allTRIM(A)) C = SUBSTR(A,X,1) IF !EMPTY© IF D = 0 B = B + ' ' + C D = 1 ELSE B = B + convlminu© //Converte letra para minuscula ENDIF ELSE D = 0 ENDIF NEXT B := StrTran( B , 'De ' , 'de ') B := StrTran( B , 'Da ' , 'da ') B := StrTran( B , 'Das ' , 'das ') B := StrTran( B , 'Do ' , 'do ') B := StrTran( B , 'Dos ' , 'dos ') B := StrTran( B , 'Ii' , 'II') B := StrTran( B , '"' , '') B := StrTran( B , '".' , '') RETURN(alltrim() *-----------------------> Letras Maisculas FUNCTION CONVLETRA(UVAL) Local pala pala := ansiupper( uval ) RETURN (pala) *-----------------------> Letras Minusculas FUNCTION convlminu(UVAL) RETURN (ansilower( uval ))

qual o link para mim gerar o boleto luis antonio

EU QUERO FICAR NO HOTEL QUE JA ATRAVESSA A RUA, TA NA FELICIDADE.... HEHHEHEHEH.... QUE SAUDADE,,

VOU ME INSCREVER, SO QUE RECEBO NO FINAL DO MES, LA PELOS DIAS 1 DE SETEMBRO,,,, MAS VOU ME ESCREVER.. EMPRESOFT-> LUIZ -> VC VAI..... ME AVISE..... LUIS ANTONIO