Visual Basic.NET - informe

 
Vista:

informe

Publicado por efrain (20 intervenciones) el 13/08/2007 14:52:27
Buenas foro

Nesecito ayuda: Tengo tres tablas en sql

Costos
Paciente
Tratamiento

Esta relacionadas, de la tabla tratamiento tengo un reporte que me suma los costo por paciente y por hoja.

Pero me sigue sumando todas las cuentas y las necesito por separado para cada paciente, ya que un paciente puede tener varios tratamiento y no necesito imprimir las cuentas que ya fueron impresas.
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
sin imagen de perfil

RE:informe

Publicado por P. J. (706 intervenciones) el 13/08/2007 16:48:35
Creo que debe ser error de tu consulta, si quiera pon tu consulta o no se algo donde se te pueda ayudar. -.-'
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:informe

Publicado por efrain (20 intervenciones) el 13/08/2007 17:17:06
consulta sql

SELECT dbo.TBLPACIENTES.NOMBRES, dbo.TBLPACIENTES.APELLIDOS, dbo.TBLPACIENTES.TIPO_DOCUMENTO,
dbo.TBLPACIENTES.NUMERO_DOCUMENTO, dbo.TBLCUENTAS_HONORARIOS.ORDEN_SERVICIOS,
dbo.TBLCUENTAS_HONORARIOS.CANTIDAD_HONORARIOS, dbo.TBLCUENTAS_HONORARIOS.VALOR_UNITARIO,
dbo.TBLCUENTAS_HONORARIOS.VALOR_TOTAL, dbo.TBLHONORARIOS.CODIGO_HONORARIOS, dbo.TBLHONORARIOS.NOMBRE_HONORARIOS,
dbo.TBLCUENTAS_HONORARIOS.FINAL_TRATAMIENTO
FROM dbo.TBLCUENTAS_HONORARIOS INNER JOIN
dbo.TBLPACIENTES ON dbo.TBLCUENTAS_HONORARIOS.NUMERO_DOCUMENTO = dbo.TBLPACIENTES.NUMERO_DOCUMENTO INNER JOIN
dbo.TBLHONORARIOS ON dbo.TBLCUENTAS_HONORARIOS.CODIGO_HONORARIOS = dbo.TBLHONORARIOS.CODIGO_HONORARIOS

vb .net

Public Function consultarhonorarios() As DataSet
Dim CNCONEXION As SqlClient.SqlConnection
Dim objdato As SqlClient.SqlDataAdapter
Dim objdatoset As New DataSet

Dim STRSQL As String
Try
CNCONEXION = New SqlClient.SqlConnection("integrated security=SSPI;data source=COMPUTADOR7;persist security info=False;initial catalog=CONSULTORIO")
CNCONEXION.Open()
STRSQL = "select*, nombre_honorarios,VALOR_HONORARIOS from vista_honorarios"
objdato = New SqlClient.SqlDataAdapter(STRSQL, CNCONEXION)
objdato.Fill(objdatoset)
STRCODIGO_HONORARIOS = objdatoset.Tables(0).Rows(0).Item("CODIGO_HONORARIOS")
' STRVALOR_UNITARIO = objdatoset.Tables(0).Rows(1).Item("valor_honorarios")
Return objdatoset

Catch ex As Exception
Throw ex
Finally
CNCONEXION.Close()
End Try
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar