quinta-feira, 29 de julho de 2021

DICAS 3375 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 6 - Confirmacao Operacao da Nota em Windev - Curso Webservice - 42





https://youtu.be/ZEt8hdBtotQ



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 30/07/2021

DICAS 3375 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 6 - Confirmacao Operacao da Nota em Windev - Curso Webservice - 42





ASSUNTOS

00:00 Introducao
00:34 Vamos entrar no projeto NFeDistribuicaoDfe_Confirmar_Nota_Windev_3375
01:04 Vamos transformar a rotina ciencia em uma procedure para reaproveitar codigo 
01:36 Vamos receber dois parametros na procedure evento manifestacao
02:02 Vamos configurar tipo de evento e descricao 
03:33 Vamos alterar o botao ciencia com os parametros
04:07 Vamos criar o botao confirmar operacao 
04:26 Vamos alterar o codigo evento manifestacao 
05:27 Vamos executar 
06:06 Mostrar os xml gerados e retornados 
06:16 Proxima aula 

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

// btn ciencia
evento_manifestacao(TABLE_Manifestacao_resumo.COL_ChNfe,"ciencia")

// btn confirmar
evento_manifestacao(TABLE_Manifestacao_resumo.COL_ChNfe,"confirmacao")

--- Botao Entrar na consulta nota

ShellExecute("https://www.sefaz.rs.gov.br/dfe/Consultas/ConsultaPublicaDfe?chaveNFe="+TABLE_Manifestacao_resumo.COL_ChNfe)

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

//PROCEDURE evento_manifestacao(recebe_chnfe,recebe_tipo)

// Ciencia Nota e confirmacao de 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
// 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 = ""
sDescricao_evento is string = ""
SWITCH recebe_tipo
CASE "confirmacao" //1
sTipo_evento="210200"
sDescricao_evento="Confirmacao da Operacao"
CASE "desconhecimento" //2
sTipo_evento = "210220"
sDescricao_evento = "Desconhecimento da Operacao"
CASE "ciencia" //4
sTipo_evento = "210210"
sDescricao_evento = "Ciencia da Operacao"
CASE "nao_realizada" 
sTipo_evento = "210240"
sDescricao_evento = "Operacao nao realizada"
OTHER CASE
END


sChave_nfe is string = recebe_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 = [
<evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<infEvento Id="[%sId_evento%]">
<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>
<verEvento>1.00</verEvento>
<detEvento versao="1.00">
<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>
<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeRecepcaoEvento4">
<envEvento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<idLote>0</idLote>
#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")
SWITCH sTipo_evento
CASE "210200" //confirmacao
manifestacao_resumo.confirma = True
manifestacao_resumo.csitNfe = 1
CASE "210220" // desconhecimento
CASE "210210" // ciencia
manifestacao_resumo.ciencia = True
manifestacao_resumo.csitNfe = 4
CASE "210240" // operacao nao realizada  
OTHER CASE
END
manifestacao_resumo.ciencia_cstat = EDT_Cstat
manifestacao_resumo.ciencia_motivo = EDT_Xmotivo
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/confirmacao")

------------------------------------------------ 
//PROCEDURE assinar_xml(recebe_xml,recebe_refUri,recebe_id)
//,recebe_dados_certificado
//Info(recebe_dados_certificado)

clX509certi is X509Certificate2("D:\BACKUP_HD\AMARILDO\infinity\certificado_infinitus_rm2020.pfx","rm2020")
//clX509certi is X509Certificate2(recebe_dados_certificado)

clDoc is System.Xml.XmlDocument;
clDoc.LoadXml(recebe_xml) // Ler um arquivo Xml 
nQtdeRefUri is int= clDoc.GetElementsByTagName(recebe_refUri).Count //_refUri= (sRefUri IS STRING = "infNFe")
IF (nQtdeRefUri) =0 THEN
RESULT "erro assinar" //nao existe // does not exists // ne pas exister
ELSE
VrSignedXml is SignedXml(clDoc) //cria um objeto assinado  
VrSignedXml.SigningKey = clX509certi.PrivateKey // adiciona a chave do certificado 
Reference is Reference //= new Reference(); // Cria a referencia para assinatura 
Reference.URI = "#" + recebe_id
Env is XmlDsigEnvelopedSignatureTransform  // adiciona um XmlDsigEnvelopedSignatureTransform para a assinatura    
Reference.AddTransform(Env)    
c14 is XmlDsigC14NTransform 
Reference.AddTransform(c14)
VrSignedXml.AddReference(Reference) // adiciona a referencia no xml assinado 
VrkeyInfo is KeyInfo // Cria a chave 
VrkeyInfo.AddClause(new KeyInfoX509Data(clX509certi)) // carrega o certificado em um keyinfox509 e adiciona ao keyinfo 
VrSignedXml.KeyInfo = VrkeyInfo // adiciona o keyinfo ao xml assinado 
VrSignedXml.ComputeSignature()  
xmlDigitalSignature is System.Xml.XmlElement dynamic = VrSignedXml.GetXml() // busca a representacao XML da assinatura e salva no XML       
clDoc.DocumentElement.AppendChild(clDoc.ImportNode(xmlDigitalSignature, True)) // adiciona a assinatura no documento  
  
RESULT clDoc.get_InnerXml() //salva o documento assinado 
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:

segunda-feira, 26 de julho de 2021

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




https://youtu.be/hooRaDCVN_4





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

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






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=[
<evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<infEvento Id="[%sId_evento%]">
<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>
<verEvento>1.00</verEvento>
<detEvento versao="1.00">
<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>
<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeRecepcaoEvento4">
<envEvento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<idLote>0</idLote>
#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>
<nfeDadosMsg xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeRecepcaoEvento4">
<envEvento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<idLote>0</idLote>
<evento xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00">
<infEvento Id="ID2102104321070940201900013955001000000847116715996001">
<cOrgao>91</cOrgao>
<tpAmb>2</tpAmb>
<CNPJ>17229165000132</CNPJ>
<chNFe>43210709402019000139550010000008471167159960</chNFe>
<dhEvento>2021-07-28T06:58:05-03:00</dhEvento>
<tpEvento>210210</tpEvento>
<nSeqEvento>1</nSeqEvento>
<verEvento>1.00</verEvento>
<detEvento versao="1.00">
<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>
<nfeRecepcaoEventoNFResult xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeRecepcaoEvento4">
<retEnvEvento versao="1.00" xmlns="http://www.portalfiscal.inf.br/nfe">
<idLote>0</idLote>
<tpAmb>2</tpAmb>
<verAplic>AN_1.2.3</verAplic>
<cOrgao>91</cOrgao>
<cStat>128</cStat>
<xMotivo>Lote de evento processado</xMotivo>
<retEvento versao="1.00">
<infEvento Id="ID891210029355438" xmlns="http://www.portalfiscal.inf.br/nfe">
<tpAmb>2</tpAmb>
<verAplic>AN_1.2.3</verAplic>
<cOrgao>91</cOrgao>
<cStat>135</cStat>
<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>
<chNFe>43210709402019000139550010000008471167159960</chNFe>
<tpEvento>210210</tpEvento>
<xEvento>Ciencia da Operacao</xEvento>
<nSeqEvento>1</nSeqEvento>
<CNPJDest>17229165000132</CNPJDest>
<dhRegEvento>2021-07-28T06:58:30-03:00</dhRegEvento>
<nProt>891210029355438</nProt>
</infEvento>
</retEvento>
</retEnvEvento>
</nfeRecepcaoEventoNFResult>
</soap:Body>
</soap:Envelope>
--------------------- 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: ,

quinta-feira, 22 de julho de 2021

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


https://youtu.be/p1A7PjIzebc




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 26/07/2021

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




ASSUNTOS

00:00 Introducao
00:46 Vamos entrar no projeto NFeDistribuicaoDFe_assinar_xml_windeV_337
00:56 Vamos incluir no .Net Assemblies mscorlib,System,System.Security,System.XML
01:57 Vamos criar uma procedure global assinar_xml 
02:16 Vamos receber os parametros da procedure assinar 
02:34 Pegando o certificado e lendo o xml 
03:20 Assinado o xml 
03:39 Retornando o xml assinado

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

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


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

//PROCEDURE assinar_xml(recebe_xml,recebe_refUri,recebe_chNfe)
clX509certi is X509Certificate2("D:\BACKUP_HD\AMARILDO\infinity\certificado_rm2020.pfx","rm2020")
clDoc is System.Xml.XmlDocument;
clDoc.LoadXml(recebe_xml) // Ler um arquivo Xml 
nQtdeRefUri is int= clDoc.GetElementsByTagName(recebe_refUri).Count //_refUri= (sRefUri IS STRING = "infNFe")
IF (nQtdeRefUri) =0 THEN
RESULT "erro assinar" //nao existe // does not exists // ne pas exister
ELSE
VrSignedXml is SignedXml(clDoc) //cria um objeto assinado  
VrSignedXml.SigningKey = clX509certi.PrivateKey // adiciona a chave do certificado 
Reference is Reference //= new Reference(); // Cria a referencia para assinatura 
Reference.URI = "#" + recebe_chNfe
Env is XmlDsigEnvelopedSignatureTransform  // adiciona um XmlDsigEnvelopedSignatureTransform para a assinatura    
Reference.AddTransform(Env)    
c14 is XmlDsigC14NTransform 
Reference.AddTransform(c14)
VrSignedXml.AddReference(Reference) // adiciona a referencia no xml assinado 
VrkeyInfo is KeyInfo // Cria a chave 
VrkeyInfo.AddClause(new KeyInfoX509Data(clX509certi)) // carrega o certificado em um keyinfox509 e adiciona ao keyinfo 
VrSignedXml.KeyInfo = VrkeyInfo // adiciona o keyinfo ao xml assinado 
VrSignedXml.ComputeSignature()  
xmlDigitalSignature is System.Xml.XmlElement dynamic = VrSignedXml.GetXml() // busca a representacao XML da assinatura e salva no XML       
clDoc.DocumentElement.AppendChild(clDoc.ImportNode(xmlDigitalSignature, True)) // adiciona a assinatura no documento  
  
RESULT clDoc.get_InnerXml() //salva o documento assinado 
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: , ,

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




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 23/07/2021

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




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

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



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>
<nfeDistDFeInteresse xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe">
<nfeDadosMsg>
<distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.01">
<tpAmb>[%RADIO_ambiente%]</tpAmb>
<CNPJ>[%EDT_Cnpj_cpf_dfe%]</CNPJ>
<distNSU>
<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
                                  
          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

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:
Assinar: Postagens (Atom)

Teste

Teste
teste