public override void Execute()
{
int emp = Empresas.FindEmpresaByThread();
try
{
dadosRec = new DadosRecClass();
FluxoNfe oFluxoNfe = new FluxoNfe();
LerXML oLer = new LerXML();
//Ler o XML de Lote para pegar o número do lote que está sendo enviado
oLer.Nfe(NomeArquivoXML);
if (oLer.oDadosNfe.versao != "2.00")
{
Servico = Servicos.NFeEnviarLote2;
}
var idLote = oLer.oDadosNfe.idLote;
//Definir o objeto do WebService
WebServiceProxy wsProxy = ConfiguracaoApp.DefinirWS(Servico, emp,
Convert.ToInt32(oLer.oDadosNfe.cUF),
Convert.ToInt32(oLer.oDadosNfe.tpAmb),
Convert.ToInt32(oLer.oDadosNfe.tpEmis),
oLer.oDadosNfe.versao,
oLer.oDadosNfe.mod);
System.Net.SecurityProtocolType securityProtocolType = WebServiceProxy.DefinirProtocoloSeguranca(Convert.ToInt32(oLer.oDadosNfe.cUF), Convert.ToInt32(oLer.oDadosNfe.tpAmb), Convert.ToInt32(oLer.oDadosNfe.tpEmis), PadroesNFSe.NaoIdentificado, Servico);
if (Empresas.Configuracoes[emp].CompactarNfe && oLer.oDadosNfe.versao != "2.00" && wsProxy.NomeMetodoWS.Length == 2)
{
Servico = Servicos.NFeEnviarLoteZip2;
}
//Criar objetos das classes dos serviços dos webservices do SEFAZ
object oRecepcao = wsProxy.CriarObjeto(wsProxy.NomeClasseWS);
var oCabecMsg = wsProxy.CriarObjeto(NomeClasseCabecWS(Convert.ToInt32(oLer.oDadosNfe.cUF), Servico));
//Atribuir conteúdo para duas propriedades da classe nfeCabecMsg
wsProxy.SetProp(oCabecMsg, NFe.Components.TpcnResources.cUF.ToString(), oLer.oDadosNfe.cUF);
wsProxy.SetProp(oCabecMsg, NFe.Components.TpcnResources.versaoDados.ToString(), oLer.oDadosNfe.versao);
//XML neste ponto a NFe já está assinada, pois foi assinada, validada e montado o lote para envio por outro serviço.
//Fica aqui somente este lembrete. Wandrey 16/03/2010
// Envio de NFe Compactada - Renan 29/04/2014
if (Servico == Servicos.NFeEnviarLoteZip2)
{
FileInfo dadosArquivo = new FileInfo(NomeArquivoXML);
TFunctions.CompressXML(dadosArquivo);
}
string nOperacao = wsProxy.NomeMetodoWS[(Servico == Servicos.NFeEnviarLoteZip2) ? 1 : 0];
//Invocar o método que envia o XML para o SEFAZ
if (Empresas.Configuracoes[emp].IndSinc && oLer.oDadosNfe.versao != "2.00" && oLer.oDadosNfe.indSinc)
{
//Não posso gerar o arquivo na pasta de retorno através do método Invocar, por isso não estou colocando os dois ultimos parâmetros com a definição dos prefixos dos arquivos. O arquivo de retorno no processo síncrono deve acontecer somente depois de finalizado o processo da nota, ou gera problemas. Wandrey 11/06/2015
oInvocarObj.Invocar(wsProxy,
oRecepcao,
nOperacao,
oCabecMsg,
this,
Propriedade.Extensao(Propriedade.TipoEnvio.EnvLot).EnvioXML,
Propriedade.Extensao(Propriedade.TipoEnvio.PedRec).RetornoXML,
false,
securityProtocolType);
Protocolo(vStrXmlRetorno);
}
else
{
oInvocarObj.Invocar(wsProxy,
oRecepcao,
nOperacao,
oCabecMsg,
this,
Propriedade.Extensao(Propriedade.TipoEnvio.EnvLot).EnvioXML,
Propriedade.ExtRetorno.Rec,
true,
securityProtocolType);
Recibo(vStrXmlRetorno);
}
if (dadosRec.cStat == "104") //Lote processado - Processo da NFe Síncrono - Wandrey 13/03/2014
{
FinalizarNFeSincrono(vStrXmlRetorno, emp);
oGerarXML.XmlRetorno(Propriedade.Extensao(Propriedade.TipoEnvio.EnvLot).EnvioXML, Propriedade.Extensao(Propriedade.TipoEnvio.PedRec).RetornoXML, vStrXmlRetorno);
}
else if (dadosRec.cStat == "103") //Lote recebido com sucesso - Processo da NFe Assíncrono
{
//Atualizar o número do recibo no XML de controle do fluxo de notas enviadas
oFluxoNfe.AtualizarTag(oLer.oDadosNfe.chavenfe, FluxoNfe.ElementoEditavel.tMed, dadosRec.tMed.ToString());
oFluxoNfe.AtualizarTagRec(idLote, dadosRec.nRec);
}
else if (Convert.ToInt32(dadosRec.cStat) > 200 ||
Convert.ToInt32(dadosRec.cStat) == 108 || //Verifica se o servidor de processamento está paralisado momentaneamente. Wandrey 13/04/2012
Convert.ToInt32(dadosRec.cStat) == 109) //Verifica se o servidor de processamento está paralisado sem previsão. Wandrey 13/04/2012
{
if (Empresas.Configuracoes[emp].IndSinc && oLer.oDadosNfe.versao != "2.00" && oLer.oDadosNfe.indSinc)
{
// OPS!!! Processo sincrono rejeição da SEFAZ, temos que gravar o XML para o ERP, pois no processo síncrono isso não pode ser feito dentro do método Invocar
oGerarXML.XmlRetorno(Propriedade.Extensao(Propriedade.TipoEnvio.EnvLot).EnvioXML, Propriedade.Extensao(Propriedade.TipoEnvio.PedRec).RetornoXML /*.ExtRetorno.ProRec_XML*/, vStrXmlRetorno);
}
//Se o status do retorno do lote for maior que 200 ou for igual a 108 ou 109,
//vamos ter que excluir a nota do fluxo, porque ela foi rejeitada pelo SEFAZ
//Primeiro vamos mover o xml da nota da pasta EmProcessamento para pasta de XML´s com erro e depois a tira do fluxo
//Wandrey 30/04/2009
oAux.MoveArqErro(Empresas.Configuracoes[emp].PastaXmlEnviado + "\\" + PastaEnviados.EmProcessamento.ToString() + "\\" + oFluxoNfe.LerTag(oLer.oDadosNfe.chavenfe, FluxoNfe.ElementoFixo.ArqNFe));
oFluxoNfe.ExcluirNfeFluxo(oLer.oDadosNfe.chavenfe);
}
//Deleta o arquivo de lote
Functions.DeletarArquivo(NomeArquivoXML);
// Envio de NFe Compactada - Renan 29/04/2014
if (Servico == Servicos.NFeEnviarLoteZip2)
{
Functions.DeletarArquivo(NomeArquivoXML + ".gz");
}
}
catch (ExceptionEnvioXML ex)
{
TrataException(emp, ex);
}
catch (ExceptionSemInternet ex)
{
TrataException(emp, ex);
}
catch (Exception ex)
{
TrataException(emp, ex);
}
}
/// <summary>
/// Metodo responsável por invocar o serviço do WebService do SEFAZ
/// </summary>
/// <param name="wsProxy">Objeto da classe construida do WSDL</param>
/// <param name="servicoWS">Objeto da classe de envio do XML</param>
/// <param name="metodo">Método da classe de envio do XML que faz o envio</param>
/// <param name="cabecMsg">Objeto da classe de cabecalho do serviço</param>
/// <param name="servicoNFe">Objeto do Serviço de envio da NFE do UniNFe</param>
/// <param name="finalArqEnvio">string do final do arquivo a ser enviado. Sem a extensão ".xml"</param>
/// <param name="finalArqRetorno">string do final do arquivo a ser gravado com o conteúdo do retorno. Sem a extensão ".xml"</param>
/// <param name="gravaRetorno">Grava o arquivo de retorno para o ERP na execução deste método?</param>
public void Invocar(WebServiceProxy wsProxy,
object servicoWS,
string metodo,
object cabecMsg,
object servicoNFe,
string finalArqEnvio,
string finalArqRetorno,
bool gravaRetorno,
SecurityProtocolType securityProtocolType)
{
int emp = Empresas.FindEmpresaByThread();
finalArqEnvio = Functions.ExtractExtension(finalArqEnvio);
finalArqRetorno = Functions.ExtractExtension(finalArqRetorno);
XmlDocument docXML = new XmlDocument();
// Definir o tipo de serviço da NFe
Type typeServicoNFe = servicoNFe.GetType();
Servicos servico = (Servicos)wsProxy.GetProp(servicoNFe, NFeStrConstants.Servico);
docXML = (XmlDocument)(typeServicoNFe.InvokeMember("ConteudoXML", System.Reflection.BindingFlags.GetField, null, servicoNFe, null));
// Resgatar o nome do arquivo XML a ser enviado para o webservice
string XmlNfeDadosMsg = (string)(typeServicoNFe.InvokeMember("NomeArquivoXML", System.Reflection.BindingFlags.GetProperty, null, servicoNFe, null));
// Exclui o Arquivo de Erro
Functions.DeletarArquivo(Empresas.Configuracoes[emp].PastaXmlRetorno + "\\" + Functions.ExtrairNomeArq(XmlNfeDadosMsg, finalArqEnvio + ".xml") + finalArqRetorno + ".err");
if (docXML == null)
{
docXML.Load(XmlNfeDadosMsg);
}
// Validar o Arquivo XML
switch (servico)
{
case Servicos.NFeEnviarLote:
case Servicos.NFeEnviarLoteZip:
case Servicos.CTeEnviarLote:
case Servicos.MDFeEnviarLote:
//XML de NFe, CTe e MDFe, na montagem do lote eu valido o XML antes, como o lote quem monta é o XML entendo que não está montando errado, sendo assim, não vou validar novamente o XML para ganhar desempenho. Wandrey 18/09/2016
break;
default:
ValidarXML validar = new ValidarXML(docXML, Empresas.Configuracoes[emp].UnidadeFederativaCodigo, false);
string cResultadoValidacao = validar.ValidarArqXML(docXML, XmlNfeDadosMsg);
if (cResultadoValidacao != "")
{
throw new Exception(cResultadoValidacao);
}
break;
}
// Definir Proxy
if (ConfiguracaoApp.Proxy)
{
wsProxy.SetProp(servicoWS, "Proxy", Proxy.DefinirProxy(ConfiguracaoApp.ProxyServidor, ConfiguracaoApp.ProxyUsuario, ConfiguracaoApp.ProxySenha, ConfiguracaoApp.ProxyPorta, ConfiguracaoApp.DetectarConfiguracaoProxyAuto));
}
// Limpa a variável de retorno
XmlNode XmlRetorno = null;
string strRetorno = string.Empty;
//Vou mudar o timeout para evitar que demore a resposta e o uninfe aborte antes de recebe-la. Wandrey 17/09/2009
//Isso talvez evite de não conseguir o número do recibo se o serviço do SEFAZ estiver lento.
wsProxy.SetProp(servicoWS, "Timeout", 60000);
if (cabecMsg != null)
{
switch (servico)
{
case Servicos.MDFePedidoConsultaSituacao:
case Servicos.MDFePedidoSituacaoLote:
case Servicos.MDFeEnviarLote:
case Servicos.MDFeConsultaStatusServico:
case Servicos.MDFeRecepcaoEvento:
case Servicos.MDFeConsultaNaoEncerrado:
wsProxy.SetProp(servicoWS, "mdfeCabecMsgValue", cabecMsg);
break;
case Servicos.CTeInutilizarNumeros:
case Servicos.CTePedidoConsultaSituacao:
case Servicos.CTePedidoSituacaoLote:
case Servicos.CTeEnviarLote:
case Servicos.CTeRecepcaoEvento:
case Servicos.CTeConsultaStatusServico:
case Servicos.CteRecepcaoOS:
if (wsProxy.GetProp(cabecMsg, TpcnResources.cUF.ToString()).ToString() == "50") //Mato Grosso do Sul fugiu o padrão nacional
{
try
{
wsProxy.SetProp(servicoWS, "cteCabecMsg", cabecMsg);
}
catch //Se der erro é pq não está no ambiente normal então tem que ser o nome padrão pois Mato Grosso do Sul fugiu o padrão nacional.
{
wsProxy.SetProp(servicoWS, "cteCabecMsgValue", cabecMsg);
}
}
else
{
wsProxy.SetProp(servicoWS, "cteCabecMsgValue", cabecMsg);
}
break;
case Servicos.CTeDistribuicaoDFe:
case Servicos.DFeEnviar:
break;
case Servicos.LMCAutorizacao:
break;
default:
wsProxy.SetProp(servicoWS, "nfeCabecMsgValue", cabecMsg);
break;
}
}
//Definir novamente o protocolo de segurança, pois é uma propriedade estática e o seu valor pode ser alterado antes do envio. Wandrey 03/05/2016
ServicePointManager.SecurityProtocol = securityProtocolType;
// Envio da NFe Compactada - Renan
if (servico == Servicos.NFeEnviarLoteZip)
{
string encodedData = TFunctions.CompressXML(docXML);
XmlRetorno = wsProxy.InvokeXML(servicoWS, metodo, new object[] { encodedData });
}
else
{
XmlRetorno = wsProxy.InvokeXML(servicoWS, metodo, new object[] { docXML });
}
if (XmlRetorno == null)
{
throw new Exception("Erro de envio da solicitação do serviço: " + servico.ToString());
}
typeServicoNFe.InvokeMember("vStrXmlRetorno", System.Reflection.BindingFlags.SetProperty, null, servicoNFe, new object[] { XmlRetorno.OuterXml });
// Registra o retorno de acordo com o status obtido
if (gravaRetorno)
{
typeServicoNFe.InvokeMember("XmlRetorno", System.Reflection.BindingFlags.InvokeMethod, null, servicoNFe, new Object[] { finalArqEnvio + ".xml", finalArqRetorno + ".xml" });
}
}
public override void Execute()
{
int emp = Empresas.FindEmpresaByThread();
try
{
dadosRec = new DadosRecClass();
FluxoNfe oFluxoNfe = new FluxoNfe();
LerXML oLer = new LerXML();
//Ler o XML de Lote para pegar o número do lote que está sendo enviado
oLer.Nfe(NomeArquivoXML);
if (oLer.oDadosNfe.versao != "2.00")
{
Servico = Servicos.NFeEnviarLote2;
}
var idLote = oLer.oDadosNfe.idLote;
//Definir o objeto do WebService
WebServiceProxy wsProxy = ConfiguracaoApp.DefinirWS(Servico, emp,
Convert.ToInt32(oLer.oDadosNfe.cUF),
Convert.ToInt32(oLer.oDadosNfe.tpAmb),
Convert.ToInt32(oLer.oDadosNfe.tpEmis),
oLer.oDadosNfe.versao,
oLer.oDadosNfe.mod);
if (Empresas.Configuracoes[emp].CompactarNfe && oLer.oDadosNfe.versao != "2.00" && wsProxy.NomeMetodoWS.Length == 2)
{
Servico = Servicos.NFeEnviarLoteZip2;
}
//Criar objetos das classes dos serviços dos webservices do SEFAZ
object oRecepcao = wsProxy.CriarObjeto(wsProxy.NomeClasseWS);// NomeClasseWS(Servico, Convert.ToInt32(oLer.oDadosNfe.cUF)));
var oCabecMsg = wsProxy.CriarObjeto(NomeClasseCabecWS(Convert.ToInt32(oLer.oDadosNfe.cUF), Servico));
//Atribuir conteúdo para duas propriedades da classe nfeCabecMsg
wsProxy.SetProp(oCabecMsg, NFe.Components.TpcnResources.cUF.ToString(), oLer.oDadosNfe.cUF);
wsProxy.SetProp(oCabecMsg, NFe.Components.TpcnResources.versaoDados.ToString(), oLer.oDadosNfe.versao);
//XML neste ponto a NFe já está assinada, pois foi assinada, validada e montado o lote para envio por outro serviço.
//Fica aqui somente este lembrete. Wandrey 16/03/2010
// Envio de NFe Compactada - Renan 29/04/2014
if (Servico == Servicos.NFeEnviarLoteZip2)//Empresas.Configuracoes[emp].CompactarNfe && oLer.oDadosNfe.versao != "2.00")
{
FileInfo dadosArquivo = new FileInfo(NomeArquivoXML);
TFunctions.CompressXML(dadosArquivo);
}
string nOperacao = wsProxy.NomeMetodoWS[(Servico == Servicos.NFeEnviarLoteZip2) ? 1 : 0];
//Invocar o método que envia o XML para o SEFAZ
if (Empresas.Configuracoes[emp].IndSinc && oLer.oDadosNfe.versao != "2.00")
{
oInvocarObj.Invocar(wsProxy,
oRecepcao,
nOperacao,//NomeMetodoWS(Servico, Convert.ToInt32(oLer.oDadosNfe.cUF), oLer.oDadosNfe.versao),
oCabecMsg, this);
Protocolo(vStrXmlRetorno);
}
else
{
oInvocarObj.Invocar(wsProxy,
oRecepcao,
nOperacao,//NomeMetodoWS(Servico, Convert.ToInt32(oLer.oDadosNfe.cUF), oLer.oDadosNfe.versao),
oCabecMsg, this, "-env-lot", "-rec");
Recibo(vStrXmlRetorno);
}
if (dadosRec.cStat == "104") //Lote processado - Processo da NFe Síncrono - Wandrey 13/03/2014
{
FinalizarNFeSincrono(vStrXmlRetorno, emp);
oGerarXML.XmlRetorno(Propriedade.ExtEnvio.EnvLot, Propriedade.ExtRetorno.ProRec_XML, vStrXmlRetorno);
}
else if (dadosRec.cStat == "103") //Lote recebido com sucesso - Processo da NFe Assíncrono
{
//Atualizar o número do recibo no XML de controle do fluxo de notas enviadas
oFluxoNfe.AtualizarTag(oLer.oDadosNfe.chavenfe, FluxoNfe.ElementoEditavel.tMed, /*oLerRecibo.*/ dadosRec.tMed.ToString());
oFluxoNfe.AtualizarTagRec(idLote, /*oLerRecibo.*/ dadosRec.nRec);
}
else if (Convert.ToInt32(dadosRec.cStat) > 200 ||
Convert.ToInt32(dadosRec.cStat) == 108 || //Verifica se o servidor de processamento está paralisado momentaneamente. Wandrey 13/04/2012
Convert.ToInt32(dadosRec.cStat) == 109) //Verifica se o servidor de processamento está paralisado sem previsão. Wandrey 13/04/2012
{
//Se o status do retorno do lote for maior que 200 ou for igual a 108 ou 109,
//vamos ter que excluir a nota do fluxo, porque ela foi rejeitada pelo SEFAZ
//Primeiro vamos mover o xml da nota da pasta EmProcessamento para pasta de XML´s com erro e depois tira ela do fluxo
//Wandrey 30/04/2009
oAux.MoveArqErro(Empresas.Configuracoes[emp].PastaXmlEnviado + "\\" + PastaEnviados.EmProcessamento.ToString() + "\\" + oFluxoNfe.LerTag(oLer.oDadosNfe.chavenfe, FluxoNfe.ElementoFixo.ArqNFe));
oFluxoNfe.ExcluirNfeFluxo(oLer.oDadosNfe.chavenfe);
}
//Deleta o arquivo de lote
Functions.DeletarArquivo(NomeArquivoXML);
// Envio de NFe Compactada - Renan 29/04/2014
if (Servico == Servicos.NFeEnviarLoteZip2)//Empresas.Configuracoes[emp].CompactarNfe && oLer.oDadosNfe.versao != "2.00")
{
Functions.DeletarArquivo(NomeArquivoXML + ".gz");
}
}
catch (ExceptionEnvioXML ex)
{
//Ocorreu algum erro no exato momento em que tentou enviar o XML para o SEFAZ, vou ter que tratar
//para ver se o XML chegou lá ou não, se eu consegui pegar o número do recibo de volta ou não, etc.
//E ver se vamos tirar o XML do Fluxo ou finalizar ele com a consulta situação da NFe
//TODO: V3.0 - Tratar o problema de não conseguir pegar o recibo exatamente neste ponto
try
{
//Gravar o arquivo de erro de retorno para o ERP, caso ocorra
TFunctions.GravarArqErroServico(NomeArquivoXML, Propriedade.ExtEnvio.EnvLot, Propriedade.ExtRetorno.Rec_ERR, ex);
}
catch
{
//Se falhou algo na hora de gravar o retorno .ERR (de erro) para o ERP, infelizmente não posso fazer mais nada.
//Wandrey 16/03/2010
}
}
catch (ExceptionSemInternet ex)
{
try
{
//Gravar o arquivo de erro de retorno para o ERP, caso ocorra
TFunctions.GravarArqErroServico(NomeArquivoXML, Propriedade.ExtEnvio.EnvLot, Propriedade.ExtRetorno.Rec_ERR, ex, false);
}
catch
{
//Se falhou algo na hora de gravar o retorno .ERR (de erro) para o ERP, infelizmente não posso fazer mais nada.
//Wandrey 16/03/2010
}
}
catch (Exception ex)
{
try
{
//Gravar o arquivo de erro de retorno para o ERP, caso ocorra
TFunctions.GravarArqErroServico(NomeArquivoXML, Propriedade.ExtEnvio.EnvLot, Propriedade.ExtRetorno.Rec_ERR, ex);
}
catch
{
//Se falhou algo na hora de gravar o retorno .ERR (de erro) para o ERP, infelizmente não posso fazer mais nada.
//Wandrey 16/03/2010
}
}
}