Olá, preciso de sua ajuda de novo, pois consegui carregar a imagem mas quando
mando imprimir o relatório duas vezes seguidas, sendo que a imagem tem que ser
diferente nos dois não dá certo, fica a imagem que foi carregada primeiro, como
faço para limpar a imagem e carregar outra?
--- Em delphi-br@yahoogrupos.com.br, "galvao_em" <galvao...@...> escreveu
>
> Paulo, Muito obrigado funcionou certinho
>
> Att.
>
> Rodrigo
>
> --- Em delphi-br@yahoogrupos.com.br, Paulo Coutinho <paulo@> escreveu
> >
> > DM.frxReport.Script.Clear;
> >
> > DM.frxReport.Script.AddVariable('valor_extenso', 'valor_extenso', 'xxx');
> >
> >
> > 2009/4/26 Paulo Coutinho <paulo@>
> >
> > > Opa foi mal, o correto é:
> > >
> > > frxFastReport.Variables.clear;
> > > frxFastReport.Script.AddVariable('caminho_imagem', 'String',
> > > 'c:\teste.bmp');
> > >
> > >
> > > 2009/4/26 Paulo Coutinho <paulo@>
> > >
> > > Sim,
> > >>
> > >> E ontem mesmo estava com quase o mesmo problema, precisava passar o
> > >> caminho da imagem via delphi pro fast e depois de horas pesqusiando
> > >> consegui
> > >> resolver assim:
> > >>
> > >> Pelo Delphi vc faz:
> > >>
> > >> frxFastReport.Variables.clear;
> > >> frxFastReport.Script.Variables.add('caminho_imagem', 'String',
> > >> 'c:\teste.bmp');
> > >>
> > >> E pelo fastn na aba code vc faz:
> > >> begin
> > >> picturebox_fundo.Picture.LoadFromFile(<caminho_imagem>);
> > >> end;
> > >>
> > >> Abração.
> > >>
> > >>
> > >> 2009/4/25 galvao_em <galvao_em@>
> > >>
> > >>
> > >>>
> > >>> Obrigado, funcionou certinho, gostaria de mais uma ajuda.
> > >>>
> > >>> No meu relatório eu tenho uma imagem de plano de fundo, gostaria de
> > >>> saber
> > >>> como faço para mudar ela via linha de comando, isto é conforme a razão
> > >>> social da empresa que for emitido o relatório eu envio para o
> > >>> componente a
> > >>> localização da imagem que deve estar no fundo, tem como?
> > >>>
> > >>> Att.
> > >>>
> > >>> --- Em delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>,
> > >>> "TI - Metalurgica Jano" <ti@> escreveu
> > >>>
> > >>> >
> > >>> > No evento onbeforeprint do objeto vc faz assim
> > >>> >
> > >>> >
> > >>> >
> > >>> > If <frxDbDados."CONSFRETEPAGO"> = `S' then
> > >>> >
> > >>> > Objeto.text := `X';
> > >>> >
> > >>> > Else
> > >>> >
> > >>> > Objeto.text := `';
> > >>> >
> > >>> >
> > >>> >
> > >>> > _____
> > >>> >
> > >>> > De: delphi-br@yahoogrupos.com.br
> > >>> > <delphi-br%40yahoogrupos.com.br>[mailto:
> > >>> delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>] Em
> > >>> > nome de galvao_em
> > >>> > Enviada em: sexta-feira, 24 de abril de 2009 13:42
> > >>> > Para: delphi-br@yahoogrupos.com.br <delphi-br%40yahoogrupos.com.br>
> > >>> > Assunto: [delphi-br] Ajuda com FastReport
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> > Olá, estou começando com o fastreport e tenho o seguinte problema:
> > >>> >
> > >>> > Estou com uma variável na qual gostaria que ela adotasse o valor 'X'
> > >>> > ou
> > >>> ''
> > >>> > conforme segue:
> > >>> >
> > >>> > [IIF(<frxDbDados."CONSFRETEPAGO">='S','X',' ')]
> > >>> >
> > >>> > isto é se o campo CONSFRETEPAGO for igual a 'S' ela assume 'X' senão
> > >>> ''.
> > >>> >
> > >>> > coloquei esta função no fastreport mas da o seguinte erro:
> > >>> >
> > >>> > Module Unload: UNKNOWN_MODULE_3. Process SCV.exe (1708)
> > >>> > First chance exception at $7C812AFB. Exception class
> > >>> EVariantTypeCastError
> > >>> > with message 'Could not convert variant of type (Array Variant) into
> > >>> type
> > >>> > (Boolean)'. Process SCV.exe (1708)
> > >>> >
> > >>> > o que estou fazendo de errado?
> > >>> >
> > >>> > uso delphi 2007 com fast 4.7.115.
> > >>> >
> > >>> > Att.
> > >>> > Rodrigo
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> >
> > >>> > [As partes desta mensagem que não continham texto foram removidas]
> > >>> >
> > >>>
> > >>>
> > >>>
> > >>
> > >>
> > >>
> > >> --
> > >> Atenciosamente,
> > >> Paulo Coutinho.
> > >> Blog: www.prsolucoes.com/blog
> > >> Site: www.prsolucoes.com
> > >> Msn: paulo@
> > >>
> > >
> > >
> > >
> > > --
> > > Atenciosamente,
> > > Paulo Coutinho.
> > > Blog: www.prsolucoes.com/blog
> > > Site: www.prsolucoes.com
> > > Msn: paulo@
> > >
> >
> >
> >
> > --
> > Atenciosamente,
> > Paulo Coutinho.
> > Blog: www.prsolucoes.com/blog
> > Site: www.prsolucoes.com
> > Msn: paulo@
> >
> >
> > [As partes desta mensagem que não continham texto foram removidas]
> >
>
