Merge branch 'master' of http://192.168.10.111:8383/SIG

App_Code/ClsContratos.vb

@@ -2335,6 +2335,29 @@ Public Class ClsContratos
         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
+        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 GetContratosAvancePorDocumento(CveContrato As Integer, TipoDocto As String, CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
 

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%" />
 

Contratos/ContratoObra.aspx.vb

@@ -2657,6 +2657,7 @@ Partial Class Contratos_ContratoObra
 
 
     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
@@ -2676,25 +2677,35 @@ 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)
+        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 = "Ventas de Avance"
 
-        LbTituloModalVentasAvance.Text = If(Parametros(4).ToEntero = 1, "Ventas de Avance", "Remisiones de Avance")
+        LbClasificacionVentasAvance.Text = Clasificacion
-        LbClasificacionVentasAvance.Text = Parametros(1)
+        LbPSVentasAvance.Text = CodigoPS
-        LbPSVentasAvance.Text = If(Parametros(2).ToEntero > 0, Parametros(3), "")
 
         UpVentasAvance.Update()