DATA REPORT

CAIO.FR.SP 30/07/2009 10:00:07
#318308
galera tem como eu colocar algum codigo para que toda vez que eu for abrir um relatorio, ele carregue a imagem logo na pasta do programa, e algumas informaçoes contidas em um arquivo [Ô].ini[Ô] tambem contida na pasta do programa, preciso disso pra terminar a minha parte de relatorios.
TECLA 30/07/2009 10:07:53
#318309 Resposta escolhida
Na instrução que você [Ô]chama[Ô] o relatório, é só [Ô]setar[Ô] o controle IMAGE que receberá o logo.

Exemplo:
[txt-color=#0B6138][ô]Atente bem para a SECTION e o nome do controle IMAGE[/txt-color]
Set DataReport1.Sections([Ô]Section4[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture([Ô]C:\Minhas imagens\artigo.jpg[Ô])
DataReport1.Show
CAIO.FR.SP 30/07/2009 10:11:55
#318310
a mesma coisa com os label, que quero colocar informaçoes contidas no .ini?
TECLA 30/07/2009 10:23:08
#318311
Citação:

CAIO_FR_SP escreveu:
a mesma coisa com os label, que quero colocar informaçoes contidas no .ini?



O mesmo código (só que referenciando os CONTROLES e suas PROPRIEDADES que se deseja alimentar).
CAIO.FR.SP 30/07/2009 10:26:55
#318312
TECLA, nao deu certo nao, coloquei na o seguinte codigo na função q chama o relatorio.

  Private Sub cmdimprimir_Click()
    If List.ListItems.Count < 0 Then Exit Sub
    If optdia.Value = True Then
        dta_consultacaixa.Caption = [Ô]Movimentação do Caixa: [Ô] & Format$(calendario.Value, [Ô]d/m/yyyy[Ô])
    Else
        dta_consultacaixa.Caption = [Ô]Movimentação do Caixa: [Ô] & cmbmes.Text & [Ô] de [Ô] & txtano.Text
    End If
    Set dta_consultacaixa.DataSource = rst_conexao
    [ô]Set dta_consultacaixa.Sections(4).Controls([Ô]img_logo[Ô]).Picture = LoadPicture(App.Path & [Ô]logo.jpg[Ô])
    Set dta_consultacaixa.Sections(4).Controls([Ô]lbl_empresa[Ô]).Caption = LerINI([Ô]Empresa[Ô], [Ô]fantasia[Ô], App.Path & [Ô]config.ini[Ô])
    Set dta_consultacaixa.Sections(2).Controls([Ô]lbl_titulo[Ô]).Caption = dta_consultacaixa.Caption
    dta_consultacaixa.Show 1
End Sub


dai aparece o seguinte erro:

error [ô]8574[ô]
the object [Ô]img_logo[Ô] was not found
TECLA 30/07/2009 10:41:19
#318313
Informe o nome da seção entre [Ô]aspas[Ô] conforme o código abaixo:

Citação:

TECLA escreveu:
Na instrução que você [Ô]chama[Ô] o relatório, é só [Ô]setar[Ô] o controle IMAGE que receberá o logo.

Exemplo:

[txt-color=#0B6138][ô]Atente bem para a SECTION e o nome do controle IMAGE[/txt-color]
Set DataReport1.Sections([Ô]Section4[Ô]).Controls([Ô]Image1[Ô]).Picture = LoadPicture([Ô]C:Minhas imagensartigo.jpg[Ô])
DataReport1.Show
TECLA 30/07/2009 10:45:17
#318314
Outra coisa, para o controle LABEL não informe a instrução SET no início do comando.
CAIO.FR.SP 30/07/2009 10:47:54
#318315
tecla consegui. fiz uma alteração no codigo.

      With dta_consultacaixa
        If List.ListItems.Count < 0 Then Exit Sub
        If optdia.Value = True Then
            .Caption = [Ô]Movimentação do Caixa: [Ô] & Format$(calendario.Value, [Ô]d/m/yyyy[Ô])
        Else
            .Caption = [Ô]Movimentação do Caixa: [Ô] & cmbmes.Text & [Ô] de [Ô] & txtano.Text
        End If
        Set .DataSource = rst_conexao
        For x = 1 To .Sections.Count - 1
            For i = 1 To .Sections(x).Controls.Count - 1
                If .Sections(x).Controls(i).Name = [Ô]img_logo[Ô] Then
                    Set .Sections(x).Controls(i).Picture = LoadPicture(App.Path & [Ô]logo.jpg[Ô])
                ElseIf .Sections(x).Controls(i).Name = [Ô]lbl_empresa[Ô] Then
                    .Sections(x).Controls(i).Caption = LerINI([Ô]Empresa[Ô], [Ô]fantasia[Ô], App.Path & [Ô]config.ini[Ô])
                End If
            Next i
            For i = 1 To .Sections(x).Controls.Count - 1
                If .Sections(x).Controls(i).Name = [Ô]lbl_titulo[Ô] Then
                    If optdia.Value = True Then
                        .Sections(x).Controls(i).Caption = [Ô]Movimentação do Caixa: [Ô] & Format$(calendario.Value, [Ô]d/m/yyyy[Ô])
                    Else
                        .Sections(x).Controls(i).Caption = [Ô]Movimentação do Caixa: [Ô] & cmbmes.Text & [Ô] de [Ô] & txtano.Text
                    End If
                End If
            Next i
        Next x
        .Show 1
    End With
Tópico encerrado , respostas não são mais permitidas
Voltar