--
--
===========================================================
Este Grupo é destinado a discutir a implantação do SPED - Sistema Público de Escrituração Digital. Você recebeu esta mensagem porque está inscrito no grupo do Google Groups "SPED - Sistema Público de Escrituração Digital".
Para ENTRAR PARA O GRUPO, envie uma mensagem para o endereço sped-nfe+...@googlegroups.com
Para POSTAR UMA MENSAGEM NO GRUPO, envie e-mail para sped...@googlegroups.com
Para SAIR DO GRUPO, envie uma mensagem para o endereço sped-nfe+u...@googlegroups.com
---
Você está recebendo esta mensagem porque se inscreveu no grupo "SPED - Sistema Público de Escrituração Digital" dos Grupos do Google.
Para cancelar inscrição nesse grupo e parar de receber e-mails dele, envie um e-mail para sped-nfe+u...@googlegroups.com.
Para obter mais opções, acesse https://groups.google.com/d/optout.

Você recebeu essa mensagem porque está inscrito no grupo "SPED - Sistema Público de Escrituração Digital" dos Grupos do Google.
Para cancelar inscrição nesse grupo e parar de receber e-mails dele, envie um e-mail para sped-nfe+u...@googlegroups.com.



cab_retautorizacao.versaoDados = "3.10" cab_retautorizacao.cUF = Mid("11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53", InStr(1, "RO AC AM RO PA AP TO MA PI CE RN PB PE AL SE BA MG ES RJ SP PR SC RS MS MT GO DF", westado, 1), 2) nfe_retautorizacao.nfeCabecMsgValue() = cab_retautorizacao if westado = "PR" Then xmlretorno = nfe_retautorizacao.nfeRetAutorizacao(corpo2).OuterXml Else xmlretorno = nfe_retautorizacao.nfeRetAutorizacaoLote(corpo2).OuterXml End If

E viva o SEFAZ-PR!!
If WVer = 310 Then cab_inut.versaoDados = "3.10" Else cab_inut.versaoDados = "2.00" End If cab_inut.cUF = Mid("11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53", InStr(1, "RO AC AM RO PA AP TO MA PI CE RN PB PE AL SE BA MG ES RJ SP PR SC RS MS MT GO DF", westado, 1), 2) nfe_inut.nfeCabecMsgValue() = cab_inut If (westado = "BA" Or westado = "PR") And WVer = "3.10" Then xmlretorno = nfe_inut.nfeInutilizacaoNF(corpo2).OuterXml Else xmlretorno = nfe_inut.nfeInutilizacaoNF2(corpo2).OuterXml End If
///////////////////////////////////////////////////////
If WVer = 310 Then cab_status.versaoDados = "3.10" Else cab_status.versaoDados = "2.00" End If cab_status.cUF = Mid("11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53", InStr(1, "RO AC AM RO PA AP TO MA PI CE RN PB PE AL SE BA MG ES RJ SP PR SC RS MS MT GO DF", westado, 1), 2) nfe_status.nfeCabecMsgValue() = cab_status If (westado = "BA" Or westado = "PR") And WVer = "3.10" Then xmlretorno = nfe_status.nfeStatusServicoNF(corpo2).OuterXml Else xmlretorno = nfe_status.nfeStatusServicoNF2(corpo2).OuterXml End If///////////////////////////////////////////////////If WVer = 310 Then cab_cons.versaoDados = "3.10" Else cab_cons.versaoDados = "2.01" End If cab_cons.cUF = Mid("11 12 13 14 15 16 17 21 22 23 24 25 26 27 28 29 31 32 33 35 41 42 43 50 51 52 53", InStr(1, "RO AC AM RO PA AP TO MA PI CE RN PB PE AL SE BA MG ES RJ SP PR SC RS MS MT GO DF", westado, 1), 2) nfe_cons.nfeCabecMsgValue() = cab_cons If (westado = "BA" Or westado = "PR") And WVer = "3.10" Then xmlretorno = nfe_cons.nfeConsultaNF(corpo2).OuterXml.ToString Else xmlretorno = nfe_cons.nfeConsultaNF2(corpo2).OuterXml.ToString End If
