diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index fc7955bd4..99bdde358 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/Compras/eFacturas.aspx.vb
@@ -3371,12 +3371,9 @@ Partial Class Compras_eFacturas
                         XMLNodosPagosModalCount = XMLNodosPagosModalCount + 1
 
                     Next
-
                 Next
             Next
 
-
-
             Dim UUIDDuplicadosEnu = From row In DTDocumentosRelacionados.AsEnumerable()
                                     Let IdDocumento = row.Field(Of String)("IdDocumento")
                                     Group row By IdDocumento Into IdDocumentos = Group
@@ -3392,8 +3389,6 @@ Partial Class Compras_eFacturas
                 Next
             Next
 
-
-
             MontoPago = Monto
 
             Dim NodosPagosString As String = Regex.Replace(nodePagos2.InnerXml, $"{Prefijo}:", "", RegexOptions.IgnoreCase)
@@ -3428,10 +3423,6 @@ Partial Class Compras_eFacturas
                                 Catch ex As Exception
                                     dRow2("CvePrePolizaDetalle") = 0
                                 End Try
-
-
-
-
                             End If
                         Next
                     Next
@@ -3989,9 +3980,9 @@ Partial Class Compras_eFacturas
     Private Sub GVPDocumentosRelacionadosPagos_RowCreated(sender As Object, e As GridViewRowEventArgs) Handles GVPDocumentosRelacionadosPagos.RowCreated
 
         If e.Row.RowType = DataControlRowType.Header Then
-            Dim HeaderGrid = DirectCast(sender, GridView)
-            Dim HeaderGridRow = New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
-            Dim HeaderCell = New TableCell
+            Dim HeaderGrid As GridView = DirectCast(sender, GridView)
+            Dim HeaderGridRow As New GridViewRow(0, 0, DataControlRowType.Header, DataControlRowState.Insert)
+            Dim HeaderCell As New TableCell
 
             HeaderCell.Text = "Documentos Relacionados"
             HeaderCell.ColumnSpan = 9
@@ -5507,7 +5498,7 @@ Public Class Compra2
                 XMLCargaExistosa = True
             Catch ex As Exception
                 Try
-                    Dim oReader = New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1"))
+                    Dim oReader As New StreamReader(XmlFuenteRuta, Encoding.GetEncoding("ISO-8859-1"))
                     XMLDoc.Load(oReader)
                     oReader.Dispose()
                     XMLCargaExistosa = True
@@ -5734,10 +5725,10 @@ Public Class Compra2
 #Region "DETALLES"
 
         Dim ObjeFacturas As New ClsCompras
-        Dim AjustaUltimoConcepto = False
+        Dim AjustaUltimoConcepto As Boolean = False
 
         Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
-        Dim XML = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
+        Dim XML As String = Replace(nodeconceptos.OuterXml, "<cfdi:", "<")
         XML = XML.Replace("</cfdi:", "</")
         XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", "")
         XML = XML.Replace("xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", "")
@@ -6640,7 +6631,7 @@ Public Class Compra2
         End If
 
         'RETENCIONES
-        Dim Retenciones = 0D
+        Dim Retenciones As Decimal = 0
         Retenciones = LocalRetIVA
         Retenciones += LocalRetISR
 
@@ -7147,7 +7138,7 @@ Namespace ADSNetLibraryzdE.HelpersE.ConexionesE.SIGAPIE
 
                 client.Timeout = TimeSpan.FromMinutes(15)
                 Dim response As HttpResponseMessage = New HttpResponseMessage()
-                Dim strjsonreq = Newtonsoft.Json.JsonConvert.SerializeObject(requestobject)
+                Dim strjsonreq As String = Newtonsoft.Json.JsonConvert.SerializeObject(requestobject)
                 Dim content As StringContent = New StringContent(strjsonreq, Encoding.UTF8, "application/json")
                 Dim route As String = If(isfullpath, path, GetRoute(path))