Erro ao Enviar Carta de Correção

[Marcelo Bill]

Boa tarde a todos

 

Mudei para Trunk2 depois disso começou a dar Rejeição 

cStat 493 Rejeição : Evento não atende o Schema XML específico

a) Já atualizei o schemas junto do aplicativo

b.) Verifiquei o Exemplo de Evento CCe no pacote de exemplo do ACBR e efetuei as modificações conforme o exemplo

ai passou a dar um erro feio

######################

Erro Interno: 12002

Erro HTTP: 0

Requisição não enviada

12002 Tempo Limite da operação foi atinigdo

######################

Estou usando desta forma

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

      NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString;
      dm00.CNFE.EventoNFe.Evento.Clear;
      with dm00.CNFE.EventoNFe.Evento.Add do Begin
        {
       // infEvento.cOrgao                  := dm15.ListaCCorrecaoCODUF.AsInteger;
       // infEvento.tpAmb                   := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao);
        }
        infEvento.chNFe                   := dm15.ListaCCorrecaoCHAVE.AsString;
        infEvento.CNPJ                    := dm15.ListaCCorrecaoCNPJ.AsString;
        infEvento.dhEvento                := now;
        infEvento.tpEvento                := teCCe;
        infEvento.nSeqEvento              := dm15.ListaCCorrecaoIDEVENTO.AsInteger;
        infEvento.versaoEvento            := dm15.ListaCCorrecaoVERSAO.AsString;
        infEvento.detEvento.xCorrecao     := dm15.ListaCCorrecaoCORRECAO.AsString;
      end;

      Try
        dm00.CNFE.EnviarEvento(StrToInt(NumeroLote));
      except
        on E: exception do Begin
          Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString);
          mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]);
        End;
      end;

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

Agradeço se alguem puder dar uma dica

 

[Daniel Simoes]

Tente usar libCapicomDelphiSoap em SSLLib

[Marcelo Bill]

Nooooosssa Daniel, por favor, explique isso melhor

 

obrigado

[Daniel Simoes]

Veja as propriedades de configuração do componente ACBrNFe

[Marcelo Bill]

Daniel nem tinha reparado nisso,

TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap);

Vou chutar, acho que isso é que determina se eu estou usando Capicom ou OpenSSL

tah, mas porque voce me disse para tentar usar a libCapicomDelphiSoap, qual a diferencça entre libCapicomDelphiSoap e libCapicom ?

obrigado

[Marcelo Bill]

Daniel

Já adicionei o acbrNFE.Configuracoes.Geral.SSLLib:=libCapicomDelphiSoap; já atualizei schemas; já removi os acentos da do texto da correção e da condição e até agora nada, veja esta gerando o XML com defeito.

 

 

1101103515096240430600016055001000000984100000984001-procEventoNFe.xml

[Daniel Simoes]

Qual a sua IDE e S.O. ?

Qual o seu tipo de certificado ?

Qual UF e WebService ?

 

Daniel nem tinha reparado nisso,

TSSLLib = (libNone, libOpenSSL, libCapicom, libCapicomDelphiSoap);

Vou chutar, acho que isso é que determina se eu estou usando Capicom ou OpenSSL

tah, mas porque voce me disse para tentar usar a libCapicomDelphiSoap, qual a diferencça entre libCapicomDelphiSoap e libCapicom ?

obrigado

libCapicom -> usa uma implementação interna do ACBr para abrir o certificado e usá-lo em uma comunicação segura...

libCapicomDelphiSoap -> usa os métodos do Delphi para comunicação com SOAP

[Marcelo Bill]

IDE Delphi 7

S.O. são todos pois no momento são tres clientes que estao com o mesmo problema "493 Rejeição : Evento não atende o Schema XML específico"

Nestes três tenho XP, W7 e W8

XP e W7 usam Certificado Cartao com leitora A3,

W8 usa Token A3

UF webservice todos SP

Desculpe, a minha IDE Delphi 7 e Meu Sistema Operacional XP

Editado 15 Setembro, 2015 por marcelonarezzi

[Daniel Simoes]

Qual erro exatamente você está descrevendo ?

No seu tópico inicial, você falou que já havia resolvido o problema do Schema...

[Marcelo Bill]

Daniel, desculpe se não me expressei corretamente, mencionei sobre os schemas pois a msg se tratava do assunto, então quiz dar uma posição do que ja havia sido feito e que ainda não tinha resolvido. Tentei explicar que o meu problema inicial e atual é:"493 Rejeição : Evento não atende o Schema XML específico"

E conforme voce ja me orientou, ja adicionei suas dicas no sistema, porém o erro continua, realmente não sei o que fazer.  Só lembrando que isso ocorreu depois da migração para o trunk2, já tentei localizar as alterações ocorridas no trunk2 dentro da pasta do componente, mas também não estou encontrando, esse é o motivo de estar assim desatualizado da informação. Veja como está a config no inicio da aplicação, quem sabe podes ver algo em que eu estaja pecando.

-----------Config----------

 

    NFe_Ambiente:=iif(dm.SETUP.FieldByName('AMBIENTE').Asstring='T',taHomologacao,taProducao);
    NFe_TipoDanfe:=iif(dm.SETUP.FieldByName('VISUALNFE').AsString='S',true,False);
    if dm.SetupVERSAOXML.AsString='' then begin
      dm.Setup.Edit;
      dm.SetupVERSAOXML.AsString:='3.1';
      dm.Setup.Post;
      dm.Setup.ApplyUpdates(-1);
    end;
    case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of
    0:cnfe.Configuracoes.Geral.VersaoDF:=ve200;
    1:cnfe.Configuracoes.Geral.VersaoDF:=ve200;
    2:cnfe.Configuracoes.Geral.VersaoDF:=ve300;
    3:cnfe.Configuracoes.Geral.VersaoDF:=ve310;
    end;
    case AnsiIndexStr(dm.SetupVERSAOXML.AsString, ['1.0', '2.0', '3.0', '3.1']) of
    0:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200';
    1:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve200';
    2:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve300';
    3:cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas\ve310';
    end;
    if not DirectoryExists(cnfe.Configuracoes.Arquivos.PathSchemas) then begin
      cnfe.Configuracoes.Arquivos.PathSchemas:='Schemas';
    end;
    cnfe.Configuracoes.Certificados.NumeroSerie :=dm.EMPRESA.FieldByName('CERTIFICADO').AsString;
    cnfe.Configuracoes.WebServices.Ambiente     :=NFe_Ambiente;
    cnfe.Configuracoes.Geral.SSLLib             :=libCapicom;
    cnfe.Configuracoes.Geral.ModeloDF           :=moNFe;{moNFe moNFCe}
    cnfe.Configuracoes.Geral.Salvar             :=true;
    cnfe.Configuracoes.Arquivos.PathSalvar      :=LerINI('ACESSO','XMLNFE');
    cnfe.Configuracoes.Arquivos.PathNFe         :=LerINI('ACESSO','XMLNFE');
    cnfe.Configuracoes.Arquivos.PathInu         :=LerINI('ACESSO','XMLNFE');
    cnfe.Configuracoes.Arquivos.PathEvento      :=LerINI('ACESSO','XMLNFE')+'Eventos';

    cnfe.DANFE.PathPDF                          :=LerINI('ACESSO','XMLNFE');
    cnfe.DANFE.TipoDANFE                        :=NFe_TipoDanfe;
    cnfe.DANFE.MargemDireita                    :=dm.SetupA023.AsFloat;//Margem Direira
    cnfe.DANFE.MargemEsquerda                   :=dm.SetupA024.AsFloat;//Margem Esquerda
    cnfe.DANFE.MargemSuperior                   :=dm.SetupA025.AsFloat;//Margem Superior
    cnfe.DANFE.MargemInferior                   :=dm.SetupA026.AsFloat;//Margem Inferior

    cnfe.Configuracoes.WebServices.UF                 :=dm.EMPRESAESTADO.AsString;
    cnfe.Configuracoes.WebServices.Visualizar         :=NFe_TipoDanfe;
    cnfe.Configuracoes.WebServices.AguardarConsultaRet:=2000;
    cnfe.DANFE.Logo                             :=LerINI('ACESSO','MARCA');

    DanfeRav.ImprimirTributosItem               :=True;

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

--------------Para Criar o Registro ------------

mBox = Semelhante messagebox

ListaCCorrecao compo de acesso a tabela

      if mBox('Tem certeza de Gerar uma Carta de Correção?','Q',[mbsim,mbnao])=True then begin
        dm15.ListaCCorrecao.Append;
        dm15.ListaCCorrecaoNOTA.AsInteger     :=dm15.NFENOTA.AsInteger;
        dm15.ListaCCorrecaoSERIE.AsString     :=dm15.NFESERIE.AsString;
        dm15.ListaCCorrecaoEMISSAO.AsDateTime :=DataServidor;
        dm15.ListaCCorrecaoHORA.AsDateTime    :=time;
        dm15.ListaCCorrecaoCHAVE.AsString     :=dm15.NFEDANFE.AsString;
        dm15.ListaCCorrecaoCODUF.AsInteger    :=dm.EmpresaCODUF.AsInteger;
        dm15.ListaCCorrecaoCNPJ.AsString      :=dm.EmpresaCNPJ.AsString;
        dm15.ListaCCorrecaoTPEVENTO.AsInteger :=110110;
        dm15.ListaCCorrecaoIDEVENTO.AsInteger :=dm15.ListaCCorrecao.RecordCount+1;
        dm15.ListaCCorrecaoVERSAO.AsString    :='1.00';
        dm15.ListaCCorrecaoDESCEVENTO.AsString:='Carta de Correção';
        dm15.ListaCCorrecaoCORRECAO.AsString  :='Informações a serem alteradas';
        dm15.ListaCCorrecaoCONDICAO.AsString  :=F10Condicao.Text;
        dm15.ListaCCorrecao.Post;
      end;

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

----------------Para Enviar-----------

      NumeroLote:=dm15.NFENOTA.AsString+dm15.ListaCCorrecaoIDEVENTO.AsString;
      dm00.CNFE.EventoNFe.Evento.Clear;
      with dm00.CNFE.EventoNFe.Evento.Add do Begin
        infEvento.cOrgao                  := dm15.ListaCCorrecaoCODUF.AsInteger;
        infEvento.tpAmb                   := iif(dm.SETUPAMBIENTE.Asstring='T',taHomologacao,taProducao);
        infEvento.CNPJ                    := dm15.ListaCCorrecaoCNPJ.AsString;
        infEvento.chNFe                   := dm15.ListaCCorrecaoCHAVE.AsString;
        infEvento.dhEvento                := now;
        infEvento.tpEvento                := teCCe;
        infEvento.nSeqEvento              := dm15.ListaCCorrecaoIDEVENTO.AsInteger;
        infEvento.versaoEvento            := dm15.ListaCCorrecaoVERSAO.AsString;
        infEvento.detEvento.xCorrecao     := RemoveEspXml(dm15.ListaCCorrecaoCORRECAO.AsString);
        infEvento.detEvento.xCondUso      := RemoveEspXml(dm15.ListaCCorrecaoCONDICAO.AsString);
      end;

      Try
        dm00.CNFE.EnviarEvento(StrToInt(NumeroLote));
      except
        on E: exception do Begin
          Dedoduro('ERRO-CCE','Erro '+e.ClassName+' - '+e.Message,dm.LoginFANTASIA.AsString);
          mBox('Erro '+e.ClassName+' - '+e.Message,'E',[mbok]);
        End;
      end;

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

Daniel, agradeço mesmo sua atenção e a de todos deste portal, tomara que eu consiga receber uma boa noticia.

Abraços

 

Realmente não sei dizer o que está ocorrendo, porem, acima, postei o XML que está sendo gerado e o mesmo, só abre com erro no navegador, ou seja, ou eu estou apontando o schema pro lugar errado ou estou pegando schema errado na pasta do componente. (Acbr\Exemplos\ACBrDFe\ACBrNFe\Schemas);

 

Editado 15 Setembro, 2015 por marcelonarezzi

[Daniel Simoes]

Vamos tentar isolar o problema ok ?

O ideal é usar a aplicação demo do ACBrNFe... pois se nela o problema ocorrer, eu também poderei reproduzi-lo...

Se não ocorrer, pode ser algum ajuste necessário a ser feito nos seus fontes...

Minha suspeita é que você está usando uma versão defasada do ACBrNFeServicos.ini  / ACBrNFeServicos.res

Observe que no componente ACBrNFe.Configurações.Arquivos.IniServicos, você pode especificar o caminho do "ACBrNFeServicos.ini"... isso é muito útil para modificar/testar URLs, sem precisar recompilar a aplicação...

[Marcelo Bill]

Daniel

nao entendi muito bem o que disse qdo estar usando uma versao desatualizado acbrNFeServicos.ini, se puder esmiuçar o assunto, agradeço, independente disso, vou usar meu certificado eletronico em ambiente de homolagação e simular envio de notas e em seguida enviar a carta CCe

Vamos lá, a luta madrugada a fora novamente.

 

 

[Daniel Simoes]

Aguardo o seu retorno, com o passo a passo de como reproduzir o problema usando o Demo do ACBrNFe

[Marcelo Bill]

Bom dia Daniel

IDE Delphi

SO XP

NFE Nº 1

CCe Nº 1

 

Antes de mais nada muito obrigado pela paciencia. Já é madrugada, e eu não sai do lugar. Abri demo do acbrNFE ele deu um erro por falta de um componente que não me lembro qual é agora, mas, assim mesmo, copiei o projeto num novo projeto delphi, configurei igualzinho, agora a mensagem é "Rejeição: Versão dos Dados não suportada", visto isso lá por volta das 20:00, depois disso, já mudei a versão para 2, 3, 3.1 e nada, ai com o tempo fui percebendo que o Schema da CCe só existe na versão 1.00.  Bom, estou testando enviar no ambiente homologação SP e com essas tentativas, o arquivo de 11-eve-soap.xml está sendo criado com Erro, é o que eu estou tentando lhe passar desde o princípio.  Juntamente com esse, ele cria também o arquivo 11-ped-eve-soap.xml, o qual está aparentemente correto. O primeiro arquivo quando se tenta abrir usando o navegador, aparece erro na linha 1 coluna 645, conforme a imagem.jpg.

Bom, hora vai hora vem, decidi atualizar o acbr, ai a coisa mudou de figura, lembrando que estou tentando enviar pelo ambiente de homologação.

Após atualizar o componente e reconstruir o codigo fonte, tentei enviar e deu uma outra mensagem conforme a imagem2.jpg "Erro interno 12002, Erro Http: 4 Erro Requisição não enviada", então visto isso, decidi verificar o XML criado, usando o IE Imagem3.jpg, curioso, abrir a mesma XML com o crhome imgem4.jpg

Bom meus clientes já estão aguardando essa correção a dois dias, então vou subir a atualização e rezar para que esse erro seja somente no ambiente de homologação.

por hora ufa, acho que chega por hoje.

 

[Daniel Simoes]

Por favor forneça um passo a passo mais objetivo, de como configurar o Demo do ACBr e reproduzir o problema usando apenas o Demo do ACBr...

Como eu devo configurá-lo ?

Quais botões devo apertar... e em qual ordem ?

 

Acabei de usar o Demo para gerar uma NFe e Enviar um Evento de Cancelamento... não consigo reproduzir o problema...

Copie todos os Schemas, de todas as sub-pastas em: ACBr\trunk2\Exemplos\ACBrDFe\ACBrNFe\Schemas\, para uma única pasta...

Use essa pasta com todos os Schemas, de todas as versões, como repositório dos Schemas

[Italo Giurizzato Junior]

Bom dia Daniel,

As imagens com erros nos navegadores ao tentar abrir um XML é clássico, basta procurar cedilha ou vogais acentuadas e fazer a troca. Pronto esse problema desaparece.

No meu entendimento devemos ter uma propriedade que substitua esses caracteres, por exemplo cedilha por "C".

Para aqueles desenvolvedores cuja aplicação apresenta o conteúdo do XML de retorno para o usuário ver, ativaria essa propriedade, desta forma o componente ao obter o XML de retorno aplicaria esse filtro, inclusive o XML seria salvo com os caracteres trocados.

Hoje temos uma propriedade que faz esse serviço quando gera o XML, a ideia e ter uma outra para o retorno, ou utilizar a mesma.

[rodrigoogioni]

Boa tarde a todos, 

Também estou com o mesmo erro. Falha no Schema especifico para o evento.

Ja atualizei os schemas no meu sistema mas o problema continua. 

Grato

 

9-ped-eve.xml

9-eve-soap.xml

0-ped-eve-soap.xml

0-ped-eve.xml

[Daniel Simoes]

Italo... sobre esse problema dos XMLs salvos pelo ACBr, com acentuação, não serem abertos no navegador... eu e o Cantu já mapeamos o problema...

Ele só ocorre no Delphi e nas IDEs com suporte a Unicode... aparentemente é um Bug do Delphi XE que não consegue converter uma String em Unicode para UTF8... como consequência, o arquivo é salvo como ANSI (por isso o erro)

Com a ajuda do Cantu, acho que podemos aplicar um "workaround" para esse Bug do Delphi... vou testar hoje a noite..

[Daniel Simoes]

OK... Já está no SVN...

-- ACBrDFe --    (por: DSA)
[*] Disparo de Exception com msg clara quando diretório configurado para os
    Schemas não contiver os Schemas
[*] Disparo de Exception quando calculo do Arquivo de Schema retornar String vazia
[-] Correção na gravação dos XMLs de Pedido, Retorno e Envelopes para sempre
    usarem UTF8 como Encoding. Este problema somente afetava Delphi com suporte
    a Unicode (XE)      (Por: DSA e Carlos CANTU)   

[rodrigoogioni]

Bom dia,

Atualizei os fontes hoje, mas o problema ainda continua, 

Uso o delphi 7

Grato

[Italo Giurizzato Junior]

Bom dia Rodrigo,

Analisando o seu XML de CC-e notei erro de conceito e de preenchimento.

Conceito: o campo nroItemAlterado só deve ser informado quando a informação ser alterada pertence a uma lista e neste caso você informa a posição dentro dessa lista.

Exemplo: Motorista, podemos informar o nome e o CPF de um ou mais motoristas, suponha que foi informado 3 motoristas e o nome do segundo esta errado e você deseja efetuar a correção através da CC-e.

Como alimentar os campos da CC-e:

grupoAlterado = moto

campoAlterado = xNome

valorAlterado = <informar aqui o nome correto do motorista>

nroItemAlterado = 2

Como é o segundo nome da lista que esta errado foi informado a posição 2 ao campo nroItemAlterado.

Preenchimento: se você abrir através de um navegar o arquivo 0-ped-eve-soap.xml vai notar que o campo: valorAlterado esta vazio, ou seja você não esta informando o novo valor do campo alterado.

Outra coisa o nome do grupo e do campo tem que seguir a nomenclatura do XML, sendo assim esta errado informar: Ide o correto é ide (tudo em minusculo).

Faça as devidas correções e tente novamente.

[rodrigoogioni]

Bom dia Italo, muito obrigado!

Era isso mesmo. Não tinha entendido muito bem a questão do nroItemAlterado. Havia entendido erroneamente que era para colocar o numero

do item descrito do manual, no caso que se refere ao 43. 

Mais uma vez obrigado!

[LGustavo]

Olá, após atualizar o componente para a versão do Trunk2 do ACBr a CCe que antes funcionava redondo agora ocorre o erro: 493 – Rejeicao: Evento nao atende o Schema XML especifico.
E a rotina esta assim:

ACBrNFe1.NotasFiscais.Clear;
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.idLote := wlote;
with ACBrNFe1.EventoNFe.Evento.Add do
begin
infEvento.cOrgao := 23;
infEvento.tpAmb := StrToTpAmb(Ok, IntToStr(rgTipoAmb.ItemIndex + 1));
infEvento.chNFe := wnfe;
infEvento.CNPJ := wcnpj;
infEvento.dhEvento := Now;
infEvento.tpEvento := teCCe;
infEvento.versaoEvento := ‘1.00’;
infEvento.nSeqEvento := wSeqEvento;
infEvento.detEvento.xCorrecao := memo_correcao.Text;
infEvento.detEvento.nProt := wprotocolonfe; //Protocolo de Autorização da Nfe
infEvento.detEvento.xCondUso := memo_cond_uso.Text; //Texto fixo conforme NT 2011.003
end;

if ACBrNFe1.EnviarEvento(wlote) then
begin
with ACBrNFe1.WebServices.EnvEvento do
begin
if not (EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136]) then
begin
raise EDatabaseError.CreateFmt(
‘Ocorreu o seguinte erro:’ + sLineBreak +
‘Código: %d’ + ‘ – %s’, [
EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo
]);
end;
end;
end;

O ACBrNFe1 esta configurado para versão da NF-e; ve310.

Gostaria de uma ajuda pra resolver esse probleminha.
Obrigado.

[Agnaldo Prates]

Seus Schemas estão desatualizados. Dentro da pasta do ACBr estão atualizados. Acbr\Exemplos\ACBrDFe\Schemas\ tente atualizar por estes que dá certo.

[Jean Wetter]

Eu atualizei os schemas puxando da pasta " Acbr\Exemplos\ACBrDFe\Schemas\ ", mas continua dando erro codigo 493.

Segue abaixo parte da codificação, se poderem me auxiliar.... Obrigado.

 

numeroLote := StrToInt(FormatDateTime('yymmddhhmm', NOW));

  // preenchimento dos dados da carta de correção
  x.NFe.EventoNFe.Evento.Clear;
  x.NFe.EventoNFe.idLote := numeroLote;

  with x.NFe.EventoNFe.Evento.Add do
  begin
    // infEvento.chNFe := ;
    // infEvento.CNPJ := x.CNPJ;
    infEvento.dhEvento := NOW;
    infEvento.tpEvento := teCCe;
    infEvento.nSeqEvento := StrToInt(edSequenciaCCe.Text) + 1;
    infEvento.detEvento.xCorrecao := memoCCe.Text;
  end;

  // envio da carta de correção
  if x.NFe.EnviarEvento(numeroLote) then
  begin
    with x.NFe.WebServices.EnvEvento do
    begin
      if not(EventoRetorno.retEvento.Items[0].RetInfEvento.cStat in [135, 136])
      then
      begin
        raise EDatabaseError.CreateFmt
          ('Ocorreu o seguinte erro ao enviar a carta de correção:' + sLineBreak
          + 'Código:%d' + sLineBreak + 'Motivo: %s',
          [EventoRetorno.retEvento.Items[0].RetInfEvento.cStat,
          EventoRetorno.retEvento.Items[0].RetInfEvento.xMotivo]);
      end;