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

pai01 = "4T-9874" --> da certo pai01 = "4D-9874" --> da errado O caracter "D" gera erro, aparece a mensagem "chave inválida"

Assim da certo Private Sub Form_Load() Dim pai01 As String, pai02 As String, pai03 As String pai01 = "4T-9874" pai02 = "Ingrediente Torta" pai03 = "Ingrediente Lasanha" TreeView1.Nodes.Add , , pai01, pai01 TreeView1.Nodes.Add , , pai02, pai02 TreeView1.Nodes.Add , , pai03, pai03 TreeView1.Nodes.Add pai01, tvwChild, "2 Ovo", "2 Ovo" TreeView1.Nodes.Add pai01, tvwChild, "Açucar", "Açucar" TreeView1.Nodes.Add pai01, tvwChild, "Trigo", "Trigo" TreeView1.Nodes.Add pai02, tvwChild, "1 Ovo", "1 Ovo" TreeView1.Nodes.Add pai02, tvwChild, "Chocolate", "Chocolate" TreeView1.Nodes.Add pai02, tvwChild, "Morango", "Morango" TreeView1.Nodes.Add pai03, tvwChild, "Óleo", "Óleo" TreeView1.Nodes.Add pai03, tvwChild, "Mussarela", "Mussarela" TreeView1.Nodes.Add pai03, tvwChild, "Tempero", "Tempero" End Sub '-------------------------- Assim da errado Private Sub Form_Load() Dim pai01 As String, pai02 As String, pai03 As String pai01 = "4D-9874" pai02 = "Ingrediente Torta" pai03 = "Ingrediente Lasanha" TreeView1.Nodes.Add , , pai01, pai01 TreeView1.Nodes.Add , , pai02, pai02 TreeView1.Nodes.Add , , pai03, pai03 TreeView1.Nodes.Add pai01, tvwChild, "2 Ovo", "2 Ovo" TreeView1.Nodes.Add pai01, tvwChild, "Açucar", "Açucar" TreeView1.Nodes.Add pai01, tvwChild, "Trigo", "Trigo" TreeView1.Nodes.Add pai02, tvwChild, "1 Ovo", "1 Ovo" TreeView1.Nodes.Add pai02, tvwChild, "Chocolate", "Chocolate" TreeView1.Nodes.Add pai02, tvwChild, "Morango", "Morango" TreeView1.Nodes.Add pai03, tvwChild, "Óleo", "Óleo" TreeView1.Nodes.Add pai03, tvwChild, "Mussarela", "Mussarela" TreeView1.Nodes.Add pai03, tvwChild, "Tempero", "Tempero" End Sub Preciso inserir esse NÓ que esta dando erro, sem alterar muito essa estrutura Alguém saberia me explicar porque acontece isso? Grato

kuroi... feriadão viajei, testei aki e funciona beleza.... só q to com algumas duvidas... se não for demais.... to querendo colocar um texto do lado da imgem... to tentando aki, porem ele tah ficando acima ou abaixo... e tem outra situação q vou precisar do texto por cima da imagem... como faço isso? Grato vlw

pessoal encontrei uma rotina q gera documento DOC... porém não sei como colocar a imagem do tamanho q desejo. Será q alguém sabe. Ficarei grato se puderem me ajudar --> antes de utilizar esse codigo vá no menu: project/references e selecione "Microsoft Word ? Object Library" Private Sub Command1_Click() Dim Word_VB As New Word.Application Word_VB.Documents.Add Word_VB.Visible = True With Word_VB .Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter .Selection.Font.Size = 20 .Selection.Font.Bold = True .Selection.TypeText Text:="VISUAL BASIC" .Selection.TypeParagraph .Selection.Font.Size = 15 .Selection.TypeText Text:="www.vbmania.com.br" .Selection.TypeParagraph .Selection.TypeParagraph .Selection.Font.Size = 10 .Selection.Font.Italic = True .Selection.TypeText Text:="teste teste teste teste tteste" .Selection.TypeParagraph .Selection.TypeParagraph .Selection.InlineShapes.AddPicture FileName:="caminho da figura ome da figura.jpg", LinkToFile:=False, SaveWithDocument:=True End With Word_VB.Documents(Word_VB.ActiveDocument).SaveAs Text1.Text Word_VB.Quit Set Word_VB = Nothing End Sub

Pra mim server qualquer uma das 3 opções: PDF/DOC/HTML PDF estou achando meio complicado, se fosse só texto HTML resolveria, a questão é q tem imagens e essas imagens estão espalhadas pelo PC mas o endereço delas estão no banco teria q realmente anexar as imagens ao documento, não tenho ideia como faria isso em HTML. Se tiver alguma rotina para gerar um documento do WORD com texto e imagem fica legal também. Espero q alguém possa me ajudar. só preciso do um exemplo simples. já dei uma boa olhada e os exemplos q achei só tratam texto, preciso de um exemplo q tenha texto e imagem. Vlw

Pessoal to com um probleminha... desenvolvi um programa em vb para controle de viagens de uma turma de pescaria, nesse programa cadastro todos os integrantes da turma de pescaria, cadastro as viagens q ele já fizeram no decorrer de 25 anos e as fotos de cada viagem... simples, mas interessante. Até ai funciona tranquilo... só q o pessoal tah querendo q eu desenvolva um relatorio da seguinte forma: - na primeira pagina: cabeçalho com o nome da turma de pescaria, logo da turma, data da pescaria, onde foi, nome dos participantes da viagem, comentarios sobre a pescaria. - nas outras paginas: todas as fotos da pescaria com comentario de cada foto --> tenho todos esses dados no meu banco só que eles não querem isso impresso, querem q eu gere um arquivo PDF ou DOC ou HTML para q possam gravar em CD/DVD e mandar esse arquivo para outras pessoas. baixei uma biblioteca p testar: PDF Creator Pilot é muito interessante mas é DEMO Gostaria de saber se alguém pode me ajudar... existe alguma biblioteca ou classe q possa resolver esse problema... ou alguma rotina q possa fazer isso no word. vlw pessoal

ai Graymalkin, aproveitando a dúvida acima você teria um exemplo de como usar o FindItem do Listview, tentei aqui a não deu muito certo, vlw