Cambios BDH, ajuste y garantia

Acumuladores/CatFoliosGarantia.aspx.vb

@@ -1,6 +1,6 @@
 Imports System.Data
 Imports Extensiones
-
+Imports Microsoft.Reporting.WebForms
 
 Partial Class Acumuladores_CatFoliosGarantia
     Inherits ClsPaginas
@@ -41,10 +41,10 @@ Partial Class Acumuladores_CatFoliosGarantia
             CargadatosGvFolioGarantia(DdlEstatus.SelectedValue.ToEntero, DdlTipoFolio.SelectedValue)
         End If
 
-    End Sub
-
-
-
+    End Sub
+
+
+
 #Region "Folios Garantía"
     Private Sub CargaSubProyectos()
         CargarCentrosDeCosto(Nothing, DdlSubProyectos, Nothing, lblSubProyecto)
@@ -162,27 +162,22 @@ Partial Class Acumuladores_CatFoliosGarantia
 
     End Sub
 
-    Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
-
-        Dim objAcum As New ClsAcumuladores
+    Public Sub Remove_ClickFolioGarantia(sender As Object, e As EventArgs)
         Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
         Dim activo As Boolean = 0
         Dim CveCapacitador As Integer = GvRow.DataKey("CveFolioGarantia")
 
+        Dim objAcum As New ClsAcumuladores
         If objAcum.FoliosGarantiaRemove(CveCapacitador, UsuarioActual.CveEmpresa) Then
-            CargadatosGvFolioGarantia(-1, "-1")
-
             Alert("Capacitador Eliminó Correctamente ", TipoMensaje.MsgInformacion)
         Else
             Alert("Ocurrió un error al Eliminar el Folio de Garantía", TipoMensaje.MsgError)
         End If
-
         objAcum.Dispose()
 
         CargadatosGvFolioGarantia(-1, "-1")
 
         CveFolioGarantia = -1
-
     End Sub
 
     Public Sub Edit_ClickFolioGarantia(sender As Object, e As EventArgs)
@@ -263,9 +258,9 @@ Partial Class Acumuladores_CatFoliosGarantia
                 '1.- Consecutivo Partida-->1
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("Consecutivo"))
                 '2.- Cliente-->100407
-                SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoCliente"))
+                SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoSucursal"))
                 '3.	Codigo De Articulo --> 171402
-                SbTxt.AppendFormat("{0}@", GvRow.DataKey("Codigo"))
+                SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoProducto2"))
                 '4.	Tipo De Uso --> A
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoTipoUso"))
                 '5.	Defecto --> P
@@ -277,9 +272,9 @@ Partial Class Acumuladores_CatFoliosGarantia
                 '8.	Codigo De Inspeccion --> J8K
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("CodigoInspeccion"))
                 '9.	Fecha De Venta --> 05/09/2009
-                SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("dd/MM/yyyy"))
+                SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaVenta").ToDateTime().ToString("MM-dd-yyyyy"))
                 '10.	Fecha De Reclamacion --> 05/07/2010
-                SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("dd/MM/yyyy"))
+                SbTxt.AppendFormat("{0}@", GvRow.DataKey("FechaReclamacion").ToDateTime().ToString("MM-dd-yyyyy"))
                 '11.	TipoComprobante --> 1
                 SbTxt.AppendFormat("{0}@", GvRow.DataKey("TipoComprobante"))
                 '12.	Comprobante --> N/A
@@ -305,4 +300,10 @@ Partial Class Acumuladores_CatFoliosGarantia
         Response.End()
 
     End Sub
+
+    Protected Sub GvGarantiasDetalle_RowDataBound(sender As Object, e As GridViewRowEventArgs)
+        If e.Row.RowType = DataControlRowType.DataRow Then
+            e.Row.FCHyperLink("HlDescargarPDF").NavigateUrl = $"/Compras/PopUpVerFactura.aspx?P={Encripta($"OP=AJUSTE&CveGarantiaDetalle={e.Row.DBCampo("CveGarantiaDetalle")}")}"
+        End If
+    End Sub
 End Class