HMm90wqnKlg

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:30 do dia 16/08/2021

DICAS 3382 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz - Itens - Codigo em Windev - Parte 13- Curso Webservice - 49

https://repository.windev.com/

https://repository.windev.com/resource.awp?file_id=281474976711181;xml-ler-retorno-itens-codigo-windev-video-3382

https://windevdesenvolvimento.blogspot.com/2021/08/dicas-3382-windev-webdev-mobile-ler-xml.html

ASSUNTOS

00:00 Introducao

00:54 Criando a tabela dos itens da nota

01:42 Vamos entrar no codigo do botao criar ler dados xml

01:53 Vamos criar a procedure interna ler itens, e vamos chamar ela

02:15 Vamos instanciar o xmldocument

02:25 Vamos abrir o xml

02:48 Vamos instanciar xmlNode

02:55 vamos eliminar os dados da tabela iten

03:04 Vamos percorrer os itens do xml det

03:36 vamos adicionar o iten na tabela

03:49 Vamos pegar o atributo sequencia

04:12 vamos pegar o codigo dos produtos

04:42 vamos pegar os outros campos

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

// XMLDocument("xml_notas",EDT_xml)

// como ja temos o xml no edt xml, vamos abrir o documento

//XMLDocument("xml_notas",edt_xml)

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

ler_itens() // Vamos criar a procedure interna ler itens, e vamos chamar ela

INTERNAL PROCEDURE ler_itens()

xml_nfe is xmlDocument // Vamos instanciar o xmldocument - xml_nfe is xmlDocument

xml_nfe=XMLOpen(EDT_xml,fromString) // Vamos abrir o xml - xml_nfe=XMLOpen(EDT_xml,fromString)

det is xmlNode // vamos instanciar xmlNode // det is xmlNode

TableDeleteAll(TABLE_itens) // vamos eliminar os dados da tabela iten - TableDeleteAll(TABLE_itens)

FOR EACH det OF xml_nfe.nfeProc.NFe.infNFe ON det // vamos percorrer os itens da nota

nOcorrencia is int=TableAddLine(TABLE_itens) // vamos adicionar o iten na tabela

TABLE_itens.COL_01_sequencia[nOcorrencia]=det..Attribute[1] // Vamos adicionar a sequencia pegando o atributo

TABLE_itens.COL_02_CProd[nOcorrencia]=det.prod.cProd // vamos pegar o codigo dos produtos

// ja aproveitei e fiz os outros campos

TABLE_itens.COL_03_XProd[nOcorrencia] = det.prod.xProd

TABLE_itens.COL_04_QCom[nOcorrencia] = det.prod.qCom

TABLE_itens.COL_05_VUnCom[nOcorrencia] = det.prod.vUnCom

TABLE_itens.COL_06_VProd[nOcorrencia] = det.prod.vProd

END

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

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

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

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

DICAS 3376 - WINDEV WEBDEV MOBILE - NFeDistribuicaoDFe - Parte 7 - download Xml da Nota em Windev - Curso Webservice - 43

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

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

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

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

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

DICAS 3382 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz - Itens - Codigo em Windev - Parte 13- Curso Webservice - 49

DICAS 3383 - WINDEV WEBDEV MOBILE - Ler Duplicatas do Sefaz - Codigo em Windev - Parte 14- Curso Webservice - 50

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

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

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

https://repository.windev.com/

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

Páginas

sábado, 14 de agosto de 2021

DICAS 3382 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz - Itens - Codigo em Windev - Parte 13- Curso Webservice - 49

https://youtu.be/HMm90wqnKlg

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

Esse Video vai estrear as 09:30 do dia 16/08/2021

DICAS 3382 - WINDEV WEBDEV MOBILE - Ler Xml do Sefaz - Itens - Codigo em Windev - Parte 13- Curso Webservice - 49

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

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

Nenhum comentário:

Postar um comentário