Pessoal
Se possível dêem uma olhada no código abaixo: não estou conseguindo fazer com
que a
alteração no relatório (inserir o relatório no banco tá blz) não é salva no
banco(uso FasReport e IB 6.0 + DBExpress + ClientDataSet).
Agradeço antecipadamente.
function TfrmReportA.DesignerLoadReport(Report: TfrxReport): Boolean;
begin
try
frmSearch:= TfrmSearch.Create2('REP', Self);
if frmSearch.ShowModal = mrOk then
begin
DMREPORTS.CDSREPORT.Close;
DMREPORTS.CDSREPORT.Params[0].AsInteger:= DM1.CDSLOC.Fields[0].AsInteger;
DMREPORTS.CDSREPORT.Open;
DMREPORTS.CDSREPORT.Edit;
S:= TStream.Create;
S:=
DMREPORTS.CDSREPORT.CreateBlobStream(DMREPORTS.CDSREPORT.FieldByName('ARQUIVO'),
bmReadWrite);
Report.Designer.Report.Clear;
Report.Designer.Report.LoadFromStream(S);
end;
DM1.CDSLOC.Close;
except
Application.MessageBox('Ocorreu um problema enquanto a informação estava
sendo
carregada.', 'Central de relatórios', mb_Ok + MB_ICONERROR);
S.Free;
end;
end;
function TfrmReportA.DesignerSaveReport(Report: TfrxReport;
SaveAs: Boolean): Boolean;
begin
Report.Designer.Report.SaveToStream(S);
if DMREPORTS.CDSREPORT.State = dsBrowse then
DMREPORTS.CDSREPORT.Edit;
TBlobField(DMREPORTS.CDSREPORT.Fields[2]).LoadFromStream(S);
DMREPORTS.CDSREPORT.Post;
DMREPORTS.CDSREPORT.ApplyUpdates(0);
//eu libero o S após fechar o designer do report
end;
Yahoo! Acesso Grátis - Internet rápida e grátis.
Instale o discador agora! http://br.acesso.yahoo.com/
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
