Imports System.Data.SqlClient

Public Class clsRelatorios


    Public Function SelectEmpresaContatoEquipamentos() As SqlDataReader

        Dim clsbanco As New clsBanco
        Dim strsql As String

        strsql = "SELECT "
        strsql = strsql & "E.NOME_EMP"
        strsql = strsql & ",E.CONTATOFATUR_EMP"
        strsql = strsql & ",E.TELEFONEFATUR_EMP"
        strsql = strsql & ",P.NOME_PROD"
        strsql = strsql & ",(SELECT T.NOME_TIPO FROM TBL_TIPO AS T WHERE T.CODIGO_TIPO = PR.CODIGO_TIPO ) AS TIPO"
        strsql = strsql & " FROM  TBL_EMPRESA AS E "
        strsql = strsql & " INNER JOIN TBL_PROJETO AS PR"
        strsql = strsql & " ON E.CODIGO_EMP = PR.CODIGO_EMP"
        strsql = strsql & " INNER JOIN TBL_DETALHEPROJETO AS D"
        strsql = strsql & " ON D.CODIGO_PROJ = PR.CODIGO_PROJ"
        strsql = strsql & " INNER JOIN TBL_PRODUTO AS P"
        strsql = strsql & " ON P.CODIGO_PROD = D.CODIGO_PROD"
      
        Return clsbanco.RetornaDataReader(strsql.ToString)

    End Function


End Class
