sig_gilberto

Vlw ICo!! ________________________ 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...."

É Ico, vlw...tive que fazer isso mesmo!! Obrigado! ________________________ 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! Tenho um pequeno arquivo e gostaria de exibí-lo em determinado momento, utilizando o BROWSE. use coletor Browse( "Relação de Devoluções Captadas:"," ",,,,,,{00,210,183,068,82,72,59}) Agora, como desabilitar todos os botões originais como NEW, MODIFY, DELETE, SEARCH, PRINT e só deixa o EXIT mas como o nome de SAIR, por exemplo ? ________________________ 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! Tenho um pequeno arquivo e gostaria de exibí-lo em determinado momento, utilizando o BROWSE. use coletor Browse( "Relação de Devoluções Captadas:"," ",,,,,,{00,210,183,068,82,72,59}) Agora, como desabilitar todos os botões originais como NEW, MODIFY, DELETE, SEARCH, PRINT e só deixa o EXIT mas como o nome de SAIR, por exemplo ? ________________________ 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...."

FELIZ 2010 !!!!!!!!! Que neste novo ano, todas as forças sejam renovadas. Sucesso a todos !!!!! ________________________ 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...."

A todos os amigos desenvolvedores, FELIZ NATAL e PRÓSPERO ANO NOVO!!!!!!!!!!! Obrigado a todos, pela força no meu aprendizado!!! Sucesso a todos!!!!!!! ________________________ 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...."

? ________________________ 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! Tenho um comboBox com "n" opções. Como desabilitar uma das opções, mas sem que ela desapareça do ComboBox ? Exemplo : Abaixo quero que o usuário veja a opção "ISENTOS" mas ela deverá estar sem o foco/desabilitada.... @ 06.0,33.5 SAY oSay1 VAR "QtPc" Of oDLg FONT oFont2 Size 100,40 COLOR RGB(050,150,000) @ 07.5,25.0 ComboBox oPcel Var vPcel Items {"ISENTOS","SÓ ÚNICA","UN+02PC","UN+03PC","UN+04PC","UN+05PC","UN+06PC","UN+07PC","UN+08PC","UN+09PC","UN+10PC"} Of oDlg FONT oFont2 Size 77,150 COLOR RGB(255,050,100) oPcel:ctooltip="Selecione a Quantidade de Parcelas..." ________________________ 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 14/12/2009 08:02:20

Olá Desenvolvedores, Boa Tarde! Tenho um comboBox com "n" opções. Como desabilitar uma das opções, mas sem que ela desapareça do ComboBox ? Exemplo : Abaixo quero que o usuário veja a opção "ISENTOS" mas ela deverá estar sem o foco/desabilitada.... @ 06.0,33.5 SAY oSay1 VAR "QtPc" Of oDLg FONT oFont2 Size 100,40 COLOR RGB(050,150,000) @ 07.5,25.0 ComboBox oPcel Var vPcel Items {"ISENTOS","SÓ ÚNICA","UN+02PC","UN+03PC","UN+04PC","UN+05PC","UN+06PC","UN+07PC","UN+08PC","UN+09PC","UN+10PC"} Of oDlg FONT oFont2 Size 77,150 COLOR RGB(255,050,100) oPcel:ctooltip="Selecione a Quantidade de Parcelas..." ________________________ 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 14/12/2009 08:02:20

Olá Desenvolvedores, Boa Tarde! Cris..eu achei um monte de ISQualquerCoisa() conforme abaixo, mas este ISFOUND() .....não...! IsExeRunning(), retorna .f./.t. se sua aplicação já esta sendo executada no mesmo terminal. IsWinXp(), retorna .f./.t. se sua aplicação esta rodando no Windows XP... e outros... IsGTF() IsIconic() IsMenu() IsOEM() IsOverWnd() IsRTF() IsWin95() IsWin2000() IsWindow() IsWindowEnable() IsWindowVisable() IsWinNT() IsZip() IsZooMed() IsAnsi() IsAnsiLower() IsAnsiUpper() IsCdRom() IsChild() IsDefButton() IsDiskette() Eu sei que tem ISFound() no Delphi... ________________________ 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 30/11/2009 13:34:52

Olá Desenvolvedores, Boa Tarde! Já utilizo o HIDE()/SHOW() para Habilitar/Desabilitar Buttons.. Pois bem, quero aplicar isso a Get/Combos/ListBox,...só que neste caso o HIDE() some com a imagem da tela... Quero apenas tirar o focu ! Tem como ? ________________________ 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! Já utilizo o HIDE()/SHOW() para Habilitar/Desabilitar Buttons.. Pois bem, quero aplicar isso a Get/Combos/ListBox,...só que neste caso o HIDE() some com a imagem da tela... Quero apenas tirar o focu ! Tem como ? ________________________ 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! Nova Linguagem da Google..... http://info.abril.com.br/noticias/ti/google-apresenta-linguagem-go-12112009-34.shl http://www.fayerwayer.com.br/2009/11/google-lanca-go-sua-propria-linguagem-de-programacao/ ________________________ 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! Nova Linguagem da Google..... http://info.abril.com.br/noticias/ti/google-apresenta-linguagem-go-12112009-34.shl http://www.fayerwayer.com.br/2009/11/google-lanca-go-sua-propria-linguagem-de-programacao/ ________________________ 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...."

Me retorna : Conexão não sucedida!! Olha só uns trechos do código : @ 316,007 BtnBmp oBtn2 Of oDlg FILENAME "U:\BMP\83.bmp" Size 30,30 Action(BuscaFTP()) NOBORDER oBtn2:ctooltip="Acessa ftp..." . . . Function BuscaFTP() local oInternet, oFTP MsgRun("Conectando FTP...", "Por favor, Aguarde...",; { || oInternet := TInternet():New(),; oFTP := TFTP():New("123.123.12.9", oInternet ) } ) if Empty( oFTP:hFTP ) MsgStop( "Conexão não sucedida!!","ERRO:") return nil endif Return ________________________ 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...."

Não funcionou corretamente...mas valeu....vou estudar e testar mais um milhão de vezes..e dai retorno se conseguir..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...."

Olá Desenvolvedores, Bom Dia! Não dá erro e também não dá certo! O que posso fazer ? Quero que o usuário ao clicar em um BtnBmp, seja acionado um determinado determinado FTP : @ 316,007 BtnBmp oBtn2 Of oDlg FILENAME "U:\BMP\83.bmp" Size 30,30 Action(WINEXEC("Start ftp://111.111.11.1/CEDO/Producao/Clientes/")) NOBORDER oBtn2:ctooltip="Acessa FTP..." Ou ainda... Caso possam, me dêm uma dica de como, por exemplo, o usuário clicar num botão e automaticamente o sistema buscar um FTP e baixar um ou mais arquivos TXT que lá estão em uma pasta no micro, por exemplo, U:\ARQUIVOS\... ________________________ 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 12/11/2009 09:50:10

Olá Desenvolvedores, Bom Dia! Não dá erro e também não dá certo! O que posso fazer ? Quero que o usuário ao clicar em um BtnBmp, seja acionado um determinado determinado FTP : @ 316,007 BtnBmp oBtn2 Of oDlg FILENAME "U:\BMP\83.bmp" Size 30,30 Action(WINEXEC("Start ftp://111.111.11.1/CEDO/Producao/Clientes/")) NOBORDER oBtn2:ctooltip="Acessa FTP..." Ou ainda... Caso possam, me dêm uma dica de como, por exemplo, o usuário clicar num botão e automaticamente o sistema buscar um FTP e baixar um ou mais arquivos TXT que lá estão em uma pasta no micro, por exemplo, U:\ARQUIVOS\... ________________________ 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 12/11/2009 09:50:10

Valeu KAPI pelo retorno...vou testar ja ja retorno!! OK!!! É ISSO MESMO!! RESOLVIDO !! 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...." Editado por - sig_gilberto on 11/11/2009 17:44:36

Olá Desenvolvedores, Boa Tarde! Eu as voltas com o seguinte problema : Preciso que o meu sistema identifique a existência de uma arquivo TXT em uma determinada pasta mas quando uso FILE() me retorna .F., vejam parte do código : Exemplo do Nome : "93117455002116_20092009215827.TXT" #include "Fivewin.ch" #Include "Directry.ch" #include "FILEIO.CH" . . . . Public oGet1, a_ArqCor:="*.TXT"+Space(30) ** Caixas de Entrada @ 04.0,04.0 SAY oSay1 VAR "Mídia Correio" Of oDLg FONT oFont6 Size 100,40 COLOR RGB(050,150,000) @ 05.7,03.0 GET OGet1 VAR a_ArqCor Pict "@K!" Valid !Empty(a_ArqCor) Of oDLg FONT oFont2 Size 200,16 COLOR RGB(200,000,100) oGet1:ctooltip="Arquivo/Mídia do Correio" . . . If !File(a_ArqCor) MsgStop("Arquivo de Mídia do Correio Inexistênte!!!","ERRO:"+a_ArqCor) && >>> AQUI, RETORNA .F. ! PQ ? oGet1:SetFocus() Return Nil Endif . . . ======================================== Function BuscaArqCor(BTipo) a_ArqCor=cGetFile32(BTipo,"Selecione o Arquivo",,WPasta) a_ArqCor=iif(!Empty(a_ArqCor),cFileNoPath(a_ArqCor),"Nenhum") oGet1:SetFocus() Return a_ArqCor ________________________ 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! Eu as voltas com o seguinte problema : Preciso que o meu sistema identifique a existência de uma arquivo TXT em uma determinada pasta mas quando uso FILE() me retorna .F., vejam parte do código : Exemplo do Nome : "93117455002116_20092009215827.TXT" #include "Fivewin.ch" #Include "Directry.ch" #include "FILEIO.CH" . . . . Public oGet1, a_ArqCor:="*.TXT"+Space(30) ** Caixas de Entrada @ 04.0,04.0 SAY oSay1 VAR "Mídia Correio" Of oDLg FONT oFont6 Size 100,40 COLOR RGB(050,150,000) @ 05.7,03.0 GET OGet1 VAR a_ArqCor Pict "@K!" Valid !Empty(a_ArqCor) Of oDLg FONT oFont2 Size 200,16 COLOR RGB(200,000,100) oGet1:ctooltip="Arquivo/Mídia do Correio" . . . If !File(a_ArqCor) MsgStop("Arquivo de Mídia do Correio Inexistênte!!!","ERRO:"+a_ArqCor) && >>> AQUI, RETORNA .F. ! PQ ? oGet1:SetFocus() Return Nil Endif . . . ======================================== Function BuscaArqCor(BTipo) a_ArqCor=cGetFile32(BTipo,"Selecione o Arquivo",,WPasta) a_ArqCor=iif(!Empty(a_ArqCor),cFileNoPath(a_ArqCor),"Nenhum") oGet1:SetFocus() Return a_ArqCor ________________________ 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...."

Só para exemplificar, caso alguém saiba mais algum "pulo do gato"... o1 := TTxtFile():New("ARQUIVO_JA_EXISTENTE001.TXT" ) Caso o arquivo exista, ele o abre... Caso o arquivo, não exista, ele o cria... ************************************ #include "fivewin.ch" #include "FILEIO.CH" #Include "Directry.ch" static oWnd Function MD() Define Window oWnd TITLE "TESTE" Activate Window oWnd Maximized On Init Dialogo() Return Nil ******************************************* Function Dialogo() o1 := TTxtFile():New("ARQUIVO_JA_EXISTENTE001.TXT" ) o2 := TTxtFile():New("ARQUIVO_JA_EXISTENTE002.ASA" ) o3 := TTxtFile():New("ARQUIVO_NAO_EXISTENTE_NOVO.TXT" ) cTotLinha:= o1:RecCount() for n = 1 to cTotLinha L1:= o1:ReadLine() L2:= o2:ReadLine() o3:GoBottom() o3:AppendLN("gravada = "+L2) o1:Skip() o2:Skip() next o1:Close() o2:Close() o3:Close() Quit 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 11/11/2009 09:55:19

Olha.....realmente.....com o TTXTFILE() o código fica mais limpo e mmuuiittooooo mais rápido!!! Valeu pela Dica!! ________________________ 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 10/11/2009 08:18:48

Olá Desenvolvedores, Boa Tarde! Estou as voltas com o seguinte problema: 1º Abrir um arquivo TXT 2º Ler a primeira linha dele 3º Ler linha a linha de outro arquivo TXT e verificar se há um incidência de dados, caso tenha 4º Grava em um terceiro arquivo TXT Bem, o problema é que não estou conseguindo fazer a pesquisa no 2º arquivo : #include "fivewin.ch" #include "FILEIO.CH" static oWnd **** Function MD() Define Window oWnd TITLE "TESTE" Activate Window oWnd Maximized On Init Dialogo() Return Nil ******************************************* Function Dialogo() vSelRel:=HB_FSelect(3) vArqRel:=HB_FCreate("RELATORIO.REL") FWrite(vArqRel,"RELATORIO DE PESQUISAS EBM SUCEDIDAS"+Chr(13)+Chr(10)) vSelMar:=HB_FSelect(2) vArqMar:=HB_FUse("MARPRESS_MIDIA_09112009.TXT") HB_FGoTop() vSelCor:=HB_FSelect(1) vArqCor:=HB_FUse("CORREIO_MIDIA_09112009.TXT") HB_FGoTop() Do While ! HB_FEof() vRegCor:=HB_FReadLn() vTipCor:=Substr(vRegCor,01,01) vCifCor:=Substr(vRegCor,02,36) vDatCor:=Substr(vRegCor,38,02)+"/"+Substr(vRegCor,40,02)+"/"+Substr(vRegCor,42,04) vSeqCor:=Substr(vREgCor,46,06) HB_FSelect(2) HB_FGoTop() Do While !HB_FEof() vLhDados:=HB_FReadLn() && Aqui, não lê a linha do arquivo da área 2 If (vCifCor$vLhDados) HB_FSelect(3) FWrite(vSelRel,vLhDados+Chr(13)+Chr(10)) EndIf HB_FSelect(2) HB_FSkip(1) EndDo HB_FSelect(1) HB_FSkip(1) EndDo oWnd:End() 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! Estou as voltas com o seguinte problema: 1º Abrir um arquivo TXT 2º Ler a primeira linha dele 3º Ler linha a linha de outro arquivo TXT e verificar se há um incidência de dados, caso tenha 4º Grava em um terceiro arquivo TXT Bem, o problema é que não estou conseguindo fazer a pesquisa no 2º arquivo : #include "fivewin.ch" #include "FILEIO.CH" static oWnd **** Function MD() Define Window oWnd TITLE "TESTE" Activate Window oWnd Maximized On Init Dialogo() Return Nil ******************************************* Function Dialogo() vSelRel:=HB_FSelect(3) vArqRel:=HB_FCreate("RELATORIO.REL") FWrite(vArqRel,"RELATORIO DE PESQUISAS EBM SUCEDIDAS"+Chr(13)+Chr(10)) vSelMar:=HB_FSelect(2) vArqMar:=HB_FUse("MARPRESS_MIDIA_09112009.TXT") HB_FGoTop() vSelCor:=HB_FSelect(1) vArqCor:=HB_FUse("CORREIO_MIDIA_09112009.TXT") HB_FGoTop() Do While ! HB_FEof() vRegCor:=HB_FReadLn() vTipCor:=Substr(vRegCor,01,01) vCifCor:=Substr(vRegCor,02,36) vDatCor:=Substr(vRegCor,38,02)+"/"+Substr(vRegCor,40,02)+"/"+Substr(vRegCor,42,04) vSeqCor:=Substr(vREgCor,46,06) HB_FSelect(2) HB_FGoTop() Do While !HB_FEof() vLhDados:=HB_FReadLn() && Aqui, não lê a linha do arquivo da área 2 If (vCifCor$vLhDados) HB_FSelect(3) FWrite(vSelRel,vLhDados+Chr(13)+Chr(10)) EndIf HB_FSelect(2) HB_FSkip(1) EndDo HB_FSelect(1) HB_FSkip(1) EndDo oWnd:End() 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...."