diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb
index 0ec2f8250..51bfb7927 100644
--- a/Compras/PopUpVerFactura.aspx.vb
+++ b/Compras/PopUpVerFactura.aspx.vb
@@ -96,7 +96,7 @@ Partial Class PopUpVerFactura
                 Dim CveEmpresaToken As Integer = UserParams("CVEEMPRESA").ToString().ToEntero()
                 Dim CveUsuario As Integer = IfNull(UserParams("CVEUSUARIO"), 100, UserParams("CVEUSUARIO").ToString().ToEntero()).ToString().ToEntero()
 
-                Dim UsuarioToken = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
+                Dim UsuarioToken As Usuario = ValidaUsuarioSistema(CveEmpresaToken, CveUsuario)
 
                 If UsuarioToken IsNot Nothing AndAlso Context.Session("UsuarioSIG") Is Nothing Then
                     Context.Session("UsuarioSIG") = UsuarioToken
@@ -319,7 +319,7 @@ Partial Class PopUpVerFactura
             cvePersonal = Request("cvePersonal").ToString.ToEntero()
         End If
         Dim RFCs As New StringBuilder
-        Dim contador = 0
+        Dim contador As Integer = 0
         Using objnom As New ClsNominas
             If objnom.PreNominaTotalSemana(numeroPeriodo, UsuarioActual.CveEmpresa, cveSubProyecto, cveTipoNomina, tipoTrabajador, ejercicio, facturado) Then
                 For Each item As DataRow In objnom.DtResultados.Select("CvePersonal > 0")
@@ -384,7 +384,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds2)
 
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "Formatos\RepAgroInventarioDiario.rdlc"
+        Dim rutardlc As String = "Formatos\RepAgroInventarioDiario.rdlc"
         If EnviarCorrreo Then
             Dim para As String = "caudillo.90d@gmail.com"
             Dim dtCorreos As DataTable = New DataTable()
@@ -537,7 +537,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
 
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim rutardlc = "Formatos\Agro\EmbarqueManifiesto.rdlc"
+        Dim rutardlc As String = "Formatos\Agro\EmbarqueManifiesto.rdlc"
         If Not IsNothing(tablaReporte.FiltroPrimero("TipoManifiesto=1")) Then
             rutardlc = "Formatos\Agro\EmbarqueManifiesto2.rdlc"
         End If
@@ -847,7 +847,7 @@ Partial Class PopUpVerFactura
         lrds.Add(rds)
         '"Empresas/Grales/Formatos/EquiposGPS.rdlc"
         '"D:\\ADSistemas\\Proyectos\\SIG\\SIGIT\\GPS\\PalletEtiqueta.rdlc"
-        Dim pdf = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
+        Dim pdf As Byte() = StreamPDF("Formatos\Agro\EmbarqueManifiestoCartaPorte.rdlc", lrds, params, "DatosCartaPorte")
 
         Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
         LSRutasMail.Add(New ClsSisMail.ArchivoMail With {.ArchivoBinario = pdf, .NombreArchivo = String.Format("{0}.pdf", "DatosCartaPorte")})
@@ -913,9 +913,9 @@ Partial Class PopUpVerFactura
 
 
         Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
+        Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
         Dim barcodebyte As Byte()
-        Using ms = New MemoryStream()
+        Using ms As New MemoryStream()
             img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
             barcodebyte = ms.ToArray()
         End Using
@@ -1021,9 +1021,9 @@ Partial Class PopUpVerFactura
 
 
         Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
+        Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTIN), 500, 200)
         Dim barcodebyte As Byte()
-        Using ms = New MemoryStream()
+        Using ms As New MemoryStream()
             img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
             barcodebyte = ms.ToArray()
         End Using
@@ -1035,14 +1035,12 @@ Partial Class PopUpVerFactura
         rds2.Value = dtqr
         lrds.Add(rds2)
         'endimg
-
-
         Dim dtqr2 As DataTable = dtqr.Clone()
 
         Dim bcode2 As New BarcodeLib.Barcode()
-        Dim img2 = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
+        Dim img2 As Drawing.Image = bcode2.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", GTINAll.Replace("(", "").Replace(")", "")), 900, 100)
         Dim barcodebyte2 As Byte()
-        Using ms = New MemoryStream()
+        Using ms As New MemoryStream()
             img2.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
             barcodebyte2 = ms.ToArray()
         End Using
@@ -1052,8 +1050,6 @@ Partial Class PopUpVerFactura
         Dim rds22 As New ReportDataSource With {.Name = "dsImagenesGTIN", .Value = dtqr2}
         lrds.Add(rds22)
 
-
-
         Dim rds As New ReportDataSource With {.Name = "DataSet1", .Value = tablaReporte}
         lrds.Add(rds)
 
@@ -1137,9 +1133,9 @@ Partial Class PopUpVerFactura
 
 
         Dim bcode As New BarcodeLib.Barcode()
-        Dim img = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
+        Dim img As Drawing.Image = bcode.Encode(BarcodeLib.TYPE.CODE128, String.Format("{0}", noPallet), 500, 100)
         Dim barcodebyte As Byte()
-        Using ms = New MemoryStream()
+        Using ms As New MemoryStream()
             img.Save(ms, System.Drawing.Imaging.ImageFormat.Png)
             barcodebyte = ms.ToArray()
         End Using
@@ -1171,8 +1167,8 @@ Partial Class PopUpVerFactura
         Dim ObjUsuarios As New ClsSisUsuarios
         If ObjUsuarios.GetUsuarios(CveUsuario) Then
             If ObjUsuarios.DtResultados.Rows.Count > 0 Then
-                Dim Usuario = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
-                Dim Contrasenia = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
+                Dim Usuario As String = ObjUsuarios.DtResultados.Rows(0)("Usuario").ToString()
+                Dim Contrasenia As String = ObjUsuarios.DtResultados.Rows(0)("Contraseña").ToString()
                 UsuarioToken = ObjUsuarios.ValidaUsuario(Usuario, Contrasenia, IMEI, CveEmpresa)
                 UsuarioToken.CveEmpresa = CveEmpresa
                 CreaObjetoEmpresa(UsuarioToken)
@@ -1557,10 +1553,9 @@ Partial Class PopUpVerFactura
         Dim ObjPuntoVenta As New ClsPuntoVenta
         Dim DtCortesVentasResumen As DataTable = Nothing
         Dim DtCortesVentas As DataTable = Nothing
-        Dim Fecha = "", Nombre = ""
+        Dim Fecha As String = "", Nombre As String = ""
         If ObjVenta.GetCortesDetalleVentasResumen(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
             DtCortesVentasResumen = ObjVenta.DtResultados
-
         End If
 
         If ObjPuntoVenta.GetCortesDetalleVentas(CveCorte, CveSubProyecto, UsuarioActual.CveEmpresa) Then
@@ -1967,7 +1962,7 @@ Partial Class PopUpVerFactura
                         XmlDoc.Load(PathXML)
 
                         Dim nodo As XmlNode = XmlDoc.DocumentElement
-                        Dim Version = ValorXML(nodo, "version")
+                        Dim Version As String = ValorXML(nodo, "version")
 
                         Dim namespaces As New XmlNamespaceManager(XmlDoc.NameTable)
                         Dim Prefijo As String = If(XmlDoc.DocumentElement.Prefix = "", "cfd", XmlDoc.DocumentElement.Prefix)
@@ -2122,7 +2117,7 @@ Partial Class PopUpVerFactura
     End Function
 
     Private Sub ImprimeFormatoCartaPorteTimbrado(CveTimbre As Integer)
-        Dim resp = PreParaImpresionCartaPorte(CveTimbre)
+        Dim resp As Modelos.MSubReportData = PreParaImpresionCartaPorte(CveTimbre)
         If resp.DataSources.Count > 0 AndAlso resp.Parametros.Count > 0 Then
             ImprimirPDF("Empresas/Grales/Formatos/CartaPorteTimbrado.rdlc", resp.DataSources, resp.Parametros, resp.SerieFolio)
         End If
@@ -2260,7 +2255,7 @@ Partial Class PopUpVerFactura
                         XMLDoc.Load(Path)
                     Catch ex As Exception
                         Try
-                            Dim oReader = New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
+                            Dim oReader As New StreamReader(Path, Encoding.GetEncoding("ISO-8859-1"))
                             XMLDoc.Load(oReader)
                             oReader.Dispose()
                         Catch ex2 As Exception
@@ -2277,7 +2272,7 @@ Partial Class PopUpVerFactura
                     Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
                     Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
                     Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
-                    Dim Version = ValorXML(XMLDoc.DocumentElement, "version")
+                    Dim Version As String = ValorXML(XMLDoc.DocumentElement, "version")
                     If Version = "3.3" Then
                         cfdVer = "http://www.sat.gob.mx/cfd/3"
                     Else ' se considera que es la version 4.0
@@ -2304,7 +2299,7 @@ Partial Class PopUpVerFactura
                     If nodeCliente IsNot Nothing Then
                         ClienteRFC = ValorXML(nodeCliente, "RFC")
                         ClienteNombre = ValorXML(nodeCliente, "Nombre")
-                        Dim UsoCFDI = ValorXML(nodeCliente, "UsoCFDI")
+                        Dim UsoCFDI As String = ValorXML(nodeCliente, "UsoCFDI")
                         ClienteUsoCFDi = String.Format("{0} - {1}", UsoCFDI, GlobalDTSATUsosCFDI().FiltroPrimeroValor("Descripcion", String.Format("UsoCFDI = '{0}'", UsoCFDI)))
                     End If
 
@@ -2391,9 +2386,9 @@ Partial Class PopUpVerFactura
 
                     Dim nodeMercanciaPadre As XmlNodeList = nodeComp.SelectNodes(String.Format("//{0}:Mercancias", "cartaporte20"), namespaces)
                     If UsuarioActual.CveEmpresa = 13 AndAlso nodeMercanciaPadre IsNot Nothing Then
-                        Dim PesoNetoTotal = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
-                        Dim UnidadPeso = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
-                        Dim NumTotalMercancias = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "")
+                        Dim PesoNetoTotal As String = ValorXML(nodeMercanciaPadre(0), "PesoNetoTotal", "")
+                        Dim UnidadPeso As String = ValorXML(nodeMercanciaPadre(0), "UnidadPeso", "")
+                        Dim NumTotalMercancias As String = ValorXML(nodeMercanciaPadre(0), "NumTotalMercancias", "")
 
                         params.Add(New ReportParameter("PesoNetoTotal", PesoNetoTotal))
                         params.Add(New ReportParameter("UnidadPeso", UnidadPeso))
@@ -2423,14 +2418,14 @@ Partial Class PopUpVerFactura
                         Row("RFC") = ValorXML(node, "RFCRemitenteDestinatario", "")
                         Row("Nombre") = ValorXML(node, "NombreRemitenteDestinatario", "")
 
-                        Dim nodeDomicilio = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
+                        Dim nodeDomicilio As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cartaporte20:Domicilio") 'node.SelectSingleNode(String.Format("//{0}:Domicilio", "cartaporte"), namespaces)
                         If nodeDomicilio IsNot Nothing Then
 
                             Dim Estado As String = ""
                             Dim Municipio As String = ""
                             Dim Colonia As String = ""
-                            Dim calle = ValorXML(nodeDomicilio, "Calle", "")
-                            Dim CP = ValorXML(nodeDomicilio, "CodigoPostal", "")
+                            Dim calle As String = ValorXML(nodeDomicilio, "Calle", "")
+                            Dim CP As String = ValorXML(nodeDomicilio, "CodigoPostal", "")
 
                             Dim dr As DataRow = GlobalDTGralColonias(ValorXML(nodeDomicilio, "Estado", ""), ValorXML(nodeDomicilio, "Municipio", ""), ValorXML(nodeDomicilio, "Colonia", "")).FiltroPrimero("")
                             If dr IsNot Nothing Then
@@ -2449,7 +2444,7 @@ Partial Class PopUpVerFactura
                         params.Add(New ReportParameter("DistanciaTotal", DistanciaTotal.ToString()))
                     End If
 
-                    Dim nodeRelacion = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+                    Dim nodeRelacion As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
 
                     If nodeRelacion IsNot Nothing Then
                         Dim RelacionCodigo As String = ValorXML(nodeRelacion, "TipoRelacion")
@@ -2474,17 +2469,16 @@ Partial Class PopUpVerFactura
                                 Relacion = "08 - Factura generada por pagos en parcialidades"
                             Case "09"
                                 Relacion = "09 - Factura generada por pagos diferidos"
-
                         End Select
 
-                        Dim nodoDocumentosRealcionados = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
-                        For Each node As XmlNode In nodoDocumentosRealcionados
+                        Dim nodoDocumentosRelacionados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:CfdiRelacionados", Prefijo), namespaces)
+                        For Each node As XmlNode In nodoDocumentosRelacionados
 
                             Dim nRow As DataRow = DTRelacionados.NewRow
                             nRow("Relacion") = Relacion
 
                             Try
-                                Dim nodoUUID = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
+                                Dim nodoUUID As XmlNode = node.ChildNodes.Cast(Of XmlNode).FirstOrDefault(Function(x) x.Name = "cfdi:CfdiRelacionado")
                                 nRow("UUID") = ValorXML(nodoUUID, "UUID", "")
                             Catch ex As Exception
                                 nRow("UUID") = ""
@@ -2724,7 +2718,7 @@ Partial Class PopUpVerFactura
         End Using
 
         If Folio > 0 AndAlso DtDetalle IsNot Nothing AndAlso DtDetalle.Rows.Count > 0 Then
-            Dim ObjFactura = New Modelos.Factura
+            Dim ObjFactura As New Modelos.Factura
             ObjFactura.Version = "3.3"
             ObjFactura.CveUsuario = UsuarioActual.CveUsuario
             ObjFactura.CveEmpresa = UsuarioActual.CveEmpresa
@@ -2934,12 +2928,12 @@ Partial Class PopUpVerFactura
         Dim PathArchivo As String = "" 'String.Format("{0}PDF\{1}\{2}.pdf", UsuarioActual.Empresa.Ruta, Vta.TipoDocto, Vta.SerieFolio)
 
 
-        Dim TmpDTImpuestos = New DataTable
+        Dim TmpDTImpuestos As New DataTable
         TmpDTImpuestos.Columns.Add("ImpuestoLocal", GetType(String))
         TmpDTImpuestos.Columns.Add("Importe", GetType(Double))
         TmpDTImpuestos.Columns.Add("Orden", GetType(Integer))
 
-        Dim TmpDTImpuestosIVAIEPS = New DataTable
+        Dim TmpDTImpuestosIVAIEPS As New DataTable
         TmpDTImpuestosIVAIEPS.Columns.Add("Impuesto", GetType(String))
         TmpDTImpuestosIVAIEPS.Columns.Add("tasa", GetType(String))
         TmpDTImpuestosIVAIEPS.Columns.Add("Importe", GetType(Double))
@@ -2962,7 +2956,7 @@ Partial Class PopUpVerFactura
                 'Vta.Subproyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SucursalModel)
                 Dim CveSubProyecto As Integer = dtVentas(0)("CveSubProyecto").ToString().ToEntero()
 
-                Dim DtSubProyecto = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
+                Dim DtSubProyecto As DataTable = GlobalDTSubProyectos(-1, CveSubProyecto:=CveSubProyecto, CveEmpresa:=dtVentas(0)("CveEmpresa").ToString().ToEntero())
 
                 Vta.SubProyecto = DtSubProyecto.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
                 'Vta.SubProyecto = ObjVentas.DtResultados.Rows(0).DataRowToObject(Of Modelos.SubProyectoModel)
@@ -3076,7 +3070,7 @@ Partial Class PopUpVerFactura
                     Dim dtImpuesto As DataTable = ObjVentas.DtResultados
                     If dtImpuesto.Rows.Count > 0 Then
                         For Each Row As DataRow In dtImpuesto.Rows
-                            Dim Orden = 80
+                            Dim Orden As Integer = 80
                             If Row("Importe").ToString.ToDouble <> 0 Then
                                 DR("ImpuestoLocal") = Row("ImpuestoLocal").ToString
                                 DR("Importe") = Row("Importe").ToString.ToDouble
@@ -3340,15 +3334,11 @@ Partial Class PopUpVerFactura
              Optional EsTransitorio As Boolean = False, Optional CveAlmacenRecepcion As Integer = -1, Optional CveAlmacenTransitorioRecepcion As Integer = -1, Optional FolioBusquedaTrasitorio As Integer = -1)
         Dim ObjInventarios As New ClsInventarios
 
-
-
-
-
         ObjInventarios.GetMovimientos(CveMovimiento, -1, -1, UsuarioActual.CveEmpresa)
 
         Dim CveConcepto As Integer = ObjInventarios.CveConcepto
         Dim Folio As String = ObjInventarios.Folio.ToString
-        Dim CveCompra = ObjInventarios.CveCompra
+        Dim CveCompra As Integer = ObjInventarios.CveCompra
         Dim Fecha As String = ObjInventarios.Fecha.ToShortDateString
         Dim FechaHora As DateTime = ObjInventarios.FechaHora
         Dim Almacen As String = ObjInventarios.Almacen
@@ -3439,8 +3429,6 @@ Partial Class PopUpVerFactura
             End If
         End If
 
-
-
         Dim CantidadProductos As Decimal = 0
         Dim CantidadUsados As Decimal = 0
 
@@ -3531,12 +3519,7 @@ Partial Class PopUpVerFactura
                     keys(0) = DtMovimientos.Columns("No")
                     DtMovimientos.PrimaryKey = keys
                 End If
-
             End If
-
-
-
-
         End If
 
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" AndAlso CveCompra > 0 Then
@@ -4282,8 +4265,8 @@ Partial Class PopUpVerFactura
                 Dim SBDireccionD As New StringBuilder()
                 Dim CveCliente As Integer = 0
                 Dim CveDireccionEnvio As Integer = 0
-                Dim ClienteNombre = "", EnvioContacto = "", EnvioDireccion = "", EnvioColonia = "", EnvioCiudad = "", EnvioEstado = "", ClientePais = "", EnvioCP = "", Contrato = "",
-                    Paqueteria = "", NumContrato = "", Guia = ""
+                Dim ClienteNombre As String = "", EnvioContacto As String = "", EnvioDireccion As String = "", EnvioColonia As String = "", EnvioCiudad As String = "", EnvioEstado As String = "", ClientePais As String = "", EnvioCP As String = "", Contrato As String = "",
+                    Paqueteria As String = "", NumContrato As String = "", Guia As String = ""
 
                 Dim CveContrato As Integer = 0
                 If DtMovimientos IsNot Nothing AndAlso DtMovimientos.Rows.Count > 0 Then
@@ -5449,7 +5432,7 @@ Partial Class PopUpVerFactura
     Private Sub GenerarPDFOS(CveOS As Integer)
         Dim ObjOS As New ClsOS()
         Dim params As New List(Of ReportParameter)
-        Dim CveFolio = ""
+        Dim CveFolio As String = ""
         CreaDT()
 
         Dim FIRutaReporte As New System.IO.FileInfo(String.Format("{0}Formatos/OrdenServicio.rdlc", UsuarioActual.Empresa.Ruta))
@@ -5716,7 +5699,7 @@ Partial Class PopUpVerFactura
 
         If UsuarioActual.CveEmpresa.Contiene(72) Then
             Dim SBDomicilioSucursal As New StringBuilder()
-            Dim DRSucursal = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
+            Dim DRSucursal As DataRow = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa, CveSubProyecto:=dr("CveSubProyecto").ToString.ToEntero, Estatus:=1).FiltroPrimero("")
 
             If DRSucursal IsNot Nothing Then
                 Dim CiudadSucursal As String = String.Format("{0},{1}", DRSucursal("Municipio"), DRSucursal("Estado"))
@@ -5866,21 +5849,21 @@ Partial Class PopUpVerFactura
         ObjVentas.Dispose()
 
         If drv IsNot Nothing Then
-            Dim Total = drv("Total").ToString().ToDecimal()
-            Dim CveEstatusFactura = drv("CveEstatusFactura").ToString().ToEntero()
-            Dim FolioFiscal = drv("FolioFiscal").ToString()
-            Dim RFCReceptor = drv("RFCReceptor").ToString()
-            Dim SelloCancelacion = drv("SelloCancelacion").ToString()
-            Dim SelloSolicitudCancelacion = drv("SelloSolicitudCancelacion").ToString()
-            Dim EstadoCancelacion = drv("EstadoCancelacion").ToString()
-            Dim FechaCancelacion = drv("FechaCancelacion").ToString.ToDateTime
+            Dim Total As Decimal = drv("Total").ToString().ToDecimal()
+            Dim CveEstatusFactura As Integer = drv("CveEstatusFactura").ToString().ToEntero()
+            Dim FolioFiscal As String = drv("FolioFiscal").ToString()
+            Dim RFCReceptor As String = drv("RFCReceptor").ToString()
+            Dim SelloCancelacion As String = drv("SelloCancelacion").ToString()
+            Dim SelloSolicitudCancelacion As String = drv("SelloSolicitudCancelacion").ToString()
+            Dim EstadoCancelacion As String = drv("EstadoCancelacion").ToString()
+            Dim FechaCancelacion As DateTime = drv("FechaCancelacion").ToString.ToDateTime
 
             Dim MotivoCancelacion As String = ""
             Dim FolioSustitucion As String = ""
 
             Dim DirectorioArchivo As String = "Empresas/Grales/Formatos/AcuseCancelacion.mrt"
 
-            Dim RFCEmisor = UsuarioActual.Empresa.RFC
+            Dim RFCEmisor As String = UsuarioActual.Empresa.RFC
 
             Dim Titulo As String = "Acuse de cancelación de CFDI"
             Dim EstadoCFDI As String = "Cancelado"
@@ -5906,9 +5889,9 @@ Partial Class PopUpVerFactura
 
                 Using ObjV As New ClsVentas
                     If ObjV.GetVentasPendientesCancelacion(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, CveVenta:=CveVenta) Then
-                        Dim RowCancelacion = ObjV.DtResultados.FiltroPrimero("")
+                        Dim RowCancelacion As DataRow = ObjV.DtResultados.FiltroPrimero("")
                         If RowCancelacion IsNot Nothing Then
-                            Dim CveMotivoCancelacion = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
+                            Dim CveMotivoCancelacion As Integer = RowCancelacion("CveMotivoCancelacion").ToString().ToEntero()
                             FolioSustitucion = RowCancelacion("FolioFiscalSustitucion").ToString()
 
                             If CveMotivoCancelacion > 0 Then
@@ -5954,7 +5937,7 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("MsgError", ""))
             params.Add(New ReportParameter("FechaCancelacion", FechaCancelacion.ToString("dd/MM/yyyy HH:mm:ss")))
 
-            Dim DtAcuse = New DataTable("DtAcuse")
+            Dim DtAcuse As New DataTable("DtAcuse")
             DtAcuse.Columns.Add(New DataColumn("FolioFiscal", GetType(String)))
             DtAcuse.Columns.Add(New DataColumn("Estatus", GetType(String)))
             DtAcuse.Columns.Add(New DataColumn("MotivoCancelacion", GetType(String)))
@@ -5962,7 +5945,7 @@ Partial Class PopUpVerFactura
 
             If CveEstatusFactura = 20 Then
 
-                Dim RowCFDI = DtAcuse.NewRow()
+                Dim RowCFDI As DataRow = DtAcuse.NewRow()
 
                 RowCFDI("FolioFiscal") = FolioFiscal
                 RowCFDI("Estatus") = "Solicitud de cancelación recibida"
@@ -6018,7 +6001,7 @@ Partial Class PopUpVerFactura
 #Region "I E   C H E Q U E S"
 
     Private Sub ImprimirIE(CveIE As Integer, CveEmpresa As Integer)
-        Dim CveTipoTransaccion = -1
+        Dim CveTipoTransaccion As Integer = -1
         Dim ObjIE As New ClsBancos()
         ObjIE.GetBancosIE(CveIE, UsuarioActual.CveEmpresa)
         If ObjIE.DtResultados.Rows.Count > 0 Then
@@ -6027,13 +6010,13 @@ Partial Class PopUpVerFactura
         Dim params As New List(Of ReportParameter)
 
         If CveTipoTransaccion = 1 Then
-            Dim Folio = ObjIE.Folio
-            Dim Importe = ObjIE.Importe
-            Dim Observacion = ObjIE.Observaciones
-            Dim ImporteLetra = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
-            Dim Beneficiario = ObjIE.PagueseA
-            Dim Fecha = ObjIE.FechaDocumento.ToShortDateString
-            Dim CveCuenta = ObjIE.CveCuenta
+            Dim Folio As String = ObjIE.Folio
+            Dim Importe As Double = ObjIE.Importe
+            Dim Observacion As String = ObjIE.Observaciones
+            Dim ImporteLetra As String = String.Format("--- {0} ---", Importe.Texto2Letras(ObjIE.CveMoneda))
+            Dim Beneficiario As String = ObjIE.PagueseA
+            Dim Fecha As String = ObjIE.FechaDocumento.ToShortDateString
+            Dim CveCuenta As Integer = ObjIE.CveCuenta
             params.Add(New ReportParameter("Fecha", Fecha))
             params.Add(New ReportParameter("Folio", Folio))
             params.Add(New ReportParameter("Beneficiario", Beneficiario))
@@ -6042,11 +6025,8 @@ Partial Class PopUpVerFactura
             params.Add(New ReportParameter("Observaciones", Observacion))
             params.Add(New ReportParameter("Tipo", If(ObjIE.EsAbonoEnCuenta, "PARA ABONO EN CUENTA DEL BENEFICIARIO", "")))
 
-
             If UsuarioActual.CveEmpresa.Contiene(141) Then
-
                 Dim InicialesUsuarioGenero As String = ""
-
                 Try
                     Dim NombreUsuarioRenero As String = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltroPrimeroValor("Nombre", $"CveUsuario ={ObjIE.CveUsuario}")
                     If NombreUsuarioRenero.Trim.Length > 0 Then
@@ -6055,7 +6035,6 @@ Partial Class PopUpVerFactura
                 Catch ex As Exception
 
                 End Try
-
                 params.Add(New ReportParameter("InicialesUsuarioGenero", InicialesUsuarioGenero))
 
             End If
@@ -6080,7 +6059,7 @@ Partial Class PopUpVerFactura
                     DtMovimientosPoliza.Columns.Add("Cargo", GetType(Double))
                     DtMovimientosPoliza.Columns.Add("Abono", GetType(Double))
 
-                    Dim Dr = DtMovimientosPoliza.NewRow
+                    Dim Dr As DataRow = DtMovimientosPoliza.NewRow
                     Dr("CODIGO") = ""
                     Dr("Cuenta") = ""
                     Dr("Cargo") = 0
@@ -6099,7 +6078,7 @@ Partial Class PopUpVerFactura
                     If ObjIE.DtResultados.Rows.Count > 0 Then
 
                         For Each drt As DataRow In ObjIE.DtResultados.Rows
-                            Dim Dr = DtMovimientosPoliza.NewRow
+                            Dim Dr As DataRow = DtMovimientosPoliza.NewRow
                             Dr("CODIGO") = drt("CuentaCodigo")
                             Dr("Cuenta") = drt("CuentaNombre")
                             Dr("Cargo") = If(drt("TipoMovto").ToString = "False", drt("ImporteMN"), "0")
@@ -6387,7 +6366,7 @@ Partial Class PopUpVerFactura
 
                     End If
 
-                    Dim rds = New ReportDataSource("DataSet1", dtMovs)
+                    Dim rds As New ReportDataSource("DataSet1", dtMovs)
                     reportDataSetsList.Add(rds)
 
                     Dim dtnc As New DataTable
@@ -6396,7 +6375,7 @@ Partial Class PopUpVerFactura
                         dtnc = ObjCompra.DtResultados
                     End If
                     ObjCompra.Dispose()
-                    Dim rds2 = New ReportDataSource("DataSet2", dtnc)
+                    Dim rds2 As New ReportDataSource("DataSet2", dtnc)
                     reportDataSetsList.Add(rds2)
                     dtnc.Dispose()
 
@@ -6536,7 +6515,7 @@ Partial Class PopUpVerFactura
                             Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
                             PS = String.Format("{0} - {1}", DetalleRow.Item("Codigo").ToString, DetalleRow.Item("PS").ToString)
                             If Modalidad = "Individual" Then
-                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
+                                Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
 
                                 Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                 docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
@@ -6545,7 +6524,7 @@ Partial Class PopUpVerFactura
                                 Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
 
                                 For i As Integer = 0 To Cant
-                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
+                                    Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
 
                                     Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                     docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
@@ -6584,7 +6563,7 @@ Partial Class PopUpVerFactura
                             Dim Lote As String = DetalleRow.Item("Lote").ToString
                             Dim FechaCaducidad As Date = DetalleRow.Item("FechaCaducidad").ToString.ToDate
                             If Modalidad = "Individual" Then
-                                Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
+                                Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
 
                                 Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                 docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
@@ -6593,7 +6572,7 @@ Partial Class PopUpVerFactura
                                 Dim Cant As Integer = DetalleRow.Item("Cantidad").ToString.ToEntero - 1
 
                                 For i As Integer = 0 To Cant
-                                    Dim reporteByte = New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
+                                    Dim reporteByte As New MemoryStream(GenerarEtiqueta(CvePS, Lote, FechaCaducidad, PS))
 
                                     Dim docEtiqueta As New iText.Kernel.Pdf.PdfDocument(New iText.Kernel.Pdf.PdfReader(reporteByte))
                                     docEtiqueta.CopyPagesTo(1, docEtiqueta.GetNumberOfPages(), pdfdoc)
@@ -6714,7 +6693,7 @@ Partial Class PopUpVerFactura
         ObjPS.Dispose()
 
 
-        Dim logouri = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
+        Dim logouri As String = String.Format("{0}://{1}:{2}/Empresas/{3}/Logo.png", Request.Url.Scheme, Request.Url.Host, Request.Url.Port, UsuarioActual.CveEmpresa)
         Dim DtDatos As New DataTable
 
         Dim params As New List(Of ReportParameter)
@@ -6954,7 +6933,7 @@ Partial Class PopUpVerFactura
                 Dim CveMonedaImp As Integer
                 Dim TipoPolImp As String
                 Dim RutaReporte As String
-                Dim params = New List(Of ReportParameter)
+                Dim params As New List(Of ReportParameter)
 
                 TipoPolImp = If(drp("CveTipoPoliza").ToString.ToEntero = 1, "Ingreso", If(drp("CveTipoPoliza").ToString.ToEntero = 2, "Egreso", "Diario"))
                 CveTipoPolizaImp = drp("CveTipoPoliza").ToString.ToEntero
diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb
index 30dd0ee1c..8cfa32948 100644
--- a/Compras/Proveedores.aspx.vb
+++ b/Compras/Proveedores.aspx.vb
@@ -1338,7 +1338,7 @@ Partial Class Compras_Proveedores
 
             If UsuarioActual.TienePermisoProceso(273) Then
                 If CType(sender, GridView).ID = "GvA" And e.Row.DBCampo("CveCompra").ToEntero > 0 And e.Row.DBCampo("TipoDocto") = "NC" Then
-                    Dim Parametros = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
+                    Dim Parametros As String = Encripta($"CveCompra={e.Row.DBCampo("CveCompra").ToEntero}&SerieFolio={e.Row.DBCampo("SerieFolio")}&CveMoneda={e.Row.DBCampo("CveMoneda")}&CveProveedor={CveProveedor}&Saldo={e.Row.DBCampo("Saldo")}&Original={e.Row.DBCampo("Original")}&CvePrePoliza={e.Row.DBCampo("CvePrePoliza")}&FechaCompra={e.Row.DBCampo("Fecha")}")
                     e.Row.FCHyperLink("HLDevolverDinero").Visible = True
                     e.Row.FCHyperLink("HLDevolverDinero").NavigateUrl = $"/Bancos/IE.aspx?Opcion=DevDinC&P={Parametros}"
                 End If
@@ -1452,8 +1452,8 @@ Partial Class Compras_Proveedores
     Private Sub CargaCuentasDDL(Ddl As DropDownList, CveFuncionalidad As Integer)
 
         'CARGA LO YA SELECCIONADO
-        Dim CveSeleccionado = -1
-        Dim Seleccionado = ""
+        Dim CveSeleccionado As Integer = -1
+        Dim Seleccionado As String = ""
         Seleccionado = Ddl.SelectedItem.Text
         CveSeleccionado = Ddl.SelectedValue.ToEntero
 
@@ -1544,7 +1544,7 @@ Partial Class Compras_Proveedores
         Dim tIdContaProveedor As Integer
         Dim CuentaAbono As Integer
 
-        Dim ErrorBancos = False
+        Dim ErrorBancos As Boolean = False
         Dim ErrorConta As Boolean = False
         Dim ErrorContactos As Boolean = False
         Dim ErrorSucursales As Boolean = False
@@ -1645,7 +1645,7 @@ Partial Class Compras_Proveedores
                 If IdCuentaContable > 0 Then
 
                     ObjContaAC.GetCuentas(IdCuentaContable, "-1", -1)
-                    Dim dt = ObjContaAC.DtResultados
+                    Dim dt As DataTable = ObjContaAC.DtResultados
                     Dim CtaCodigo As String
 
                     If dt.Rows.Count = 1 Then
@@ -1836,7 +1836,7 @@ Partial Class Compras_Proveedores
             Dim CreoCuenta As Boolean = False
 
             If UsuarioActual.Empresa.TipoContabilidad = 2 AndAlso (UsuarioActual.Empresa.UsaAC Or (UsuarioActual.Empresa.UsaContabilidad And UsuarioActual.Empresa.Funcionalidad(322).ToString.Trim.ToEntero = 0)) Then
-                Dim ObjContaAC = New ClsContPAQi(UsuarioActual.Empresa)
+                Dim ObjContaAC As New ClsContPAQi(UsuarioActual.Empresa)
                 Dim drCuenta As DataRow = ObjContaAC.DtResultados.FiltroPrimero("")
                 If drCuenta IsNot Nothing Then
                     CuentaAbono = drCuenta("Id").ToString.ToEntero
@@ -2962,8 +2962,8 @@ Partial Class Compras_Proveedores
 
             If Adjunto.Trim.Length > 0 Then
 
-                Dim linkDescarga = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
-                Dim linkDescargaArchivo = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
+                Dim linkDescarga As String = "/Empresas/" & UsuarioActual.Empresa.CveEmpresa & "/Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
+                Dim linkDescargaArchivo As String = UsuarioActual.Empresa.Ruta & "Edoc/Proveedor/" & CveProveedor & "/" & Adjunto
 
                 If File.Exists(linkDescargaArchivo) Then
                     ImgDownLoad.Visible = True
@@ -3378,7 +3378,7 @@ Partial Class Compras_Proveedores
         If e.Row.RowType = DataControlRowType.DataRow Then
 
             If CveProveedor < 0 Then
-                For Index = 1 To TempDTCuentasBancos.Rows.Count
+                For Index As Integer = 1 To TempDTCuentasBancos.Rows.Count
                     TempDTCuentasBancos.Rows(Index - 1)("CveCuentaDeposito") = Index
                 Next
                 TempDTCuentasBancos.AcceptChanges()
@@ -3455,7 +3455,7 @@ Partial Class Compras_Proveedores
                 Alert("No se pudo borrar la Cuenta Bancaria. Por favor intente nuevamente.", TipoMensaje.MsgError)
             End If
         Else
-            Dim index = GvRow.RowIndex
+            Dim index As Integer = GvRow.RowIndex
             TempDTCuentasBancos.Rows.RemoveAt(index)
             Alert("Cuenta Bancaria borrada con éxito.", TipoMensaje.MsgInformacion)
         End If
@@ -3626,7 +3626,7 @@ Partial Class Compras_Proveedores
         'Dim DtMonedas As New DataTable
         'DtMonedas.Columns.Add("CveMoneda", GetType(Integer))
         'DtMonedas.Columns.Add("Abreviatura", GetType(String))
-        Dim OcupaFiltro = False
+        Dim OcupaFiltro As Boolean = False
 
         If CType(GVHistorial.DataSource, DataTable) IsNot Nothing AndAlso CType(GVHistorial.DataSource, DataTable).MAX("CveMoneda").ToEntero > 1 Then
             OcupaFiltro = True
@@ -3717,10 +3717,10 @@ Partial Class Compras_Proveedores
         Dim DTCxPTempral As DataTable = Nothing
 
         'OBTENEMOS LOS DATOS
-        Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
-        Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
-        Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
-        Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
+        Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
+        Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
+        Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
+        Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
 
         Dim ObjMovtos As New ClsMovimientos()
         If ObjMovtos.GetCxPProveedor(CveProveedor, FI, FF, -1, -1, -1, -1, CveMonedaFiltro, -1, RBSucursal.SelectedValue.ToEntero, -1, FVI, FVF) Then
@@ -3729,7 +3729,7 @@ Partial Class Compras_Proveedores
 
         If DTCxPTempral IsNot Nothing AndAlso DTCxPTempral.Rows.Count > 0 Then
             Dim dr As DataRow = DTCxPTempral.Rows(0)
-            Dim lista = New List(Of CrystalParametro)
+            Dim lista As New List(Of CrystalParametro)
 
             lista.Add(New CrystalParametro("Empresa", UsuarioActual.Empresa.Empresa))
             lista.Add(New CrystalParametro("TipoCuentas", DdlTipoCuentasCxP.SelectedItem.Text))
@@ -4052,10 +4052,10 @@ Partial Class Compras_Proveedores
         If rblreporte.SelectedValue = "cxp" Then
 
             'OBTENEMOS LOS DATOS
-            Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
-            Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
-            Dim FVI = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
-            Dim FVF = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
+            Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
+            Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
+            Dim FVI As String = If(txtFechaVI.Text = "" Or txtFechaVI.Text = "__/__/____", "-1", txtFechaVI.Text)
+            Dim FVF As String = If(txtFechaVF.Text = "" Or txtFechaVF.Text = "__/__/____", "-1", txtFechaVF.Text)
 
             Dim FechaIn As String = $"&emsp;<b>Fecha Inicio:</b>&nbsp;{TxtFechaInicioCXP.Text}"
             Dim FechaFn As String = $"&emsp;<b>Fecha Fin:</b>&nbsp;{TxtFechaFinCXP.Text}"
@@ -4105,8 +4105,8 @@ Partial Class Compras_Proveedores
 
             'OBTENEMOS LOS DATOS
             Dim DtANC As DataTable
-            Dim FI = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
-            Dim FF = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
+            Dim FI As String = If(TxtFechaInicioCXP.Text = "" Or TxtFechaInicioCXP.Text = "__/__/____", "-1", TxtFechaInicioCXP.Text)
+            Dim FF As String = If(TxtFechaFinCXP.Text = "" Or TxtFechaFinCXP.Text = "__/__/____", "-1", TxtFechaFinCXP.Text)
             Dim CveProveedorSucursal As Integer = RBSucursal.SelectedValue.ToEntero()
             If ObjMovtos.GetAnticiposProveedor(CveProveedor, If(CveProveedorSucursal = 0, -1, CveProveedorSucursal), CveMoneda, -1, FI, FF) Then
                 DtANC = If(DdlTipoCuentasCxP.SelectedValue = "-1", ObjMovtos.DtResultados, ObjMovtos.DtResultados.FiltraParametros("Tipo = 'Act'", "Moneda, FechaVencimiento"))
diff --git a/Ventas/ProductosServicios.aspx.vb b/Ventas/ProductosServicios.aspx.vb
index fa0a64b08..ad3d30557 100644
--- a/Ventas/ProductosServicios.aspx.vb
+++ b/Ventas/ProductosServicios.aspx.vb
@@ -1869,10 +1869,10 @@ Partial Class ProductosyServicios
         CargaGvPSAdicionales()
     End Sub
     Private Sub GvPSAdicionales_RowDeleting(sender As Object, e As GridViewDeleteEventArgs) Handles GvPSAdicionales.RowDeleting
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
-        Dim CvePSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero
-        Dim PSAdicional = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString
+        Dim CvePSAdicional As Integer = GvPSAdicionales.Rows(e.RowIndex).DataKey("CvePSAdicional").ToEntero
+        Dim PSAdicional As String = GvPSAdicionales.Rows(e.RowIndex).DataKey("PS").ToString
 
         Dim ObjProductosServicios As New ClsProductosServicios()
         If Not ObjProductosServicios.RemovePSAdicionales(CvePS, CvePSAdicional) Then
@@ -1912,7 +1912,7 @@ Partial Class ProductosyServicios
     Private Sub BtnAgregarPSAdicional_Click(sender As Object, e As EventArgs) Handles BtnAgregarPSAdicional.Click
         Dim ObjProductosServicios As New ClsProductosServicios()
         ObjProductosServicios.IniciaTransacSQL()
-        Dim TieneError = False
+        Dim TieneError As Boolean = False
 
         If CvePSAdicional < 0 Then
             If Not ObjProductosServicios.AddPSAdicionales(CvePS, DdlPSAdicional.SelectedValue.ToEntero, If(TxtCantidadPSAdicional.Visible, TxtCantidadPSAdicional.Text.ToDecimal, 0)) Then