Jump to content
Fórum Script Brasil

Guilhermemfa

Membros
  • Posts

    22
  • Joined

  • Last visited

About Guilhermemfa

Guilhermemfa's Achievements

0

Reputation

  1. 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
  2. Tem um exemplo de como adicionar o texto na fórmula? Grato
  3. 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?
  4. 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
  5. 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
  6. Guilhermemfa

    Query

    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
  7. Guilhermemfa

    Query

    Boa tarde pessoal! Utilizo o Sql Server 2008 Como obter via query a última data e hora de restauração do banco. Grato
  8. 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
  9. 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
  10. 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
  11. 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
  12. 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
  13. 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
  14. 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
  15. 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
×
×
  • Create New...