Pesquisar na Comunidade

Quando vou jogar o componente ACBrCTeDACTEFR dá o seguinte erro abaixo! --------------------------- Error --------------------------- Access violation at address 50BDDD17 in module 'dsnap210.bpl'. Read of address 00000000. --------------------------- OK Details >> --------------------------- Isto ocorre no Delphi XE7 com fast report 5.5.8 OBS: No meu Delphi 2007 com fast 4 isto não ocorre! Alguém sabe o que poderia ser?

Bom dia! Estou trabalhando na otimização de um processo de envio de DACTe por e-mail, nesse processo notei uma lentidão na execução da procedure "TACBrCTeDACTEFR.ImprimirDACTEPDF" apos uma análise vi que o laço FOR esta sendo executado sem necessidade. Quando carrego o componente com mais de um CT-e ele constrói o PDF com mais de uma DACTe, perfeito, porem com o laço ele faz o processo repetidamente de acordo com a quantidade de CT-e carregados. Segue o código citado e em anexo a UNIT corrigida. Unit ACBrCTeDACTEFR procedure TACBrCTeDACTEFR.ImprimirDACTEPDF(ACTE: TCTe); begin ... try frxPDFExport.ShowDialog := False; for i := 0 to TACBrCTe(ACBrCTe).Conhecimentos.Count - 1 do // O LAÇO FOR FOI REMOVIDO begin frxPDFExport.FileName := IncludeTrailingPathDelimiter(PathPDF) + OnlyNumber(CTE.infCTe.Id) + '-cte.pdf'; if not DirectoryExists(ExtractFileDir(frxPDFExport.FileName)) then ForceDirectories(ExtractFileDir(frxPDFExport.FileName)); frxReport.Export(frxPDFExport); end; finally frxPDFExport.ShowDialog := OldShowDialog; end; ... end; Grato e aguardando retorno. ACBrCTeDACTEFR.pas

Boa Tarde, fazia algum tempo que eu não atualizava o repositório, hoje eu atualizei e tive problemas em meus JOBS de impressão dos DACTE em PDF e alguns MemoryLeaks. Segue os arquivos corrigido para analise: ACBrCTeDACTEFR.pas DACTE.fr3 erros.docx

Estou tentando fazer a instalação do componente ACBrCTeDacteFRpkg.dpk é o único que está dando erro no ACBRInstall. Já atualizei todos os arquivos da pasta do acbr, ela está verde. Todos os outros componentes do ACBr funcionam perfeitamente. Segue log em anexo e screenshots abaixo. log_Delphi_7.txt

Boa noite pessoal, Fiz alguns acertos no ACBrCTeDACTEFR pois não estava permitindo trocar a impressora e nem suprimir o ShowDialog, ao menos a versão que tenho não permitia fazer isso. Se acharem interessante disponibilizem no subversion, segue no anexo. Sandro

{ trexo com bug } procedure TdmACBrCTeFR.CarregaSeguro; var i: Integer; begin with cdsSeguro do begin Close; FieldDefs.Clear; FieldDefs.Add('RESPONSAVEL', ftString, 60); FieldDefs.Add('NOMESEGURADORA', ftString, 60); FieldDefs.Add('NUMEROAPOLICE', ftString, 60); FieldDefs.Add('NUMEROAVERBACAO', ftString, 60); CreateDataSet; Append; // if CTe.InfSeg.Count > 0 then begin for I := 0 to CTe.InfSeg.Count - 1 do // falta um edit neste ponto; begin case CTe.InfSeg.Items.respSeg of rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente'; rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor'; rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor'; rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário'; rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente'; rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador'; end; FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg; FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol; FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver; Post; end; end else begin FieldByName('RESPONSAVEL').AsString := ''; FieldByName('NOMESEGURADORA').AsString := ''; FieldByName('NUMEROAPOLICE').AsString := ''; FieldByName('NUMEROAVERBACAO').AsString := ''; Post; end; end; end; { trecho corrigido } procedure TdmACBrCTeFR.CarregaSeguro; var i: Integer; begin with cdsSeguro do begin Close; FieldDefs.Clear; FieldDefs.Add('RESPONSAVEL', ftString, 60); FieldDefs.Add('NOMESEGURADORA', ftString, 60); FieldDefs.Add('NUMEROAPOLICE', ftString, 60); FieldDefs.Add('NUMEROAVERBACAO', ftString, 60); CreateDataSet; Append; // if CTe.InfSeg.Count > 0 then begin for I := 0 to CTe.InfSeg.Count - 1 do begin if not (State in [dsInsert,dsEdit]) then Edit; case CTe.InfSeg.Items.respSeg of rsRemetente: FieldByName('RESPONSAVEL').AsString := 'Remetente'; rsExpedidor: FieldByName('RESPONSAVEL').AsString := 'Expedidor'; rsRecebedor: FieldByName('RESPONSAVEL').AsString := 'Recebedor'; rsDestinatario: FieldByName('RESPONSAVEL').AsString := 'Destinatário'; rsEmitenteCTe: FieldByName('RESPONSAVEL').AsString := 'Emitente'; rsTomadorServico: FieldByName('RESPONSAVEL').AsString := 'Tomador'; end; FieldByName('NOMESEGURADORA').AsString := CTe.InfSeg.Items.xSeg; FieldByName('NUMEROAPOLICE').AsString := CTe.InfSeg.Items.nApol; FieldByName('NUMEROAVERBACAO').AsString := CTe.InfSeg.Items.nAver; Post; end; end else begin FieldByName('RESPONSAVEL').AsString := ''; FieldByName('NOMESEGURADORA').AsString := ''; FieldByName('NUMEROAPOLICE').AsString := ''; FieldByName('NUMEROAVERBACAO').AsString := ''; Post; end; end; end;