Duarte

Bom dia, Que bom que algumas coisas serviram, bem dar erro reclamando a falta "QGraphics.dcu" ser removo, ai aumenta os erros.... Outra coisa, você devolveu apenas os componentes do filtro, no post eu disse que removi todas as chamadas que ser referencia a eles, Na verdade da Procedure Imprimir segue o código que tava antes da mudança: procedure TACBrNFeDANFCeFortes.Imprimir(const DanfeResumido: Boolean; const AFiltro: TACBrSATExtratoFiltro); var frACBrNFeDANFCeFortesFr: TACBrNFeDANFCeFortesFr; RLLayout: TRLReport; RLFiltro: TRLCustomSaveFilter; begin {$IFDEF FPC} LoadPortugueseStrings; {$ELSE} // Evitando mensagem de versão do fortes // SetVersion( CommercialVersion, ReleaseVersion, CommentVersion ); {$ENDIF} frACBrNFeDANFCeFortesFr := TACBrNFeDANFCeFortesFr.Create(Self); try with frACBrNFeDANFCeFortesFr do begin Filtro := AFiltro; RLLayout := rlVenda; Resumido := DanfeResumido; RLPrinter.Copies := NumCopias ; if ACBrNFeDANFCeFortes.Impressora <> '' then RLPrinter.PrinterName := ACBrNFeDANFCeFortes.Impressora; RLLayout.PrintDialog := ACBrNFeDANFCeFortes.MostrarPreview; RLLayout.ShowProgress:= False ; if Filtro = fiNenhum then begin if MostrarPreview then RLLayout.PreviewModal else RLLayout.Print; end else begin if RLLayout.Prepare then begin case Filtro of fiPDF : RLFiltro := RLPDFFilter1; fiHTML : RLFiltro := RLHTMLFilter1; else exit ; end ; {$IFDEF FPC} RLFiltro.Copies := NumCopias ; {$ENDIF} RLFiltro.ShowProgress := ACBrNFeDANFCeFortes.MostrarStatus; //RLFiltro.FileName := NomeArquivo ; RLFiltro.FileName := ACBrNFeDANFCeFortes.PathPDF + OnlyNumber(ACBrNFeDANFCeFortes.FpNFe.infNFe.ID) + '-nfe.pdf'; {$IFDEF FPC} RLFiltro.Pages := RLLayout.Pages ; RLFiltro.FirstPage := 1; RLFiltro.LastPage := RLLayout.Pages.PageCount; RLFiltro.Run; //RLLayout.SaveToFile(PathPDF + //Copy(TACBrNFe(ACBrNFe).NotasFiscais.Items[0].NFe.infNFe.ID, 4, 44) + '.pdf'); {$ELSE} RLFiltro.FilterPages( RLLayout.Pages ); {$ENDIF} end; end; end; finally frACBrNFeDANFCeFortesFr.Free ; end; end; Obs. Com apenas os componentes filtro add ao form copila lega...! Agora se add as referencia igua a procedure acima ai levanta os erro Regys, veja o post acima, complementando ele.. O erro só ocorre se fizer a chamada ao RLHTMLFilter1 Removendo a linha 740 copilou legal. Eu admirei muito sua preocupação com os demais colegas e peço desculpas pela falta de empatia com os demais, será quem sem o filtro HTML passa? if RLLayout.Prepare then begin case Filtro of fiPDF : RLFiltro := RLPDFFilter1; fiHTML : RLFiltro := RLHTMLFilter1; {Erro ocorre aqui, se removendo dar certo!} else exit ; end ; Fontes com remoção do filtro HTML e com os códigos da procedure ai como estava antes... Fortes.rar

Bom dia, Pessoal, eu fiz alguns ajustes no DANFeNFCeFortes, tive muitos problemas para roda-lo no XE5. Após instalar e testar nas impressoras (Bematech HP-4200 TH e Elgin Vox) constatei alguns "Problemas", Segue em anexo os fontes alterados, caso julguem ser de importância a as alterações. = Pegar as margens da classe pai, Pois na impressora Elgin Vox estava cortando do lado "Esquerdo". Dica colocar MargemEsquerda = 3. Remoção das units RLHTMLFilter, RLFilters, RLPDFFilter e suas respectivas chamadas, as mesmas estava causando erro na compilação/instalação no XE5. "Minha opinião, tratando-se de NFC-e, não julgo ser necessário estes filtros caso o problema não venha a ser resolvido, pois esta nota geralmente será para cliente consumidor, e a mesma pode ser consultada via QRCode" = Alteração do Style.Pen = psSolid teste feito na impressora Elgin Vox saiu melhor, o style que tava apenas na Bematech MP-4200 TH saiu legível. + Inclusão do LSistema para pegar o nome da softhose da classe pai. = Alteração para pegar o troco da classe pai e não calculando: as Tags: Soma(Pag.vPag) - ICMSTot.vNF Pois agora existe uma validação da soma dos pagamentos com o total dos itens da NFC-e. = Alterado para imprimir o total líquido abaixo de cada item se for marcado a opção "ImprimirTotalLiquido". Como estava, se tivesse desconto saia logo abaixo da descrição. = Alterado para imprimir o "Outros, Seguro, etc..." abaixo de cada item se for marcado a opção "ImprimirDetalhamentoEspecifico". = Alterado a forma de alimentar a descrição dos itens bem como os totais. Como estava saia descentralizados. Agora segue os totais na linha logo abaixo e centralizado, tive que mudar a fonte dos itens para Courier New, pois nesta o espaço tem o mesmo tamanho dos demais caracteres. Em anexo está uma foto dos DANFe, a esquerda "Elgin Vox" a direira "Bematech MP-4200 TH" Dica: Usem quem poder o DANFeESCPOS. ele está 100%, só estou usando o FortesReport por causa das impressoras que não aceita comando ESC para gerar o QRCode, a Elgin Vox até aceita os comando de formatação enviado pelo AcbrPosPrinter, mais não gera o QRCode. Fortes.rar

Qual UF? Bom dia, Regys aqui estamos enviando para PA, O erro aqui foi levantado ao enviar uma NFC-e que não passou na validação, tinha informado o mesno CPF da "Contadora" como cliente, eu eu anexo CPF do contador na lista dos autorizados para (Download). Em resumo, acho que é devido a NFC-e não trabalhar no modo "Sicrono". Envia-> Pega Recibo->Consulta Recibo. Na verdade Robson pode ser um erro de validação do xml, veja os log. Já aproveito, para lançar uma pergunta a todos, qual o melhor jeito de tratar os retornos de transações seja com NFC-e e/ou NF-e? Hoje eu trato dentro de try exception. Chamo : try AcbrNFe.Enviar... if trim(AcbrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt) <> '' then case AcbrNFe.NotasFiscais.Items[0].NFe.procNFe.nProt cStat do ... exception ... Não sei se estou falando asneiras, acho que o erro acima porque o componente está tentando consultar a NFC-e após o envio, mais NFCe não suporta consulta pois é AnSicrono. Seria isto?

Opa, boa tarde, Muito obrigado pela dica, mais uma para a coleção...!

Bom dia, Pessoal, acabei de atualizar os fontes do ACBr, e começou agora mesmo a retornar "URL não definida para: TNFeRecepcao" Envia NF-e.... Socorro!!! Sem backup dos fontes antigo, atualizo direto o ACBr... Opa, perdão... Observei que o método de tratamento do retorno.

Bom dia, Estou terminando aqui a migração para trunk2 dois, fiz pequenas adaptações no DANFeNFCeRL, para se usado em impressoras que não tem suporte a EscPos, mais vou postar aqui as alterações, quem sabe sirva para alguém... Obrigado!

Tudo neste projeto foi feito com Thread, teve alguma alteração que o uso de Thread poderia a vim comprometer algo? Pois se que o uso de Thread é chato, uma mudança no projeto lá a gente que quer mexer em um monte de coisa que a Thread venha funcionar lega.

Vou testar! No projeto que emiti as NF-e e NFC-e eu uso assim, dentro de um DataModule, este da DistribuicaoDFe + Manifesto é um projeto a parte, mais o interessante é que no trunk já vinha funcionado a meses, ou seja, tenho apenas um componente no form, a cada chamada do EnvioEvento limpo os eventos(Clear) e depois adiciono os novos(Add) agora no trunk2 que deu este bug. Acho que mesmo se jogo num data module daria no mesmo! Pois usarei o comando de manifesto logo após a DistribuicaoDFe, isto é, caso o usuário selecione notas a serem manifestada. Pois o projeto é assim: 1º Consultar as notas emitas usando o CNPJ, 2º Verificar quais destas notas já tenho o .xml (Coisa que o acbr tá fazendo legal, já baixa a nota completa "Download". Ficou ótimo isto! 3º Caso na lista vinda da DistribuicaoDFe tenha notas que não foi possível fazer o download, listo elas para o usuário, para que o mesmo selecione quais ele quer manifestar que tem ciência da nota. 4º Aqui entra a questão, veja que no ponto um eu usei no AcbrNFe o DistribuicaoNFe, agora em seguida irei usar "N" vezes o EnviaEvento. Sendo que eu monto um malote de 20 eventos para enviar. Não sei o porque que agora noo trunk2 está levantado o erro de assinatura. Mais em fim... Deu certo, vou esperar talvez achemos o que mudou que ocorreu isto, caso tenha um tempo e queira emular, é só comandar esta sequencia DistribuicaoDFe em seguida tente Comandar EnvioEvento, não fiz teste mais acho se usar o mesmo Objeto "AcbrNFe" para fazer tudo isto vai dar este erro. vou montar um exemplo aqui para emular. Imaginei (Enviar, DistribuicaoDFe, CartaCorrecao "Evento", Cancelar"Evento") daria na mesma coisa que fiz ai, ou seja envio de eventos após uma DistribuicaoDFe, não estou tento este problema porque o projeto da DistribuicaoDFe é um outro .exe

Italo, meu muito obrigado, a sua unit resolveu a questão da DistribuicaoDFe, em relação ao manifesto resolvi assim. no inicio de cada manifesto, estou criando uma instância do acbrNFe para chamar o envioEvento, se usar a mesma instância que chamou a DistrbuicaoDFe, dar erro na assinatura, não sei o porque que no trunk não dava isto, então mudei o meu fonte está ok... Deste já meu muito obrigado que Deus lhe abençoe grandemente.

Acabei de fazer um teste, aqui. removi todas as chamadas: SSL. A exceção é levantada se eu usar acbrNFe.DistribuicaoDFe depois acbrNFe.EnviarEvento. Fui debugando passo a passo veja aonde parou. Sendo que na primeira fez (DistribuiçãoDFe e assinado), se manifestar sem antes usar (DistribuiçãoDFe) manifesta. TACBrNFe.EnviarEvento -> function TDFeWebService.Executar -> procedure TDFeWebService.InicializarServico-> procedure TDFeWebService.DefinirDadosMs-> function TDFeSSL.Assinar-> procedure TDFeSSL.InitSSLClass-> function TDFeSSL.Assinar-> XmlAss := FSSLClass.Assinar(ConteudoXML, docElement, infElement);Linha 246 ACBrDFeSSL.pas

Boa noite, 1º Italo muito obrigado pelas dicas. Sua alerta é necessária mesma! No código acima é apenas parte do projeto, é dado a opção de selecionar as nf-e que veio o Acbr não fez o downaload no retorno da ConsultaDFe, assim o usuário selecionar quais quer manifestar, então e feito um laço entre as selecionada, neste caso uso "Ciência" pois não acarreta em problemas no cancelamento da NF-e. Mais o usuário está ciente, ou seja ele tem a liberdade de ignorar o processo de manifestação. 2º Não destruo o componente em cada chamada, ele está colocado no form e é carregado suas propriedades no onCreate do form, vou ver a questão de pegar o CNPJ a cada chamada do procedimento, ele é armazenado num .ini quando o sistema é iniciado e que não tem o CNPJ dentro do .ini. Pois o projeto não prever uso de db, é apenas o .exe.

Segue o FortesReportCE que baixei caso alguém precise, instalei com sucesso no XE5 no delphi 2006 não consegui. FortesReportCE.rar Uma coisa, pessoal para delphi XE5 eu tive que mexer um pouco na DANFeNFCe, tive que remover os filtrosPDF e HMTL, todas as chamadas a estes filtro, como para NFCe não preciso de disto removi-os mesmo. Tive que acrescentar uns códigos para pegar as margens do componente NF-e pois na impressora Elgin estava cortando do lado esquerdo, alterei a passagem do troco, pois como estava pegando a soma dos totais pago do xml, não dava troco, pois agora existe uma validação que soma os totais pago com o total dos itens, sendo assim não é mais possível passar um valor maior que o valor total da nota, neste caso alimento o troco no componente NF-e e não no DANFe. se alguém quiser a .pas que alterei

Boa tarde, 1º Eu apenas renomei os arquivos para facilitar a interpretação, ambos, está sendo salvo todos, mais tenho uma novidade do erro. debugando do o projeto após o envio desta .pas que você envio ai é o seguinte: 1º Eu chamo _NFe.DistribuicaoDFe( 2º Percorro os .zip retornado e vejo se o ACbr salvou a nota completa. for := 0 to _NFe.WebServices.DistribuicaoDFe.retDistDFeInt.docZip.count -1 do... 3º Caso não ache o o xml salvo pelo acbr, então comando o envio do envento Manifestação: ai Meu amigo levanta este exception no arquivo ACBrDFeWebService.pas na linha 445. Exception levantada: Falha ao assinar o Envio de Evento CoInitialize não foi chamado, ClassID: {88D969E5-F192-11D4-A65F-0040963251E5}' Segue código de que está sendo aplicado para envio da manifestação... try try _StatusDFe.Panels[0].Text := 'Processando manifestação...'; Application.ProcessMessages ; with _NFe.EventoNFe.Evento.Add do begin InfEvento.cOrgao := 91; infEvento.chNFe := aChave; infEvento.CNPJ := _NFe.SSL.CertCNPJ; infEvento.dhEvento := now; infEvento.tpEvento := teManifDestCiencia; end; _NFe.EnviarEvento(StrToInt(FormatDateTime('hhmmss', time))); SalvaManifesto(aChave); except on e : exception do GeraFileLog('Procedure Manifesta:' + e.Message); end; finally _StatusDFe.Panels[0].Text := 'Manifestação processada!'; Application.ProcessMessages ; _NFe.EventoNFe.Evento.Clear; end;

Pessoal, nos meus testes de DANFeNFC-e usando o Fortes, usei duas impressoras (Bematech MP-4200 TH) e uma Elgin VOX, na Bematech tudo sai legal, agora na Elgin fica cortando o lado esquerdo, no componente ele não está carregando as propriedades (Margens). Coloquei aqui e deu certo...Fica a dica, não usem nunca esta Elgin VOX para NFC-e aqui tem um laboratório com as duas (Bematech e Elgin VOX), A Elgin não imprimi o QRCode via PosPrinter, ela até imprimi as formatações legal, agora para impressão do DANFeNFC-e deve usar o modelo (ppTexto) e neste modelo é lógico não tem QRCode, por isto estou para ficar doido, pois migrei tudo para trunk2 e tenho vários clientes que tem esta impressora. fNumItem := 0 ; fNumPagto := 0 ; fTotalPagto := 0; fNumObs := 0 ; fObsFisco := TStringList.Create ; fHeightDetItem := rlbDetItem.Height; fACBrNFeDANFCeFortes := TACBrNFeDANFCeFortes(Owner) ; // Link para o Pai rlVenda.Margins.LeftMargin := fACBrNFeDANFCeFortes.MargemEsquerda ; rlVenda.Margins.RightMargin := fACBrNFeDANFCeFortes.MargemDireita ; rlVenda.Margins.TopMargin := fACBrNFeDANFCeFortes.MargemSuperior ; rlVenda.Margins.BottomMargin := fACBrNFeDANFCeFortes.MargemInferior ;

Bom dia, Régys fiz uns testes aqui usando XE5, para conseguir criar um pacote e instalar, tive que remover do ACBrDANFCeFortesFr os filtro e do fonte tudo que se refere a filtro, Assim conseguir instalar...

Me desculpe, anexei mesmo os arquivos errados, mais veja, ai esta o que estou lhe falando, em anexo os xml gerado pelo trunk e os que foram gerados usando as alterações que você me enviou trunk2 RetornoConsulta_Trunk.xml RetornoConsulta_Trunk2.xml SolicitaConsulta_Trunk.xml SolicitaConsulta_Trunk2.xml Analisando os dois xml no do trunk2 está faltando esta parte: <soap:Header><WSCorIDSOAPHeader CorID="87CBF5C3C8C6EFB50223D67B6CFDAF00,1:1,1,0,,,AgAAAkdIQgAAAAFGAAAAAQAAABFqYXZhLnV0aWwuSGFzaE1hcAAAAAhIQgAAAAJGAAAAAgAAABBqYXZhLmxhbmcuU3RyaW5nABBBcHBNYXBDYWxsZXJIb3N0SEIAAAADRQAAAAIADFNQQ0RTUlZWMDM0MkhCAAAABEUAAAACABBBcHBNYXBDYWxsZXJUeXBlSEIAAAAFRQAAAAIAB1NlcnZsZXRIQgAAAAZFAAAAAgAKVHhuVHJhY2VJZEhCAAAAB0UAAAACACE4N0NCRjU4NEM4QzZFRkI1MDIyM0Q2N0IxMTgzNjlBNjBIQgAAAAhFAAAAAgARQXBwTWFwQ2FsbGVyQWdlbnRIQ0hCAAAACUUAAAACAA5BcHBNYXBBcHBOYW1lc0hCAAAACkYAAAADAAAAE2phdmEudXRpbC5BcnJheUxpc3QAAAACSEIAAAALRQAAAAIAEk5GZURpc3RyaWJ1aWNhb0RGZUhCAAAADEUAAAACABJORmVEaXN0cmlidWljYW9ERmVIQgAAAA1FAAAAAgAWQXBwTWFwQ2FsbGVyTWV0aG9kTmFtZUhCAAAADkUAAAACACVTeW5jU2Vzc2lvbmxlc3NIYW5kbGVyfFByb2Nlc3NSZXF1ZXN0SEIAAAAPRQAAAAIAE0FwcE1hcENhbGxlclByb2Nlc3NIQgAAABBFAAAAAgAMLk5FVCBQcm9jZXNzSEIAAAARRQAAAAIAD0NhbGxlclRpbWVzdGFtcEhCAAAAEkUAAAACAA0xNDM2Nzk3MzY3NzQ3" xmlns="http://www.wilytech.com/" /></soap:Header> Pelo que parece, trata-se da assinatura, é isto?

Italo, acabei de voltar o fonte aqui, só para relatar, acho que este erro ai nos retorno não foi causado por esta mudança sua ai, pois com ACBrNFeWebServices.pas que tinha antes de você me envia esta novamente, também retorna o xml errado, só não tinha ainda analisado todos os logs de retorno.

Rodei aqui, está realizando agora a consulta da DF-e só os xml de retorno está vindo errado para todos os eventos, aqui fiz testes(CC-e, Cancelamento, Manifesto e Consulta). Veja log que está vindo errado, entre este, não está gerando correto o retorno da DF-e com lista das nf-e zipada... 586-pro-lot-soap.xml 587-eve-soap.xml 588-eve-soap.xml

Agora meu amigo... Já lhe dou um retorno...!

Bom dia, Pessoal, alguém conseguiu descobrir o que está ocorrendo com a consultaDF-e? Ou estão conseguindo consultar normalmente no trunk2?

Boa noite Italo, Marquei um breack point, na linha (307-ACBrDFeWebService), veja os valores que estão repassados para FPDFeOwner.SSL.Enviar(FPEnvelopeSoap, FPURL, FPSoapAction); FPEnvelopeSoap='<?xml version="1.0" encoding="UTF-8"?><soap12:Envelope xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:soap12="http://www.w3.org/2003/05/soap-envelope"><soap12:Body><nfeDistDFeInteresse xmlns="http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe"><distDFeInt xmlns="http://www.portalfiscal.inf.br/nfe" versao="1.00"><tpAmb>1</tpAmb><cUFAutor>15</cUFAutor><CNPJ>10308036000190</CNPJ><consNSU><NSU>000000000000000</NSU></consNSU></distDFeInt></nfeDistDFeInteresse></soap12:Body></soap12:Envelope>' FPURL='https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx' FPSoapAction='http://www.portalfiscal.inf.br/nfe/wsdl/NFeDistribuicaoDFe/nfeDistDFeInteresse'

Boa tarde, Acabei de comparar as URLs conforme o juliomar solicitou, e estão corretas, comparei ao do site da receita... veja o que está no arquivo: [NFe_AN_P] NFeDistribuicaoDFe_1.00=https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx No site tá este, iguais... NFeDistribuicaoDFe 1.00 https://www1.nfe.fazenda.gov.br/NFeDistribuicaoDFe/NFeDistribuicaoDFe.asmx

Boa tarde, simplesmente levantada uma exception vazia '', conforme informei acima. Usando o demo atualizado pelo regys pelo que vi lenta exception da img. Mais no trunk está funcionando 100%. Migrei todo o meu projeto para trunk2.

Bom dia, meu amigo, Comentei e não resolveu não, veja o xml de envelopamento.... 20150710112136-con-dist-dfe-soap.xml chamo ela assim... _NFe.DistribuicaoDFe( 15, _NFe.SSL.CertCNPJ, IfThen(StrToIntDef(aUltimo_NSU, 0) = 0, '0', IntToStr(StrToInt(aUltimo_NSU) -1)), '' );

Uso quase deste Uso quase deste jeito e está funcionando já no trunk2. Mais vi que você tá usando acbrMonitor... veja um xml... 15150710308036000190650010000005031000005030.xml