Boa tarde

 

Tenho um relatorio que é genérico onde através de formulas mudo o titulo

do relatorio e o nome do cliente.

Mas estou encontrando dificuldade para enviar o campo para a linha detalhe do

relatorio.

Quero que a formula assuma o nome do campo e assim imprima todos os registros

daquele campo.

Segue o código abaixo onde esta em vermelho, é exatamente onde esta dando

errado.

 

    ReDim FormulaRel(1 To 18, 1 To 18) As String
    Dim sSql1 As String
    Dim sTexto As String
   
    If sRelatorios = True Or Padrao = "A" Then
        cTarefa = "Entrou na Tela de Relatorio por Ordem Númerica"
        GravaLog
   
        sTexto = "Relatório de simples conferência"
        sSql1 = "SELECT * FROM Conteudo Where campo05 >=  '" & Trim(Text1.Text) & "' And campo05 <= '" & Trim(Text2.Text) & "'"
        sSql1 = sSql1 & " ORDER BY campo05"
       
        FormulaRel(1, 1) = "{@Empresa}"
        FormulaRel(2, 1) = sEmpresa
        FormulaRel(1, 2) = "{@titulo}"
        FormulaRel(2, 2) = sTexto
        FormulaRel(1, 3) = "{@NomeCampo01}"
        FormulaRel(2, 3) = sCampo05
        FormulaRel(1, 4) = "{@NomeCampo02}"
        FormulaRel(2, 4) = "Conjunto"
        FormulaRel(1, 5) = "{@NomeCampo03}"
        FormulaRel(2, 5) = "Módulo"
        FormulaRel(1, 6) = "{@NomeCampo04}"
        FormulaRel(2, 6) = "Lado"
        FormulaRel(1, 7) = "{@NomeCampo06}"
        FormulaRel(2, 7) = "Face"
        FormulaRel(1, 8) = "{@NomeCampo07}"
        FormulaRel(2, 8) = "Nível"
        FormulaRel(1, 9) = "{@NomeCampo08}"
        FormulaRel(2, 9) = sCampo02
        FormulaRel(1, 10) = "{@NomeCampo09}"
        FormulaRel(2, 10) = sCampo17
        FormulaRel(1, 11) = "{@campo01}"
        FormulaRel(2, 11) = "'campo05'"
        FormulaRel(1, 12) = "{@campo02}"
        FormulaRel(2, 12) = "'Conjunto'"
        FormulaRel(1, 13) = "{@campo03}"
        FormulaRel(2, 13) = "'Modulo'"
        FormulaRel(1, 14) = "{@campo04}"
        FormulaRel(2, 14) = "'Lado'"
        FormulaRel(1, 15) = "{@campo06}"
        FormulaRel(2, 15) = "'Face'"
        FormulaRel(1, 16) = "{@campo07}"
        FormulaRel(2, 16) = "'Nivel'"
        FormulaRel(1, 17) = "{@campo08}"
        FormulaRel(2, 17) = "'campo02'"
        FormulaRel(1, 18) = "{@campo09}"
        FormulaRel(2, 18) = "'campo17'"
       
        Telos_Preview.crPreview_Report App.Path & "ReportsGenerico8.rpt", CONNECTION_STRING, sSql1, , "Relatórios de Usuários"

Ja tente de várias formas :

ex.:

Mrbytes, boa tarde..

 

          Campo05, seria uma campo do sql ?

          Sendo um campo e voce executando a instrução no sql, não rs.campo5, sem aspas ?

          Se o sql esta sendo executado dentro do crystal não seria apenas o nome do campo ?

 

          A tentativa foi de ajudar..

Mrbytes,

Acho que o problema é que voce deve escrever o nome da tabela ponto nome do campo, assim: {Tabela.Campo}. Quando uso desta forma funciona perfeitamente. Isso se voce quer mandar o nome do campo para dentro da formula, ou seja, naquele local da formula irá aparecer o conteudo do campo em tempo de execução, é isso?

 

Susana

Concordo.

Obrigado pela ajuda.

 

Consegui resolver o problema.

 

abraços