From 7d3992236d9af58c71f33742f66c083889aa20f5 Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Wed, 18 Nov 2020 20:38:28 -0700
Subject: [PATCH] Contratos Modal avance, contrato  activa PermitirEstimacion  
 al activa  PermitirAvance

---
 App_Code/ClsContratos.vb       | 23 +++++++++++++++++++++
 Contratos/ContratoObra.aspx    |  8 ++++++--
 Contratos/ContratoObra.aspx.vb | 37 ++++++++++++++++++++++------------
 3 files changed, 53 insertions(+), 15 deletions(-)

diff --git a/App_Code/ClsContratos.vb b/App_Code/ClsContratos.vb
index b2c5eeae1..fb7ca7697 100644
--- a/App_Code/ClsContratos.vb
+++ b/App_Code/ClsContratos.vb
@@ -2325,6 +2325,29 @@ Public Class ClsContratos
         End With
 
 
+        Try
+            SqlAdapter.Fill(Data)
+            Retorno = True
+        Catch ex As Exception
+            OnError("Ocurrió un error al obtener el Reporte de Avances Detalle CP.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+        End Try
+
+        Return Retorno
+    End Function
+
+    Public Function GetVentasAvanceObra(CveContrato As Integer, CveClasificacion As Integer, CvePS As Integer, Tipo As Integer) As Boolean
+        Dim Retorno As Boolean = False
+
+        DataAdapter("PA_Con_RepVentasAvancesObra")
+
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveContrato", SqlDbType.Int).Value = CveContrato
+            .Add("@CveClasificacion", SqlDbType.Int).Value = CveClasificacion
+            .Add("@CvePS", SqlDbType.Int).Value = CvePS
+            .Add("@Tipo", SqlDbType.Int).Value = Tipo
+        End With
+
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
diff --git a/Contratos/ContratoObra.aspx b/Contratos/ContratoObra.aspx
index f10309fc8..9bdb71224 100644
--- a/Contratos/ContratoObra.aspx
+++ b/Contratos/ContratoObra.aspx
@@ -1563,7 +1563,9 @@
                                                             </table>
                                                         </div>
 
-                                                            <asp:GridView ID="GvDatosAvance" 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">
+                                                            <asp:GridView ID="GvDatosAvance" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" 
+                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion"
+                                                                CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
 
@@ -1633,7 +1635,9 @@
                                                             </table>
                                                         </div>
 
-                                                            <asp:GridView ID="GvDatosAvanceControl" 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">
+                                                            <asp:GridView ID="GvDatosAvanceControl" ClientIDMode="Static" runat="server" AutoGenerateColumns="false" EmptyDataText="No se encontraron datos con los filtros especificados" 
+                                                                DataKeyNames="CveClasificacion,CvePS,CodigoPS,Clasificacion"
+                                                                CssClass="table table-striped table-hover Widthall" BorderColor="#D3D3D3" GridLines="None">
                                                                 <Columns>
                                                                     <asp:BoundField HeaderText="Producto/Servicio" DataField="CodigoPS" ItemStyle-Width="30%" />
 
diff --git a/Contratos/ContratoObra.aspx.vb b/Contratos/ContratoObra.aspx.vb
index b30b3974f..de67258e1 100644
--- a/Contratos/ContratoObra.aspx.vb
+++ b/Contratos/ContratoObra.aspx.vb
@@ -2656,7 +2656,8 @@ Partial Class Contratos_ContratoObra
     End Sub
 
 
-    Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound
+    Protected Sub GvDatosAvanceControl_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvDatosAvanceControl.RowDataBound
+
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If e.Row.DBCampo("CveClasificacion").ToString.ToEntero = 0 Then
@@ -2675,26 +2676,36 @@ Partial Class Contratos_ContratoObra
 
         End If
     End Sub
-    Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs)
-        Dim Btn = CType(sender, LinkButton)
-        Dim Parametros = Btn.CommandArgument.Split("|"c)
-
+    Protected Sub MuestaModalVentasAvance(sender As Object, e As EventArgs)
+
+        Dim GvRow As GridViewRow = CType(((CType(sender, LinkButton)).NamingContainer), GridViewRow)
+
+
+        'Dim Btn = CType(sender, LinkButton)
+        'Dim Parametros = Btn.CommandArgument.Split("|"c)
+
+
+        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.GetVentasAvance(CveContrato, If(Parametros(0).ToEntero > 0, Parametros(0).ToEntero, -1), If(Parametros(2).ToEntero > 0, Parametros(2).ToEntero, -1), If(Parametros(4).ToEntero > 0, Parametros(4).ToEntero, -1)) Then
+        If ObjContratos.GetVentasAvanceObra(CveContrato, CveClasificacion, CvePS, 1) Then
             GvDatosVentasAvance.DataSource = ObjContratos.DtResultados
             RegistraScript("$('#ModalVentasAvance').modal('show');RecargaAvances = true;")
         Else
-            Alert("Ocurrió un error al obtener el Listado de Ventas/Remisiones de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
+            Alert("Ocurrió un error al obtener el Listado de Ventas de Avance. Por favor vuelva a intentar", TipoMensaje.MsgError)
         End If
 
         ObjContratos.Dispose()
-        GvDatosVentasAvance.DataBind()
-
-
-        LbTituloModalVentasAvance.Text = If(Parametros(4).ToEntero = 1, "Ventas de Avance", "Remisiones de Avance")
-        LbClasificacionVentasAvance.Text = Parametros(1)
-        LbPSVentasAvance.Text = If(Parametros(2).ToEntero > 0, Parametros(3), "")
+        GvDatosVentasAvance.DataBind()
+
+        LbTituloModalVentasAvance.Text = "Ventas de Avance"
+
+        LbClasificacionVentasAvance.Text = Clasificacion
+        LbPSVentasAvance.Text = CodigoPS
 
         UpVentasAvance.Update()