Paulo Starling Perdigao

Obrigado, Juliomar! Instalado com sucesso! Att,

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

Boa tarde! Gostaria de saber se existe alguma biblioteca específica que possa ser baixada para impressão do DANFE pelo ACBr, tanto fa NFe quanto do Cupom Fiscal Eletrônico ou se necessariamente é preciso comprar o Fast Report, pois estava utilizando uma versão demo e ela expirou. Att, Rafael Hassegawa

Ta jóia, Régys! Muito obrigado! Rafael Hassegawa

sim sim Regys!!! mas é a IE do emissor que dá o erro!! att,

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

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

André, não estou usando o demo. Vou tentar simular o erro com o demo e qualquer coisa volto aqui! Obrigado

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

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

Meu fast é a versão 5 demo! Mas eu utilizei a versão demo para implementar a impressão do DANFE da NFe e funcionou tranquilamente.

Oi Juliomar, tudo bem? Então... Recompilei... Agora consigo adicionar o componente a uma Unit... Mas deu outro erro! Eu estou usando a unit principal (a de exemplo que vem no ACBr), adicionei o componente ACBrNFeDANFEFR e agora deu o erro da foto! Será que pode me ajudar? att

Bom dia, Juliomar! Recompilar não recompilei não... Quem instalou o ACBr na minha maquina não fui eu... Não sei como proceder com a instalação.. É só abrir o instalador e mandar recompilar? Att,

Bom dia, pessoal! Então, eu já implementei a impressão do DANFE utilizando o ACBRNFeDANFEFR e está OK. O problema que estou tendo é que no sistema de impressão de Cupom Fiscal, quando vou adicionar o componente ACBrNfeDANFEfr, o Delphi trava. Simplesmente trava e não consigo fazer mais nada. Tenho que fechar o Delphi. Já dei update usando SVN e o erro persiste. Att,

Obrigado, Juliomar!

Obrigado, Juliomar! Então, nesse caso, tenho que usar o ACBrNFER? Att,

Bom dia, Juliomar! Obrigado pela informação! Eu estou implementando ainda a impressão, mas no momento estou apensar querendo visualizar a impressão em PDF. O erro que persiste é ImprimirDANFEPDF não implementado no ACBrNFeDANFeESCPOS . Estou usando o fast report com Delphi XE6. Obrigado.

Então... Eu vi que ele existe! Mas estou usando o ACBrNFeDANFeESCPOS aí da erro!!! Posso usar o ACBrDANFEfr?? Att,

Bom dia, Juliomar! Tudo bem? Então... Eu consegui implementar tranquilamente a impressão do DANFE da NFe utilizando o ACBr com o fast report e o ACBrDANFEfr... Com o DANFE do CNFe tá complicado, pois sempre dá erro de não ter implementado a ImprimirDANFEPDF no ACBrNFeDANFeESCPOS. Você teria alguma sugestão para que eu imprima ele em PDF pra visualizar na tela? Já tenho o PDF creator aqui como impressora padrão... O ImprimePDF do NotasFiscais dá o erro citado acima! Att,

entendi... estou usando o Fast Report

vixi... então não tem como imprimir PDF do cupom pra testes? o XML já consigo gerar.. mas queria visualizar o PDF com o QRCode na tela.. não consigo?

Pessoal, tudo bem? Estou implementando agora a impressão do DANFE do NFCe. Estou utilizando o exemplo que vem no ACBr. Quando vou imprimir o DANFE, dá o erro ImprimirDANFEPDF não implementado no ACBrNFeDANFeESCPOS. Será que alguém pode me ajudar nessa? Como eu faço essa configuração? Obrigado

ahhhhh... isso mesmo que tava dando.... vou tentar aqui!! Muito obrigado

hummm Agora me confundi André... Eu ja desenvolvi a rotina pra imprimir os Danfes da NFe... e eu faço exatamente desse jeito que você falou e vi no DEMO... Clear; LoadFromFile(arq); Imprimir... mas, pelo que vi aqui no forum, usando o componente ACBrNFeDANFeESCPOS vi o pessoal usando a ImprimirDANFEPDF passando como parâmetro o caminho do arquivo XML gerado... Eu tentei utilizar o Imprimir do ACBr.NotasFiscais, mas não saiu nada... meu código tá assim... e dá o erro que falei //Definindo o caminho onde os DANFES serão salvos ACBrNFeDANFeESCPOS.PathPDF := dirArquivosPdfDanfe; ACBrNFe1.NotasFiscais.Clear; //Carregar XML ACBrNFe1.NotasFiscais.LoadFromFile(ls_arq_xml); ACBrNFeDANFeESCPOS.ImprimirDANFEPDF(ls_arq_xml); ls_arq_xml := ps_dir_nfe_validadas + FrmDados.CDSQlocFaturasPchave_nfe.AsString + '-procNfe.xml'; ACBrNFeDANFeESCPOS.ImprimirDANFEPDF(ls_arq_xml); Obrigado

Bom dia, pessoal! Tudo bem? Estou desenvolvendo uma rotina para gerar o XML do NFCe e impressão do DANFE. O sistema já está gerando o XML, mas, ao tentar imprimir o DANFE, dá o seguinte erro: [dcc32 Error] uBrNFp.pas(155): E2010 Incompatible types: 'TNFe' and 'string' Estou codificando no Delphi XE6. O erro acontece quando passo o caminho do arquivo XML como String, mas já pesquisei aqui no Forum e me parece que é isso que deve ser feito, certo? ls_arq_xml := ps_dir_nfe_validadas + FrmDados.CDSQlocFaturasPchave_nfe.AsString + '-procNfe.xml'; ACBrNFeDANFeESCPOS.ImprimirDANFEPDF(ls_arq_xml); Att, Rafael Hassegawa