sig_gilberto

Olá Desenvolvedores, Bom Dia! Há como colocar uma imagem num item do ComBoBox ? No caso abaixo, exibir o Logo do Banco + Texto como Nome do Banco ou mesmo somente o Logo para o usuário selecionar ? Exemplo : Imagem+Texto ou Texto+Imagem ? @ 06.0,21.5 SAY oSay1 VAR "Banco" Of oDLg FONT oFont2 Size 100,40 COLOR RGB(050,150,000) @ 07.5,16.0 ComboBox oCodCar Var vCodCar Items {"REAL","ITAU"} Of oDlg FONT oFont2 Size 060,40 COLOR RGB(150,050,000) oCodCar:ctooltip="Selecione o Banco..." ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Kapi...vc conseguiu instalar e utilizar ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Bom Dia Amigo Vagner!!!id='Arial'> Vou fazer isso...não tem jeito mesmo né!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Pesquisei na NET e até achei algumas rotinas para obter o IP da maquina local(estação). Algum dos amigos tem alguma solução prática ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Bom Dia! Pesquisei na NET e até achei algumas rotinas para obter o IP da maquina local(estação). Algum dos amigos tem alguma solução prática ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Certo..mas para ilustar mais ainda: Arquivo PRODUCAO.ASA tem várias linhas do mesmo registros, exemplo : 00001 MARIA JOSE DA SILVA 00001 RUA DAS PEDRAS 500 00001 JD CIDADE VERDE 00001 SUZANO 00001 SP 00002 MARIA DA SILVA 00002 RUA DAS FLORES 12 00002 JD DAS MANGAS 00002 MOGI DAS CRUZES 00002 SP 00003 SILVIA CATARINA 00003 RUA DAS TERRAS 690 00003 VILA ROMANA 00003 ITAQUA 00003 SP . . Dai procurar, por exemplo, todas as linha com a incidência 00002 e uma a uma lê-las e gravá-las em outro arquivo REMISSAO.ASA na mesma ordem, entendeu ? Sem usar DBF nenhum. O problema não é abrir os arquivos, mas sim controlar os ponteios, como se fosse um SELECT.. ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 03/09/2009 18:02:27

Vou testar assim.......obrigado! citação:cProducao := MemoRead(cCaminhoProdusao) cRemissao := MemoRead(cCaminhoRemissao) Te serve? MSN: samirabreu@hotmail.comid=black> Skype: Samirid=red>Abreuid=black> xHarbour 1.1.0 + FwXh 8.02 id=quote>id=quote>________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Certo...mas o problema é que se eu for dar um append num DBF vai demorar porque é em REDE... Até já tentei..mas foi um desastre.... Meus arquivos são de "spool' de impressão, ou seja, o melhor deles deve ter +- 800.000 Linhas....por terminal... Mas mesmo assim, obrigado pelo retorno!!! Abraços!! citação:Ola, eu ja tive muita dor de cabeça em tratar diretamente o txt acho mais simples vc criar um arquivo dbf temporario com apenas um campo do tamanho da linha do seu txt e depois com append from alimenta-lo depois use e abuse dos dados com substr() se a linha for fixa é claro Obrigado. Evaldo Wagner FiveWin9.07 xHarbour 1.21,BCC55, Pelles C xDev,xHarbour for Linux(console) evaldowl@hotmail.com.br id=quote>id=quote>________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 03/09/2009 17:43:48

Olá Desenvolvedores, Boa Tarde! Estou as voltas com o seguinte problema: Tenho 02(dois) arquivos no formato ASCII/TXT Descrição da rotina : -Abrir o primeiro chamado de PRODUCAO.ASA -Criar e abrir o segundo chamado de REMISSAO.ASA Abre um LAÇO Do While !HB_FEof() -Procurar uma string no PRODUCAO.ASA com valor, por exemplo, JOAO DA SILVA -Se não achar, bla bla bla... -Se achar, apontar para REMISSAO.ASA e gravar nele, a variável com o valor JOAO DA SILVA. - HB_FSkip(1) - EndDo Pois bem, qual a minha dúdida : Hà PONTEIRO PARA ARQUIVOS ASCII/TXT ? IGUAL AO SELECT "ALIAS/ÃREA" ? Se Criar/Abrir com o FCreate/FOpen/FWrite/FClose, eu posso utilizar a variável de retorno : Var=FOpen("ARQUIVO.ASA",0) FWrite(Var,"LINHA A SER GRAVADA") FClose(Var) Este VAR seria o ponteiro, tipo SELECT... Fiz um corte no PRG para mostrar +- minha idéia : Public AOPEnt :=HB_FUse("PRODUCAO.ASA") Public AOPRem :=HB_FCreate("REMISSAO.ASA") Public vChave :="JOAO DA SILVA" If ! File(ArqRem) Public AOPRem :=HB_FCreate(ArqRem,0) If FError()#0 MsgStop("Arquivo "+ArqRem+" não criado com sucesso!!!","ERRO:"+Str(FError())) oWnd:End() Endif vCb1:= HB_FReadLN() HB_FSkip(1) vCb2:= HB_FReadLN() HB_FSkip(1) vCb3:= HB_FReadLN() HB_FSkip(1) vCb4:= HB_FReadLN() If "STARTLM"$vCb4=.f. MsgStop("Verifique o Cebeçalho do Arquivo Original..","ERRO : STARTLM") oWnd:End() Endif FWrite(AOPRem,vCb1+chr(13)+chr(10)) FWrite(AOPRem,vCb2+chr(13)+chr(10)) FWrite(AOPRem,vCb3+chr(13)+chr(10)) FWrite(AOPRem,vCb4+chr(13)+chr(10)) Else AOPRem=HB_FUse(ArqSai) If FError()#0 MsgStop("Arquivo "+ArqEnt+" não foi aberto com sucesso!!!","ERRO:"+Str(FError())) oWnd:End() Endif Endif **-- Carrega os JDT´s WJdt1:="" WJdt2:="" Do While !HB_FEof() vLh = HB_FReadLn() If "+$DJDE$"$vLh .and. Empty(WJdt1) WJdt1:=vLh FWrite(AOPRem,WJdt+CHR(13)+chr(10)) Endif If "+$DJDE$"$vLh .and. !Empty(WJdt1) .and. Empty(WJdt2) WJdt2:=vLh Endif If !Empty(WJdt1) .and. !Empty(WJdt2) Exit Endif HB_FSkip(1) EndDo *MsgStop(WJdt1,"JDT1") *MsgStop(WJdt2,"JDT1") Hb_FGotop() Do While !HB_FEof() vLh = HB_FReadLn() If vChave$VLh FWrite(AOPRem,vLh+CHR(13)+chr(10)) Endif If vLh = WJdt2 FWrite(AOPRem,vLh+CHR(13)+chr(10)) Endif HB_FSkip(1) EndDo SYSREFRESH() Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 03/09/2009 16:04:22 Editado por - sig_gilberto on 03/09/2009 16:05:01

Olá Desenvolvedores, Boa Tarde! Estou as voltas com o seguinte problema: Tenho 02(dois) arquivos no formato ASCII/TXT Descrição da rotina : -Abrir o primeiro chamado de PRODUCAO.ASA -Criar e abrir o segundo chamado de REMISSAO.ASA Abre um LAÇO Do While !HB_FEof() -Procurar uma string no PRODUCAO.ASA com valor, por exemplo, JOAO DA SILVA -Se não achar, bla bla bla... -Se achar, apontar para REMISSAO.ASA e gravar nele, a variável com o valor JOAO DA SILVA. - HB_FSkip(1) - EndDo Pois bem, qual a minha dúdida : Hà PONTEIRO PARA ARQUIVOS ASCII/TXT ? IGUAL AO SELECT "ALIAS/ÃREA" ? Se Criar/Abrir com o FCreate/FOpen/FWrite/FClose, eu posso utilizar a variável de retorno : Var=FOpen("ARQUIVO.ASA",0) FWrite(Var,"LINHA A SER GRAVADA") FClose(Var) Este VAR seria o ponteiro, tipo SELECT... Fiz um corte no PRG para mostrar +- minha idéia : Public AOPEnt :=HB_FUse("PRODUCAO.ASA") Public AOPRem :=HB_FCreate("REMISSAO.ASA") Public vChave :="JOAO DA SILVA" If ! File(ArqRem) Public AOPRem :=HB_FCreate(ArqRem,0) If FError()#0 MsgStop("Arquivo "+ArqRem+" não criado com sucesso!!!","ERRO:"+Str(FError())) oWnd:End() Endif vCb1:= HB_FReadLN() HB_FSkip(1) vCb2:= HB_FReadLN() HB_FSkip(1) vCb3:= HB_FReadLN() HB_FSkip(1) vCb4:= HB_FReadLN() If "STARTLM"$vCb4=.f. MsgStop("Verifique o Cebeçalho do Arquivo Original..","ERRO : STARTLM") oWnd:End() Endif FWrite(AOPRem,vCb1+chr(13)+chr(10)) FWrite(AOPRem,vCb2+chr(13)+chr(10)) FWrite(AOPRem,vCb3+chr(13)+chr(10)) FWrite(AOPRem,vCb4+chr(13)+chr(10)) Else AOPRem=HB_FUse(ArqSai) If FError()#0 MsgStop("Arquivo "+ArqEnt+" não foi aberto com sucesso!!!","ERRO:"+Str(FError())) oWnd:End() Endif Endif **-- Carrega os JDT´s WJdt1:="" WJdt2:="" Do While !HB_FEof() vLh = HB_FReadLn() If "+$DJDE$"$vLh .and. Empty(WJdt1) WJdt1:=vLh FWrite(AOPRem,WJdt+CHR(13)+chr(10)) Endif If "+$DJDE$"$vLh .and. !Empty(WJdt1) .and. Empty(WJdt2) WJdt2:=vLh Endif If !Empty(WJdt1) .and. !Empty(WJdt2) Exit Endif HB_FSkip(1) EndDo *MsgStop(WJdt1,"JDT1") *MsgStop(WJdt2,"JDT1") Hb_FGotop() Do While !HB_FEof() vLh = HB_FReadLn() If vChave$VLh FWrite(AOPRem,vLh+CHR(13)+chr(10)) Endif If vLh = WJdt2 FWrite(AOPRem,vLh+CHR(13)+chr(10)) Endif HB_FSkip(1) EndDo SYSREFRESH() Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 03/09/2009 16:04:22 Editado por - sig_gilberto on 03/09/2009 16:05:01

Use o Camtasia Studio..muito bom! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Kapi....não seria pelas IRQ´s (interrupções) ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Sou da era do clipper outun/summer´s 87...(long-long-time).. Hoje, trabalho com Java, tô gatinhando em C#, mas não troco realmente as facilidades e performance do FWH!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

BINGO !!!! SIM! pode-se clicar em qualquer um deles que o winrar identifica o primeiro.. Funcionou!!! Obrigado pessoal!!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, boa tarde! Me ajudem : Tenho uma pasta com os seguintes arquivos : ABC.RAR, ABC.R00, ABC.R01, ...,...,..., ABC.R68, ABC.NFO, ABC.SFV Quando clico, por exemplo no ABC.R47, ele descompacta na pasta um arquivo de nome ABC.ISO... Não deveria ser uma sequencia ? eu clicar em um deles e automaticamente ir descompactando todos (00, 01 ,02, 03,..) ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, boa tarde! Me ajudem : Tenho uma pasta com os seguintes arquivos : ABC.RAR, ABC.R00, ABC.R01, ...,...,..., ABC.R68, ABC.NFO, ABC.SFV Quando clico, por exemplo no ABC.R47, ele descompacta na pasta um arquivo de nome ABC.ISO... Não deveria ser uma sequencia ? eu clicar em um deles e automaticamente ir descompactando todos (00, 01 ,02, 03,..) ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Willian, ótimo. Muito bom trabalho! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

RECEBIDO!!!! VLW Mas aki em Mogi das Cruzes/SP colocamos fibra para as conexões e tá uma "meleca"...... ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Kapi...SHOW DE BOLA !!!! Acho que vc poderia aumentar a Window/Dialog e evitar usar cores muito frias tipo este "pastel/palha".. É minha opinião pessoal mas, SHOW DE BOLA!!! PS.Como foi que vc fez aquele letreiro digital mover-se da direita para a esqueda em tempo real ? ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 19/08/2009 17:52:31

KAPIABA, você é porreta...é isso mesmo Linhas Inseridas/Modificadas : DEFINE PEN oGd1 WIDTH .5 Report oRelat Font oFt1 PEN oGd1 Olha só : Procedure GeraRelat Local oRelat,oFt1,oGd1 DEFINE FONT oFt1 NAME "Arial" SIZE 00,05 DEFINE PEN oGd1 WIDTH .5 Use CepCerto Index On Cep To Cep Go Top Report oRelat Font oFt1 PEN oGd1 ; CAPTION "MARPRESS INFORMÃTICA" ; TITLE WCLI,WROT; HEADER "Data: "+dtoc(date())," à s "+time() RIGHT ; FOOTER "Pagina: "+Str(oRelat:nPage,3) CENTERED ; PREVIEW Column Title "Contrato" Data Contrato Column Title "Nome" Data Nome Column Title "Endereco" Data Endereco Column Title "Bairro" Data Substr(Bairro,1,20) Column Title "Cep / Cidade" Data Stuff(Cep,6,0,"-")+" / "+Substr(Cidade,1,10) Column Title "Estado" Data Estado End Report oRelat:CellView() Activate Report oRelat oFt1:Release() Return Nil BRIGADU! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 19/08/2009 17:41:06

Seja Bem Vindo Antonio e como disse o KAPIABA (quer não perdeu tempo fazer o "jaba" dele...rsrsr), ao maior e melhor forum de FW da galáxia.. Dê uma olhada inicial nesta simples apostila também... http://www.fivewin.com.br/exibedicas.asp?id=548 Num questionamento igual ao seu : http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=14372 SUCESSO!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...." Editado por - sig_gilberto on 19/08/2009 17:56:40

Olá Desenvolvedores, Boa Tarde! Neste pequeno exemplo abaixo, como fazer com que as linhas de grade tanto na tela como na impressão saiam mais "finas" e ainda, como inibí-las ou não, tipo : oGrade:=.f. / .t. oGradeExpessura:= .05 Tem algum parâmetro que faça isso ??? Procedure GeraRelat Local oRelat,oFt1 DEFINE FONT oFt1 NAME "Arial" SIZE 00,05 Use CepCerto Index On Cep To Cep Go Top Report oRelat Font oFt1 ; CAPTION "MARPRESS INFORMÃTICA" ; TITLE WCLI,WROT; HEADER "Data: "+dtoc(date())," à s "+time() RIGHT ; FOOTER "Pagina: "+Str(oRelat:nPage,3) CENTERED ; PREVIEW Column Title "Contrato" Data Contrato &&Font 1 Column Title "Nome" Data Nome &&Font 1 Column Title "Endereco" Data Endereco Column Title "Bairro" Data Substr(Bairro,1,20) Column Title "Cep / Cidade" Data Stuff(Cep,6,0,"-")+" / "+Substr(Cidade,1,10) Column Title "Estado" Data Estado End Report oRelat:CellView() Activate Report oRelat oFt1:Release() Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Olá Desenvolvedores, Boa Tarde! Neste pequeno exemplo abaixo, como fazer com que as linhas de grade tanto na tela como na impressão saiam mais "finas" e ainda, como inibí-las ou não, tipo : oGrade:=.f. / .t. oGradeExpessura:= .05 Tem algum parâmetro que faça isso ??? Procedure GeraRelat Local oRelat,oFt1 DEFINE FONT oFt1 NAME "Arial" SIZE 00,05 Use CepCerto Index On Cep To Cep Go Top Report oRelat Font oFt1 ; CAPTION "MARPRESS INFORMÃTICA" ; TITLE WCLI,WROT; HEADER "Data: "+dtoc(date())," à s "+time() RIGHT ; FOOTER "Pagina: "+Str(oRelat:nPage,3) CENTERED ; PREVIEW Column Title "Contrato" Data Contrato &&Font 1 Column Title "Nome" Data Nome &&Font 1 Column Title "Endereco" Data Endereco Column Title "Bairro" Data Substr(Bairro,1,20) Column Title "Cep / Cidade" Data Stuff(Cep,6,0,"-")+" / "+Substr(Cidade,1,10) Column Title "Estado" Data Estado End Report oRelat:CellView() Activate Report oRelat oFt1:Release() Return Nil ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

olá amigos.... Não querendo ser chato, mas já sendo.......teria como vocês enviaram novamente, e-mail de testes para gilbertoherminio@marpress.com.br com a data+hora+local para que o pessoal aki da empresa possa testar nossas conexões ? Estou aki em Mogi das Cruzes, tá difícil a conexão aki !!!! Fico grato !!!!! ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."

Super Legal..não sabia dessa....vlw ________________________ Gilberto Herminio - Programador Pleno III - Mogi das Cruzes-SP JAVA + xxHB build 1.1.0 (SimpLex) & BCC 5.5.1 & FW 8.05 + xDev v0.65 "Não Desenvolvo Software, crio arte Binaria...."