Páginas

▼

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 

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

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








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
    END
    // vamos ir para proxima tag 
    XMLNext("xml_notas")
    END 
    
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
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

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





às

Nenhum comentário:

Postar um comentário