Campo Corgao Não Informado - Cce Envio Email E Impressao

[sidnei_alves1]

Boa tarde pessoal,

um cliente meu envio a CC-e normalmente mais agora pra imprimir ou enviar via email fica dado essa mensagem "Campo cOrgao não informado".

 

estou usando o Fast report para os eventos.

 

segue em anexo o xml

[sidnei_alves1]

esqueci do XML

cce1.xml

[sidnei_alves1]

Oi já consegui e que to usando o XE3 e tava com problema ao pegar o XML que estava no banco de dados. use AnsiString e deu certo.

[flexsistemas]

Olá amigos,

 

Estou implementando essa carta de correção e está retornando a mesma mensagem de erro. Uso DELPHI 2007 com Fast Report, vejam como estou implementando:

 

 

  procedure CarregaCorrecao;

  var

    lNomeArquivo2: String;

    lString: TStrings;

  begin

    lString := TStringList.Create;

    try

      lString.Clear;

      lACBrNFe.EventoNFe.Evento.Clear;

 

      lNomeArquivo2 := TSistema.SomenteNumeros(lACBrNFe.NotasFiscais.Items[0].NFe.infNFe.ID)+'-corr.xml';

 

      Dtm_Arquivos.AcionaFiltroXMLCorr(lNomeArquivo2);

      lACBrNFe := Frm_Principal.ACBrNFe(Dtm_Arquivos.TemRegistros, True);

      if Dtm_Arquivos.TemRegistros then

      begin

        Dtm_Arquivos.ClientDataSetARQUIVO.SaveToFile(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString);

        if TSistema.ArquivoExiste(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString) then

        begin

          lString.LoadFromFile(lACBrNFe.Configuracoes.Arquivos.GetPathCCe + '\' + Dtm_Arquivos.ClientDataSetNOME_ARQUIVO.AsString);

          lACBrNFe.EventoNFe.LerXMLFromString( lString.Text); //ou lACBrNFe.EventoNFe.LerXML dá mesmo erro!

          ansi

        end;

      end;

    finally

      FreeAndNil(lString);

    end;

  end;

[Juliomar Marchetti]

Sem a mensagem de erro não conseguiremos ajudar!!

[drezius]

Bom dia,

 

Estou reativando essa discussão. Estou passando pelo mesmo problema e não consegui resolver. Já fiz algumas pesquisas no fórum e em outras fontes na internet, sem sucesso. A mensagem "Campo cOrgao não informado" aparece quando pego o XML da CCe e tento imprimir. Segue abaixo o arquivo XML e também o código implementado.

 

O código que escrevi foi baseado no artigo do Régys Silveira. http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/

 

Meu código:

 

procedure TFNFe.btnImprimeCCeClick(Sender: TObject);
begin
  OpenDialog1.Title := 'Selecione o XML da CCe';
  OpenDialog1.DefaultExt := '*.XML';
  OpenDialog1.Filter := '*'+DM.cdsPedidoNUCHAVEACESSONFE.Text+'*.XML';
  OpenDialog1.InitialDir := ACBrNFe1.Configuracoes.Geral.PathSalvar;
  if OpenDialog1.Execute then
  begin
    ACBrNFeDANFERave1.MostrarPreview := True;

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>

    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>

    ACBrNFe1.ImprimirEvento;
  end;

end;

 

4213110811038100017355001000004807100004807811011010-procEventoNFe.xml

[netsolutions]

drezius Conseguiu resolver o problema?? aqui tbm da o mesmo erro

[drezius]

Pra não abrir novo tópico eu volto nesse.

 

Se vocês abrirem o XML verão que o cOrgao está lá, e que no retorno consta "<xMotivo>Evento registrado e vinculado a NF-e</xMotivo>". Mas ao tentar imprimir aparece 'campo cOrgao nao informado'.

 

Depurando pelo Delphi (7) noto que o sistema entra na função LerXml da pcnNFeR e chama o raise 'Não encontrei inicio do URI: Id=', mas a mensagem não aparece na tela, e em seguida vem o 'campo cOrgao nao informado'.

 

Já atualizei e recompilei os fontes do ACBr.

 

Meu código de impressão é

    ACBrNFeDANFERaveCB1.MostrarPreview := True;

    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>

    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
    ACBrNFe1.ImprimirEvento;

 

 

4214100811038100017355001000000262100000262011011002-procEventoNFe.xml

[Juliomar Marchetti]

Boa tarde

Favor debugar e conferir os valores retornados no carregamento do xml !

isso pode ser problema de enconding do arquivo ou até mesmo em função de strings unicode no delphi e suas versões!

[drezius]

Boa tarde

Favor debugar e conferir os valores retornados no carregamento do xml !

isso pode ser problema de enconding do arquivo ou até mesmo em função de strings unicode no delphi e suas versões!

 

Juliomar, qual unit acbr faz o carregamento do xml? Sobre a versão, uso Delphi 7.

[Juliomar Marchetti]

Sim faz !

Verifique debugando no código como é que ele está corregando os dados de seu XML!

se está seguindo corretamente o tipo

[drezius]

PROBLEMA RESOLVIDO.

 

A solução foi trocar o comando de leitura do XML, onde eu usava LerXMLFromString passei a usar LerXML e funcionou.

 

O que antes estava assim:

    ACBrNFeDANFERaveCB1.MostrarPreview := True;
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXMLFromString(OpenDialog1.FileName);//<XML Evento>
    ACBrNFe1.ImprimirEvento;

 

Ficou assim:

    ACBrNFeDANFERaveCB1.MostrarPreview := True;
    ACBrNFe1.NotasFiscais.Clear;
    ACBrNFe1.NotasFiscais.LoadFromString(DM.cdsPedidoNUCHAVEACESSONFE.Text+'-NFe.XML');//<XML Nota Eletrônica>
    ACBrNFe1.EventoNFe.Evento.Clear;
    ACBrNFe1.EventoNFe.LerXML(OpenDialog1.FileName);//<XML Evento>
    ACBrNFe1.ImprimirEvento;

[Juliomar Marchetti]

Boa tarde

Agora com mais clareza entendi seu problema!

no comando que estava utilizando é para passar uma string com o XML e não um caminho de arquivo!

serve para os casos em que é guardada a nota em um campo blob o xml diretamente e nào o arquivo em si!

Obrigado por repassar a solução !

[Ivã Boch]

Olá.

 

Vc pode substituir o NotasFiscais.LoadFromString por NotasFiscais.LoadFromFile, aí ele consegue carregar o xml.