diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index a8235bf19..83a20daf6 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -2507,7 +2507,7 @@ Public Class ClsContratos
         Return Retorno
     End Function
 
-    Public Function GetVentasAvanceObra(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer) As Boolean
+    Public Function GetVentasAvanceObra(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer, CveRubro As Integer, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 
         DataAdapter("PA_Con_RepVentasAvancesObra")
@@ -2517,6 +2517,9 @@ Public Class ClsContratos
             .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
             .Add("@CvePS", SqlDbType.Int).Value = CvePS
             .Add("@Tipo", SqlDbType.Int).Value = Tipo
+            .Add("@CveRubro", SqlDbType.Int).Value = CveRubro
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+
         End With
 
 
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index bea7e596d..416c1b002 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -1357,7 +1357,7 @@
                                                         </div>
 
                                                             <asp:GridView ID="GvDatosAvanceControl" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" 
-                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion,CveContratoDetalle"
+                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion,CveContratoDetalle,CveRubro"
                                                                 CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
@@ -2406,6 +2406,27 @@
                                             </Columns>
                                         </asp:GridView>
 
+                                         <asp:GridView ID="GvDatosVentasAvanceInternoRH" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                            <Columns>
+                                                <asp:BoundField HeaderText="Actividad"  DataField="Actividad"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Nombre"  DataField="NombreCompleto"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Fecha"  DataField="Fecha"   DataFormatString="{0:d}"   ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Puesto"  DataField="Puesto"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Total"  DataField="Total"    ItemStyle-CssClass="Texto Derecha"  DataFormatString={0:N}  />                                                
+                                            </Columns>
+                                        </asp:GridView>
+
+
+
+                                         <asp:GridView ID="GvDatosVentasAvanceInternoMaquinaria" Visible="false" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
+                                            <Columns>
+                                                <asp:BoundField HeaderText="SubTipoActivoFijo"  DataField="SubTipoActivoFijo"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Descripción"     DataField="Descripcion"    ItemStyle-CssClass="Texto Izquierda"   />
+                                                <asp:BoundField HeaderText="Horas"      DataField="Horas"      ItemStyle-CssClass="Texto Izquierda"   />                                                
+                                                <asp:BoundField HeaderText="Importe"      DataField="Total"    ItemStyle-CssClass="Texto Derecha"  DataFormatString={0:N}  />                                                
+                                            </Columns>
+                                        </asp:GridView>
+
                                     </div>
 
                                 </ContentTemplate>
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index 3b045b946..c768e35c3 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2372,6 +2372,8 @@ Partial Class Contratos_ContratoObra
 
         GvDatosVentasAvance.Visible = True
         GvDatosVentasAvanceInterno.Visible = False
+        GvDatosVentasAvanceInternoRH.Visible = False
+        GvDatosVentasAvanceInternoMaquinaria.Visible = False
 
         'Dim Btn = CType(sender, LinkButton)
         'Dim Parametros = Btn.CommandArgument.Split("|"c)
@@ -2384,7 +2386,7 @@ Partial Class Contratos_ContratoObra
 
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1) Then
+        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1, -1, UsuarioActual.CveEmpresa) Then
             GvDatosVentasAvance.DataSource = ObjContratos.DtResultados
             RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
         Else
@@ -2409,26 +2411,68 @@ Partial Class Contratos_ContratoObra
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
 
 
-        GvDatosVentasAvance.Visible = False
-        GvDatosVentasAvanceInterno.Visible = True
+
 
 
         Dim CveClasificacion As Integer = GvRow.DataKey("CveClasificacion").ToEntero
         Dim CvePS As Integer = GvRow.DataKey("CvePS").ToEntero
         Dim CodigoPS As String = GvRow.DataKey("CodigoPS")
         Dim Clasificacion As String = GvRow.DataKey("Clasificacion")
+        Dim CveRubro As Integer = GvRow.DataKey("CveRubro").ToEntero
+
+
+
+
+        GvDatosVentasAvance.Visible = False
+
+        If CveRubro = 3 Then
+            GvDatosVentasAvanceInterno.Visible = False
+            GvDatosVentasAvanceInternoRH.Visible = True
+            GvDatosVentasAvanceInternoMaquinaria.Visible = False
+        ElseIf CveRubro = 4 Then
+            GvDatosVentasAvanceInterno.Visible = False
+            GvDatosVentasAvanceInternoRH.Visible = False
+            GvDatosVentasAvanceInternoMaquinaria.Visible = True
+        Else
+            GvDatosVentasAvanceInterno.Visible = True
+            GvDatosVentasAvanceInternoRH.Visible = False
+            GvDatosVentasAvanceInternoMaquinaria.Visible = False
+        End If
+
+
+        GvDatosVentasAvanceInterno.Visible = True
 
         Dim ObjContratos As New ClsContratos
 
-        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2) Then
-            GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2, CveRubro, UsuarioActual.CveEmpresa) Then
+
+
+
+
+            If CveRubro = 3 Then
+                GvDatosVentasAvanceInternoRH.DataSource = ObjContratos.DtResultados
+            ElseIf CveRubro = 4 Then
+                GvDatosVentasAvanceInternoMaquinaria.DataSource = ObjContratos.DtResultados
+            Else
+                GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+            End If
+
+
             RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
         Else
             Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
         End If
 
-        ObjContratos.Dispose()
-        GvDatosVentasAvanceInterno.DataBind()
+        ObjContratos.Dispose()
+
+        If CveRubro = 3 Then
+            GvDatosVentasAvanceInternoRH.DataBind()
+        ElseIf CveRubro = 4 Then
+            GvDatosVentasAvanceInternoMaquinaria.DataBind()
+        Else
+            GvDatosVentasAvanceInterno.DataBind()
+        End If
+
 
         LbTituloModalVentasAvance.Text = "Compras de Avance"