sambomb
-
Posts
1,951 -
Joined
-
Last visited
-
Days Won
10
Posts posted by sambomb
-
-
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:
id=quote>id=quote>citação:
id=quote>id=quote>citação:
id=quote>id=quote>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
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
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
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:
id=quote>id=quote>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
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:
id=quote>id=quote>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
kapiaba e suas tiradas sarcásticas....
samirabreu@hotmail.com
xHarbour 1.1.0 + FwXh 8.02
-
citação:
id=quote>id=quote>citação:
id=quote>id=quote>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
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>
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:
id=quote>id=quote>citação:
dEncontro não encontrada, varÃavel não existe.
samirabreu@hotmail.com
Essa foi boa , vou rir uns trez dias seguidos...
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....
Browse + Cor na Linha
in Programação
Posted
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