From d0d10e1337ec2c63a8dedb238f135f0afc5cad0b Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 10 Oct 2023 20:55:56 -0700
Subject: [PATCH] option explicit

---
 Contabilidad/PopUpAuxiliar.aspx.vb | 22 ++++++----------------
 1 file changed, 6 insertions(+), 16 deletions(-)

diff --git a/Contabilidad/PopUpAuxiliar.aspx.vb b/Contabilidad/PopUpAuxiliar.aspx.vb
index fbd595cef..02ec5fce4 100644
--- a/Contabilidad/PopUpAuxiliar.aspx.vb
+++ b/Contabilidad/PopUpAuxiliar.aspx.vb
@@ -177,16 +177,6 @@ Partial Class PopUpAuxiliar
                 e.Row.Cells(7).Visible = False
                 e.Row.Cells(8).Visible = False
                 e.Row.Cells(12).Visible = False
-                'ElseIf e.Row.RowIndex = 1 Then
-                '    e.Row.Cells(0).Width = Unit.Pixel(95)
-                '    e.Row.Cells(1).Width = Unit.Pixel(180)
-                '    e.Row.Cells(2).Width = Unit.Pixel(80)
-                '    e.Row.Cells(3).Width = Unit.Pixel(80)
-                '    e.Row.Cells(4).Width = Unit.Pixel(83)
-                '    e.Row.Cells(5).Width = Unit.Pixel(93)
-                '    e.Row.Cells(6).Width = Unit.Pixel(85)
-                '    e.Row.Cells(7).Width = Unit.Pixel(95)
-                '    e.Row.Cells(8).Width = Unit.Pixel(70)
             End If
 
             e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
@@ -274,10 +264,10 @@ Partial Class PopUpAuxiliar
         Dim Conta As New ClsContabilidad()
         Conta.IniciaTransacSQL()
 
-        Dim ClavePrePoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero
-        Dim IdPoliza = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero
+        Dim ClavePrePoliza As Integer = GVAuxiliar.Rows(e.RowIndex).DataKey("CvePrePolizaOriginal").ToEntero
+        Dim IdPoliza As Integer = GVAuxiliar.Rows(e.RowIndex).DataKey("IdPoliza").ToEntero
 
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         If Not Conta.UpdatePrePolizasDetalleBloquear(ClavePrePoliza, False) Then
             TieneError = True
@@ -460,7 +450,7 @@ Partial Class PopUpAuxiliar
         If e.CommandName = "DesAplicar" Then
 
             Dim CvePrePoliza, CveVenta, CveVentaAmortizacion As Integer
-            Dim TieneError = False
+            Dim TieneError As Boolean = False
 
             Dim St As String() = e.CommandArgument.ToString.Split("|"c)
             If St.Length > 0 Then
@@ -495,7 +485,7 @@ Partial Class PopUpAuxiliar
         If e.CommandName = "DesAplicarCompra" Then
 
             Dim CvePrePoliza, CveCompra, CveCompraAmortizacion As Integer
-            Dim TieneError = False
+            Dim TieneError As Boolean = False
 
             Dim St As String() = e.CommandArgument.ToString.Split("|"c)
             If St.Length > 0 Then
@@ -530,7 +520,7 @@ Partial Class PopUpAuxiliar
         If e.CommandName = "DesAplicarAnticipoCompra" Then
 
             Dim CvePrePoliza, CveCompra, CveIE As Integer
-            Dim TieneError = False
+            Dim TieneError As Boolean = False
 
             Dim St As String() = e.CommandArgument.ToString.Split("|"c)
             If St.Length > 0 Then