HERGON

Bom dia
Eu faço assim, talvez ajude:
 
Function fAcertarDtHr(lMostraOk)
   Local oWeb, cWeb, cProcura, cExtrai, cHora, cData, lAjusta:=.f.
    Default lMostraOk:=.t.
   If !VerificaNet()
        If lMostraOk
         fMsgStop("Computador não está conectado na internet.", "Sem Acesso à Internet")
      Endif
      Return .f.
   Endif
   MsgAguarde("Verificando data/hora pela internet.", "Aguarde...")
   SysRefresh()
   CursorWait()
   oWeb    := WebConnect():New()
   cWeb    := oWeb:Open( "http://www.horacerta.com.br/index.php?city=sao_paulo" )
   cProcura:= '<input name="mostrador" type="text" size="25" value="'
   cExtrai := Subs(cWeb, At(cProcura,cWeb)+53,24)
   cData   := Alltrim(Left(alltrim(cExtrai),10))
   cHora   := Alltrim(StrZero(If(Right(cExtrai,2)=="PM" .and. Val(subs(cExtrai,14,2))<=11, 12, 0)+Val(subs(cExtrai,14,2)),2)+":"+subs(cExtrai,17,5))
   If Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==0
      // Não alterar a hora
   Elseif Val(GetPvProfString("Diversos", "Ajuste da Hora", "", CurDrive()+":\"+CurDir()+"\"+cNomeTerm+".ini"))==1
      cHora := TsTring(Secs(cHora)-3600)
   Else
      cHora := TsTring(Secs(cHora)+3600)
   Endif
    MsgFechaAguarde()
   If Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Data e hora da Internet:"+CRLF+;
                  cData+"  -  "+cHora+CRLF+CRLF+;
                  "Data e hora do computador:"+CRLF+;
                  Dtoc(Date())+"  -  "+Time()+CRLF+CRLF+;
                  "Deseja ajustar a data e hora?", "Data e hora do computador parecem desatualizadas.")
         lAjusta:=.t.
      Endif
   Elseif Ctod(cData)==Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)<>Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Hora da Internet:"+CRLF+;
                  cHora+CRLF+CRLF+;
                  "Hora do computador:"+CRLF+;
                  Time()+CRLF+CRLF+;
                  "Deseja ajustar a hora?", "A hora do computador está desatualizada")
         lAjusta:=.t.
      Endif
   Elseif Ctod(cData)<>Date() .and. Val(cData)<>0 .and. Subs(cHora,1,5)==Subs(Time(),1,5) .and. Val(cHora)<>0
      If MsgYesNo("Data da Internet:"+CRLF+;
                  cData+CRLF+CRLF+;
                  "Data do computador:"+CRLF+;
                  Dtoc(Date())+CRLF+CRLF+;
                  "Deseja ajustar a data?", "A data do computador está desatualizada")
         lAjusta:=.t.
      Endif
   Else
        If lMostraOk
         MsgInfo("A data/hora do seu computador conferem com as informações da internet."+CRLF+CRLF+;
                 "Data: "+cData+"  -  Hora: "+cHora, "Informações da Internet")
          Endif
   Endif
   If lAjusta
      MsgRun( "Ajustando data e hora.", "Aguarde...", { || fAjustaDataHora(cData, cHora) } )
      MsgInfo("Ajuste realizado com sucesso.", "Ajuste")
   Endif
Return Nil
Static Function fAjustaDataHora(cData, cHora)
   MyRun( "date "+cData )
   MyRun( "time "+cHora )
   If Ctod(cData) <> date()
      MyRun("timedate.cpl") //abre tela data e hora windows
   Endif
Return .t.
 
Tem algumas funções próprias, mas comente e teste.
Herberson Gontijo

Rochinha
Gostei muito da dica, testei via comando e funcionou bem, vou implementar no meu sistema. Obrigado.
Herberson Gontijo

Bom dia Kapiaba
Tive o mesmo problema, olhei nos fontes e identifiquei que tem que criar uma subpasta com o nome DADOS que ai o sistema cria as bases de dados necessárias.
Abraço
Herberson Gontijo

Boa tarde
Fiz o depósito agora na hora do almoço.
Abraço
Herberson Gontijo - Ponteware Informática.
 

Boa tarde
Fiz o depósito agora na hora do almoço.
Abraço
Herberson Gontijo - Ponteware Informática.
 

Bom dia!
Gostei da API! E é de graça!
Tá na mão:
********************************************
Function GetDadosCNPJ()
    * retorna dados de um CNPJ
    * retorno no formato JSON
    * site que oferece o servico: https://www.receitaws.com.br
    
    Local oServerWS, cUrl, aArray, oCnpj:= SPACE(14)
    
    MsgGet("ReceitaWS", "Informe o CNPJ:", @oCnpj)
    
    cUrl:= "https://www.receitaws.com.br/v1/cnpj/"+Alltrim(oCnpj)
    Try
        oServerWS := CreateObject( 'MSXML2.ServerXMLHTTP.6.0' )  
    Catch e
        ? e:Description
        return nil
    End 
    
    oServerWS:open('GET', cUrl, .f.)
    oServerWS:setRequestHeader('Content-Type'    , 'text/xml; charset=utf-8')    // Obtém ou define o valor de cabeçalho de Content-type HTTP.
    oServerWS:send()    
    
    * Verifica o status do request. Exibe erro se houver
    IF oServerWS:Status != 200 // OK
       MsgStop( Alltrim(STR(oServerWS:Status)) +" - "+ oServerWS:StatusText , "Erro")
        RETURN NIL
    ENDIF
    
    WHILE oServerWS:readyState != 4
       oServerWS:waitForResponse(1000)
    END   
        
    * decodifica o arquivo json e transforma em um array multidimensional
   x :=  hb_jsondecode( oServerWS:responseText, @aArray )
    
    if aArray == nil
        MsgStop("Erro ao retornar os dados. Tente novamente.")
        return nil
    endif
    if aArray['status'] != 'OK' // exibe erros
        MsgStop(aArray['message'], 'Erro')
       return nil
    endif
    
    xbrowse(aArray) // mostra o resultado    
    
return nil
 
 
 

Boa tarde
Interessante mais essa opção para pegarmos os dados informando o CNPJ, mas infelizmente não retorna a INSCRIÇÃO ESTADUAL.
Herberson Gontijo

Bom dia pessoal
Estou acompanhando o post, apesar de ainda não ter manifestado... Com certeza também participarei.
A data 29/10 é legal. Se quiserem passar para novembro, para mim também não há problema.
Sobre os temas de palestras até agora apresentados, são bem interessantes, apenas acrescentaria falarmos sobre a FiveTouch e se alguém já tiver utilizando, quem sabe apresentar algum aplicativo pronto para termos maior contato com o produto.
Não vamos deixar esfriar este assunto do encontro, senão acaba ficando para última hora e não sair do papel.
Abraços

Bom dia pessoal
Estou acompanhando o post, apesar de ainda não ter manifestado... Com certeza também participarei.
A data 29/10 é legal. Se quiserem passar para novembro, para mim também não há problema.
Sobre os temas de palestras até agora apresentados, são bem interessantes, apenas acrescentaria falarmos sobre a FiveTouch e se alguém já tiver utilizando, quem sabe apresentar algum aplicativo pronto para termos maior contato com o produto.
Não vamos deixar esfriar este assunto do encontro, senão acaba ficando para última hora e não sair do papel.
Abraços

Boa tarde
No ano passado eu me dispus a organizar o evento em BH/MG, nos mesmos moldes do anterior que foi realizado no SESC... Perdi meu tempo fazendo cotações, pré contratos com o SESC e empresas para buffet e etc. O único trabalho que os participantes interessados teriam era fazer uma pré-inscrição para levantarmos o número de pessoas que participariam e assim termos como contratar os serviços. Depois, obviamente viria a parte onde levantaríamos o conteúdo programático do evento.
Para resumir, TODOS estão a favor do evento, querem que seja realizado mas não contribuem com NADA, nem mesmo com uma simples pré-inscrição.
Estou totalmente a favor da realização do evento, desde que bem preparado e que exista um conteúdo elaborado para usufruirmos não só da companhia dos participantes, mas também adquirirmos conhecimento e quem sabe promovermos parcerias. Se for apenas uma reunião para tomarmos cervejas numa padaira/bar, não contem comigo.
Herberson Gontijo

Boa tarde
No ano passado eu me dispus a organizar o evento em BH/MG, nos mesmos moldes do anterior que foi realizado no SESC... Perdi meu tempo fazendo cotações, pré contratos com o SESC e empresas para buffet e etc. O único trabalho que os participantes interessados teriam era fazer uma pré-inscrição para levantarmos o número de pessoas que participariam e assim termos como contratar os serviços. Depois, obviamente viria a parte onde levantaríamos o conteúdo programático do evento.
Para resumir, TODOS estão a favor do evento, querem que seja realizado mas não contribuem com NADA, nem mesmo com uma simples pré-inscrição.
Estou totalmente a favor da realização do evento, desde que bem preparado e que exista um conteúdo elaborado para usufruirmos não só da companhia dos participantes, mas também adquirirmos conhecimento e quem sabe promovermos parcerias. Se for apenas uma reunião para tomarmos cervejas numa padaira/bar, não contem comigo.
Herberson Gontijo

Boa tarde
Sei que não é um assunto novo, mas os post's anteriores ficaram confusos e acabei me perdendo nas respostas.
Gostaria de saber se é possível buscar informações pelo site do SINTEGRA passando por parâmetro o CNPJ da empresa. Sei que tem um captcha na página e isso pode dificultar.
Se algum dos amigos conseguiu e puder disponibilizar, seria de grande ajuda, já que agora aqui em MG tem NFe sendo DENEGADA uma atrás da outra por conta do IE não habilitado. Seria legal consultar a situação cadastral do cliente antes de gerar uma NFe e ela ser denegada.
Att.
Herberson Gontijo
Ponteware Informática

Bom dia Erciley
Possível é, mas não é o maior problema, todo o custo é negociado em relação ao número de participantes, happy houer, coffee break, churrasco, etc. Isso para não falar da parte técnica, como apresentações, projetor, sistema de som, e por ai vai... depois temos a parte do material didático, ou seja, sem um número mínimo para trabalhar não há organização possível.
Mas valeu pela tentativa, eu já entreguei... quem sabe em cima da hora no final do ano fazemos um "junta-junta" de abnegados e vamos tomar umas brejas e conversar em um buteco em SP?
Herberson Gontijo
Ponteware Informática Ltda.

Amigos do fórum


Conforme prometi, estou manifestando sobre assumir a realização do "IX Congresso FW" em 2014.
Após várias pesquisas, consultas de preço e estudo de viabilidade para realização do “IX Congresso Fivewin”, o resultado apresento abaixo para apreciação de todos.

A proposta é realizarmos um evento parecido com o de 2010 no que se refere à estrutura de hospedagem/alimentação, obviamente quanto às palestras/conteúdo, será discutido no decorrer do tempo de acordo com sugestões dos participantes.
Novamente o local proposto foi o SESC-MG (em Belo Horizonte) e o check-in poderá ser feito no dia 21/Nov/2014 (sexta-feira) a partir das 18h e check-out no dia 23/Nov/2014 (domingo) até as 18h. Serão 2 diárias em chalés com ar-condicionado, frigobar, cama de casal, TV, café da manhã e almoço. Na sexta-feira, Teremos um “happy-hour”, para recepcionarmos os participantes, no “Bar dos Jogos”, local com estrutura adequada para tal, além de mesas de sinuca e jogos e no sábado, à noite, teremos o tradicional churrasco de confraternização, no salão do restaurante da piscina. Também serão fornecidos 2 coffee-break no sábado e 2 no domingo, nos intervalos das palestras na parte da manhã e da tarde, respectivamente, com o seguinte cardápio:
Café, leite c/sem Açúcar, ou Chocolate quente. 05 Variedades Pitt four e Sequilhos, 02 Variedades bolo(Chocolate, Limão, Cenoura, Laranja com cobertura) ou broa de fubá 02 Variedades Suco Natural (Sabores Uva, Abacaxi, Manga, Acerola, Goiaba) 02 Variedades de refrigerante primeira linha (Cola e guaraná) 02 Variedades de mini-salgados (Sfira, enrolado de presunto, empada, coxinha, delicia queijo) 02 Variedade de mini-salgados folheados (Abacaxi c/ presunto, ricota, bacon c/ damasco, alho poro) 02 Variedades de mini-croissant (Queijo, presunto e queijo, frango, goiaba, chocolate) 01 Variedade de mini-sanduíche (Presunto e queijo / pasta de frango / pasta de presunto / pasta de atum) 01 Variedade de mini-sanduíche pão caseiro (Lombo, Queijo prato, Requeijão, peito de peru defumado) Pão de Queijo O custo por participante será de R$ 420,00 (ou 5 x R$ 84,00) e para acompanhante R$ 300,00 (ou 5 x R$ 60,00) no mesmo chalé. Os valores poderão ser pagos à vista ou 5 parcelas, a partir de junho/2014, as inscrições poderão ser feitas pela internet e os pagamentos
através de boleto bancário.
Os valores acima foram através de muita negociação e talvez consiga segurá-los até 10 de maio, então seria muito bom todos os interessados se manifestarem o quanto antes para conseguirmos segurar a data e o preço.
Herberson Gontijo
Ponteware Software Ltda.

Amigos do fórum


Conforme prometi, estou manifestando sobre assumir a realização do "IX Congresso FW" em 2014.
Após várias pesquisas, consultas de preço e estudo de viabilidade para realização do “IX Congresso Fivewin”, o resultado apresento abaixo para apreciação de todos.

A proposta é realizarmos um evento parecido com o de 2010 no que se refere à estrutura de hospedagem/alimentação, obviamente quanto às palestras/conteúdo, será discutido no decorrer do tempo de acordo com sugestões dos participantes.
Novamente o local proposto foi o SESC-MG (em Belo Horizonte) e o check-in poderá ser feito no dia 21/Nov/2014 (sexta-feira) a partir das 18h e check-out no dia 23/Nov/2014 (domingo) até as 18h. Serão 2 diárias em chalés com ar-condicionado, frigobar, cama de casal, TV, café da manhã e almoço. Na sexta-feira, Teremos um “happy-hour”, para recepcionarmos os participantes, no “Bar dos Jogos”, local com estrutura adequada para tal, além de mesas de sinuca e jogos e no sábado, à noite, teremos o tradicional churrasco de confraternização, no salão do restaurante da piscina. Também serão fornecidos 2 coffee-break no sábado e 2 no domingo, nos intervalos das palestras na parte da manhã e da tarde, respectivamente, com o seguinte cardápio:
Café, leite c/sem Açúcar, ou Chocolate quente. 05 Variedades Pitt four e Sequilhos, 02 Variedades bolo(Chocolate, Limão, Cenoura, Laranja com cobertura) ou broa de fubá 02 Variedades Suco Natural (Sabores Uva, Abacaxi, Manga, Acerola, Goiaba) 02 Variedades de refrigerante primeira linha (Cola e guaraná) 02 Variedades de mini-salgados (Sfira, enrolado de presunto, empada, coxinha, delicia queijo) 02 Variedade de mini-salgados folheados (Abacaxi c/ presunto, ricota, bacon c/ damasco, alho poro) 02 Variedades de mini-croissant (Queijo, presunto e queijo, frango, goiaba, chocolate) 01 Variedade de mini-sanduíche (Presunto e queijo / pasta de frango / pasta de presunto / pasta de atum) 01 Variedade de mini-sanduíche pão caseiro (Lombo, Queijo prato, Requeijão, peito de peru defumado) Pão de Queijo O custo por participante será de R$ 420,00 (ou 5 x R$ 84,00) e para acompanhante R$ 300,00 (ou 5 x R$ 60,00) no mesmo chalé. Os valores poderão ser pagos à vista ou 5 parcelas, a partir de junho/2014, as inscrições poderão ser feitas pela internet e os pagamentos
através de boleto bancário.
Os valores acima foram através de muita negociação e talvez consiga segurá-los até 10 de maio, então seria muito bom todos os interessados se manifestarem o quanto antes para conseguirmos segurar a data e o preço.
Herberson Gontijo
Ponteware Software Ltda.

Amigos do fórum


Conforme prometi, estou manifestando sobre assumir a realização do "IX Congresso FW" em 2014.
Após várias pesquisas, consultas de preço e estudo de viabilidade para realização do “IX Congresso Fivewin”, o resultado apresento abaixo para apreciação de todos.

A proposta é realizarmos um evento parecido com o de 2010 no que se refere à estrutura de hospedagem/alimentação, obviamente quanto às palestras/conteúdo, será discutido no decorrer do tempo de acordo com sugestões dos participantes.
Novamente o local proposto foi o SESC-MG (em Belo Horizonte) e o check-in poderá ser feito no dia 21/Nov/2014 (sexta-feira) a partir das 18h e check-out no dia 23/Nov/2014 (domingo) até as 18h. Serão 2 diárias em chalés com ar-condicionado, frigobar, cama de casal, TV, café da manhã e almoço. Na sexta-feira, Teremos um “happy-hour”, para recepcionarmos os participantes, no “Bar dos Jogos”, local com estrutura adequada para tal, além de mesas de sinuca e jogos e no sábado, à noite, teremos o tradicional churrasco de confraternização, no salão do restaurante da piscina. Também serão fornecidos 2 coffee-break no sábado e 2 no domingo, nos intervalos das palestras na parte da manhã e da tarde, respectivamente, com o seguinte cardápio:
Café, leite c/sem Açúcar, ou Chocolate quente. 05 Variedades Pitt four e Sequilhos, 02 Variedades bolo(Chocolate, Limão, Cenoura, Laranja com cobertura) ou broa de fubá 02 Variedades Suco Natural (Sabores Uva, Abacaxi, Manga, Acerola, Goiaba) 02 Variedades de refrigerante primeira linha (Cola e guaraná) 02 Variedades de mini-salgados (Sfira, enrolado de presunto, empada, coxinha, delicia queijo) 02 Variedade de mini-salgados folheados (Abacaxi c/ presunto, ricota, bacon c/ damasco, alho poro) 02 Variedades de mini-croissant (Queijo, presunto e queijo, frango, goiaba, chocolate) 01 Variedade de mini-sanduíche (Presunto e queijo / pasta de frango / pasta de presunto / pasta de atum) 01 Variedade de mini-sanduíche pão caseiro (Lombo, Queijo prato, Requeijão, peito de peru defumado) Pão de Queijo O custo por participante será de R$ 420,00 (ou 5 x R$ 84,00) e para acompanhante R$ 300,00 (ou 5 x R$ 60,00) no mesmo chalé. Os valores poderão ser pagos à vista ou 5 parcelas, a partir de junho/2014, as inscrições poderão ser feitas pela internet e os pagamentos
através de boleto bancário.
Os valores acima foram através de muita negociação e talvez consiga segurá-los até 10 de maio, então seria muito bom todos os interessados se manifestarem o quanto antes para conseguirmos segurar a data e o preço.
Herberson Gontijo
Ponteware Software Ltda.

Concordo como Tião.

Bom dia
Editei o post e colei novamente a rotina, agora já dá para copiar e colar sem perder a edentação.
Abraços
Herberson Gontijo
Ponteware Software Ltda.