kapiaba Posted March 20, 2023 Report Share Posted March 20, 2023 Consultar o site da Receita Federal: // C:\FWH..\SAMPLES RECEITA4.PRG #Include "FiveWin.ch" FUNCTION Main() LOCAL cCnpj cCnpj := "13226892000195" SiteCnpjFazenda( cCnpj ) RETURN NIL FUNCTION SiteCnpjFazenda( cCnpj ) LOCAL cUrl cUrl := [http://www.receita.fazenda.gov.br/PessoaJuridica/CNPJ/cnpjreva/Cnpjreva_Solicitacao2.asp?cnpj=] + ; StrZero( Val( cCnpj ), 14 ) ShellExecute(GetActiveWindow(),"open",'"'+cUrl+'"', 0) RETURN NIL // FIN - kapiabafwh@gmail.com Regards, saludos. Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.