andreiluis

Bom dia, pra encerrar o tópico, pedi ajuda direto ao @Juliomar Marchetti que depois de muita peleia descobriu que o problema eram algumas opções de compilação do projeto que geravam incompatibilidade com as novas atualizações do ACBr, em especial mudanças referente à libxml2.dll (me corrija se eu estiver errado @Juliomar Marchetti). Abaixo como ficaram as opções de compilação do projeto (BDS 2006):

Báh Juliomar, que zica, se eu te falar que até isso eu fiz antes de mandar msg aqui no fórum? kkkkk Olha o desespero aí no print: copiei o visual do demo, as procedures Lerconfiguracao e ConfigurarComponente, até coloquei um componente do ACBr nesse form pra testar e não vai. Mas vou fazer mais uns testes aqui.

Mesmo problema, à saber o erro é um access violation

Sim, já havia pego a dll da pasta do ACBr e colocado junto ao exe do meu projeto (mesmo assim na pasta do demo do ACBr não tem a dll, então ambos não estão usando a dll que está no system32?) De qualquer forma, atualizei novamente o ACBr e copiei a dll versão 2.9.10 para junto do exe, e continua com erro.

Boa tarde, Atualizei o ACBr recentemente e desde então dá erro ao montar o XML de eventos (cancelamento e CCe), emissão de NFe está OK. Ao debugar cheguei até essa função: function TACBrXmlDocument.CreateElement(AName: string; ANamespace: string; APrefix: string): TACBrXmlNode; Result := TACBrXmlNode.Create(Self, xmlNewDocNode(xmlDocInternal, nil, NodeName, nil)); Esse result acima está recebendo nil. Até entrei no xmlNewDocNode mas não entendi como essa function funciona. Este é o código que utilizo, as propriedades do evento estão sendo preenchidas corretamente. dm.ACBrNFe1.EventoNFe.Evento.Clear; with dm.ACBrNFe1.EventoNFe.Evento.New do begin infEvento.chNFe := dm.qrNotasFiscais.FieldByName('chavenfe').AsString; infEvento.CNPJ := qry_tmp.FieldByName('cnpj').AsString; infEvento.dhEvento := now; infEvento.tpEvento := teCCe; infEvento.nSeqEvento := dm.qrNotasFiscaisCCes.FieldByName('Sequencia').AsInteger; infEvento.detEvento.xCorrecao := dbCorrecaoCCe.Text; end; try dm.ACBrNFe1.EnviarEvento(1); if dm.ACBrNFe1.WebServices.EnvEvento.cStat = 135 then MensagemInformacao('Evento registrado e vinculado a NF-e.'); Except on ex:Exception do MensagemError('Ocorreu um erro na emissão'+#13+ex.Message); end; Detalhe, isso ocorre na minha máquina de desenvolvimento, na mesma máquina abri o demo do ACBr e consigo usar os eventos normalmente, testei usando a mesma chave, cnpj, xml que no meu projeto dá erro. Alguém poderia dar uma luz do que está errado?

Segue em anexo, além da alteração ref ao MostraSetup, adicionei diretivas de compilação para FMX e VCL na cláusula uses. ACBrDANFCeFortesFrA4.pas

Então, achei o problema, acho: ACBrDANFCeFortesFrA4.pas RLLayout.PrintDialog := FACBrNFeDANFCeFortesA4.MostraPreview; Aqui não deveria ser MostraSetup? Alterei e funcionou aqui.

Boa tarde, Segue trecho do meu código, mesmo setando MostraSetup como True, não traz o diálogo da impressora. Testei com o ACBrNFeDANFCeFortes "normal" e o diálogo é exibido corretamente. Não encontrei onde está a versão do componente, a data da unit ACBrDANFCeFortesFrA4.pas é de 04/05/2023. Tem mais alguma propriedade para setar para o diálogo ser exibido na DANFE em A4? dm.ACBrNFe1.DANFE := dm.ACBrNFeDANFCeFortesA41; dm.ACBrNFeDANFCeFortesA41.MostraSetup := True; dm.ACBrNFe1.DANFE.MostraSetup := True; dm.ACBrNFe1.NotasFiscais.Imprimir; Grato, Andrei

Bom dia, estou com um problema sério em dois clientes que atualizei recentemente meu sistema com versão mais recente do ACBr. Ambos utilizam certificado A3 com token, e em ambos tiveram os certificados excluídos do token! Um deles aconteceu duas vezes, na quinta passada, geraram outro certificado no mesmo token na segunda-feira, e hoje deu problema novamente! Tinha o Kaspersky instalado nessa máquina, desinstalei após o primeiro problema. Alguém já passou por algo assim? Alguma chance desse problema estar sendo causado pelo ACBr através do meu sistema? Estou utilizando a seguinte configuração: A máquina utiliza Win 10 64 bits, meu sistema foi desenvolvido em Delphi 2006 32 bits.

Segue pequena alteração no dfm e no pas para compatibilidade. ACBrBoletoFCFR.zip

Boa tarde, segue pequena atualização para tornar compatível com Fastreport 4 ACBrGNREGuiaFRDM.pas

Deixar registrado aqui nesse tópico a solução que encontrei:

Então..... depois de quebrar muito a cabeça, pesquisa daqui, pesquisa dali, resolvi abrir os .fr3 (o novo o trunk, e o meu que ainda funciona) no notepad++, e eis que são arquivos xml e no .fr3 do trunk identifiquei de cara as classes datasets, formats e variables que aparecem no print do post anterior (vide prints abaixo). Excluí essas seções, e copiei o PropData do xml que funcionava para o novo e..... voilá! As definições de vírus foram atualizadas. Ahh não, .... layout atualizado! Ufa! Facinho. Fazer mais alguns testes, mas parece que está tudo ok. Muito obrigado @BigWings e @Juliomar Marchetti pelo tempo e paciência.

Fiz em design e execução, mesmo problema, quando abre exibe a msg abaixo e os datasets ficam do jeito que mandei no outro post. Se eu fosse montar um layout do zero, como setaria os datasets dentro do FR3?

Claro, que tipo de "bocaberta" tu acha que sou? ..... Opa, não, tô usando o DANFE NFe. Ahhhhhh meu coraçaummmmm, é vergonha alheia que chama né? Muito obrigado @BigWings Aproveitando, quando abro o layout novo e aparece msg de erro, o layout até abre, mas não seta os datasets, a lista dos datasets está vazia, saberia me dizer onde eu ajusto isso?

Bem, seguindo a orientação do @BigWings no tópico abaixo e pelo tempo exíguo que tenho, vou ajustar o DANFE_NFCe que tenho aqui que está abrindo. Está quase tudo à contento, mas o maior problema é que não está aparecendo as informações de pagamento O dataset está setado para Pagamento na banda MasterData4 e no xml a tag pag está preenchida, porque não puxa os dados para o DANFE? Coloquei no rodapé do DANFE os campos ref ao pagamento, mas vem em branco / zerado. Onde os datasets do layout são alimentados?

Agora estou , qual teu nick?

Sim, daqui: https://github.com/fortesinformatica/fortesreport-ce/trunk

Fiz, mesmo erro. Mas mudou a qtde referenciada: D:\CompsD2006\FortesReportCE\Source\RLMetaVCL.pas(681) Error: E2072 Number of elements (13) differs from declaration (9) D:\CompsD2006\FortesReportCE\Source\RLMetaFile.pas(1068) Fatal: F2063 Could not compile used unit 'RLMetaVCL' Pelo que entendi tá sendo passado mais elementos do que está sendo declarado, então fiz o seguinte, deixei o {$IfDef DELPHI2007_UP} assim, e comentei 2 linhas do {$ifdef DELPHI2006} ficando assim: {$ifdef DELPHI2006} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear // (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), {$endif} Mandei instalar pelo instalador, passou desse ponto, mas choveu outros erros: D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(779) Error: E2003 Undeclared identifier: 'RawByteString' D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(782) Error: E2008 Incompatible types D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1397) Error: E2003 Undeclared identifier: 'RawByteString' D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1401) Error: E2008 Incompatible types D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1423) Error: E2008 Incompatible types D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1424) Error: E2008 Incompatible types D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1431) Error: E2003 Undeclared identifier: 'RawByteString' D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1438) Error: E2008 Incompatible types D:\CompsD2006\FortesReportCE\Source\RLXLSXFileFormat.pas(1441) Error: E2003 Undeclared identifier: 'UTF8ToUnicodeString' D:\CompsD2006\FortesReportCE\Source\RLXLSXFilter.pas(71) Fatal: F2063 Could not compile used unit '..\Source\RLXLSXFileFormat.pas'

Pois é, mas o arquivo está na pasta, [Pascal Fatal Error] RLReport.inc(64): F1026 File not found: 'D:\CompsD2006\FortesReportCE\Source\RLReport_jedi.inc'

Corrigindo uma informação que passei antes, a sequência do que fiz foi: - abri o frce.dpk e compilei, alterei a linha que o @BigWings sugeriu e compilei, deu erro na linha 64 do RLReport.inc: {$I RLReport_jedi.inc} - comentei a linha {$I RLReport_jedi.inc} e compilei, o erro volta na function CanvasGetPixels com o mesmo erro anterior [Pascal Error] RLMetaVCL.pas(681): E2072 Number of elements (7) differs from declaration (9)

Obrigado mais uma vez pelo seu tempo @BigWings. Alterei, mas o erro persiste. Aliás, desculpe, também não está encontrando o RLReport_jedi.inc, mas o arquivo está na pasta que aparece na msg, coloquei o caminho no Library path e no Browsing path, comentei a diretiva que inclui esse arquivo no RLReport.inc pois o Jedi instalado (mas não está atualizado), e aí que acusa o erro no CanvasGetPixels.

Obrigado pela disposição Juliomar. Sim, faz uma pá de tempo que não atualizo, justamente pelos mesmo erros de agora. O erro no instalador do Fortes é o abaixo, tentei pelo frceInstall e direto pelo dpr, o erro é na function CanvasGetPixels. [Pascal Error] RLMetaVCL.pas(681): E2072 Number of elements (7) differs from declaration (9) function CanvasGetPixels(ACanvas: TCanvas; X, Y: Integer): TColor; begin Result := ACanvas.Pixels[X, Y]; end; type TLinePattern = record Count: Byte; Lengths: array[0..5] of Byte; end; const LinePatterns: array[TPenStyle] of TLinePattern = ( (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psSolid (Count: 2;Lengths: (3, 1, 0, 0, 0, 0)), // psDash (Count: 2;Lengths: (1, 1, 0, 0, 0, 0)), // psDot (Count: 4;Lengths: (2, 1, 1, 1, 0, 0)), // psDashDot (Count: 6;Lengths: (3, 1, 1, 1, 1, 1)), // psDashDotDot {$IfDef FPC} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psInsideFrame (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psPattern (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psClear {$Else} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear {$ifdef DELPHI2006} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psClear (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), {$endif} (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psInsideFrame {$IfDef DELPHI2007_UP}// delphi 2007 em diante , (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)), // psUserStyle (Count: 0;Lengths: (0, 0, 0, 0, 0, 0)) // psAlternate {$endif} {$endif} );

Bom dia, ontem criei no fórum aberto o tópico abaixo e pra resumir, utilizo Delphi 2006 e FastReport 4 e não consigo abrir os layouts atuais das DANFES, dá erro que não encontra algumas classes. @BigWings respondeu que já há algum tempo o ACBr não é mais compatível com esta versão do FR. Bem, estou tentando instalar o FortesReport e está acusando um erro, estou pesquisando uma solução para isso, mas preciso emitir NFCe a partir do dia 29 e bateu o desespero. Existe alguma possibilidade de conseguir um layout FR atualizado que funcione no FR 4? Ou, outra possibilidade (mas que pelo prazo apertado é complicado) que pensei foi em utilizar o ACBrMonitorPLUS ou ACBrLib, nesses casos (acredito que só no ACBrMonitorPLUS, me corrijam se eu estiver errado) a impressão ocorre por fora do meu software e não vou abrir os layouts das DANFEs no meu software, é isso? Grato pela ajuda, Andrei

Boa tarde, utilizo o ACBrNFe e NFCe a bastante tempo, e já a um tempo estou utilizando um layout de DANFE defasado pois dá erro quando utilizo layouts atualizados. Utilizo o Delphi 2006, com Fast Report Professional 4.12. Quanto tempo abrir qqr layout (inclusive os Basic) recebo erros de Classe não encontrada Datasets, Formats e Variables. Tentei abrir no designer vários layouts, todos dão o mesmo erro, o layout até é aberto, mas claro, dá erro ao imprimir. Existe alguma solução para este conjunto Delphi 2006 + Fastreport Pro 4.12? Procurei no fórum e vi problemas parecidos que foi sugerido utilizar o Fortes, mas se pudesse evitar isso seria melhor, não tenho nenhum problema no uso dos WS, xml, etc, "somente" a impressão das DANFEs.