felipenapa
-
Total de ítens
84 -
Registro em
-
Última visita
Tipo de Conteúdo
Blocks
Notes ACBrLibNFe
Fóruns
Downloads
Calendário
Posts postados por felipenapa
-
-
Boa tarde, estou com duas dúvidas na implementação do módulo de NFC-e utilizando o componente Acbr.
Podem me ajudar?
1) DANFE Offline
Estou gerando a NFC-e no modo offline, mas não consigo adicionar uma mensagem na impressão do DANFE, para indicar que o DANFE foi emitido offline.
Estou fazendo desta forma e no DANFE a mensagem não é impressa. Ambiente de Homologação.
Ide.modelo := 65;
Ide.tpImp := tiNFCe;
Ide.indFinal := cfConsumidorFinal;
Ide.indPres := pcPresencial;Ide.tpEmis := teOffLine;
Ide.dhCont := Ide.dEmi;
Ide.xJust := 'DANFE EM CONTINGÊNCIA OFFLINE. SUA CONSULTA ESTARÁ DISPONÍVEL EM ALGUMAS HORAS.';
2) Envio da NFC-e no modo assíncrono
2-A - Posso enviar apenas uma NF no modo assíncrono ou devo enviar no modo síncrono?Fiz um teste, enviando apenas uma NF no modo assíncrono e funcionou, retornou em 20 segundos, mas fico em dúvida é se é o correto, por conta da dúvida 2B.
2-B - A forma que estou fazendo, abaixo, é a mais correta para o modo assíncrono?Me baseei no exemplo do componente.Minha dúvida é se isso pode demorar muito tempo e o sistema ficar travado (mais de 5 minutos), como já ocorreu, e acabei finalizando a aplicação.Estou utilizando o Webservice do Amazonas.
Existe outra forma?
ACBrNFe1.Enviar(ACBrNFe1.WebServices.Enviar.Lote
,False //Imprimir = False
,False); //Assincrono
MemoResp.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetWS);
memoRespWS.Lines.Text := UTF8Encode(ACBrNFe1.WebServices.Retorno.RetornoWS);
LoadXMLRetorno(MemoResp, WBResposta, ACBrNFe1.WebServices.Enviar.Lote);MemoDados.Lines.Add('');
MemoDados.Lines.Add('Envio NFe');
MemoDados.Lines.Add('tpAmb: '+ TpAmbToStr(ACBrNFe1.WebServices.Retorno.TpAmb));
MemoDados.Lines.Add('verAplic: '+ ACBrNFe1.WebServices.Retorno.verAplic);
MemoDados.Lines.Add('cStat: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cStat));
MemoDados.Lines.Add('cUF: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cUF));
MemoDados.Lines.Add('xMotivo: '+ ACBrNFe1.WebServices.Retorno.xMotivo);
MemoDados.Lines.Add('cMsg: '+ IntToStr(ACBrNFe1.WebServices.Retorno.cMsg));
MemoDados.Lines.Add('xMsg: '+ ACBrNFe1.WebServices.Retorno.xMsg);
MemoDados.Lines.Add('Recibo: '+ ACBrNFe1.WebServices.Retorno.Recibo);
MemoDados.Lines.Add('Protocolo: '+ ACBrNFe1.WebServices.Retorno.Protocolo);
// E utilizo os campos abaixo para pegar o retorno de cada NF.
AcbrNFe1.NotasFiscais.Items[nCt].NFe.procNFe.cStat
ACBrNFe1.WebServices.Enviar.Lote,
ACBrNFe1.WebServices.Retorno.Recibo,
AcbrNFe1.NotasFiscais.Items[nCt].NFe.procNFe.nProt, //ACBrNFe1.WebServices.Retorno.NFeRetorno.ProtNFe.Items[nCt].nProt,
AcbrNFe1.NotasFiscais.Items[nCt].NFe.procNFe.digVal
Obrigado!
-
Isso mesmo, RESOLVIDO!
- Voltei os fontes originais;
- Troquei o QR5RunD7 por qrpt70 no pacote AcbrNFeDanfeQR.dkp;
- Abri o ACBr.inc e comentei a linha QReport_PDF;
- E por fim, compilei o pacote AcbrNFeDanfeQR.dkp;
Deu certo.
Muito obrigado!!!!!!!
-
Caros, bom dia!
Uso o componente Acbr para emissão de NF-e de Mercadorias há anos (com Delphi 7 e Quick Report 3).
Fazia alguns meses (ou mais de 1 ano) que eu não atualizava.
Fui atualizar hoje, para atender aos requisitos da versão 3.10, e ao compilar o pacote AcbrNFeDanfeQR começou a dar erro
[Fatal Error] AcbrNFeDanfeQR.dpk(47): Required package 'QR5RunD7' not found
Verifiquei no fórum algumas soluções, mas não funcionou.
Fiz o procedimento abaixo, baseado nessas soluções e algums suposições minhas.
Gostaria de saber se posso seguir por esse caminho (se sim, pode até ficar documentado para caso alguém tenha o mesmo problema:
No pacote AcbrNFeDanfeQR, no requires:
Troquei de:
{$IFDEF VER150} QR5RunD7, vcljpg, visualclx, {$ENDIF} // D7
Troquei para:
{$IFDEF VER150} qrpt70, vcljpg, visualclx; {$ENDIF} // D7
Ao compilar começou a dar erro nas units abaixo (dando falta da unit QRPDFFilt):
ACBrNFeDANFeQRNFCe.pas, ACBrNFeDANFeQR.pas, ACBrNFeDAInutQR.pas, ACBrNFeDANFeQRSimplificado, ACBrNFeDANFeQRPaisagem, ACBrNFeDANFeQRRetrato
Nessas units, eu comentei tudo o que fazia referência ao QrPDFFilt, eu comentei.
=================================
{$IFDEF QReport_PDF}
//QRPDFFilt,
{$ENDIF=================================
var
// qf : TQRPDFDocumentFilter;=================================
// qf := TQRPDFDocumentFilter.Create(AFile);
// qf.CompressionOn := False;
// QRNFe.QRPrinter.ExportToFilter( qf );
// qf.Free;=================================
Feito isso, compilei o pacote AcbrNFeDanfeQR sem erros.
Abri minha aplicação, dei build, abri e fiz consulta de status de serviço, emiti NF-e, imprimi Danfe, fiz cancelamento e carta de correção, tudo sem erros, utilizando a versão 3.10 do Schema.
Posso assumir que está tudo OK, certo?
Obrigado e parabéns pelo projeto e fórum.
-
Muito obrigado.
- Compilei e instalei o pacote AcbrNFeDanveRaveCB.dpk
- Adicionei o componente AcbrNFeDanveRaveCB e fiz as configurações necessárias (path, etc).
- Associei ao componente principal e pronto! Gerou o PDF com a carta de correção.
Muito obrigado!!!!
-
Humm, então é isso.
Obrigado.
Vou tentar e em seguida posto aqui.
-
Olá,
obrigado pelo retorno rápido.
Não entendi o que devo fazer. Faz tempo que não mexo com os componentes Acbr, estou voltando agora.
Estou utilizando o componente AcbrNFeDanveRave.
Nas propriedades dele, no TipoDANFE só tenho tiRetrato, tiPaisagem, MsgEletronica, tiNFCe.
-
Ao utilizar o comando ImprimiEvento ou ImprimirEventoPDF recebo o erro "Imprimir" ou então "ImprimirPDF".
Alguém sabe como devo proceder para corrigir?
A rotina de envio da carta e obtenção do XML de retorno estão OK..
Uso Delphi 7.
Segue o código:
ACBrNFe1.NotasFiscais.Clear;
vNFArq := ACBrNFE1.Configuracoes.Arquivos.PathNFe + '\' + v_ChaveNFe + '-nfe.XML';
ACBrNFe1.NotasFiscais.LoadFromFile(vNFArq);
ACBrNFe1.EventoNFe.Evento.Clear;
ACBrNFe1.EventoNFe.LerXML(ACBrNFE1.Configuracoes.Arquivos.PathNFe + '\' + v_NomeArqXMLRetorno);
ACBrNFe1.ImprimirEventoPDF;//ou
ACBrNFe1.ImprimirEvento;Consigo imprimir a nota fiscal normalmente (imprimir ou gerar PDF), só não consigo imprimir a carta de correção.
Debugando, percebo que ele entra aqui:
procedure TACBrNFe.ImprimirEventoPDF;
begin
if not Assigned( DANFE ) then
raise EACBrNFeException.Create('Componente DANFE não associado.')
else
DANFE.ImprimirEVENTOPDF(nil);
end;e depois
procedure TACBrNFeDANFEClass.ImprimirEVENTOPDF(NFE: TNFe);
begin
ErroAbstract('ImprimirPDF');
end;
Mensagem No Danfe Offline / Envio Assíncrono
em NFC-e - Nota Fiscal do Consumidor Eletrônica
Postado
Boa tarde Ítalo, muito obrigado!
Vamos lá:
1) Estou utilizando o ACBrDANFCeFortesFr
2) OK. Na verdade, eu estava alimentando na linha de cima (que não copiei aqui) a propriedade "ACBrNFe1.WebServices.Enviar.Lote" com o número do lote de desejado,
mas vou fazer da forma que você sugeriu, fica melhor.
Quanto ao retorno, é possível que o webservice não me dê um retorno e eu tenha que executar uma consulta manual?
Se sim, utilizo o ACBrNFe1.Consultar para puxar o retorno depois? E pego o retorno igual ao código que postei acima.
3) Outra dúvida sobre o envio Assíncrono: como faço para o componente ou o delphi "cair fora", ou seja, nao ficar travado aguardando o retorno do webservice?
Muito obrigado! Desculpe tantas dúvidas mas nunca trabalhei com "processos" assíncronos e faz tempo que trabalhei com NF-e, só voltei a mexer mesmo no componente por conta da NFC-e. Estou tirando a ferrugem.