https://youtu.be/hoxTziR1dQo

https://groups.google.com/forum/#!forum/amarildowindev

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

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

https://groups.google.com/forum/#!forum/amarildowindev

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

http://windevdesenvolvimento.blogspot.com.br/2017/07/menu-blog.html

segunda-feira, 16 de agosto de 2021

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

https://youtu.be/J5tffQ06KU4

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

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

https://repository.windev.com/

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

https://repository.windev.com/resource.awp?file_id=281474976711184;xml-ler-retorno-duplicadas-codigo-windev-3383

https://www.youtube.com/playlist?list=PLwJwZaqiZW-m_0Z_QDOjmCTbRTWCUXzsJ

ASSUNTOS

00:00 Introducao

00:47 Revisando para colocar .net que precisa para assinar - a Pedido

02:03 Tirei os .net que nao vou usar aqui e na proxima aula vamos criar a assinatura separada

02:15 Vamos criar a tabela para mostrar as duplicatas

03:15 Vamos criar internal procedure ler_duplicata e chamar ela

03:31 Vamos procurar xml notas e apagar dados duplicata

03:59 vamos criar as variaveis necessarias

04:30 vamos percorrer xml notas

04:44 vamos pegar o nome da tag

05:21 vamos pegar agora numero duplicata,data e valor

06:16 vamos transformar texto em formato data - 2021-09-12

06:43 Vamos colocar dados da duplicata na tabela

07:42 Ler proxima tag

07:53 Mostrando o xml

08:04 Executando o programa

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

ler_duplicatas()

XMLClose("xml_notas")

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

INTERNAL PROCEDURE ler_duplicatas()

XMLFind("xml_notas",Null,XMLContinue+XMLChildItem) // e apagar dados duplicata-X

TABLE_duplicata.DeleteAll() // apagar dados duplicata

sNome_tag,sNumero_duplicata,sData_Vencimento,sValor_duplicata are string // vamos criar as variaveis necessarias

nSequencia is int=0

WHILE XMLFound("xml_notas") // vamos percorrer xml notas

SWITCH XMLElementType("xml_notas")

CASE XMLTag :

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

SWITCH sNome_tag

CASE "nDup"

sNumero_duplicata=(XMLData("xml_notas"))

CASE "dVenc"

sData_Vencimento=(XMLData("xml_notas"))

// vamos transformar texto em formato data - StringToDate(sData_vencimento,"yyyy-mm-dd")

// 2021-09-12

sData_Vencimento=StringToDate(sData_Vencimento,"yyyy-mm-dd")

CASE "vDup"

sValor_duplicata=(XMLData("xml_notas"))

OTHER CASE

END

// Vamos colocar dados da duplicata na tabela

IF sValor_duplicata<>"" THEN

nSequencia++

TableAddLine(TABLE_duplicata,nSequencia,sNumero_duplicata,sData_Vencimento,sValor_duplicata)

sNumero_duplicata=""

sData_Vencimento=""

sValor_duplicata=""

END

// vamos ir para proxima tag

XMLNext("xml_notas")

END

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

DICAS 3384 - WINDEV WEBDEV MOBILE - Assinar Criar Componente e utilizar windev - Parte 15- Curso Webservice - 51

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

https://groups.google.com/forum/#!forum/amarildowindev

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp

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

https://groups.google.com/forum/#!forum/amarildowindev

https://forum.pcsoft.fr/fr-FR/pcsoft.br.windev/page/1.awp