Les cuento, uso Linux Ubuntu 13.10, Gambas3.5.2, componente gb.gui, los de datos y reportes;;;
he cargado una imagen para que vean que del formulario tomo unos datos para incluirlos en el reporte y hacer los filtros para montar los registros, pero sucede que el reporte me muestra los datos y al consultar cualquier otro y pedir el reporte siempre me mostrará los datos de la primera consulta, es decir para ver el mismo reporte pero con datos diferentes debo salir completamente del sistema y volver a entrar.
Alguien me puede ayudar????
aqui les dejo el código
' gambas class file
''Software Desarrollado por Palacios Systems
''Control de Presupuesto de Gastos, Sector Público Venezuela
''Contacto: / 0416-1738065
''Portal Web: www.palaciossystems.com /
Public Tconn As Connection
Public Hresult As Result
Public RHBox As ReportHBox
Public xcodigo As ReportLabel
Public xnombre As ReportLabel
Public Sub _new()
Tconn = New Connection
Tconn.Host = FMain.Tconn.Host
Tconn.Type = FMain.Tconn.Type
Tconn.Name = FMain.Tconn.Name
Tconn.Open
ReportLabel3.Text = Trim(lcontra_selec.xcod_lc_pselec)
ReportLabel3.Alignment = Align.Left
ReportLabel4.Text = " | Periodo: " & Trim(FMain.xnom_prd)
ReportLabel3.Width = "40mm"
ReportLabel3.Height = "7mm"
ReportLabel4.Width = "120mm"
ReportLabel4.Height = "7mm"
ReportLabel4.Height = "8mm"
ReportLabel4.Width = "200mm"
ReportLabel6.Height = "7mm"
ReportLabel6.Width = "200mm"
ReportLabel6.Text = "Denominación: " & Trim(lcontra_selec.xnom_lc_pselec)
ReportHBox5.Height = "21mm"
ReportHBox5.width = "200mm"
ReportLabel7.Width = "200mm"
ReportLabel7.Text = "Descripción: " & Trim(lcontra_selec.xdes_lc_pselec)
ReportHBox6.Height = "8mm"
ReportHBox6.Width = "200mm"
ReportLabel6.Height = "7mm"
ReportLabel8.Width = "200mm"
ReportLabel8.Text = "Modalidad de Selección: " & Trim(lcontra_selec.xmod_lc_pselec)
Hresult = Tconn.Exec("select codigo, nombre from t_bop")
If Hresult.Count > 0 Then
For Each Hresult
RHBox = New ReportHBox(RClone)
RHBox.Height = "21mm"
xcodigo = New ReportLabel(RHBox)
xcodigo.Width = "40mm"
xcodigo.Alignment = Align.Center
xcodigo.Text = Trim(Hresult!codigo)
xnombre = New ReportLabel(RHBox)
xnombre.Expand = True
xnombre.Height = "21mm"
xnombre.Alignment = Align.Left
xnombre.Text = Trim(Hresult!nombre) & gb.NewLine & gb.NewLine & "___________________________________________________________________________________"
Next
Endif
Report2.Refresh
End
Código de boton del llamado al reporte
xcod_lc_pselec = TextBox1.Text
xnom_lc_pselec = Trim(TextBox3.Text) & "| Fecha: " & Format$(TextBox2.Value, "dd-mm-yyyy")
xdes_lc_pselec = TextArea1.Text
xmod_lc_pselec = ComboBox3.Text
Report2.Refresh
Report2.Preview