vagner

Olá Valdir, Precisa ver como vc está baixando, se está finalizando antes de puxar todos os dados

Olá, Mande um e-mail para gilmer@fivewin.com.br

Olá, Vc poderia usar a window mdi ao invés de dialogs, eu pessoalmente não gosto, mas daria sim

Kapi, Sem função essa sua, vai fazer 88 vezes e comparar a mesma coisa, não precisa do FOR NEXT Uso tb igual ao Eduardo, e mando ainda um e-mail com o erro para eu próprio

Olá Kapi, não sei pq não consigo colocar nada aqui, então me chame no skipe que lhe passo minha função que retorna o status do site teste [\code]

Feliz 2014 para todo

Function Ini_oForm_Choise(Ret_Func, x_c_Linha1, x_c_Linha2, x_c_Linha3, x_c_Linha4,; CpBt1, Img1, Tool1,; CpBt2, Img2, Tool2,; CpBt3, Img3, Tool3,; CpBt4, Img4, Tool4 ) @ 1, 6 GROUP oGrp1 TO 99, 514 LABEL "" PIXEL; OF oForm_Choise COLOR 0, 15790320 FONT oFont1 @ 12, 10 SAY oSay1 VAR x_c_Linha1 SIZE 492, 18 PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 @ 31, 10 SAY oSay2 VAR x_c_Linha2 SIZE 490, 18 PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 @ 50, 10 SAY oSay3 VAR x_c_Linha3 SIZE 487, 18 PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 @ 69, 11 SAY oSay4 VAR x_c_Linha4 SIZE 491, 16 PIXEL; OF oGrp1 COLOR 0, 15790320 FONT oFont2 if CpBt1 <> NIL @ 103, 6 BTNBMP oBtn1 Prompt CpBt1; FILE Img1 SIZE 100, 26 PIXEL LEFT; OF oForm_Choise ACTION( Ret_Func := Ret(Ret_Func, oForm_Choise,1)) FONT oFont1 message Tool1 oBtn1:SETCOLOR( 0, 14342874 ) endif * if CpBt2 <> NIL @ 103, 106 BTNBMP oBtn2 Prompt CpBt2; FILE Img2 SIZE 100, 26 PIXEL LEFT; OF oForm_Choise ACTION( Ret_Func := Ret(Ret_Func, oForm_Choise,2)) FONT oFont1 message Tool2 oBtn2:SETCOLOR( 0, 14342874 ) endif * if CpBt3 <> NIL @ 103, 206 BTNBMP oBtn3 Prompt CpBt3; FILE Img3 SIZE 100, 26 PIXEL LEFT; OF oForm_Choise ACTION( Ret_Func := Ret(Ret_Func, oForm_Choise,3)) FONT oFont1 message Tool3 oBtn3:SETCOLOR( 0, 14342874 ) endif * if CpBt4 <> NIL @ 103, 306 BTNBMP oBtn4 Prompt CpBt4; FILE Img4 SIZE 100, 26 PIXEL LEFT; OF oForm_Choise ACTION( Ret_Func := Ret(Ret_Func, oForm_Choise,4)) FONT oFont1 message Tool4 oBtn4:SETCOLOR( 0, 14342874 ) endif * @ 103, 434 BTNBMP oBtn5 Prompt "Sair"; FILE "Imagens\16\EXIT.bmp" SIZE 80, 26 PIXEL LEFT; OF oForm_Choise ACTION if( MsgInfo( "Tem certeza que deseja sair sem escolher nenhuma das opções?", "Atenção" ), Ret(x_cValRet, oForm_Choise,0), ) FONT oFont1 Message "Clicando aqui, vai sair da janela" oBtn5:SETCOLOR( 0, 14342874 ) SET MESSAGE OF oForm_Choise TO "Escolha uma das opções oferecidas" Return .t. *-------------------------------------------* * * Define a Funcao Ret que fecha a janela da escolha e retorna o valor correspondente a opção escolhida * * ATLfuncoes 05/12/2013 - 20:51:52 Everton * *----------------------------------------------------------* Static Function Ret(Ret_Func, oForm_Choise, nNuNumer ) oForm_Choise:end() Ret_Func := str(nNuNumer) Return Ret_Func

Olá, Coloque nos botões o seguinte : Action(Ret_Func := Ret(Ret_Func))

Como já disse, Entre pelo site, click com o Botão direito do mouse, entre em "exibir o código fonte", veja como é montada a página e verá que precisa trocar onde está "endereço :" por exemplo pelo que está na página. não são iguais precisa ver na função onde pega a parte do texto e mudar para o que precisa.

Olá, Vc alterou o local para o retorno ?, aquele array que precisa mudar por causa da página ? Veja que no site do AC, foi criado um <span>, então vc precisa olha isso tb fica a dica

Olá, Houveram mudanças nos links, precisam ser atualizados, o de minas é : http://consultasintegra.fazenda.mg.gov.br/sintegra/ "http://sefaznet.ac.gov.br/sefazonline/servlet/hpfsincon" >Acre< "http://www.sefaz.al.gov.br/asp/sintegra/sintegra.asp?estado=AL" >Alagoas< "http://www.sintegra.ap.gov.br/" >Amapá< "http://www.sefaz.am.gov.br/sintegra/sintegra0.asp" >Amazonas< "http://www.sefaz.ba.gov.br/Sintegra/sintegra.asp?estado=BA" >Bahia< "http://www.sefaz.ce.gov.br/Sintegra/Sintegra.Asp?estado=CE" >Ceará< "http://www.fazenda.df.gov.br/area.cfm?id_area=110" >Distrito Federal< "http://www.sintegra.es.gov.br/" >Espírito Santo< "http://www.sefaz.go.gov.br/sintegra/sintegra.asp" >Goiás< "http://www.sefaz.ma.gov.br/sintegra/sintegra.asp" >Maranhão< "http://www.sefaz.mt.gov.br/sid/consulta/infocadastral/consultar/publica" >Mato Grosso< "http://www1.sefaz.ms.gov.br/Cadastro/sintegra/cadastromsCCI.asp" >Mato Grosso do Sul< "http://consultasintegra.fazenda.mg.gov.br" >Minas Gerais< "http://app.sefa.pa.gov.br/Sintegra/" >Pará< "http://sintegra.receita.pb.gov.br/sintegra/sintegra.asp?estado=pb" >Paraíba< "http://www.sintegra.fazenda.pr.gov.br/sintegra/" >Paraná< "http://www.sintegra.sefaz.pe.gov.br" >Pernambuco< "http://web.sintegra.sefaz.pi.gov.br" >Piauí< "http://www.fazenda.rj.gov.br/projetoCPS" >Rio de Janeiro< "http://www.set.rn.gov.br/uvt/consultacontribuinte.aspx" >Rio Grande do Norte< "http://sintegra.sefaz.rs.gov.br/sef_root/inf/Sintegra_Entrada.asp" >Rio Grande do Sul< "http://www.sefin.ro.gov.br/sint_consul.asp" target="main" >Rondônia< "http://portalapp.sefaz.rr.gov.br/sintegra/servlet/hwsintco" >Roraima< "http://sistemas.sef.sc.gov.br/sintegra" >Santa Catarina< "http://pfeserv1.fazenda.sp.gov.br/sintegrapfe/consultaSintegraServlet" >São Paulo< "http://www.sefaz.se.gov.br/sintegra" target="main" >Sergipe< "http://sintegra.sefaz.to.gov.br" >Tocantins< "http://www.suframa.gov.br/sintegra" >Suframa<

Olá, Eu uso a alguns anos, sem problema algum, porém eu não peguei esse exemplo do pctoledo, mas creio que deva funcionar sem problemas

Olá Motta, Desculpe, mas discordo, pois trabalho muito bem com Samba e DBF, sem problema algum , inclusive foi com ele que descobri que não há necessidade de se reorganizar os dbfs sempre , isso desde a transportadora em que eu trabalhava.

Olá Pessoal, Por motivos de força maior (Filhote, ou nesse caso menor ), infelizmente não pude ir, mas ainda conseguirei fazer com que ele se acostume com a poluição da cidade

Olá Marcio, acho que somente acesso pelo SSH, mas não tenho muita certeza

Olá, Até agora, vc não postou os erros que dão

Sergio, deveria funcionar, pois mesmo os xml, possui um CRLF no final da linha

Kapi, Se ele não têm índice fixo, não dá pra usar OrdScope

Qual seria o motivo de não poder usar índices temporários ?, acho q seria a melhor saída para vc

P.S.: tente o outro código que postei pois é mais rápido que esse que vc postou

Fala Edu, Esteja a vontade, eu montei somente para testar mesmo , por enquanto não estou usando , mas fico contente que tenha funcionado a contento

Uma pequena melhorada no código #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> #include <stdio.h> HB_FUNC ( MY_TESTE ) { FILE *sfile; int nresu; int nline = 0; char temp[2430]; if ((sfile = fopen("UltComPCNew.Txt","r+")) != NULL ) { while(fgets(temp, 2430, sfile) != NULL) { if((strstr(temp, "\n")) != NULL) { nline ++ ; } } fclose(sfile); } else nline = -1; hb_retni( nline ); } #pragma ENDDUMP /**********************************************************/

Olá, Fiz um teste aqui com 52.909 linha em 1.22 segundos , acho q pode lhe ajudar Static func Teste() nSec := Seconds() nTot := My_Teste() ? nTot,Seconds()-nSec Retu(.T.) #pragma BEGINDUMP #include <windows.h> #include <hbapi.h> #include <stdio.h> HB_FUNC ( MY_TESTE ) { FILE *sfile; int nresu; int nline = 0; if ((sfile = fopen("UltComPCNew.Txt","r+")) != NULL ) { while((nresu = fgetc(sfile)) != EOF){ if(nresu == '\n'){ // é uma quebra de linha? // vamos incrementar a quantidade de linhas nline++; } } fclose(sfile); } else nline = -1; hb_retni( nline ); } #pragma ENDDUMP /**********************************************************/

Olá Motta, Veja se ajuda http://www.linhadecodigo.com.br/artigo/663/criando-um-webservice-para-controle-de-clientes-utilizando-csharp.aspx