Crystal Report - Ayuda con parámetro ...

 
Vista:

Ayuda con parámetro ...

Publicado por zuneo (4 intervenciones) el 13/10/2011 01:16:29
Amigos gracias de antemano;
Lo que trato de hacer es sacar de 3 tablas (empleados, pagos y descuentos), los datos para un empleado específico.

Para ello cree un dataset con las tres tablas mencionadas y les definí un parámetro a cada una llamado Pidempleado.

Cree una clase y luego programe en un form un combobox para tomar el valor del empleado y sacar los datos solo de ese empleado.
El problema es que me saca los datos de todos los empleados, no hace el filtro que pretendo…
Agradezco mucho a quien me pueda ayudar a encontrar mi error.

´Clase creada que recibe el parámetro definido en cada tabla del tableadapter del dataset:

Public Shared Function GetNomina(ByVal PIdEmpleado As Integer) As DSNomina

Dim ds As New DSNomina()
Dim TAEmpleados As New DSNominaTableAdapters.EmpleadosTableAdapter()
Dim TAPagos As New DSNominaTableAdapters.PagosTableAdapter()
Dim TADescuentos As New DSNominaTableAdapters.DescuentosTableAdapter()
Try
TAEmpleados.Fill(ds.Empleados, PIdEmpleado)
TAPagos.Fill(ds.Pagos, PIdEmpleado)
TADescuentos.Fill(ds.Descuentos, PIdEmpleado)
Return ds
Catch ex As Exception
Return Nothing

End Try
End Function

`Programación en botón de form que tiene un combobox:

Private Sub BtomInfo_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtomInfo.Click
Dim iIDEmple As Integer = CType(CBoxEmpleados.SelectedValue, Integer)
Dim ds As DSNomina = ClassNomina.GetNomina(iIDEmple)
Dim frm As New FrmNomina1()
frm.CargarPlanilla(ds)
frm.Text = "Nomina Pay Manager " & iIDEmple.ToString()
frm.Show()
End Sub

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder