Guilhermemfa

Bom dia pessoal Não consegui fazer da forma que o André mencionou acima Consegui alterar o objeto texto que adicionei no cabeçalho CR.Sections("nomedasecao").ReportObjects("Text5").SetText "Novotexto" & form.nomedocomponente Não sei se é correto fazer isso e não sei se gera alguma perda de desempenho, sei que deu certo. Se alguém tiver alguma outra ideia posta ai. Vlw

Tem um exemplo de como adicionar o texto na fórmula? Grato

Bom dia pessoal! Gero um relatório com dados do período que eu informo nos componentes Dtpicker1 e Dtpicker1 do VB6. Ex: 28/07/2014 à 03/08/2014 Como faço para inserir esse período no cabeçalho do relatório?

Bom tarde pessoal! Normalmente crio meus relatório no Crystal Reports XI da seguinte forma 1 - Adiciono um novo formulário para o relatório 2 - Depois com o "Especialista em Banco de Dados" eu informo meu tipo de conexão, informo o servidor, informo o banco, informo o usuário e senha e monto minha query 3 - Em seguida eu seleciono o formulário que vai chamar o relatório e insiro o seguinte código depois desenho meu relatório com os dados que tenho disponíveis A idéia é que toda vez que chamar o relatório ele possa traze-lo sempre atualizado e de acordo com o servidor/banco que meu sistema estiver trabalhando. Isso funciona perfeitamente. ______________________________________________________ O que estou precisando desesperadamente é o seguinte. Normalmente utilizo uma query/consulta sql para montar meu relatório Como faço para colocar duas query ou duas consultas sql com dados totalmente diferente no mesmo relatório? Por favor me ajudem Trabalho com: VB6/SQL Server 2008/CR XI

Bom dia pessoal! Trabalho com VB6 e tenho um relatório que desenvolvi no CR XI R2 que imprime NF (cabeçalho/corpo/rodapé) cabeçalho: dados da NF, endereços e etc corpo: itens da NF rodapé: somatório e observações Porém preciso que imprima em duas vias tipo: Exemplo: As duas vias devem conter os mesmo dados. Porém no cabeçalho da primeira via deve estar escrito ("Via do Prestador") e no cabeçalho da outra via deve estar escrito ("Via do Tomador"). O restante da NF deve ser idêntico. Como faço isso? Grato

Consegui! O código segue abaixo. De repente seja útil para mais alguém DECLARE @dbname sysname, @days int SET @dbname = NULL SET @days = -1 --TOTAL DE DIAS DE APARTIR DA DATA ATUAL SELECT TOP 1 rsh.destination_database_name AS [Database], rsh.user_name AS [Restored By], CASE WHEN rsh.restore_type = 'D' THEN 'Banco de Dados' WHEN rsh.restore_type = 'F' THEN 'Arquivo' WHEN rsh.restore_type = 'G' THEN 'Grupo de Arquivo' WHEN rsh.restore_type = 'I' THEN 'Diferencial' WHEN rsh.restore_type = 'L' THEN 'Log' WHEN rsh.restore_type = 'V' THEN 'Verificação' WHEN rsh.restore_type = 'R' THEN 'Reversão' ELSE rsh.restore_type END AS [Restore Type], CONVERT (VARCHAR, rsh.restore_date, 103) as [Restore Started], CONVERT(VARCHAR(5),rsh.restore_date,114) AS HORA, bmf.physical_device_name AS [Restored From], rf.destination_phys_name AS [Restored To] FROM msdb.dbo.restorehistory rsh INNER JOIN msdb.dbo.backupset bs ON rsh.backup_set_id = bs.backup_set_id INNER JOIN msdb.dbo.restorefile rf ON rsh.restore_history_id = rf.restore_history_id INNER JOIN msdb.dbo.backupmediafamily bmf ON bmf.media_set_id = bs.media_set_id WHERE rsh.restore_date >= DATEADD(dd, ISNULL(@days, -30), GETDATE())AND destination_database_name = ISNULL(@dbname, destination_database_name) AND rsh.destination_database_name = 'NomeDB' ORDER BY rsh.restore_history_id DESC GO

Boa tarde pessoal! Utilizo o Sql Server 2008 Como obter via query a última data e hora de restauração do banco. Grato

Bom dia Pessoal! Estou criando um gráfico no crystal reports XI Como faço para alterar os nomes que vem nos topicos da legenda? Exemplo: Por padrão esta vindo assim: Sum of Grafico.experiencia Sum of Grafico.habilidade Sum of Grafico.treinamento Sum of Grafico.formacao Gostaria que ficasse assim: Experiência habilidade Treinamento Formação Escolar desde já agradeço

Boa nt pessoal, tenho uma tabela de funcionários, onde além dos dados dos funcionários, armazena em um campo o caminho onde está armazenado a foto + o nome do arquivo JPG. EX: "c:\foto\func-01.jpg", "c:\foto\func-02.jpg", "c:\foto\func-03.jpg" Estou montando com CR XI a ficha individual de cada funcionário. e preciso exibir nesse relatório a foto do funcionário. O relatório já está pronto. Porém as fotos não estão do tamanho que quero no relatório e não quero redimensiona-las e a kd relatório que eu chamo elas veêm no tamanho original, deixando o meu relatório desconfigurado. Tem alguma forma de eu definir o tamanho da imagem que eu quero no CR XI e toda vez que eu chamar o relatório, independente do tamanho da imagem ela aparecer no tamanho que eu tiver definido? Grato

resolvi Inseri um CommonDialog no meu form e fiz um código semenhante a este: CDialog= nome do meu CommonDialog CDialog.Filter = "Arquivo Pdf (*.pdf)|*.pdf" CDialog.FileName = "Meu Arquivo Teste.pdf" CDialog.ShowSave With CRXReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.DiskFileName = CDialog.FileName .Export False End With Report.Export False

Pessoal, ao vizualizar meu relatorio tem um ícone no canto superior esquerdo para exportar relatório. quando clico nele e seleciono: Formato: Adobe Acrobat (PDF) Destino: Arquivo de disco Após clicar em ok, aparece outra tela que vem: Nome do arquivo: Sem Título e para eu escolher um local para salvar Como eu faço para alterar o Nome do arquivo via código? Grato

Achei um codigo que altera o local do MDB, adaptei ao meu e funcionou. O interessante é que eu não precisei montar a query. Se alguém tiver algo a comentar ou a acrescentar ficarei grato Private Sub Form_Load() On Error GoTo tratar Dim CRXApplication As New CRAXDDRT.Application Dim Report1 As New CrystalReport1 Set CRXApplication = CreateObject("CrystalRuntime.Application.11") Dim CRXReport As New CRAXDDRT.Report Dim CRXDatabase As CRAXDDRT.Database Set CRXReport = Report1 Set CRXDatabase = CRXReport.Database CRXDatabase.Tables(1).Location = Caminho 'essa linha resolveu meu problema<br/> CRViewer1.ReportSource = CRXReport CRViewer1.ViewReport CaminhoArquivo = "" NomeArquivo = "" CaminhoArquivo = Mid$(frmConfiguracao.txtCaminho, 1, Len(frmConfiguracao.txtCaminho) - Len("contrato.mdb")) NomeArquivo = "CONTRATO " & Form1.txtCad(2) & " - " & Form1.Text5.Text & ".pdf" Form2.Caption = CaminhoArquivo & NomeArquivo With CRXReport .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo .Export False End With tratar: MsgBox ERR.Description End Sub

Pessoal to com seguinte problema: fiz meu relatorio no Crystal Report XI sem nenhum problema. Porém se eu tento mudar a pasta onde está meu MDB via código aparece o seguinte erro: "This field name is not known." Caminho é a variavel que recebe o local+nome arquivo MDB se eu mudo o caminho da erro, se volto para o caminho padrão da certo alguém sabe me dizer onde tenho que alterar no codigo abaixo? Public CnbancoPDF As ADODB.Connection Private Sub Form_Load() 'On Error GoTo tratar Dim Report1 As New CrystalReport1 Dim Report As CRAXDRT.Report Dim rsRelPDF As New ADODB.Recordset Dim sqlRelPDF As String Set CnbancoPDF = New ADODB.Connection CnbancoPDF.Open "Provider = Microsoft.JET.OLEDB.4.0; Data Source =" & Caminho rsRelPDF.CursorLocation = adUseClient sqlRelPDF = "select * from tbtempPDF,tbitemorc,tbcontrato where tbtempPDF.numorc = tbitemorc.codorc and tbitemorc.codigo = tbcontrato.codigo" rsRelPDF.Open sqlRelPDF, CnbancoPDF, adOpenForwardOnly, adLockReadOnly, adCmdText Set rsRelPDF.ActiveConnection = Nothing Set Report = Report1 Report.DiscardSavedData Report.Database.SetDataSource rsRelPDF 'Report1.RecordSelectionFormula = "{tbtempPDF.codorc}= " & Form1.Text5 CaminhoArquivo = "" NomeArquivo = "" CaminhoArquivo = Mid$(frmConfiguracao.txtCaminho, 1, Len(frmConfiguracao.txtCaminho) - Len("contrato.mdb")) NomeArquivo = "CONTRATO " & Form1.txtCad(2) & " - " & Form1.Text5.Text & ".pdf" Form2.Caption = CaminhoArquivo & NomeArquivo Screen.MousePointer = vbHourglass CRViewer1.ReportSource = Report CRViewer1.ViewReport CRViewer1.Zoom (120) Screen.MousePointer = vbDefault With Report .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo .Export False End With rsRelPDF.Close CnbancoPDF.Close Set CnbancoPDF = Nothing Set rsRelPDF = Nothing Set Report = Nothing Exit Sub tratar: MsgBox ERR.Description End Sub Private Sub Form_Resize() CRViewer1.Top = 0 CRViewer1.Left = 0 CRViewer1.Height = ScaleHeight CRViewer1.Width = ScaleWidth End Sub

Pessoal consegui fazer. Acho que pode ser util para alguém. Dim Report As New CrystalReport1 Dim Report1 As CRAXDRT.Report Set Report1 = Report With Report1 .ExportOptions.DestinationType = crEDTDiskFile .ExportOptions.FormatType = crEFTPortableDocFormat .ExportOptions.DiskFileName = CaminhoArquivo & NomeArquivo .Export False End With Se tiverem algum comentário a fazer em relação ao código postem ai

pessoal, Estou trabalhando com o VB6, com MSSQL 7.0 e Crystal Report XI. Tenho seguintes Referências e Componentes ativos no VB6 para o Crystal Report: Referências - Crystal ActiveX Report Viewer Export Library 11.5 - Crystal ActiveX Report Viewer Library 11.5 - Crystal ActiveX Report Viewer Web Report Source Library 11.5 - Crystal Report ActiveX Designer Run Time Library 11.5 - Crystal Report ActiveX Designer Design and Runtime Library 11.5 Componetes Na Guia - Controls - Crystal ActiveX Report Viewer Library 11.5 Na Guia - Designers - Crystal Report 11.5 Os relatórios que eu criei no VB6 estão na extensão DSR. Agora as dúvidas: No canto superior esquerdo dos relatórios tem a opção "Exportar Relatório". Ao seleciona-lo aparece uma tela para eu selecionar o formato e o local de destino Via código como eu faço para: 1) Deixar apenas o formato PDF; 2) Pré-definir o nome do meu arquivo PDF; 3) Pré-definir o local onde irá ser salvo meu arquivo PDF; 4) como fazer para não aparecer a mensagem abaixo : "Não cliente de e-mail padrão ou o cliente de e-mail atual não pode atender à solicitação de mensagem. Execute o Microsoft Office Outlook e defina-o como o cliente de email padrão." Grato