vagner

January 31, 2014

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

January 30, 2014

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

January 21, 2014

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

January 17, 2014

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

January 7, 2014

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]

January 2, 2014

Feliz 2014 para todo

December 10, 2013

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

December 10, 2013

Olá,

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

December 2, 2013

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.

December 2, 2013

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

November 28, 2013

mesmo assim não retorna informação...

 ElseIf cUF == "MG"
     aRet := {"http://consultasintegra.fazenda.mg.gov.br/sintegra/",;
          "",;  // "consulta_empresa_pesquisa.asp",;
          "",;  // "consulta_empresa_principal.asp",;
          {"IDENTIFICAÇÃO","Os dados acima estão baseados"},;
          {"CNPJ:",;
          "Inscrição Estadual:",;
          "Razão Social:",;
          "Logradouro:",;
          "Número:",;
          "Complemento:",;
          "Bairro:",;
          "Município:",;
          "UF:",;
          "CEP:",;
          "Telefone:",;
          "Atividade Econômica:",;
          "Situação Cadastral Vigente:",;
          "Data desta Situação Cadastral:",;
          "Regime de Apuração:" ;
          } ;
         }

Como dito antes, vc precisa alterar os dados, que provavelmente mudaram também em relação a página para isso basta vc entrar na página e com o botão direito clicar em exibir código fonte, trocar o que vc precisa e testar novamente

November 27, 2013

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<

November 26, 2013

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

November 19, 2013

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.

November 19, 2013

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

November 8, 2013

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

November 7, 2013

Olá,

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

October 26, 2013

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

October 25, 2013

E o ORDSCOPE() pode usar.

Kapi,

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

October 25, 2013

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

October 25, 2013

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

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

October 25, 2013

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

October 25, 2013

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
/**********************************************************/

October 25, 2013

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
/**********************************************************/

October 22, 2013

Olá Motta,
Veja se ajuda

http://www.linhadecodigo.com.br/artigo/663/criando-um-webservice-para-controle-de-clientes-utilizando-csharp.aspx

Sign In

vagner

Posts

Joined

Last visited

Days Won

Content Type

Downloads

Profiles

Forums

Posts posted by vagner

Arquivo vazio baixado do FTP.

comprar licenca

tela sobre tela

Bloquear o Error Dos 64 no Errsysw.prg

Testar o PING da SEFAZ de SAMPA não funciona.

Feliz Natal e Boas Festas

Função para retornar um valor - RESOLVIDO

Função para retornar um valor - RESOLVIDO

Consulta SINTEGRA pelo CNPJ

Consulta SINTEGRA pelo CNPJ

Consulta SINTEGRA pelo CNPJ

Consulta SINTEGRA pelo CNPJ

Validar Inscrição estadual com DLL do Sintegra

Programa com FWH13.06 e xHarbour 1.2.3 fica lento

ENCONTRO DE FIVEWINNERS - 16/11/2013 - Sábado.

acessar pelo terminal server do windows um servidor LINUX.

Como fazer isto rodar em 32bits !!!

como saber (rapido) o numero de linhas de um mega arquivo.txt

usar metodo :bskip do wbrowse

usar metodo :bskip do wbrowse

como saber (rapido) o numero de linhas de um mega arquivo.txt

como saber (rapido) o numero de linhas de um mega arquivo.txt

como saber (rapido) o numero de linhas de um mega arquivo.txt

como saber (rapido) o numero de linhas de um mega arquivo.txt

criar WEBSERVICE em (x)Harbour

Browse

Activity