Paulo Starling Perdigao

Boa tarde, Isaque! Uso sim. ACBrIntall_Trunk2 Att,

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,

Boa tarde, Juliomar! Como verifico se estou com a versão correta? Att, Juliomar, verifiquei aqui e a instalação foi feita pelo fcreInstall.exe, que fica dentro da pasta fortesreports-ce-master. Att,

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

Muito obrigado, pessoal! No momento estou mexendo com outro desenvolvimento, mas ao retornar para o DANFE farei o que vocês sugeriram e dou notícias! Obrigado novamente. Rafael Hassegawa

Oi, Juliomar! Tudo bem? Vou fazer isso amanhã na parte da manhã! Obrigado! Rafael Hassegawa

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

É o mesmo erro que acontece comigo!!!

Já está!! Quando eu degubo, ele não retornar com o protocolo aí não imprimi. Att, Quem está falando aqui é o Rafael, trabalho com o Paulo

Bom dia, Régyz! Pelo que li no Forum, devo utilizar o ACBrDANFeRL para ser utilizado com o Fortes Report, estou certo? É ele que estou utilizando... O ACBrNFeDANFEFR não seria para Fast Reports? Att,

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,

Régyz, bom dia! Primeiramente, muito obrigado pela atenção! Estou anexando um dos XML's utilizados. O erro acontece com todos eles! Att, Rafael Hassegawa 31160113410198000123550010000134551000134555-procNfe.xml

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

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