Un problema con VB6 y DataReport

[juandedios]

Hola, el problema es el siguiente:

Tengo un modulo donde e puesto el siguiente código:

Código PHP:

  Public Sub ShowReportTransferencias(dTienda As String, dReport As DataReport, fInicio As DTPicker, fFinal As DTPicker) 
    Dim StrSql As String 
    Dim rsSRT As ADODB.Recordset 
     
    StrSql = "DROP VIEW IF EXISTS transfer1" 
    cnTMySQL.Execute StrSql 
     
    StrSql = "CREATE VIEW transfer1 AS " & _ 
             "SELECT A.env_code, A.env_fecha, A.env_origen, B.tie_name, A.env_total, A.env_numrumani, A.env_numguia " & _ 
             "FROM transfenvios A, tiendas B " & _ 
             "WHERE A.env_origen = '" & dTienda & "' " & _ 
             "AND A.env_destino = B.tie_code " & _ 
             "AND env_fecha BETWEEN '" & Format(fInicio.Value, "yyyy-mm-dd") & "' AND '" & Format(fFinal.Value, "yyyy-mm-dd") & "'" 
    cnTMySQL.Execute StrSql 
     
    dReport.Refresh 
End Sub  
   

Y lo llamo haciendo click en un boton de un formulario asi:

Código PHP:

  Private Sub cmdVisualizar_Click() 
    Call ShowReportTransferencias(dtcTiendas.BoundText, dtrTransfer1, dtpInicio, dtpFinal) 
 
    dtrTransfer1.Show 
    dtrTransfer1.Sections("Sección2").Controls("lblTitulo").Caption = "REPORTE GENERAL DE TRANSFERENCIA DESDE " & dtcTiendas.Text & " DEL " & dtpInicio.Value & " AL " & dtpFinal.Value 
End Sub  
   

Cuando al segundo bloque de codigo le quito la ultima linea, el reporte muestra lo que yo quiero, pero si le dejo la ultima linea el reporte me muestra otra cosa.

Que cosa podria estar mal, por favor denme una mano.

Gracias.

[Avellaneda]

Hola,

Pienso que es porque estás llamando al DataReport antes de cargar los datos de la Sección2. Prueba a ponerlo así:

Código:

dtrTransfer1.Sections("Sección2").Controls("lblTitulo").Caption = "REPORTE GENERAL DE TRANSFERENCIA DESDE " & dtcTiendas.Text & " DEL " & dtpInicio.Value & " AL " & dtpFinal.Value 
dtrTransfer1.Show 
End Sub

Un saludo

[juandedios]

tambien probe con eso, y lo que sale en el reporte no es lo que deberia salir, si le saco esa linea de codigo si funciona bien.

[Avellaneda]

Quizá te falta anteponer la propiedad Item al control:

dtrTransfer1.Sections("Sección2").Controls.Item("lblTitulo").Caption = "REPORTE GENERAL DE TRANSFERENCIA DESDE " & dtcTiendas.Text & " DEL " & dtpInicio.Value & " AL " & dtpFinal.Value

[juandedios]

Lo puse y ahora el reporte devuelve lo que quiero, pero el contenido del lblTitulo no aparece por ningun lado