Impressão De Cancelamento Por Evento Pelo Fastresport

[Tagales]

Alguem conseguiu fazer?

 

eu usei o exemplo do regys, mas deu erro

http://www.regys.com.br/como-imprimir-um-evento-utilizando-o-acbrnfe/

 

""" is not a valid integer value.

 

 

 

Ali em outro topico alguem falou desseerro e um outro alguem falou para adicionar algum do RaveCB, mas não entendi onde e  nem se vai funcionar para meu caso.

 

Uso delphi 2010 e FastReport

 

Alguem sabe me ajudar?

Editado 18 Março, 2013 por Tagales

[juaumkiko]

Olá...

 

Você já tentou atualizar o componente e realizar a impressão do evento com Fast novamente?

Foi enviada uma correção ontem para o SVN que pode ter solucionado esse problema.

Só não esqueça de especificar o arquivo EVENTOS.fr3 no componente DanfeFR.

 

[]´s

[Tagales]

e esse DanfeFR precisa ta conectada em algo? no momento os relatórios sao feitas de outra maneira. =x

[Tagales]

na verdade não to conseugindo dar o  ACBrNFeLocal.EventoNFe.LerXMLFromString(caminhoArquivo);

 

ele da 

""" is not a valid integer value.

 

alguem sabe pq?

[Régys Silveira]

e esse DanfeFR precisa ta conectada em algo? no momento os relatórios sao feitas de outra maneira. =x

Ele deve estar conectado ao ACBrNFe.

[Régys Silveira]

na verdade não to conseugindo dar o  ACBrNFeLocal.EventoNFe.LerXMLFromString(caminhoArquivo);

 

ele da 

""" is not a valid integer value.

 

alguem sabe pq?

Não consegui reproduzir o erro, poderia dar mais informações, talvez um trecho de código para ajudar a entendermos melhor seu problema.

[Tagales]

Ele deve estar conectado ao ACBrNFe.

 

imaginei, é que peguei esse projeto no meio e sem documentação de como foi feito, to penando para entender, como é feito as comunicações, pois tem componente do raveCB na tela e os relatorios são feito pelo fast.

 

Não consegui reproduzir o erro, poderia dar mais informações, talvez um trecho de código para ajudar a entendermos melhor seu problema.

 

 

    //carrega arquivo relatorio
    rpt.LoadFromFile(DMPrincipal.DiretorioRelatorios+'Recibo_Cancelamento - Modelo 001.fr3');
 
    //carrega o xml no acbr local
    caminhoArquivo := CaminhoArquivoXML_CancelamentoTemporario(cdsNfeTipo.Value,cdsNfeID_NF.Value,DMPrincipal.ib_Conexao);
 
    if caminhoArquivo = '' then
    begin
      MessageBox(handle,'Arquivo xml de cancelamento não encontrado no banco de dados...','Erro ao tentar imprimir recibo', MB_ICONEXCLAMATION or MB_OK);
    end
    else
    begin
      ACBrNFeLocal.NotasFiscais.Clear;
      ACBrNFeLocal.NotasFiscais.LoadFromString(caminhoArquivo);
 
      if ACBrNFeLocal.NotasFiscais.Count <> 0 then
      begin
        //igualdade nas variaveis
        ReportVariavel(rpt,'Processo',Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.procEmi));
        ReportVariavel(rpt,'VersaoProcesso',ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.verProc);
        ReportVariavel(rpt,'TipoEmissao',(Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.tpEmis))+1);
        ReportVariavel(rpt,'Finalidade',(Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.finNFe))+1);
        ReportVariavel(rpt,'NaturezaOperacao',ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.natOp);
        ReportVariavel(rpt,'TipoOperacao',Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.tpNF));
        ReportVariavel(rpt,'FormaPagto',Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.indPag));
        ReportVariavel(rpt,'DigestValue',ACBrNFeLocal.NotasFiscais.Items[0].NFe.procNFe.digVal);
        ReportVariavel(rpt,'VersaoXML','1.00');
        ReportVariavel(rpt,'Ambiente',Ord(ACBrNFeLocal.NotasFiscais.Items[0].NFe.Ide.tpAmb));
 
        //imprime o relatorio
        rpt.PrepareReport;
        rpt.ShowReport;
 
 
      end
      else
      begin
        MessageBox(handle,'XML gerado em uma versão anterior do Gerenciador!','Atenção!!!', MB_ICONWARNING or MB_OK);
      end;
 

 

ai tentei mudar só forma que carregado o arquivo, mas não deu muito certo, pois acontece o erro que comentei a cima

 

 

      ACBrNFeLocal.EventoNFe.Evento.Clear;

      ACBrNFeLocal.EventoNFe.LerXMLFromString(caminhoArquivo);

 

mas quando ele entra no metodo LerXMLFromString da classe pcnevnEventoNFe

da erro nesse linha

         InfEvento.cOrgao        := RetEventoNFe.InfEvento.cOrgao;

35130301638142000141550010000000881478369474-cancelamento-nfe.xml

Editado 19 Março, 2013 por Tagales

[Tagales]

Foi resolvido, errou da minha parte, obrigado a todos =]

Editado 19 Março, 2013 por Tagales