segunda-feira, 9 de agosto de 2021

DICAS 3381 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz codigo em Windev - Parte 12- Curso Webservice - 48






https://youtu.be/3LSmiMSkviE



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 15:15 do dia 13/08/2021

DICAS 3381 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz codigo em Windev - Parte 12- Curso Webservice - 48







ASSUNTOS

00:00 Introducao
00:42 Mostrando o xml que vamos ler , tag ide 
00:46 Vamos fazer a guia ide e colocar os campos que precisamos
01:22 vamos criar o botao para ler as informacoes do xml 
01:40 Vamos abrir o documento xml 
01:57 Vamos criar todas as procedures internas 
02:34 Vamos pegar os dados da tag ide 
03:10 Vou mostrar agora todos os campos criados e as guias 
03:48 Mostrando codigos xml emitente 
04:17 Mostrando codigos xml destinatario 
04:46 Mostrando codigos xml Totais 
05:07 Mostrando codigos xml Transportadora 
05:33 MOstrando codigos xml Pagamentos
05:51 Mostrando codigos xml Informacoes 
06:04 Mostrando codigos xml Protocolo
06:33 Mostrando como chama as procedues internas 
06:42 Fechar xml e executar programa 
07:02 Mostrando o programa funcionando 

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

// XMLDocument("xml_notas",EDT_xml)
// como ja temos o xml no edt xml, vamos abrir o documento 

XMLDocument("xml_notas",EDT_xml)

// VAMOS CRIAR PROCEDURES INTERNAS PARA MELHOR ENTENDIMENTO DO CODIGO
XML_IDE()
xml_emitente()
xml_destinatario()
xml_total()
xml_transportadora()
xml_pagamentos()
xml_informacoes()
xml_protocolo()

XMLClose("xml_notas")




INTERNAL PROCEDURE XML_IDE()
EDT_Cuf = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cUF")
EDT_CNF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cNF")
EDT_NatOp = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/natOp")
EDT_Mod = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/mod")
EDT_Serie = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/serie")
EDT_NNF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/nNF")
EDT_DhEmi = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/dhEmi")
EDT_Cuf = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cUF")
EDT_DhSaiEnt = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/dhSaiEnt")
EDT_TpNF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/tpNF")
EDT_IdDest = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/idDest")
EDT_CMunFG = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cMunFG")
EDT_TpImp = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/tpImp")
EDT_TpEmis = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/tpEmis")
EDT_CDV = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cDV")
EDT_TpAmb = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/cUF")
EDT_FinNFe = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/finNFe")
EDT_IndFinal = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/indFinal")
EDT_IndPres = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/indPres")
EDT_ProcEmi = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/procEmi")
EDT_VerProc = XMLRead("xml_notas","/nfeProc/NFe/infNFe/ide/verProc")
END

INTERNAL PROCEDURE xml_emitente()
EDT_Emitente_cnpj = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/CNPJ")
EDT_Emitente_xNome = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/xNome")
EDT_Emitente_xFant = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/xFant")
EDT_Emitente_xLgr = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/xLgr")
EDT_Emitente_nro = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/nro")
EDT_Emitente_xBairro = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/xBairro")
EDT_Emitente_cMun = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/cMun")
EDT_Emitente_xMun = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/xMun")
EDT_Emitente_UF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/UF")
EDT_Emitente_CEP = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/CEP")
EDT_Emitente_cPais = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/cPais")
EDT_Emitente_xPais = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/xPais")
EDT_Emitente_fone = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/enderEmit/fone")
EDT_Emitente_IE = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/IE")
EDT_Emitente_CRT = XMLRead("xml_notas","/nfeProc/NFe/infNFe/emit/CRT")
END

INTERNAL PROCEDURE xml_destinatario()

EDT_Destinatario_cnpj = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/CNPJ")
EDT_Destinatario_xNome = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/xNome")
EDT_Destinatario_xFant = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/xFant")
EDT_Destinatario_xLgr = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/xLgr")
EDT_Destinatario_nro = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/nro")
EDT_Destinatario_xBairro = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/xBairro")
EDT_Destinatario_cMun = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/cMun")
EDT_Destinatario_xMun = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/xMun")
EDT_Destinatario_UF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/UF")
EDT_Destinatario_CEP = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/CEP")
EDT_Destinatario_cPais = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/cPais")
EDT_Destinatario_xPais = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/xPais")
EDT_Destinatario_fone = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/enderDest/fone")
EDT_Destinatario_IE = XMLRead("xml_notas","/nfeProc/NFe/infNFe/dest/IE")
END

INTERNAL PROCEDURE xml_total()

EDT_Total_vBC = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vBC")
EDT_Total_vICMS = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vICMS")
EDT_Total_vICMSDeson = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vICMSDeson")
EDT_Total_vFCP = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vFCP")
EDT_Total_vBCST = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vBCST")
EDT_Total_vST = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vST")
EDT_Total_vFCPST = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vFCPST")
EDT_Total_vFCPSTRet = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vFCPSTRet")
EDT_Total_vProd = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vProd")
EDT_Total_vFrete = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vFrete")
EDT_Total_vSeg = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vSeg")
EDT_Total_vDesc = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vDesc")
EDT_Total_vII = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vII")
EDT_Total_vIPI = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vIPI")
EDT_Total_vIPIDevol = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vIPIDevol")
EDT_Total_vPIS = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vPIS")
EDT_Total_vCOFINS = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vCOFINS")
EDT_Total_vOutro = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vOutro")
EDT_Total_vNF = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vNF")
EDT_Total_vTotTrib = XMLRead("xml_notas","/nfeProc/NFe/infNFe/total/ICMSTot/vTotTrib")
END

INTERNAL PROCEDURE xml_transportadora()

EDT_Transportadora_modFrete = XMLRead("xml_notas","/nfeProc/NFe/infNFe/transp/modFrete")
EDT_Transportadora_qVol = XMLRead("xml_notas","/nfeProc/NFe/infNFe/transp/vol/qVol")
EDT_Transportadora_nVol = XMLRead("xml_notas","/nfeProc/NFe/infNFe/transp/vol/nVol")
END

INTERNAL PROCEDURE xml_pagamentos()

EDT_Pagamento_indPag = XMLRead("xml_notas","/nfeProc/NFe/infNFe/pag/detPag/indPag")
EDT_Pagamento_tPag = XMLRead("xml_notas","/nfeProc/NFe/infNFe/pag/detPag/tPag")
EDT_Pagamento_vPag = XMLRead("xml_notas","/nfeProc/NFe/infNFe/pag/detPag/vPag")
END

INTERNAL PROCEDURE xml_informacoes()
EDT_Informacoes_infAdic = XMLRead("xml_notas","/nfeProc/NFe/infNFe/infAdic/infCpl")
END
INTERNAL PROCEDURE xml_protocolo()
EDT_Protocolo_tpAmb = XMLRead("xml_notas","/nfeProc/protNFe/infProt/tpAmb")
EDT_Protocolo_verAplic = XMLRead("xml_notas","/nfeProc/protNFe/infProt/verAplic")
EDT_Protocolo_chNFe = XMLRead("xml_notas","/nfeProc/protNFe/infProt/chNFe")
EDT_Protocolo_dhRecbto = XMLRead("xml_notas","/nfeProc/protNFe/infProt/dhRecbto")
EDT_Protocolo_nProt = XMLRead("xml_notas","/nfeProc/protNFe/infProt/nProt")
EDT_Protocolo_digVal = XMLRead("xml_notas","/nfeProc/protNFe/infProt/digVal")
EDT_Protocolo_cStat = XMLRead("xml_notas","/nfeProc/protNFe/infProt/cStat")
EDT_Protocolo_xMotivo = XMLRead("xml_notas","/nfeProc/protNFe/infProt/xMotivo")
//<nfeProc versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe">
//<NFe xmlns="http://www.portalfiscal.inf.br/nfe">
//<protNFe versao="4.00" xmlns="http://www.portalfiscal.inf.br/nfe">
//<infProt>
//<tpAmb>2</tpAmb>
//<verAplic>RS202107191616</verAplic>
//<chNFe>43210709402019000139550010000008521131416890</chNFe>
//<dhRecbto>2021-07-27T08:36:59-03:00</dhRecbto>
//<nProt>143210000536388</nProt>
//<digVal>91Hp23eTY1P/m3etky9z9tdY6d0=</digVal>
//<cStat>100</cStat>
//<xMotivo>Autorizado o uso da NF-e</xMotivo>
//</infProt>
//</protNFe>

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







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 24/06/2021

DICAS 3358 - WINDEV WEBDEV MOBILE - Modificar o Estilo Controle  e Gravar como um Estilo Webdev - Aula Top - CURSO WEBDEV 97 - estilo 1





ASSUNTOS





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, 7 de agosto de 2021

DICAS 3380 - WINDEV WEBDEV MOBILE - Ler Xml Retornado do Sefaz em Windev - Parte 11- Curso Webservice - 47



https://youtu.be/7mLNQgT6gFk



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 11/08/2021

DICAS 3380 - WINDEV WEBDEV MOBILE - Ler Xml Retornado do Sefaz em Windev - Parte 11- Curso Webservice - 47







ASSUNTOS

00:00 Introducao
00:40 Mostrar o Projeto 
00:57 Criar uma nova windows xml_ler 
01:11 Vamos criar uma tab , e as guias Xml , Dados Nota itens Nota 
01:43 na primeira guia vamos criar o edt xml 
02:03 Vamos criar um botao para mostrar o xml 
02:45 Na windows xml ler vamos receber o xml e colocar no edt xml 
03:06 Vamos fazer o atalho, na janela status para abrir o xml ler 
03:51 Vou mostrar como Ficou e o que teremos na proxima aula 

--------------------- 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: , ,

sexta-feira, 6 de agosto de 2021

DICAS 3379 - WINDEV WEBDEV MOBILE - Desconhecimento de Operacao e nao realizado em Windev - NFeDistribuicaoDFe - Parte 10- Curso Webservice - 46





https://youtu.be/QdSixJN3kF8





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 09/08/2021

DICAS 3379 - WINDEV WEBDEV MOBILE - Desconhecimento de Operacao e nao realizado em Windev  - NFeDistribuicaoDFe - Parte 10- Curso Webservice - 46







ASSUNTOS

00:00 Introducao
00:37 Mostrando o projeto 
01:01 Vamos criar os botoes desconhecimento e nao realizada 
01:17 Vou mostrar onde no codigo vamos conseguir os parametros 
01:50 Vamos alterar o codigo do desconhecimento e do nao realizado 
02:12 Executando o codigo e Avisando qual sera a proxima aula 


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

quarta-feira, 4 de agosto de 2021

DICAS 3378 - WINDEV WEBDEV MOBILE - Chamar Assinar xml Sefaz com certificado A1 ou A3 em Windev - NFeDistribuicaoDFe - Parte 9- Curso Webservice - 45


https://youtu.be/fM8zhA-mwnQ




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 06/08/2021

DICAS 3378 - WINDEV WEBDEV MOBILE - Chamar Assinar xml Sefaz com certificado A1 ou A3 em Windev - NFeDistribuicaoDFe - Parte 9- Curso Webservice - 45








ASSUNTOS

00:00 Introducao
00:31 Vamos entrar na janela win_status_servico_nfe e evento_manifestacao
00:57 vamos criar algumas variaveis que vamos precisar 
01:19 vamos adicionar os dados das variaveis que criamos 
01:49 vamos escolher assinar xml ou assinar xml serial
03:12 vamos executar o programa 

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

domingo, 1 de agosto de 2021

DICAS 3377 - WINDEV WEBDEV MOBILE - Assinar xml Sefaz com certificado A1 ou A3 em Windev - NFeDistribuicaoDFe - Parte 8 - Curso Webservice - 44




https://youtu.be/dA6a6eYCKAA




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 04/08/2021

DICAS 3377 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 8 - Assinar xml Sefaz com certificado A1 ou A3 - Curso Webservice - 44







Fonte do Projeto no Repositorio WINDEV 



ASSUNTOS

00:00 Introducao
00:43 Foi criado 3 campos novos no cadastro de empresa
01:35 Mostrando o codigo seleciona um certificado
02:08 Vamos entrar no codigo do assinar_Xml e acrescentar para receber parametro do arquivo e senha
02:44 Vamos criar a procedure assinar_xml_serial e copiar conteudo assinar_Xml
03:31 Vamos alterar o codigo do assinar certificado
03:44 Carrega Store do windows, utilizando o Usuario Logado
04:23 Carregar Certificados
04:41 Busca certificado que tem o SerialNumber
05:31 fazer um loop para pegar o certificado desejado

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

// PROCEDURE assinar_xml(recebe_xml,recebe_refUri,recebe_id,receber_certificado_local_arquivo,receber_senha)

//,recebe_dados_certificado
//Info(recebe_dados_certificado)

clX509certi is X509Certificate2(receber_certificado_local_arquivo,receber_senha)
//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

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

// PROCEDURE assinar_xml_serial(recebe_xml,recebe_refUri,recebe_id,receber_serial_numero)
clCertificado is X509Store(StoreName.My, StoreLocation.CurrentUser) //Carrega Store do windows, utilizando o Usuario Logado
clCertificado.open(OpenFlags.ReadOnly)
clCertificado_carrega is X509Certificate2Collection(clCertificado.Certificates) // Carregar Certificados
clCertificado_colecao is X509Certificate2Collection(clCertificado_carrega.Find(X509FindType.FindBySerialNumber,receber_serial_numero,False)) //Busca certificado que tem o SerialNumber
clX509certi is X509Certificate2
FOR EACH clX509certi OF clCertificado_colecao // fazer um loop para pegar o certificado desejado
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
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