Contratos Usuarios detalle

Contratos/ContratoObra.aspx.vb

@@ -2299,7 +2299,7 @@ Partial Class Contratos_ContratoObra
 
             If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then
                 e.Row.CssClass = "Totales white"
-            ElseIf e.Row.DBCampo("CvePS").ToString.ToEntero = 0 Then
+            ElseIf e.Row.DBCampo("CveContratoDetalle").ToString.Length = 0 And e.Row.DBCampo("CveClasificacion").ToString.ToEntero <> 0 Then
                 e.Row.CssClass = "SubTotales"
             End If
 
@@ -2313,10 +2313,13 @@ Partial Class Contratos_ContratoObra
 
         End If
     End Sub
+
     Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs)
 
         Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
 
+        GvDatosVentasAvance.Visible = True
+        GvDatosVentasAvanceInterno.Visible = False
 
         'Dim Btn = CType(sender, LinkButton)
         'Dim Parametros = Btn.CommandArgument.Split("|"c)
@@ -2347,6 +2350,43 @@ Partial Class Contratos_ContratoObra
         UpVentasAvance.Update()
 
     End Sub
+
+
+    Protected Sub MuestaModalVentasAvanceInterno(sender As Object, e As EventArgs)
+
+        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 ObjContratos As New ClsContratos
+
+        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 2) Then
+            GvDatosVentasAvanceInterno.DataSource = ObjContratos.DtResultados
+            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()
+
+        LbTituloModalVentasAvance.Text = "Compras de Avance"
+
+        LbClasificacionVentasAvance.Text = Clasificacion
+        LbPSVentasAvance.Text = CodigoPS
+
+        UpVentasAvance.Update()
+
+    End Sub
+
 #End Region
 
 #Region "  TAB: REPORTE AVANCES POR DOCUMENTO "