segunda-feira, 26 de julho de 2021

DICAS 3374 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 5 - Ciencia Nota Windev - Curso Webservice - 41

hooRaDCVN_4

Bom Dia Boa Tarde Boa Noite

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

email : amarildo.matos@gmail.com

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

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 09:15 do dia 28/07/2021

DICAS 3374 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 5 - Ciencia Nota Windev - Curso Webservice - 41

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

https://repository.windev.com/resource.awp?file_id=281474976711164;nfedistribuicaodfe-ciencia-nota-windev-video-3374

https://www.sefaz.rs.gov.br/dfe/Consultas/ConsultaPublicaDfe?chaveNFe=43210709402019000139550010000008471167159960

https://repository.windev.com/

ASSUNTOS

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

00:00 Introducao

00:40 Vamos entrar no windev 26 projeto NFeDistribuicaoDFe_Ciencia_Nota_windev_3374

01:05 Vamos entrar window win_status_servico_nfe , na guia Relacao Resumo e criar um botao Ciencia

01:28 Vamos copiar o codigo do botao consulta nota e colar nesse botao

02:00 Vamos mudar os webservices

03:06 Explicando o proximo passo

03:30 Explicando onde assinar no xml

05:00 Criando a variavel xml para assinar

06:00 Criando as variaveis que vamos precisar

07:36 Vamos colocar essas variaveis no xml

09:00 Vamos ajustar a data do evento

11:12 Preencher Id do Evento

12:19 vamos fazer EnvelopE soap

13:08 Vamos assinar o xml

14:04 Juntar o xml assinado com soap

14:55 Ajustando codigo do retorno

15:05 Gravando dados da ciencia na tabela manifestacao resumo

15:23 Salvando em disco os xml

15:37 Alterando Tags de retorno

16:12 Colocando o link Consulta Pública DF-e Para ver se a nota foi dado ciencia

ShellExecute("http://www.sefaz.rs.gov.br/NFE/NFE-COM.aspx?chaveNFe="+TABLE_Manifestacao_resumo.COL_ChNfe)

17:15 Executando o programa

17:59 Comentarios Finais e seja membro do canal para ajudar

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

// Ciencia Nota

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://www.nfe.fazenda.gov.br/NFeRecepcaoEvento4/NFeRecepcaoEvento4.asmx"

ELSE

s_web_service="https://hom.nfe.fazenda.gov.br/NFeRecepcaoEvento4/NFeRecepcaoEvento4.asmx"

END

// Criar uma variavel sxml_para_assinar

sOrgao_nacional is string="91"

sCnpj is string=""

HReadSeekFirst(empresa,empresaID,1)

sCnpj=empresa.cnpj_cpf

nSequencia_evento_int is int=1

sDescricao_evento is string="Ciencia da Operacao"

// Data do evento tem de estar conforme abaixo

// 2021-07-25T13:06:21-03:00

sDhevento is string=""

dAta_hoje is Date=DateSys()

tHora_hoje is Time=TimeSys()

sDhevento=NumToString(dAta_hoje.Year,"04d")+"-"

sDhevento+=NumToString(dAta_hoje.Month,"02d")+"-"

sDhevento+=NumToString(dAta_hoje.Day,"02d")+"T"

sDhevento+=NumToString(tHora_hoje.Hour,"02d")+":"

sDhevento+=NumToString(tHora_hoje.Minute,"02d")+":"

sDhevento+=NumToString(tHora_hoje.Second,"02d")+"-"

sDhevento+="03:00"

sTipo_evento is string="210210"

sChave_nfe is string=TABLE_Manifestacao_resumo.COL_ChNfe

sEquencia_evento_string is string=NumToString(nSequencia_evento_int,"02d")

//Identificador da TAG a ser assinada, a regra de formação do

// Id é: "ID" + tpEvento + chave da NF-e + nSeqEvento

sId_evento is string="ID"+sTipo_evento+sChave_nfe+sEquencia_evento_string

sXml_para_assinar is string=[

<cOrgao>[%sOrgao_nacional%]</cOrgao>

<tpAmb>[%RADIO_ambiente%]</tpAmb>

<CNPJ>[%sCnpj%]</CNPJ>

<chNFe>[%sChave_nfe%]</chNFe>

<dhEvento>[%sDhevento%]</dhEvento>

<tpEvento>[%sTipo_evento%]</tpEvento>

<nSeqEvento>[%nSequencia_evento_int%]</nSeqEvento>

<descEvento>[%sDescricao_evento%]</descEvento>

</detEvento>

</infEvento>

</evento>

]

sXml_assinado is string=assinar_xml(sXml_para_assinar,"infEvento",sId_evento) // // vamos assinar o xml

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>

#xml_assinado#

</envEvento>

</nfeDadosMsg>

</soap12:Body>

</soap12:Envelope>

]

sEnvelopE_soap = Replace(sEnvelopE_soap,CR,"") // vamos tirar os cr da variavel senvelope_soap

sEnvelopE_soap = Replace(sEnvelopE_soap,"#xml_assinado#",sXml_assinado)

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,"nfeRecepcaoEventoNFResult") // vamos agora pegar somente o xml de retorno // XMLExtractString(EDT_RETORNO_SOAP,"nfeResultMsg")

sOmente_protocolo is string=XMLExtractString(EDT_Retorno_xml,"retEvento")

EDT_DhRecbto = XMLExtractString(sOmente_protocolo,"dhRecbto")

EDT_NProt = XMLExtractString(sOmente_protocolo,"nProt")

EDT_TpAmb = XMLExtractString(sOmente_protocolo,"tpAmb")

EDT_Cstat = XMLExtractString(sOmente_protocolo,"cStat")

EDT_Xmotivo = XMLExtractString(sOmente_protocolo,"xMotivo")

manifestacao_resumo.ciencia=True

manifestacao_resumo.ciencia_cstat=EDT_Cstat

manifestacao_resumo.ciencia_motivo=EDT_Xmotivo

manifestacao_resumo.csitNfe=4

HModify(manifestacao_resumo)

fSaveText("C:\temp\xml\EDT_ENVELOPE_SOAP_ENVIADO.xml",EDT_ENVELOPE_SOAP_ENVIADO)

fSaveText("C:\temp\xml\EDT_RETORNO_SOAP.xml",EDT_RETORNO_SOAP)

fSaveText("C:\temp\xml\EDT_Retorno_xml.xml",EDT_Retorno_xml)

END

Info("finalizado ciencia")

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

Exemplo Xml com soap :

<?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>

<descEvento>Ciencia da Operacao</descEvento>

</detEvento>

</infEvento>

</evento>

</envEvento>

</nfeDadosMsg>

</soap12:Body>

</soap12:Envelope>

--------------------- retrno do soap

<?xml version="1.0" encoding="utf-8"?>

<soap:Envelope xmlns:soap="http://www.w3.org/2003/05/soap-envelope" xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">

<soap:Body>

<xMotivo>Lote de evento processado</xMotivo>

<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>

<xEvento>Ciencia da Operacao</xEvento>

</infEvento>

</retEvento>

</retEnvEvento>

</nfeRecepcaoEventoNFResult>

</soap:Body>

</soap:Envelope>

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