sambomb

http://fivetechsoft.com/forums/viewtopic.php?t=13137 problema parecido com o seu até aonde eu percebi, espero que seja util samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Ou então se dinheiro não for problema vamos para o Chile! ahuahaua e se dinheiro for o problema teremos que fazer outros tipos de programas brincadeiras a parte queria muito que o encontro rolasse sem transtornos.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação: citação: citação:Olá todos, Só faltam 15 dias para o mês de novembro...Sei que a galera é muito ocupada, mas essa espera.... (se o encontro for em novembro). O Ideal é que os organizadores informassem se realmente vai haver o encontro, pois temos que nos programar!! Um abraço a todos!! e até o encontro (se tiver) JHILBERT Tabira/PE FWH8.08/xHarbour1.1.0/BCC5.51/PellesC/xDev/vLib id=quote>id=quote>Programadores precisam se programar? Por mim eles já tinham tudo pronto esperando só uns parâmetros..... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>Os parâmetros: data := iif(DATE()='15/11/2008','possivel','sei nao' valorpassagem:= iif(Cia='TAM', 000.00 , 999.00) hospedagem := iif(vagas='lotado', 'nao vou', 'irei') OU SEJA... ATÉ OS PROGRAMADORES TÊM QUE SE PROGRAMAR!!!! JHILBERT Tabira/PE FWH8.08/xHarbour1.1.0/BCC5.51/PellesC/xDev/vLib id=quote>id=quote>se for assim você não vai mesmo.... faltou fechar parênteses na data iif(DATE()='15/11/2008','possivel','sei nao')id=red> samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 16/10/2008 08:25:33

Então meu xHarbour é diferente.... prq não achei aqui não.... mas acho que achei um jeito de contornar... amanhã eu atualizo o tópico... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Alguma alma caridosa? samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

trabalho com ele kapiaba.... Agora que percebi que eu esqueci de pegar o powerpoint samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:Olá todos, Só faltam 15 dias para o mês de novembro...Sei que a galera é muito ocupada, mas essa espera.... (se o encontro for em novembro). O Ideal é que os organizadores informassem se realmente vai haver o encontro, pois temos que nos programar!! Um abraço a todos!! e até o encontro (se tiver) JHILBERT Tabira/PE FWH8.08/xHarbour1.1.0/BCC5.51/PellesC/xDev/vLib id=quote>id=quote>Programadores precisam se programar? Por mim eles já tinham tudo pronto esperando só uns parâmetros..... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Não tenho essa lib aqui não, tem como postar no fórum? samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

se fossem não seria uma tirada sarcástica.... ahuahuaha samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação:Helio disse: Outra coisa: Tudo é passageiro, tudo depois se resolve e vira em torno do $DINHEIRO$, nossa sociedade é gulosa demais e gananciosa, e logo, isso se resolve e passa como moda de sapato. DISKORDO: "MENOS O MOTORISTA E O COBRADOR". KKKKKKKKKKKK João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe id=quote>id=quote>kapiaba e suas tiradas sarcásticas.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação: citação:Pra quem é de Sp é fácil... agora, rodar 500 km pra ir tomar cerveja é foda.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>Rodar 500 Km, pra tomar cerva, ao lado de amigos..nao tem preço. E outra coisa, no ultimo encontro, pra mim o Pre econtro q fizemos na padoca...foi melhor q o encontro. Na verdade esta pequena reuniao pra tomar umas, nao deixa de ser um Encontro;.... nos dois ultimos encontros q eu fui, foi na hora da cervejada q pude fazer grandes amizades montar algumas parcerias e trocar informaçoes muito aproveitosas. Kapiaba ( adoro este Corintiano ), nao keremos Luxo..keremos Cerva gelada...e muita delas...hehehhe @braços Ale aleseribeli@hotmail.com Araçatuba/SP - Andradina/SPid=red> id=quote>id=quote>Ale, não me expressei bem, tava querendo dizer que o encontro tem que rolar, as cervejas é um bonûs e o grande atrativo!!! ahuahuaha samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

tenho uma versão diferente pra esse ditado... "A vida é feita de altos e baixo, eu por exemplo tenho 1,91m" samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Pra quem é de Sp é fácil... agora, rodar 500 km pra ir tomar cerveja é foda.... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Acho que no caso de uma Bematech da vida é ganhar clientela, pois ela tem um software de graça enquanto nas concorrentes o software é um custo extra no hardware... samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

Agora to com problemas na compilação, da unsolved external nas seguintes funções: IsZip HB_GETUNZIPFILE (UnZipFile - editado) GetFirstInZip GetNextInZip OBS.: Já adicionei a Lib hbzip.lib samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02 Editado por - sambomb on 15/10/2008 14:38:14

Só pra constar, o código que eu postei está errado, pois é feito enquanto adiciona um arquivo e do jeito que está ele não roda todos arquivos do ZIP e sim todos a serem adicionados o correto se encontra abaixo: for i := 1 to Len(paFile) //-- Obtem as informações de dentro do ZIP For j = 1 to HB_GETUNZIPFILE(::cPath+::cNome) //-- Verifica se é o 1º arquivo do ZIP if j = 1 aResultado := GetFirstInZip(::cPath+::cNome) else aResultado := GetNextInZip(::cPath+::cNome) end //-- Verifica se está Ok if aResultado[1] == 0 //-- Procura por arquivos iguais if Ascan(paFile,aResultado[2]) //-- Se encontrar arquivo igual testa se o parâmetro foi indicado if lAvisa //-- Se o parâmetro foi indicado pergunta se deseja sobreescrever if SN("Arquivo "+paFileName+" já encontrado, sobreescreve") lSobre := .T. else lSobre := .F. end Exit //-- Se achou o arquivo sai do loop else lSobre := .T. end//if lAvisa end//if Ascan(paFile,aResultado[2]) end//if aResultado[1] == 0 end//For j = 1 to HB_GETUNZIPFILE(::cPath+::cNome) Result := HB_ZIPFILE(::pcNome, paFileName,0,,lSobre) if Result = .F. Msg("Erro ao copiar o arquivo "+paFileName) Return Result end end samirabreu@hotmail.com xHarbour 1.1.0 + FwXh 8.02

citação: citação: dEncontro não encontrada, varíavel não existe. samirabreu@hotmail.com Essa foi boa , vou rir uns trez dias seguidos... id=quote>id=quote>ahuahau pensei que iria ser uma piada desperdiçada..... afinal, quando vai ser o tão famigerado encontro? samirabreu@hotmail.com Editado por - sambomb on 14/10/2008 11:51:48

coloquei de uma forma diferente... (...) for i := 1 to Len(paFile) //-- Obtem as informações de dentro do ZIP if i = 1 aResultado := GetFirstInZip(::cPath+::cNome) else aResultado := GetNextInZip(::cPath+::cNome) end //-- Verifica se está Ok if aResultado[1] == 0 //-- Procura por arquivos iguais if Ascan(paFile,aResultado[2]) //-- Se encontrar arquivo igual testa se o parâmetro foi indicado if lAvisaDuplicado //-- Se o parâmetro foi indicado pergunta se deseja sobreescrever if SN("Arquivo já encontrado, sobreescreve") lSobre := .T. else lSobre := .F. end else lSobre := .T. end//if lAvisaDuplicado end//if Ascan(paFile,aResultado[2]) end//if aResultado[1] == 0 Result := HB_ZIPFILE(::pcPath, paFileName,0,,lSobre) end (...) samirabreu@hotmail.com Editado por - sambomb on 14/10/2008 11:44:51

Muito obrigado, deve solucionar meu problema. Quando eu puder testar confirmo aqui. samirabreu@hotmail.com

Olá, gostaria de saber se alguém sabe um método para listar o conteúdo de um arquivo zip, preciso saber se um arquivo já existe dentro do ZIP para requisitar uma confirmação para sobreescrever a cada arquivo que é adicionado no zip. Utilizo: xHarbour 1.1.0 + FwXh 8.02 samirabreu@hotmail.com Editado por - sambomb on 15/10/2008 17:06:07 Editado por - sambomb on 21/10/2008 14:18:13 Editado por - sambomb on 21/10/2008 15:35:06 Editado por - sambomb on 22/10/2008 11:37:15 Editado por - sambomb on 23/10/2008 17:44:06 Editado por - sambomb on 30/10/2008 09:54:46

Olá, gostaria de saber se alguém sabe um método para listar o conteúdo de um arquivo zip, preciso saber se um arquivo já existe dentro do ZIP para requisitar uma confirmação para sobreescrever a cada arquivo que é adicionado no zip. Utilizo: xHarbour 1.1.0 + FwXh 8.02 samirabreu@hotmail.com Editado por - sambomb on 15/10/2008 17:06:07 Editado por - sambomb on 21/10/2008 14:18:13 Editado por - sambomb on 21/10/2008 15:35:06 Editado por - sambomb on 22/10/2008 11:37:15 Editado por - sambomb on 23/10/2008 17:44:06 Editado por - sambomb on 30/10/2008 09:54:46

dEncontro não encontrada, varíavel não existe. samirabreu@hotmail.com

Muito obrigado por postar o conteúdo, é muito bem desevolvido mesmo... vou ver se acho um powerpoint com os valores médios do salário de TI que eu peguei durante uma palestra e posto aqui também, para servir de comparativo com as outras profissões do ramo e os que são assalariados e não freelancers.

Lembrando que início de carreira é outra coisa... programadores iniciantes não se iludam ao ler 120 reais por hora, demora tempo pra chegar nesse nível.... Palavras de quem tem menos de 1 ano de mercado PS: se alguém puder mostrar o que tem no site, site bloqueado no serviço....