qGekJAkef_A

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

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 10:00 do dia 23/07/2021

DICAS 3372 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 3 - Criando Tabela Resumo Notas em Windev - Curso Webservice - 39

https://repository.windev.com/resource.awp?file_id=281474976711160;nfedistribuicaodfe-parte-3-criando-tabela-resumo-notas-windev

Relaçao dos Webservices - Producao

https://www.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=

Sefaz Rio Grande do Sul - (RS)

Relacao dos webservices - Homologação

https://hom.nfe.fazenda.gov.br/portal/webServices.aspx?tipoConteudo=Wak0FwB7dKs=

Sefaz Rio Grande do Sul - (RS)

https://repository.windev.com/

ASSUNTOS

NFeDistribuicaoDFe - Parte 3 - Criando Tabela Resumo Notas em Windev

00:00 Introducao

00:48 Criando a tabela manifestacao_Resumo

01:19 Adicionado os campos da tabela

02:28 Vamos adicionar campos extras que vamos precisar

03:55 Vamos sicronizar a analise

04:21 Voltando para Janela status servicos e vamos clicar tab

04:27 Criar guia - Relacao manifestacao resumo

04:48 Vamos Criar a relacao da Tabela resumo

05:22 Vamos alterar a tabela, colocando a chNFe como Chave

05:57 Vamos voltar para o codigo da busca

06:31 Explicanco descompacta_xml

06:52 Vamos pegar a chave da nota e ver se existe no resumo

07:58 Adicionado numero do nsu no resumo

08:10 Adicionando os outros dados

09:49 vamos criar uma internal procedure move_Dados para ficar mais claro

10:39 executando e mostrando

---------------- CODIGO

// Status Nfe // btnNfeDistribuicaoDfe

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

ELSE

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

END

// vamos fazer sEnvelopE_soap

sUltnsu_15 is string=NumToString(EDT_UltNSU,"015d")

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>

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

<ultNSU>[%sUltnsu_15%]</ultNSU>

</distNSU>

</distDFeInt>

</nfeDadosMsg>

</nfeDistDFeInteresse>

</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)

EDT_Retorno_xml = XMLExtractString(EDT_RETORNO_SOAP,"nfeDistDFeInteresseResult")

EDT_TpAmb = XMLExtractString(EDT_Retorno_xml,"tpAmb")

EDT_Cstat = XMLExtractString(EDT_Retorno_xml,"cStat")

EDT_Xmotivo = XMLExtractString(EDT_Retorno_xml,"xMotivo")

EDT_dhResp = XMLExtractString(EDT_Retorno_xml,"dhResp")

EDT_UltNSU_retorno = XMLExtractString(EDT_Retorno_xml,"ultNSU")

EDT_maxNSU = XMLExtractString(EDT_Retorno_xml,"maxNSU")

// nesse momento ja temos o xml de retorno

sNome_tag is string="" // nome_tag string - nUmero_nsu int - Vamos criar duas variaveis

nUmero_nsu is int=0

bAchouxml is boolean=XMLDocument("xml_dfe",EDT_Retorno_xml) // vamos abrir o documento xml

XMLFind("xml_dfe",Null,XMLContinue+XMLChildItem)

WHILE XMLFound("xml_dfe") // vamos percorrer esse xml // WHILE XMLFound("XML_dfe")

sNome_tag = XMLElementName("xml_dfe") //vamos pegar o nome da tag -

IF sNome_tag="docZip" THEN // vamos verificar se a tag encontrada é doczip

bufFer_resumo is Buffer = XMLData("xml_dfe") // Vamos pegar o dado do resumo

bufFer_descompactar is Buffer = Decrypt(bufFer_resumo,"",compressNone,encodeBASE64) // Vamos comecar a descompatar

sDescompacta_xml is string=Uncompress(bufFer_descompactar) // vamos jogar numa string a descompactacao

XMLNext("xml_dfe") // agora vou para proxima tag pegar o numero do nsu

nUmero_nsu=XMLData("xml_dfe") // como eu sei que a proxima tag é o numero do nsu , vou pegar ele

fSaveText("C:\temp\resumo_nota_"+nUmero_nsu+".xml",sDescompacta_xml) // vamos agora salvar em disco o resumo da nota

sChnfe is string=XMLExtractString(sDescompacta_xml,"chNFe") // Vamos pegar a chave da nota no resumo

HReadSeekFirst(manifestacao_resumo,chNfe,sChnfe) // vamos verificar se essa chave existe no resumo

IF HFound(manifestacao_resumo) THEN

// se encontrou

ELSE // nao encontrou - ou nao existe

manifestacao_resumo.nsu = nUmero_nsu

manifestacao_resumo.chNfe = sChnfe

move_dados()

HAdd(manifestacao_resumo)

END

INTERNAL PROCEDURE move_dados()

manifestacao_resumo.xnome = XMLExtractString(sDescompacta_xml,"xNome")

manifestacao_resumo.ie = XMLExtractString(sDescompacta_xml,"IE")

manifestacao_resumo.tpNf = XMLExtractString(sDescompacta_xml,"tpNF")

manifestacao_resumo.digval = XMLExtractString(sDescompacta_xml,"digVal")

manifestacao_resumo.nProt = XMLExtractString(sDescompacta_xml,"nProt")

manifestacao_resumo.vnf = XMLExtractString(sDescompacta_xml,"vNF")

manifestacao_resumo.csitNfe = XMLExtractString(sDescompacta_xml,"cSitNFe")

manifestacao_resumo.cnpj = XMLExtractString(sDescompacta_xml,"CNPJ")

//<dhEmi>2021-07-14T12:43:48-03:00</dhEmi>

dAta is Date = ""

dhemissao_hora is string = XMLExtractString(sDescompacta_xml,"dhEmi")

dAta.Day = dhemissao_hora[[9 TO 10]]

dAta.Month = dhemissao_hora[[6 TO 7]]

dAta.Year = dhemissao_hora[[1 TO 4]]

hora is Time=""

hora.Hour = dhemissao_hora[[12 TO 13]]

hora.Minute = dhemissao_hora[[15 TO 16]]

hora.Second = dhemissao_hora[[18 TO 19]]

manifestacao_resumo.dhemi = dAta

manifestacao_resumo.hr_emissao = hora

dAta = ""

dhemissao_hora = XMLExtractString(sDescompacta_xml,"dhRecbto")

dAta.Day = dhemissao_hora[[9 TO 10]]

dAta.Month = dhemissao_hora[[6 TO 7]]

dAta.Year = dhemissao_hora[[1 TO 4]]

hora = ""

hora.Hour = dhemissao_hora[[12 TO 13]]

hora.Minute = dhemissao_hora[[15 TO 16]]

hora.Second = dhemissao_hora[[18 TO 19]]

manifestacao_resumo.dhrecbto = dAta

manifestacao_resumo.hora_recibo = hora

manifestacao_resumo.ciencia_cstat = ""

manifestacao_resumo.ciencia_motivo = ""

manifestacao_resumo.confirmado_cstat = ""

manifestacao_resumo.confirmado_motivo = ""

manifestacao_resumo.desconhecimento_Csat = ""

manifestacao_resumo.desconhecimento_motivo = ""

manifestacao_resumo.xml_baixado_documento = ""

manifestacao_resumo.soap_enviado = EDT_ENVELOPE_SOAP_ENVIADO

manifestacao_resumo.soap_retorno = EDT_RETORNO_SOAP

manifestacao_resumo.xml_retorno = EDT_Retorno_xml

END

// vamos ao final da pergunta, ir para outra tag

XMLNext("xml_dfe")

END

fSaveText("c:\temp\EDT_ENVELOPE_SOAP_ENVIADO.txt",EDT_ENVELOPE_SOAP_ENVIADO)

fSaveText("c:\temp\EDT_RETORNO_SOAP.txt",EDT_RETORNO_SOAP)

fSaveText("c:\temp\EDT_Retorno_xml.txt",EDT_Retorno_xml)

Info("Buscado Notas")

//xml_erro

//xml_dist_dfe --> proprio xml

// S_xml_nfe

// S_xml_evento

// Doczip

// Xml_arquivo

// Local_arquivo

// Xml_baixado boolean

END

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

DICAS 3246 - WINDEV - PERGUNTAS E RESPOSTAS 8 - JSON - BUSCA CNPJ - TUTORIAL - RESPONDENDO LAIB AKRAM
DICAS 3290 - WINDEV WEBDEV MOBILE - WEBSERVICE - 31- Otimizando o uso de memória ao transferir dados para uma Api Rest

DICAS 3325 - WINDEV WEBDEV MOBILE - HTTPRequest - Buscar Valor Dolar Euro Bitcoin - Curso Webservice - 32

DICAS 3364 - WINDEV WEBDEV MOBILE - Buscar Cnpj Receita e ler o Retorno Json - Curso Webservice 33 - Json 7

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

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

DICAS 3369 - WINDEV WEBDEV MOBILE - Nfe Consulta Nota - NfeConsultaProtocolo - NfeConsulta4 - direto windev - Curso Webservice - 36

DICAS 3370 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe busca nota sefaz em windev - Ambiente Nacional - Curso Webservice - 37

DICAS 3371 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 2 - doczip - relacao resumo notas Em Windev - Curso Webservice - 38

DICAS 3372 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 3 - Criando Tabela Resumo Notas em Windev - Curso Webservice - 39

DICAS 3373 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 4 - Assinar em Windev - Curso Webservice - 40

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

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

Páginas

segunda-feira, 19 de julho de 2021

DICAS 3372 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 3 - Criando Tabela Resumo Notas em Windev - Curso Webservice - 39

https://youtu.be/qGekJAkef_A

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

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

DICAS 3372 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 3 - Criando Tabela Resumo Notas em Windev - Curso Webservice - 39

Nenhum comentário:

Postar um comentário