Bom Dia!
Estou atualizando o ACBr em nossos sistemas e ao compilar não obtivemos exito devido a esta alteração. Utilizamos este layout de boleto implementando algumas alterações sem alterar o fonte do ACBr de modo a facilitar as atualizações do componente.
1 - Alterávamos algumas coisas no Export para facilitar a vida do cliente...
vACBrBoletoReport.dmBoleto.frxPDFExport.FileName := Boleto.ACBrBoletoFC.NomeArquivo;
vACBrBoletoReport.dmBoleto.frxPDFExport.ShowDialog := False;
vACBrBoletoReport.dmBoleto.frxPDFExport.ShowProgress := False;
if fPortador.FieldByName('SENHA_PDF').AsString = 'S' then
vACBrBoletoReport.dmBoleto.frxPDFExport.UserPassword := Copy(Acentos(fCliFor.fCGC_CPF), 0, 5);
vACBrBoletoReport.dmBoleto.frxReport.PrintOptions.ShowDialog := False;
vACBrBoletoReport.dmBoleto.frxReport.PrepareReport();
vACBrBoletoReport.dmBoleto.frxReport.Export(vACBrBoletoReport.dmBoleto.frxPDFExport);
2 - Criávamos alguns campos no cdsTitulo para facilitar alguns processos (sendo AClientDataSet a antiga propriedade vACBrBoletoReport.dmBoleto.cdsTitulo)
procedure TNWCobranca.CriaCamposNFDebito_EMPRESA(
const AClientDataSet: TClientDataSet);
begin
AClientDataSet.Close;
AClientDataSet.FieldDefs.Add('NRO_NFDEBITO',ftString,10);
AClientDataSet.FieldDefs.Add('IE',ftString,100);
AClientDataSet.FieldDefs.Add('INSMUNICIPAL',ftString,20);
AClientDataSet.FieldDefs.Add('COD_NATOPERACAO',ftString,20);
AClientDataSet.FieldDefs.Add('DT_EMISSAO',ftString,10);
AClientDataSet.FieldDefs.Add('ITENS',ftMemo, 2000);
AClientDataSet.FieldDefs.Add('IE_SACADO',ftString,100);
AClientDataSet.CreateDataSet;
end;
É possível adicionar novas propertys com os objetos para que tenhamos acesso? Se não for possível, vocês possem alguma outra solução para não alterarmos o fonte do ACBr ? Gostamos de manter sempre atualizado e parte da agilidade se dá por não alterarmos nada diretamente.
Agradeço a Atenção!
