Ir para conteúdo
  • Cadastre-se
Seja bem-vindo
Regras e orientações da nossa comunidade Participe do Discord do ACBr

Paulo Starling Perdigao

Membros
 Perfil  Explorar Conteúdo

  • Total de ítens

    143

  • Registro em

  • Última visita

 Tipo de Conteúdo 

Posts postados por Paulo Starling Perdigao

    Erro ao imprimir DANFE em PDF utilizando Fortes Rerport

    em ACBrNFe

    Postado

    Boa tarde, Juliomar!

    A instalação foi feita na sexta feira. Será que houve alguma mudança?

    Caso haja necessidade de reinstalar, posso apenas reinstalar o fortes?

    Ou devo dar um update DVN em todo ACBr, desistanlar e instalar novamente?

     

    Att,

    Rafael Hassegawa

    Juliomar, boa tarde.

    Aproveitando o tópico, tem como me enviar o link da versão atual do Fortes?

    Aqui, baixamos do GitHub do Régys.

    Att,

    Erro ao imprimir DANFE em PDF utilizando Fortes Rerport

    em ACBrNFe

    Postado

    Boa tarde!

    Tudo bem pessoal?

    Estou com um problema ao tentar imprimir o DANFE da NFe em PDF utilizando o fortes report.

    1) Dei um update através do SVN no ACBr.

    2) Desinstalei e instalei novamente.

    3) Adicionei o componente ACBr na minha Unit, juntamente com o ACBrNFeDANFeRL

    4) Vinculei o DANFE à propriedade DANFE do ACBr e vice versa.

    5) Propriedade Mostrar Preview do ACBrNFeDANFeRL está como false, tipoDANFE = tiRetrato

    6) Tentei a impressão com ambos os métodos:

                ACBrNFe1.NotasFiscais.LoadFromFile(ls_arq_xml);
                ---> ACBrNFe1.NotasFiscais.Items[0].ImprimirPDF;
                ---> ACBrNFe1.NotasFiscais.ImprimirPDF;

    Ao debugar, o sistema dá erro na linha destacada no print em anexo.

    Estou usando o Delphi XE6, att.

    Rafael Hassegawa

    ERRO FORTES 2.png

    Dúvida a respeito do cst 500 (vBCSTRet)

    em ACBrNFe

    Postado

    Boa tarde, pessoal!

    Tudo bem?

    Gostaria de saber se alguém aí faz uso do CST500 e como é calculado o vBCSTRet?

    Um possível cliente nos enviou um XML para testar se nosso sistema faz os cálculos corretamente, mas não estão batendo...

    OBS: a nota foi validada em produção.

    Pontos chave:

    <vProd>50336.60</vProd>

    <vNF>50336.60</vNF>

    <vTotTrib>3775.25</vTotTrib>

    <vBCSTRet>39062.58</vBCSTRet>

    <vICMSSTRet>2622.94</vICMSSTRet>

     

    Qualquer ajuda é bem vinda!

    Obrigado,

    Rafael Hassegawa

     

    (estou anexando o XML a este tópico)

     

    35151211602222000109550000000004051000007566-procNfe.xml

    Erro ao imprimir DANFE em PDF com Fortes Report

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Juliomar, bom dia!

    Não sei te especificar porque, ao degubar, ele parou com aquele ponto e deu erro...

    Eu estou utilizando o componente DANFeFRL...

    A diferença que eu notei do Fast Reports é que não há uma propriedade onde informar qual arquivo será utilizado para gerar o relatório..

    Mas agora o problema que está dando é outro...

    Depois de consultar a nota para impressão, ele retorna sem protocolo.

     

    Att,

    erro Fast Report 2.png

    Erro ao imprimir DANFE em PDF com Fortes Report

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado · Editado por Paulo Starling Perdigao

    Boa tarde, pessoal!

    Tudo bem? Instalei o Fortes Report e reinstalei o ACBr com o componente do Fortes (Danfe).

    Estou tentando imprimir o Danfe em PDF e estou tendo o seguinte problema:

    (imagens em anexo).

    Pelo que vi ao debugar, o erro acontece na procedure procedure TACBrNFeDANFCeFortesFr.rlVendaBeforePrint

    Me parece que os dados de emitente, etc, não estão carregados... aí dá um access violation...

    Estou carregando os dados da nota com o LoadFromFile

    *** ACBrNFe1.NotasFiscais.LoadFromFile(ls_arq_xml,false);

    Att,

    Rafael Hassegawa

     

    erro fortes.png

    erro Fast Report 2.png

    Erro ao instalar ACBr com Danfe para Forte Reports

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Bom dia, pessoal! Tudo bem?

    Estou reinstalando o ACBr para poder utilizá-lo com o Fortes Reports.

    Primeiramente, instalei o Fortes, adicionando o caminho da pasta que contém seus arquivos nas bibliotecas do Delphi, depois dei um instal packages no RLibWinDXE6.bpl dele.

    Agora, ao instalar novamente o ACBr, após desistalá-lo, ocorre o seguinte erro:

     

    Embarcadero Delphi for Win32 compiler version 27.0
    Copyright (c) 1983,2014 Embarcadero Technologies, Inc.
    ACBr_NFeDanfeRL.dpk(76) Fatal: E2202 Required package 'frce' not found
    Compilation failure
    Erro ao compilar o pacote "ACBr_NFeDanfeRL.dpk".

     

    Será que alguém pode me ajudar?

    Grato.


    Rafael Hassegawa

    NFCe ---> Inscrição Estadual Inválida

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Boa tarde, Régis!

    Perdão, estou validando o CNFe....

    Não sabia que ele validava a IE de acordo com o estado.

    Eu alterei o cadastro de um cliente para fazer testes, colocando o seu estado como AM para utilizar o ambiente de homologação de lá.

    Alterei também o código do município para Manaus.

    Engraçado que há duas semanas atrás ele validava normalmente, mas hoje não valida mais...

    De qualquer forma, estou colocando como 'ISENTO' para poder realizar os testes.

     

    Att,

    Rafael Hassegawa

    NFCe ---> Inscrição Estadual Inválida

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Boa tarde, pessoal!

    Há duas semanas, estava codificando o envio do Cupom Fiscal Eletrônico.

    Comecei a fazer outras codificações e hoje retomei.

    Estou utilizando a mesma empresa para testes, mesma inscrição estadual, não mudei nada...

    Ao enviar o Cupom, tenho um retorno de que a IE está inválida, mesmo já consultando no Sintegra e vendo que está correta.

    Alguma ajuda?

    Att,

    Rafael Hassegawa

    Schema não especificado (Cancelamento Cupom)

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Oi André!

     

    O código está abaixo:

      Chave := FrmDados.CDSQlocFaturasPchave_nfe.Text;

      //Envia consulta antes do cancelamento
      ACBrNFe1.Configuracoes.WebServices.Ambiente := TpcnTipoAmbiente(iif(rgTipoAmb.ItemIndex = 0, taProducao, taHomologacao));

      ACBrNFe1.WebServices.Consulta.NFeChave := Chave;
      ACBrNFe1.WebServices.Consulta.Executar;

      MemoResp.Lines.Text := ACBrNFe1.WebServices.Consulta.RetWS;
      memoRespWS.Lines.Text := ACBrNFe1.WebServices.Consulta.RetornoWS;
      LoadXML(ACBrNFe1.WebServices.Consulta.RetornoWS, WBResposta);

      pgRespostas.ActivePageIndex:=0;

      MemoDados.Lines.Add('Consulta NFe');
      MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Consulta.TpAmb));
      MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Consulta.verAplic);
      MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Consulta.cStat));
      MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Consulta.cUF));
      MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Consulta.xMotivo);
      MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Consulta.Protocolo);

      ShowMessage('cStat: '+ IntToStr(ACBrNFe1.WebServices.Consulta.cStat)+#13+
                  'xMotivo: '+ ACBrNFe1.WebServices.Consulta.xMotivo);

      if ACBrNFe1.WebServices.Consulta.Protocolo = '' then
      begin
        ShowMessage('Cupom não localizado para cancelamento!');
        Exit;
      end;

      vNumLote := insereLoteBdGravaFatura_novo();
      CNPJ     := DBDados.qempresacecgc.Text;
      Protocolo:= FrmDados.CDSQlocFaturasPprotocolo.Text;
      cstat    :='';

      if Application.MessageBox('Confirma cancelamento do Cupom Fiscal Eletrônico?','Cancelar?',MB_ICONQUESTION+ MB_YESNO+MB_DEFBUTTON2)=idno then
        Exit;

      ACBrNFe1.EventoNFe.Evento.Clear;
      limpa;
      dadosArquivoXmlCanc:='';
      dadosRespostaCanc:='';

      if(FrmGeraCupom.rgTipoAmb.ItemIndex = 0) then
        FrmGeraCupom.ACBrNFe1.Configuracoes.WebServices.Ambiente:=taProducao
      else
        FrmGeraCupom.ACBrNFe1.Configuracoes.WebServices.Ambiente:=taHomologacao;

      with FrmGeraCupom.ACBrNFe1.EventoNFe.Evento.Add do
      begin
        infEvento.tpAmb := FrmGeraCupom.ACBrNFe1.Configuracoes.WebServices.Ambiente;
        infEvento.chNFe := Chave;
        infEvento.CNPJ := CNPJ;
        infEvento.dhEvento := now;
        infEvento.tpEvento := teCancelamento;
        infEvento.detEvento.xJust := motivo;
        infEvento.detEvento.nProt := Protocolo;
      end;

      FrmGeraCupom.ACBrNFe1.EnviarEvento(strtoint(vNumLote));
      MemoDados.Lines.Text := UTF8Encode(FrmGeraCupom.ACBrNFe1.WebServices.EnvEvento.RetWS);
      memoRespWS.Lines.Text := UTF8Encode(FrmGeraCupom.ACBrNFe1.WebServices.EnvEvento.RetWS);
      //consulta o xml e ve se ja foi cancelado ou não caso ja tenha sido cancelado
      //retorna o <csta> 573 se retornar este codigo significa que é duplicidade de cancelamento
      //entao deverá cancelar no sics denovo caso não tenha sido cancelada
      LoadXML(ACBrNFe1.WebServices.EnvEvento.RetornoWS,WBResposta);

      if (FrmGeraCupom.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cStat = 220) then
      begin
        ShowMessage('<cStat>220</cStat>'+#13+
                           '<xMotivo>Rejeicao: Prazo de Cancelamento Superior ao Previsto na Legislacao</xMotivo>'                     );
      end;

      if (FrmGeraCupom.ACBrNFe1.WebServices.EnvEvento.EventoRetorno.cStat = 573) then
      begin
        if dadosRespostaCanc = '' then
          XMLRespostaCanc := UTF8Encode(String(FrmGeraCupom.ACBrNFe1.WebServices.EnvEvento.RetornoWS))
        else
          XMLRespostaCanc := UTF8Encode(dadosRespostaCanc);
        nprotCanc := Copy(XMLRespostaCanc, (Pos('<nProt>', XMLRespostaCanc) + 7), ((Pos('</nProt>', XMLRespostaCanc)) - (Pos('<nProt>', XMLRespostaCanc) + 7)));
        cstat := Copy(XMLRespostaCanc, (Pos('<cStat>', XMLRespostaCanc) + 7), ((Pos('</cStat>', XMLRespostaCanc)) - (Pos('<cStat>', XMLRespostaCanc) + 7)));
        dhRegEvento := Copy(XMLRespostaCanc, (Pos('<dhRegEvento>', XMLRespostaCanc) + 13), ((Pos('</dhRegEvento>', XMLRespostaCanc)) - (Pos('<dhRegEvento>', XMLRespostaCanc) + 13)));
        MemoXML.Lines.SaveToFile(dirArquivosCancelamento+'NFe_'+Chave+'_Cancelada.xml');
        //Monta update
        wsql:='update faturas set cancelada = "S", nfe_status = "C", nfe_situacao = "Cancelada", ' +
              ' protocolo_canc = "'+nprotCanc+ '", dhcancelamento = "' + formatdatetime('yyyy-mm-dd hh:mm:ss',datamemo) + '" ' +
              'where codnf = '+inttostr(v_codnf);
        Frmdados.QInsertSQL.Close;
        Frmdados.QInsertSQL.sql.clear;
        Frmdados.QInsertSQL.sql.add(wsql);
        try
          Frmdados.QInsertSQL.execute;
          CancelaNFe_Sics;
          Locnotafiscal_Codnf(v_codnf);
          ShowMessage('Cancelado no SICS - Verifique');
          Exit;
        except
          Exit;
        end;
      end;

     

    Obrigado

    Schema não especificado (Cancelamento Cupom)

    em NFC-e - Nota Fiscal do Consumidor Eletrônica

    Postado

    Boa tarde, pessoal!

    Tudo bem?

    Estou implementando o Cupom Fiscal Eletrônico e me deparei com um erro agora, não achei no fórum a resposta.

    Quando vou cancelar um Cupom, recebo a autorização de uso da SEFAZ, mas o sistema dá erro, informando que o schema não foi especificado.

    Eu consigo enviar sem problemas, mas na hora de cancelar dá esse erro.

    Eu baixei os schemas do site da fazenda.

     

    Obrigado.

    Rafael

×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.