marcio1361303176 Posted January 19, 2011 Report Share Posted January 19, 2011 Amigos uso o Fast, e quando dou preview neles ele fica modal, não permitindo clicar em mais nada no sistema. Teria uma forma dele não ser modal. Pois as vezes o cliente abre um relatorio e quer ir fazendo outra coisa e daiu voltar nesse relatorio. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 19, 2011 Author Report Share Posted January 19, 2011 Amigos uso o Fast, e quando dou preview neles ele fica modal, não permitindo clicar em mais nada no sistema. Teria uma forma dele não ser modal. Pois as vezes o cliente abre um relatorio e quer ir fazendo outra coisa e daiu voltar nesse relatorio. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
evandro Posted January 19, 2011 Report Share Posted January 19, 2011 Olá, oFrPrn:PreviewOptions:SetModal(.f.) []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 19, 2011 Author Report Share Posted January 19, 2011 Deu esse erro Descricao do Erro.: Erro BASE/1004 Message not found: FRPREVIEWOPTIONS:SETMODAL *=============================================================================== static function REL_BANCOS() RepDir := CurDrive() +":\"+ CurDir() + '\RELS\' TITULO := 'RELATORIO DE BANCOS' IF !EMPTY(T_FILTRO_NOME_INICIAL) IF EMPTY(T_FILTRO_NOME_FINAL) T_FILTRO_NOME_FINAL := T_FILTRO_NOME_INICIAL ENDIF TITULO := TITULO + ' Filtro ' + TRIM(T_FILTRO_NOME_INICIAL) + ' a ' + TRIM(T_FILTRO_NOME_FINAL) ENDIF IF T_FILTRO_CODIGO_INICAL != 0 IF T_FILTRO_CODIGO_FINAL = 0 T_FILTRO_CODIGO_FINAL := T_FILTRO_CODIGO_INICAL ENDIF TITULO := TITULO + ' Filtro ' + STRZERO(T_FILTRO_CODIGO_INICAL,06,0) + ' a ' + STRZERO(T_FILTRO_CODIGO_FINAL,06,0) ENDIF ARQUIVO_FR3 := IF(T_EMITE_REL_ETIQUETA=1,'REL_BANCOS.fr3','ETIQ_BANCOS.fr3') IF T_TIPO_RELATORIO_EMISSAO = 2 ARQUIVO_FR3 := IF(T_EMITE_REL_ETIQUETA=1,'REL_EMPRESAS_BANCOS.fr3','ETIQ_BANCOS.fr3') ENDIF Cursor("SQL") IF FILE( (CurDrive() +":\"+ CurDir() + '\RELS\'+(ARQUIVO_FR3))) IF SELECT("bancos") != 0 bancos->(DbCloseArea()) ENDIF cQuery:= 'SELECT * FROM bancos ' cQuery:=cQuery+' WHERE NOME_BANCO != ' + TRANSFORMA_SQL(TRIM(''),'T',30,0) IF !EMPTY(T_FILTRO_NOME_INICIAL) cQuery:=cQuery+ ' AND NOME_BANCO LIKE ' + "'" + ALLTRIM(TRIM(T_FILTRO_NOME_INICIAL)) +'%' + "'" cQuery:=cQuery+ ' OR NOME_BANCO LIKE ' + "'" + ALLTRIM(TRIM(T_FILTRO_NOME_FINAL)) +'%' + "'" ENDIF IF T_FILTRO_CODIGO_INICAL != 0 IF T_FILTRO_CODIGO_FINAL = 0 T_FILTRO_CODIGO_FINAL := T_FILTRO_CODIGO_INICAL ENDIF cQuery:=cQuery+ ' AND CODIGO_BANCO >= ' + TRANSFORMA_SQL(T_FILTRO_CODIGO_INICAL,'N',10,0) cQuery:=cQuery+ ' AND CODIGO_BANCO <= ' + TRANSFORMA_SQL(T_FILTRO_CODIGO_FINAL,'N',10,0) ENDIF cQuery := cQuery + ' ORDER BY ' + ALLTRIM(T_CAMPO_ORDENAR) + IF(cOrder='A',' DESC',' ASC') use sql cQuery alias "bancos" new via 'MYSQL' bancos->( DbGoTop()) *============================================================================ oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //Ãcone da janela do FRH oFrPrn:SetTitle( 'Relatorio' + TITULO ) //tÃtulo da janela do FRH oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' )) //arquivo de idioma oFrPrn:SetWorkArea("bancos", select("bancos")) oFrPrn:LoadFromFile(RepDir+(ARQUIVO_FR3)) // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .F. ) IF M->RELATORIO_DESINER = (.T.) // inibe o botão de edição do relatório pelo usuário oFrPrn:DesignReport() // aqui para "desenhar" o relatório endif oFrPrn:PreviewOptions:SetZoomMode(2) oFrPrn:PreviewOptions:SetModal(.F.) oFrPrn:ShowReport() // aqui para gerar o preview do relatório. oFrPrn:DestroyFR() IF SELECT("bancos") != 0 bancos->(DbCloseArea()) ENDIF cQuery:='select * from bancos ' cQuery := cQuery + ' ORDER BY NOME_BANCO' use sql cQuery alias "bancos" new via 'MYSQL' oDB_BANCOS: gotop() oDB_BANCOS: Refresh() ELSE MSG_ERRO_ABRIR_FAST_REPORT( (ARQUIVO_FR3) ) ENDIF return .t. id=code>id=code>Editado por - marcio on 19/01/2011 16:13:57 Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 20, 2011 Author Report Share Posted January 20, 2011 Mesmo. colocando a versao nova do Fast_4_9_111 ele não dá mais o erro, mas ele aborta quando chamo o relatorio. Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 20, 2011 Author Report Share Posted January 20, 2011 Pessoal Essa Bagaça não quer funcionar mesmo.... Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
evandro Posted January 20, 2011 Report Share Posted January 20, 2011 Márcio, Posta no grupo do FastReport. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 9.01+PellesC+MyMake+xHarbour.org 1.00+SqlLib Quote Link to comment Share on other sites More sharing options...
marcio1361303176 Posted January 20, 2011 Author Report Share Posted January 20, 2011 Onde mesmo... Márcio :. informaisvrb@gmail.com FWHX 2.6+ SQLLIB + xDev + rpv + MYSQL 5.0 / fwh808+sqllib(atual) Msn.: mastermarvrb@msn.com Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 6, 2011 Report Share Posted June 6, 2011 Amigos, bom dia Ainda está sem Solução. informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 6, 2011 Report Share Posted June 6, 2011 Amigos, ainda não consegui Resolver.... informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 6, 2011 Report Share Posted June 6, 2011 up informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
miragerr Posted June 6, 2011 Report Share Posted June 6, 2011 Ola marcio da uma olhada neste link http://www.paritetsoft.ru/frh_ver.html e procure por: version 4.7 ----------- + Multiple not-modal preview mode based on different reports is added. For this one following methods are added: id=blue> Espero ter ajudado Jackson Douglas Boa Vista FWH 10.05 Lamborguini ( isso voa gente ) PellesC+xH 1.2.1 + FAST REPORT + DBFCDX + SQL 100% email : miragerr@osite.com.br MSN : jackson_rl@hotmail.com SKYPE : jackson_rr Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 7, 2011 Report Share Posted June 7, 2011 AMIGOS USO ESTA VERSAO http://img849.imageshack.us/img849/9905/fastreportversao.jpg *=============================================================================== static function RELATORIO_TABELA_IRRF_INSS() RepDir := CurDrive() +":\"+ CurDir() + '\RELS\' TITULO := 'RELATORIO DE TABELA DE IMPOSTOS' Cursor("SQL") IF FILE( (CurDrive() +":\"+ CurDir() + '\RELS\'+'REL_TABELA_IMPOSTOS.fr3')) IF SELECT("tabela_imposto_folha") != 0 tabela_imposto_folha->(DbCloseArea()) ENDIF cQuery:='select * from tabela_imposto_folha ' cQuery:=cQuery + ' WHERE MES_ANO = ' + TRANSFORMA_SQL(T_MES_ANO,"T",07,0) cQuery:=cQuery + ' ORDER BY MES_ANO DESC ' use sql cQuery alias "tabela_imposto_folha" new via 'MYSQL' tabela_imposto_folha->( DbGoTop()) *============================================================================ oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //Ãcone da janela do FRH oFrPrn:SetTitle( 'Relatorio' + TITULO ) //tÃtulo da janela do FRH oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' )) //arquivo de idioma oFrPrn:SetWorkArea("tabela_imposto_folha", select("tabela_imposto_folha")) oFrPrn:LoadFromFile(RepDir+'REL_TABELA_IMPOSTOS.fr3') // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .F. ) // inibe o botão de edição do relatório pelo usuário IF M->RELATORIO_DESINER = (.T.) oFrPrn:DesignReport() // aqui para "desenhar" o relatório endif oFrPrn:PreviewOptions:SetZoomMode(2) oFrPrn:ShowReport() // aqui para gerar o preview do relatório. oFrPrn:DestroyFR() IF SELECT("tabela_imposto_folha") != 0 tabela_imposto_folha->(DbCloseArea()) ENDIF cQuery:='select * from tabela_imposto_folha ORDER BY ID_TABELA_IRRF_INSS DESC ' use sql cQuery alias "tabela_imposto_folha" new via 'MYSQL' tabela_imposto_folha->( DbGoTop()) oDB_TABELA_IMPOSTO_FOLHA : GoTop() oDB_TABELA_IMPOSTO_FOLHA : Refresh() ELSE MSG_ERRO_ABRIR_FAST_REPORT('REL_TABELA_IMPOSTOS.fr3') ENDIF return .t. id=code>id=code>Vajam o meu Código. Acima. informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 8, 2011 Report Share Posted June 8, 2011 Up, não deu certo eu já tenei, e a minha versao é superior a que os amigos incicaram informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Editado por - marcioe on 08/06/2011 09:55:56 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 8, 2011 Report Share Posted June 8, 2011 galera, tem alguma ideia... informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 10, 2011 Report Share Posted June 10, 2011 Amigos.... Já tentei de tudo mesmo e nada de funcionar.. informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted June 10, 2011 Report Share Posted June 10, 2011 é.. eu tbem ja tentei isso e nao funciona... sei lá porque vitor Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 10, 2011 Report Share Posted June 10, 2011 OK. pOXA VIDA ESTAVA PRECISANDO DEMAIS DISSO. informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 10, 2011 Report Share Posted June 10, 2011 pessoal será que tem alguma versão mais nova que faz isso.... informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
gilmer Posted June 10, 2011 Report Share Posted June 10, 2011 Tente tirar o método que encerra o preview. oFrPrn:DestroyFR() e-mail: gilmer@fivewin.com.br msn: fivewinbrasil@hotmail.com Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 10, 2011 Report Share Posted June 10, 2011 Isso mesmo Meu Amigo static function REL_BANCOS() RepDir := CurDrive() +":\"+ CurDir() + '\RELS\' TITULO := 'RELATORIO DE BANCOS' IF !EMPTY(T_FILTRO_NOME_INICIAL) IF EMPTY(T_FILTRO_NOME_FINAL) T_FILTRO_NOME_FINAL := T_FILTRO_NOME_INICIAL ENDIF TITULO := TITULO + ' Filtro ' + TRIM(T_FILTRO_NOME_INICIAL) + ' a ' + TRIM(T_FILTRO_NOME_FINAL) ENDIF IF T_FILTRO_CODIGO_INICAL != 0 IF T_FILTRO_CODIGO_FINAL = 0 T_FILTRO_CODIGO_FINAL := T_FILTRO_CODIGO_INICAL ENDIF TITULO := TITULO + ' Filtro ' + STRZERO(T_FILTRO_CODIGO_INICAL,06,0) + ' a ' + STRZERO(T_FILTRO_CODIGO_FINAL,06,0) ENDIF ARQUIVO_FR3 := IF(T_EMITE_REL_ETIQUETA=1,'REL_BANCOS.fr3','ETIQ_BANCOS.fr3') IF T_TIPO_RELATORIO_EMISSAO = 2 ARQUIVO_FR3 := IF(T_EMITE_REL_ETIQUETA=1,'REL_EMPRESAS_BANCOS.fr3','ETIQ_BANCOS.fr3') ENDIF Cursor("SQL") IF FILE( (CurDrive() +":\"+ CurDir() + '\RELS\'+(ARQUIVO_FR3))) IF SELECT("bancos") != 0 bancos->(DbCloseArea()) ENDIF cQuery:= 'SELECT * FROM bancos ' cQuery:=cQuery+' WHERE NOME_BANCO != ' + TRANSFORMA_SQL(TRIM(''),'T',30,0) IF !EMPTY(T_FILTRO_NOME_INICIAL) cQuery:=cQuery+ ' AND NOME_BANCO LIKE ' + "'" + ALLTRIM(TRIM(T_FILTRO_NOME_INICIAL)) +'%' + "'" cQuery:=cQuery+ ' OR NOME_BANCO LIKE ' + "'" + ALLTRIM(TRIM(T_FILTRO_NOME_FINAL)) +'%' + "'" ENDIF IF T_FILTRO_CODIGO_INICAL != 0 IF T_FILTRO_CODIGO_FINAL = 0 T_FILTRO_CODIGO_FINAL := T_FILTRO_CODIGO_INICAL ENDIF cQuery:=cQuery+ ' AND CODIGO_BANCO >= ' + TRANSFORMA_SQL(T_FILTRO_CODIGO_INICAL,'N',10,0) cQuery:=cQuery+ ' AND CODIGO_BANCO <= ' + TRANSFORMA_SQL(T_FILTRO_CODIGO_FINAL,'N',10,0) ENDIF cQuery := cQuery + ' ORDER BY ' + ALLTRIM(T_CAMPO_ORDENAR) + IF(cOrder='A',' DESC',' ASC') use sql cQuery alias "bancos" new via 'MYSQL' bancos->( DbGoTop()) *============================================================================ oFrPrn := frReportManager():new() oFrPrn:SetIcon(1) //Ãcone da janela do FRH oFrPrn:SetTitle( 'Relatorio' + TITULO ) //tÃtulo da janela do FRH oFrPrn:LoadLangRes( (CurDrive() +":\"+ CurDir() + '\RELS\' + 'brazil.xml' )) //arquivo de idioma oFrPrn:SetWorkArea("bancos", select("bancos")) oFrPrn:LoadFromFile(RepDir+(ARQUIVO_FR3)) // para leitura direta de arquivo FR3 oFrPrn:PreviewOptions:SetAllowEdit( .F. ) IF M->RELATORIO_DESINER = (.T.) // inibe o botão de edição do relatório pelo usuário oFrPrn:DesignReport() // aqui para "desenhar" o relatório endif oFrPrn:PreviewOptions:SetZoomMode(2) oFrPrn:PreviewOptions:SetModal(.F.) oFrPrn:ShowReport() // aqui para gerar o preview do relatório. *oFrPrn:DestroyFR() IF SELECT("bancos") != 0 bancos->(DbCloseArea()) ENDIF cQuery:='select * from bancos ' cQuery := cQuery + ' ORDER BY NOME_BANCO' use sql cQuery alias "bancos" new via 'MYSQL' oDB_BANCOS: gotop() oDB_BANCOS: Refresh() ELSE MSG_ERRO_ABRIR_FAST_REPORT( (ARQUIVO_FR3) ) ENDIF return .t. id=code>id=code>Porem se Eu Desejar Gerar Outro Relatorio ele dá Pau. Ou seja o que eu queria era poder estar com um relatorio aberto, gerar um outro, e consultar um cadastro, Imprimir uma ficha na tela e depois uma relação de bancos na tela, mas sem fechar a ficha de cadastro. Ou seja a possibilidade de ter varios relatios abertos informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
CleitonSH Posted June 11, 2011 Report Share Posted June 11, 2011 Já tentou abrir duas instâncias do fast, exemplo: Relatório 1, varÃavel oFrPrn: oFrPrn := frReportManager():new() Relatório 2, varÃavel oFrPrn2: oFrPrn2 := frReportManager():new() Cleiton FWH906+xHarbour 1.2.1+WorkShop,PellesC, FW20d+Clipper5.2+Clip53b Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 11, 2011 Report Share Posted June 11, 2011 bem pensado.... Vou testar... Vamos Fazer o Bicho Funcionar... informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
Vitor Reis Posted June 11, 2011 Report Share Posted June 11, 2011 marcio.. se conseguir.. me chama no msn quero saber tambem valeo vitor Quote Link to comment Share on other sites More sharing options...
marcioe Posted June 14, 2011 Report Share Posted June 14, 2011 coloquei 2 instancias e nada de funcionar..., ele abre não modal. mas se abrir 02 relatorios diferentes, ele trava, da mesma forma. informaisvrb@gmail.com msn mastermarvrb@msn.com 32-9104-0562 Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.