segunda-feira, 12 de julho de 2021

DICAS 3368 - WINDEV WEBDEV MOBILE - Status Servico Nfe - Curso Webservice - 35


https://youtu.be/4LvfLnSlD3A





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 14/07/2021

DICAS 3368 - WINDEV WEBDEV MOBILE - Status Servico Nfe - Curso Webservice - 35





Relaçao dos Webservices - Producao
Sefaz Rio Grande do Sul - (RS)
Status Servico

Relacao dos webservices - Homologação
Sefaz Rio Grande do Sul - (RS)
Status Servico

Assuntos 

Status Servico Nfe

Vamos criar uma windows chamado status servico 
vamos criar uma tab com 4 guias 
Nfe - Envelope Soap Enviado - Retorno Soap - Links 
Vamos criar um radio Ambiente - HOmologacao ou Producao 
Vamos criar uma combox dos estados 
Vamos criar um edt cuf 
Vamos criar um botao para dar status nfe 
Vamos criar os edt EDT_TpAmb - EDT_Cstat - EDT_Xmotivo -  EDT_retorno_xml
Vamos criar EDT_ENVELOPE_SOAP_ENVIADO
Vamos criar EDT_RETORNO_SOAP
vamos fazer o codigo para buscar o status servico nfe

---------------- Codigo

// Status Nfe

s_recebe_thumprint_certificado is string = "" // vamos criar duas variaveis - 
s_web_service is string = ""
IF RADIO_ambiente=1 THEN // se o ambiente for igual 1- Producao ou se for igual 2 - Homologaão
s_web_service="https://nfe.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx"
ELSE 
s_web_service="https://nfe-homologacao.sefazrs.rs.gov.br/ws/NfeStatusServico/NfeStatusServico4.asmx"
END

// vamos fazer sEnvelopE_soap


sEnvelope_soap is string=[
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:Body>
<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeStatusServico4">
<consStatServ xmlns="http://www.portalfiscal.inf.br/nfe" versao="4.00">
<tpAmb>[%RADIO_ambiente%]</tpAmb>
<cUF>[%EDT_cuf%]</cUF>
<xServ>STATUS</xServ>
</consStatServ>
</nfeDadosMsg>
</soap12:Body>
</soap12:Envelope>
]
sEnvelope_soap=Replace(sEnvelope_soap,CR,"") // vamos tirar os cr da variavel senvelope_soap
EDT_ENVELOPE_SOAP_ENVIADO=sEnvelope_soap // vamos agora colocar o envelope soap no edt 
// vamos ler o cadastro de empresas e pegar o certificado ja selecionado
HReadSeekFirst(empresa,empresaID,1)
IF HFound(empresa) THEN
s_recebe_thumprint_certificado=NoSpace(empresa.certificado_thumprint,sscAll)
Message("Procurando HttpCertificate ...")
ELSE
s_recebe_thumprint_certificado=""
END
HTTPCertificate(s_recebe_thumprint_certificado) // vamos ler o certificado com HTTPCertificate - e caso ele nao encontre nada, ele vai pedir para escolehr 
HTTP.IgnoreError = httpIgnoreRevocation
HTTP.IgnoreError = httpErrorInvalidCertificate
HTTP.IgnoreError = httpErrorInvalidCertificateName
bMensagem is boolean=HTTPRequest(s_web_service,"","",sEnvelope_soap,"text/xml;charset=UTF-8","","")
HTTPCertificate("") //Vamos limpar da memoria o certificado 
IF bMensagem=False THEN
   Error(ErrorInfo(errFullDetails))
ELSE 
   EDT_RETORNO_SOAP=HTTPGetResult(httpResult) // vamos pegar o retorno com httpgetresult(httpresult)
   EDT_Retorno_xml=XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg") // vamos agora pegar somente o xml de retorno // XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg")
   EDT_TpAmb=XMLExtractString(EDT_RETORNO_SOAP,"tpAmb")
   EDT_Cstat=XMLExtractString(EDT_RETORNO_SOAP,"cStat")
   EDT_Xmotivo=XMLExtractString(EDT_RETORNO_SOAP,"xMotivo")
END



--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP

------------------- 





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html





Postado por às Nenhum comentário:
Marcadores:

sábado, 10 de julho de 2021

DICAS 3367 - WINDEV WEBDEV MOBILE - Comprovante de Inscrição e de Situação Cadastral pelo site receita - WINDEV TUTORIAL 95






https://youtu.be/UMjUaVgJFQE





Bom Dia Boa Tarde Boa Noite

Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 12/07/2021

DICAS 3367 - WINDEV WEBDEV MOBILE - Comprovante de Inscrição e de Situação Cadastral pelo site receita  - WINDEV TUTORIAL 95







Assuntos 

Comprovante de Inscrição e de Situação Cadastral pelo site receita 

Vamos criar um botao para consulta do site da receita 
Vamos entrar no codigo 
vamos primeiro copiar para area de transferenca o cnpj 
vamos chamar o site 
dentro do site vamos colocar o cnpj 
vamos testar 



----------------- codigo

// amarildo - 10 07 2021
// btn comprovante de inscricao
ToClipboard(EDT_Cnpj_cpf) // vamos copiar para area de transferencia o cnpj 
// Vamos informar que ele pode colocar o cnpj na pagina 
Info("Quando entrar na pagina, no controle cnpj pode colar ( Control V ) o numero do numero do cnpj")
// Vamos chamar a pagina https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp
ShellExecute("https://www.receita.fazenda.gov.br/pessoajuridica/cnpj/cnpjreva/cnpjreva_solicitacao2.asp")


------------ Indide Windev Tutorial


DICAS 2979 - WINDEV TUTORIAL 2 - 1.2- CRIAR JANELA E INSERIR TEXTO E EXIBIR
DICAS 2980 - WINDEV TUTORIAL 3 - 2.1- VARIAVEIS PARTE 1
DICAS 2981 - WINDEV TUTORIAL 4 - 2.2- VARIAVEIS ESCOPO - PARTE 2
DICAS 2982 - WINDEV TUTORIAL 5 - 2.1- VARIAVEIS OPERADORES PARTE 3
DICAS 2983 - WINDEV TUTORIAL 6 - 2.1.D - VARIAVEIS STRINGS PARTE 4
DICAS 2984 - WINDEV TUTORIAL 7 - 2.1.E - VARIAVEIS ARRAYS PARTE 5
DICAS 2985 - WINDEV TUTORIAL 8 - 2.2.A - CONDICOES IF-SWITCH PARTE 1
DICAS 2986 - WINDEV TUTORIAL 9 - 2.2.B - CONDICOES PARTE 2
DICAS 2987 - WINDEV TUTORIAL 10 - 2.3.A - LOOP PARTE 1
DICAS 2988 - WINDEV TUTORIAL 11 - 2.3.B - LOOP EXEMPLOS PARTE 2
DICAS 2989 - WINDEV TUTORIAL 12 - Lesson 2.4. The procedures - PARTE 1
DICAS 2990 - WINDEV TUTORIAL 13 - Leçon 2.4.b. Procedures Parametros - PARTE 2
DICAS 2991 - WINDEV TUTORIAL 14 - PROCEDURES REFERENCIA - PARTE 3
DICAS 2992 - WINDEV TUTORIAL 15 - PROCEDURES OPCIONAIS OU OBRIGATORIAS - PARTE 4
DICAS 2993 - WINDEV TUTORIAL 16 - PROCEDURES EXEMPLOS - PARTE 5
DICAS 2994 - WINDEV TUTORIAL 17 - PERGUNTAS E RESPOSTA - PARTE 1
DICAS 2995 - WINDEV TUTORIAL 18 - PERGUNTAS E RESPOSTA - PARTE 2
DICAS 2996 - WINDEV TUTORIAL 19 - WINDEV E OS BANCOS DE DADOS
DICAS 2997 - WINDEV TUTORIAL 20 - PROJETO E ANALISE - CRIACAO
DICAS 2998 - WINDEV TUTORIAL 21 - PROJETO E ANALISE - ARQUIVOS DADOS CLIENTE - PARTE 2
DICAS 2999 - WINDEV TUTORIAL 22 - PROJETO E ANALISE - ARQUIVOS DADOS CRIACAO ARQUIVO PEDIDO - PARTE 3
DICAS 3000 - WINDEV TUTORIAL 23 - PROJETO E ANALISE - IMPORTANDO CVS-ARQUIVO TEXTO - PARTE 4
DICAS 3001 - WINDEV TUTORIAL 24 - PROJETO E ANALISE - IMPORTANDO ARQUIVO PRODUTO - PARTE 5
DICAS 3002 - WINDEV TUTORIAL 25 - PROJETO E ANALISE - LINK - PARTE 6
DICAS 3003 - WINDEV TUTORIAL 26 - RAD COMPLETO
DICAS 3004 - WINDEV TUTORIAL 27 - VISAO GERAL
DICAS 3005 - WINDEV TUTORIAL 28 - Adicionar e Modificar Janelas PRODUTOS - PARTE A
DICAS 3006 - WINDEV TUTORIAL 29 - Adicionar e Modificar Janelas PRODUTOS Formulario - PARTE B
DICAS 3007 - WINDEV TUTORIAL 30 - Adicionar e Modificar Janelas PRODUTOS ALINHAR CAMPOS - PARTE C





ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html






Postado por às Nenhum comentário:
Marcadores:

quinta-feira, 8 de julho de 2021

DICAS 3366 - WINDEV WEBDEV MOBILE - Busca Cnpj e Inscricao Estadual Sefaz - Curso WebService - 34




Bom Dia Boa Tarde Boa Noite

https://youtu.be/cJSEfRu2msA



Mande um email pedido para receber todas notificaçoes dos videos 

==============================================================

Seja Membro do Canal e tenha direito a consultorias com precos diferenciados
https://www.youtube.com/channel/UCQGPHrppG5XKoRbeOIgLJEA/join
Beneficios Membros: 
     Skype Privado
     Sugerir ou pedir Videos
     Valroes de consultorias com precos acesiveis
     Pedir para eu refazer uma exemplo versao inferior
     Quero Refazer meu sistema no windev, onde comecar?
     Como fazer uma proteção on-line do seu sistema ?
     Meu projeto será grande, como devo fazer?

==============================================================


Esse Video vai estrear as 10:00 do dia 10/07/2021

DICAS 3366 - WINDEV WEBDEV MOBILE - Busca Cnpj e Inscricao Estadual Sefaz - Curso WebService - 34





ASSUNTOS


Mostrar as tabelas que acompanhan o exemplo
Cliente 
Estado 
    com os links do webservice
Empresa 
    fiz a busca do certificado - mostrar 
Vamos criar um botao para buscar cnpj , inscricao estadual e outros dados 
Vamos criar o envelop soap 
Vamos chamar o certificado - HTTPCertificate
Vamos usar HTTPRequest
VAmos ler o retorno HTTPGetResult
Vamos pegar os dados do xml

========================= Codigos
// Busca dados pela Receita - busca cnpj
dados_json is JSON=""
sUrl is string="https://www.receitaws.com.br/v1/cnpj/[%EDT_Cnpj_cpf%]" 
IF HTTPRequest(sUrl) THEN // vamos recuperar o resultado da url com httprequest 
    dados_json=HTTPGetResult() // vamos ler o resultado do http 
    dados_json=UTF8ToAnsi(dados_json) // CONVERTE dados_json No FORMATO UTF8
END
EDT_Retorno_json=dados_json //VAMOS PEGAR OS DADOS DO JSON 
EDT_Razao_social=dados_json.nome
EDT_Atividade = dados_json.ATIVIDADE_PRINCIPAL[1].text
EDT_Atividade_cod = dados_json.ATIVIDADE_PRINCIPAL[1].code
EDT_Data = StringToDate(dados_json.data_situacao,"dd/mm/yyyy")
EDT_Complemento = dados_json.complemento
EDT_Tipo = dados_json.tipo
EDT_Uf = dados_json.uf
EDT_Bairro = dados_json.bairro
EDT_Logradouro = dados_json.logradouro
EDT_Numero = dados_json.numero
EDT_Cep = dados_json.cep
EDT_Municipio = dados_json.municipio
EDT_Porte = dados_json.porte
EDT_Abertura = dados_json.abertura 
EDT_Natureza_juridica = dados_json.natureza_juridica
ultima_atualizacao is string = dados_json.ultima_atualizacao
data is Date = ""
data.Day = ultima_atualizacao[[9 TO 10]]
data.Month = ultima_atualizacao[[6 TO 7]]
data.Year = ultima_atualizacao[[1 TO 4]]
EDT_Data_atualizacao = data
EDT_Status = dados_json.status
EDT_Fantasia = dados_json.fantasia
EDT_Email = dados_json.email
EDT_Efr = dados_json.efr
EDT_Motivo_situacao = dados_json.motivo_situacao
EDT_Situacao_especial = dados_json.data_situacao_especial 
EDT_Capital_Social = dados_json.capital_social 
EDT_Extra = dados_json.extra
EDT_Telefone = dados_json.telefone

====================================

// - Busca dados pelo Sefaz com certificado - vamos criar as variaveis

bWebservice_ok is boolean = False
sUf_estado is string = EDT_Uf
sCnpj_cpf is string = EDT_Cnpj_cpf
sCnpj_ou_cpf_xml is string = ""
s_codigo_uf_ibge is string = "43"
s_web_service_consulta is string = "https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx"
s_recebe_assinatura_arquivo is string = ""

// vamos obrigar a digitar o estado e o cnpj para poder fazer a consulta
LOOP
Input("estado",sUf_estado)
Input("Cnpj/Cpf",sCnpj_cpf)
IF sUf_estado="" OR sCnpj_cpf="" THEN
Info("Informar Estado e Cnpj")
ELSE
BREAK
END
END
IF Length(sCnpj_cpf)=14 THEN
sCnpj_ou_cpf_xml="<CNPJ>"+sCnpj_cpf+"</CNPJ>"
ELSE
sCnpj_ou_cpf_xml="<CPF>"+sCnpj_cpf+"</CPF>"
END

HReadSeekFirst(estado,uf,sUf_estado)
IF HFound(estado) THEN
s_codigo_uf_ibge = estado.codigo_uf_ibge
s_web_service_consulta = estado.webservice_consulta_cadastro
END

sEnvelopE_soap is string=[
<?xml version="1.0" encoding="utf-8"?>
<soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope">
<soap12:Header>
<nfeCabecMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro4">
<cUF>[%s_codigo_uf_ibge%]</cUF>
<versaoDados>2.00</versaoDados>
</nfeCabecMsg>
</soap12:Header>
<soap12:Body>
<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/CadConsultaCadastro4">
<ConsCad xmlns="http://www.portalfiscal.inf.br/nfe" versao="2.00">
<infCons>
<xServ>CONS-CAD</xServ>
<UF>[%sUf_estado%]</UF>
[%sCnpj_ou_cpf_xml%]
</infCons>
</ConsCad>
</nfeDadosMsg>
</soap12:Body>
</soap12:Envelope>
]

HReadSeekFirst(empresa,empresaID,1)
IF HFound(empresa) THEN
s_recebe_assinatura_arquivo=NoSpace(empresa.certificado_thumprint,sscAll)
Message("Procurando HttpCertificate ...")
ELSE
s_recebe_assinatura_arquivo=""
END

//  HTTPCertificate(s_recebe_assinatura_arquivo)

HTTPCertificate(s_recebe_assinatura_arquivo)
HTTP.IgnoreError = httpIgnoreRevocation
HTTP.IgnoreError = httpErrorInvalidCertificate
HTTP.IgnoreError = httpErrorInvalidCertificateName
// webservice_ok = HTTPRequest(s_web_service_consulta,"","",envelopE_soap,"text/xml") 
bWebservice_ok = HTTPRequest(s_web_service_consulta,"","",sEnvelopE_soap,"text/xml")
//IF webservice_ok=False THEN

IF bWebservice_ok=False THEN
Info("nao foi possivel realizar a consulta, tente novamente mais tarde")
Error(ErrorInfo(errFullDetails))
ELSE
// vamos pegar o retorno
sRetorno is string=HTTPGetResult(httpResult)
EDT_Retorno_xml=sRetorno
// nesse momento ja temos o xml de retorno
EDT_Inscricao_estadual=XMLExtractString(EDT_Retorno_xml,"IE")
EDT_Razao_social = XMLExtractString(EDT_Retorno_xml,"xNome")
EDT_Fantasia = XMLExtractString(EDT_Retorno_xml,"xFant")
EDT_Logradouro = XMLExtractString(EDT_Retorno_xml,"xLgr")
EDT_Numero = XMLExtractString(EDT_Retorno_xml,"nro")
EDT_Bairro = XMLExtractString(EDT_Retorno_xml,"xBairro")
EDT_Municipio = XMLExtractString(EDT_Retorno_xml,"xMun")
EDT_Cep = XMLExtractString(EDT_Retorno_xml,"CEP")
END

====

// Busca Certificado no cadastro de empresa



//quando usar o 22 , posso usar esse

certificado is Certificate
certificado = CertificateSelect() // ver como fazer abrir certificado sem abrir janela

IF certificado.Name = "" THEN
RETURN
END
IF certificado.ValidForSignature = False THEN
Info("O certificado selecionado não pode ser utilizada para gerar uma assinatura")
RETURN
END
EDT_Certificado_thumprint = NoSpace(certificado.ThumbPrint,sscAll)

-=-===


// - Ler arquivo de estados com webservice - cria uf
sFile is string

// Opens the file picker
sFile = fSelect("", "", "SELECIONA ESTADO CONVERSAO", "TXT" + TAB + "*.TXT", "*.TXT")

nArquivoid is int = fOpen(sFile,foReadWrite)
IF nArquivoid<>-1 THEN
LOOP
sLinha is string= fReadLine(nArquivoid)
Trace(sLinha)
IF sLinha = EOT THEN
BREAK
ELSE
IF sLinha="" THEN
BREAK
ELSE
sUF_ESTADO is string = ExtractString(sLinha,firstRank,"|")
IF sUF_ESTADO="FIM" THEN
BREAK
ELSE
sNOME_ESTADO is string = ExtractString(sLinha,nextRank,"|")
sCUF_ESTADO is string = ExtractString(sLinha,nextRank,"|")
sWEBSERVICE_ESTADO is string = ExtractString(sLinha,nextRank,"|")
HReadSeekFirst(estado,uf,sUF_ESTADO)
IF HFound(estado) THEN
estado.uf = sUF_ESTADO
estado.nome = sNOME_ESTADO
estado.codigo_uf_ibge = sCUF_ESTADO
estado.webservice_consulta_cadastro = sWEBSERVICE_ESTADO
HModify(estado)
ELSE
estado.uf = sUF_ESTADO
estado.nome = sNOME_ESTADO
estado.codigo_uf_ibge = sCUF_ESTADO
estado.webservice_consulta_cadastro = sWEBSERVICE_ESTADO
HAdd(estado)
END
END
END
END
END
END
// sCria_uf is string=[
// AM|AMAZONAS|13|https://nfe.sefaz.am.gov.br/services2/services/cadconsultacadastro2
// BA|BAHIA|29|https://nfe.sefaz.ba.gov.br/webservices/nfenw/CadConsultaCadastro2.asmx  
// CE|CEARA|23|https://nfe.sefaz.ce.gov.br/nfe2/services/CadConsultaCadastro2?wsdl 
// GO|GOAIS|52|https://nfe.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2?wsdl
// MA|MARANHAO|21|https://sistemas.sefaz.ma.gov.br/wscadastro/CadConsultaCadastro2?wsdl
// MS|MATO GROSSO do SUL|50|https://nfe.fazenda.ms.gov.br/producao/services2/CadConsultaCadastro2
// PA|PARA|15|https://nfe2.fazenda.pr.gov.br/nfe/CadConsultaCadastro2?wsdl  
// PE|PERNAMBUCO|26|https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2" 
// PR|PARANA|41|https://nfe2.fazenda.pr.gov.br/nfe/CadConsultaCadastro2?wsdl
// RS|RIO GRANDE do SUL|43|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// SP|SAO PAULO|35|https://nfe.fazenda.sp.gov.br/ws/cadconsultacadastro2.asmx
// AC|ACRE|12|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// AL|ALAGOAS|27|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx 
// AP|AMAPA|16|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// DF|DISTRITO FEDERAL|53|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// ES|ESPIRITO SANTO|32|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// EX|EXTERIOR-DIVERSOS|0|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// MG|MINAS GERAIS|31|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx 
// MT|MATO GROSSO|51|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// PB|PARAIBA|25|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// PI|PIAUI|22|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// RJ|RIO of JANEIRO|33|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx 
// RN|RIO GRANDE do NORTE|24|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// RO|RONDONIA|11|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// RR|RORAIMA|14|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// SC|SANTA CATARINA|42|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// SE|SERGIPE|28|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx  
// to|TOCANTIS|17|https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx
// FIM|
// ]

INTERNAL PROCEDURE atualiza_estado_webservice()
SWITCH estado.uf
CASE "AM"
estado.webservice_consulta_cadastro="https://nfe.sefaz.am.gov.br/services2/services/cadconsultacadastro2"
CASE "BA"
estado.webservice_consulta_cadastro="https://nfe.sefaz.ba.gov.br/webservices/nfenw/CadConsultaCadastro2.asmx"
CASE "CE"
estado.webservice_consulta_cadastro="https://nfe.sefaz.ce.gov.br/nfe2/services/CadConsultaCadastro2?wsdl"
CASE "GO"
estado.webservice_consulta_cadastro="https://nfe.sefaz.go.gov.br/nfe/services/v2/CadConsultaCadastro2?wsdl"
CASE "MA"
estado.webservice_consulta_cadastro="https://sistemas.sefaz.ma.gov.br/wscadastro/CadConsultaCadastro2?wsdl"
CASE "MS"
estado.webservice_consulta_cadastro="https://nfe.fazenda.ms.gov.br/producao/services2/CadConsultaCadastro2"
CASE "PE"
estado.webservice_consulta_cadastro="https://nfe.sefaz.pe.gov.br/nfe-service/services/CadConsultaCadastro2"
CASE "PR"
estado.webservice_consulta_cadastro="https://nfe2.fazenda.pr.gov.br/nfe/CadConsultaCadastro2?wsdl"
CASE "RS"
estado.webservice_consulta_cadastro="https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx"
CASE "SP"
estado.webservice_consulta_cadastro="https://nfe.fazenda.sp.gov.br/ws/cadconsultacadastro2.asmx"
OTHER CASE
estado.webservice_consulta_cadastro="https://cad.sefazrs.rs.gov.br/ws/cadconsultacadastro/cadconsultacadastro4.asmx"
END
HModify(estado)
END


--------------------- Indice WebService

Criar Projeto WebService - Lista Site - - WebService - 001/...
Deploy - Gerando WebService/Levando Servidor/Instalar/Mostrar - WebService - 002/...
Instalando SoapUI - Testar WebService - Aula 1040 - WebService - 003/...
Ajustando Xml Lista Site WebService - WebService - 004/...
Consumir WebService - WebService - 005
Xml - Consumir Ler Xml e colocar Tabela - WebService - 006
Dolar - Consumir WebService - Cotação Dolar - 007
Cnpj Receita - Consumir WebService - 008/...
Cep Buscar WebService Correio - WebService - 009/...
CONSULTA CADASTRO SEFAZ P-1 - DICAS 1871 - WINDEV_23 - WEBSERVICE 010 - 
CONSULTA CADASTRO SEFAZ P-2 - 1872 - PUBLICA - WINDEV_23 - WEBSERVICE 011 - 
CONSULTA CADASTRO SEFAZ P-3 - 1873 - PUBLICA - WINDEV_23 - WEBSERVICE 012 -
DICAS 1877 - WINDEV_23 - WEBSERVICE 014 - CNPJ BUSCA CADASTRO ACBR
DICAS 2019 - WINDEV - WEBSERVICE - 015 - APRENDER A FAZER REST WEBSERVICE
DICAS 2020 - WINDEV - WEBSERVICE - 016 - CRIANDO TABELAS
DICAS 2021 - WINDEV - WEBSERVICE - 017 - WDTESTREST
DICAS 2022 - WINDEV MOBILE - WEBSERVICE - 018 - LER WEBSERVICE RESTSend
DICAS 2023 - WINDEV MOBILE - WEBSERVICE - 019 - LER WEBSERVICE RESTSend SOMENTE 1 REGISTRO
DICAS 2024 - WINDEV MOBILE - WEBSERVICE - 020 - WEBSERVICE RESTSend CRIA NOVO REGISTRO - httpPost
DICAS 2025 - WINDEV MOBILE - WEBSERVICE - 021 - WEBSERVICE RESTSend ALTERA REGISTRO - httpPut
DICAS 2026 - WINDEV MOBILE - WEBSERVICE - 022 - WEBSERVICE httpRequest httpDelete
DICAS 2033 - WINDEV - WEBSERVICE 23 - HTTPRequest - HTTPGetResult - fSaveBuffer - BAIXAR ARQUIVO
AO VIVO-SOAP-DICA 2095-WINDEV MOBILE WEBDEV-WEBSERVICE COM MOBILE -
DICAS 2096-2095 - WINDEV WEBDEV MOBILE - WEBSERVICE 25 - SOAP
DICAS 2097 - WINDEV MOBILE - WEBSERVICE 26 - MOSTRAR CLIENTES - SOAP
DICAS 2132 - HANGOUT AO VIVO 20 HORAS 30/05 - WEBSERVICE SOAP COM MOBILE
DICAS 2163 WINDEV WEBDEV MOBILE WEBSERVICE 28 SOAP
DICAS 2226 WINDEV WEBDEV MOBILE 24 NOVIDADES 26 WEBSERVICE 29 HTTPREQUEST - BUSCA CNPJ
DICA 2687 - WINDEV WEBDEV MOBILE - WEBSERVICE 32 - EXPLICANDO WEBSERVICE SOAP E CONSUMIDO MOBILE E DESKTOP

------------------- 






ErpMatos - TgsSistemas
skype:amarildo.matos.informatica
email: amarildo.matos@gmail.com
whats: 51984197742
Youtube: Amarildo Matos
http://www.amarildomatos.com.br
https://groups.google.com/forum/#!forum/amarildowindev

www.windev.com
https://www.pcsoft.fr/webinaires.htm?p=forumpcs
https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp
https://www.windev.com/windev/WD-Express.htm
https://www.windev.com/windevmobile/WM-Express.htm
http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html











============================================================================================

cnpj Inscricao Estadual Busca sefaz com certificado 3366



https://windevdesenvolvimento.blogspot.com/2021/07/dicas-3366-windev-webdev-mobile-busca.html


This Video will premiere at 10:00 am on 07/10/2021
cnpj State Registration Busca sefaz with certificate 3366



https://windevdesenvolvimento.blogspot.com/2021/07/dicas-3366-windev-webdev-mobile-busca.html

Cette vidéo sera diffusée à 10h00 le 10/07/2021
cnpj État d'enregistrement Busca sefaz avec certificat 3366


Postado por às Nenhum comentário:
Marcadores:
Assinar: Postagens (Atom)

Teste

Teste
teste