PC Toledo

Código: Selecionar todos

#include "inkey.ch"

***************
FUNCTION main()
***************
parameter pcnpj
local oMapa, mcnpj, mweb
setmode(25,80)
setcolor('w+/b,g+/n,,,bg+/b' )
set cursor on
cls

do while .t.

   if pcount() == 0
      mcnpj := space(14)
   else
      mcnpj := pcnpj
   endif

   @ 05, 01 say "Consultar o CNPJ:"
   @ 07, 01 say "CNPJ.....:" get mcnpj picture "99999999999999"
   read

   if lastkey() == K_ESC
      exit
   endif

   try
   oMapa := GetActiveObject( "InternetExplorer.Application" )
   catch
   try
   oMapa := CreateObject( "InternetExplorer.Application" )
   catch
   Alert( "ERRO ! Internet Explorer nÆo dispon¡vel")
   return
   end
   end
   mweb := "http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao.asp" + mcnpj
   oMapa:Visible := .t.
   oMapa:Navigate( mweb )

enddo

set cursor off
return

Código: Selecionar todos

COPYSTRINGTOCLIPBOARD(cnpj)

Código: Selecionar todos

// The example loads the Google search page and enters "xHarbour" as
// query data. The response from Google for the query is stored in a local
// HTML file.

    PROCEDURE Main
       LOCAL oHttp, cHtml, hQuery

       oHttp:= TIpClientHttp():new( "http://www.google.de/search" )

       // build the Google query
       hQUery := Hash()
       hSetCaseMatch( hQuery, .F. )

       hQuery["q"]    := "xHarbour"
       hQuery["hl"]   := "en"
       hQuery["btnG"] := "Google+Search"

       // add query data to the TUrl object
       oHttp:oUrl:addGetForm( hQuery )

       // Connect to the HTTP server
       IF oHttp:open()
          // downlowad the Google response
          cHtml   := oHttp:readAll()
          Memowrit( "Google_xHarbour.html", cHtml )

          oHttp:close()
          ? Len(cHtml), "bytes received "
          ?? "and written to file Google_xHarbour.html"
       ELSE
          ? "Connection error:", oHttp:lastErrorMessage()
       ENDIF
    RETURN

Código: Selecionar todos

mweb := "http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp"
mweb += "?cnpj=" + mcnpj

Código: Selecionar todos

FUNCTION SiteCnpjFazenda( cCnpj )
   LOCAL cUrl
   cUrl := [http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=] + ;
      StrZero( Val( cCnpj ), 14 )
   ShellExecuteOpen( cUrl )
   RETURN NIL

Código: Selecionar todos

////////////////////////////////////////////////////////////////////////////////
   //https://pctoledo.org/forum/viewtopic.php?f=43&p=155455#p155455
   //https://pctoledo.org/forum/viewtopic.php?f=4&t=23628 (com Header)
   //https://pctoledo.org/forum/viewtopic.php?f=4&t=17427 (usando a  hb_JSONDecode( cJSON, @hJSON ) )
   //https://nfe.io/docs/desenvolvedores/rest-api/consulta-de-cnpj-v1/ (para consultas)
Function CNPJ_Consulta( cCnpj )
   Local mSite := "http://receitaws.com.br/v1/cnpj/", oHttp, hCNPJA := Hash(), mJSONCNPJ, hJSON := Hash()
   //mSite := "https://publica.cnpj.ws/cnpj/" //mais completo

   If Len( cCnpj ) <> 14
      REturn NIL
   Endif

   Begin Sequence

      Try
         oHttp := CreateObject("MSXML2.ServerXMLHTTP")
         oHttp:Open("GET", mSite + cCNPJ, .F.)
         oHttp:send()
      CATCH oError
         msg := 'Internet Error: 010' + CRLF
         msg += 'Aviso..: Erro verificado ao fazer requisição de CNPJ no Site indicado.' + HB_Eol()
         msg += 'Site...:' + mSite + HB_Eol()
         msg += 'CNPJ...:' + cCNPJ + HB_Eol()
         msg += cl_getError(oError, .t.)

         msgError ( msg )

         hCNPJA := NIL

         Break
      End

      If Empty( oHttp:responseText )
         hCNPJA := NIL
         Break

      ElseIf '"ERROR"' $ oHttp:responseText  //Quando ele não encontra o CNPJ.
         msg := 'Request error: 015' + CRLF
         msg += 'Aviso..: O retorno da consulta de CNPJ está com erros.' + HB_Eol()
         msg += '- Aguarde um minuto e tente novamente.' + HB_Eol()
         msg += 'Site...:' + mSite + HB_Eol()
         msg += 'CNPJ...:' + cCNPJ + HB_Eol()
         msg += 'Response:' + oHttp:responseText + HB_Eol()
         msg += 'Status..:' + Str(oHttp:status, 3) + HB_Eol()
         msg += cl_getError(, .t.)

         MsgError ( msg, .t. )

         hCNPJA := NIL
         Break

      ElseIf 'Too many' $ oHttp:responseText   //Quando passa do limite de 3 consultas por minuto.
         msg := 'Request error: 020' + CRLF
         msg += 'Aviso..: Muitas tentativas de pesquisar CNPJ no Site indicado.' + HB_Eol()
         msg += '- Aguarde um minuto e tente novamente.' + HB_Eol()
         msg += 'Site...:' + mSite + HB_Eol()
         msg += 'CNPJ...:' + cCNPJ + HB_Eol()
         msg += 'Response:' + oHttp:responseText + HB_Eol()
         msg += 'Status..:' + Str(oHttp:status, 3) + HB_Eol()

         MsgAtencao ( msg )

         hCNPJA := NIL
         Break
      Endif

      mJSONCNPJ   := HB_AnsiToOem(oHttp:responseText)

      ADOStringGrava(mJSONCNPJ + CRLF)

      hCNPJA      := JSontoHash( mJSONCNPJ )

      oHttp       := NIL

   End Sequence

   Return hCNPJA
   
   /////////////////////////////////////////////////////////////////////////////
Function cl_NulToString( cString )
   cString := If(cString = NIL, '', cString )
   Return cString


Function JSonToHash( cStringJson )
   /***
   * Converte string formato Json em Hash
   */
   Local hJson := {=>}

   cStringJson := StrTran( cStringJson, ':[','=>{')
   cStringJson := StrTran( cStringJson, '":"','" => "')
   cStringJson := StrTran( cStringJson, '[','{')
   cStringJson := StrTran( cStringJson, ']','}')
   cStringJson := StrTran( cStringJson, '":null','"=>nil')
   cStringJson := StrTran( cStringJson, '":true' ,'"=>.t.' )
   cStringJson := StrTran( cStringJson, '":false','"=>.f.')
   cStringJson := StrTran( cStringJson, '":','"=>')
   cStringJson := StrTran( cStringJson, "\/","/" )

   hJSon := &( cStringJson )

   Return hJson


   /////////////////////////////////////////////////////////////////////////////
Function cl_LimpaString( cString )
   Local mRetorno

   mRetorno := StrTran( cString, '.', '' )
   mRetorno := StrTran( mRetorno, '-', '' )
   mRetorno := StrTran( mRetorno, '/', '' )
   mRetorno := StrTran( mRetorno, '\', '' )
   mRetorno := StrTran( mRetorno, ',', '' )

   Return mRetorno