option explicit

Compras/eFacturas.aspx.vb

@@ -744,9 +744,6 @@ Partial Class Compras_eFacturas
             'GvD.Columns(GvD.Columns.Count - 2).Visible = (UsuarioActual.CveRol = 1)
             'GvD.Columns(GvD.Columns.Count - 3).Visible = (UsuarioActual.CveRol = 1)
             ViewState("Orden") = String.Empty
-
-            If UsuarioActual.CveEmpresa.Contiene(141, 152, 153, 160, 161, 162) Then System.Threading.Thread.Sleep(2000)
-
             txtFechaI.Text = NowADS().AddMonths(-1).FirstDayOfMonth().ToShortDateString   ' String.Format("01/01/{0}", If(NowADS().Month > 6, NowADS().Year, NowADS().Year - 1))
 
             txtFechaF.Text = NowADS().ToShortDateString 'txtFechaI.Text.ToDate.AddMonths(1).AddDays(-1).ToShortDateString
@@ -1568,7 +1565,7 @@ Partial Class Compras_eFacturas
         Dim ArchivoExtension As String
         Dim sOnlyFilename As String
 
-        For Each filePath In fileEntries
+        For Each filePath As String In fileEntries
 
             ArchivoExtension = IO.Path.GetExtension(String.Format("{0}", filePath)).Replace(".", "")
             sOnlyFilename = System.IO.Path.GetFileName(filePath)
@@ -1596,8 +1593,8 @@ Partial Class Compras_eFacturas
         Dim Arreglo As New ArrayList()
         ' Dim Archivos As String() = Directory.GetFiles(String.Format("{0}Empresas\{1}\Temp", ModExtensiones.DirectorioBaseEmpresas, UsuarioActual.CveEmpresa))
         'Dim NombreArchivo As String
-        Dim Bandera = True
+        Dim Bandera As Boolean = True
-        Dim Retorno = ""
+        Dim Retorno As String = ""
         Dim ListaArchivosMail As New List(Of ClsSisMail.ArchivoMail)
 
 
@@ -1609,7 +1606,7 @@ Partial Class Compras_eFacturas
         Anexo.Text = ""
         UPAddFacturas.Update()
 
-        For Each filePath In ListXML
+        For Each filePath As String In ListXML
 
             If File.Exists(filePath) Then
                 Dim ArchivoAdjunto As New ClsSisMail.ArchivoMail
@@ -1633,9 +1630,6 @@ Partial Class Compras_eFacturas
 
             'If Correo.SendMail(UsuarioActual.Empresa, "sig.buzon@gmail.com", "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
 
-
-
-
             If Correo.SendMail(UsuarioActual.Empresa, UsuarioActual.Empresa.Buzon_Mail, "Facturas Efacturas " & NowADS().ToString("yyyyMMddhhmmss"), "Facturas", Archivos:=ListaArchivosMail) Then
 
                 sw.Stop()
@@ -2428,7 +2422,7 @@ Partial Class Compras_eFacturas
     RFC As String, Cliente As String, Direccion As String, Colonia As String, NoExt As String, NoInt As String,
     CP As String, Ciudad As String, Estado As String, Regimen As String, CondicionPago As String, MetodoPago As String,
     NumCtaPago As String, fecha As System.DateTime) As Boolean
-        Dim Retorno = False
+        Dim Retorno As Boolean = False
         Dim NombreArchivo As String = TmpArchivoPDF
         Dim CadenaOriginal As String = (Convert.ToString((Convert.ToString((Convert.ToString("||1.0|") & FolioFiscal) + "|" + FechaCertificacion.ToString("yyyy-MM-dd") + "T" + FechaCertificacion.ToString("HH:mm:ss") + "|") & SelloCFDi) + "|") & NoSerieCertificado) + "||"
         Dim RutaFormato As String = String.Format("{0}Empresas\Grales\Formatos\CFDI.rdlc", ModExtensiones.DirectorioBaseEmpresas)
@@ -2705,12 +2699,12 @@ Partial Class Compras_eFacturas
         End Using
 
         If CveSolicitudAgregada > 0 Then
-            Dim api = New GeneralesAPIeFacturas()
+            Dim api As New GeneralesAPIeFacturas()
             Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 2, CveSolicitudAgregada), JToken)
             Dim resultSolicitud As List(Of String) = New List(Of String)()
             Dim resultVerificacion As List(Of String) = New List(Of String)()
-            Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+            Dim TipoMensaje As ModExtensiones.TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
-            Dim ResultadoSolicitudOK = False
+            Dim ResultadoSolicitudOK As Boolean = False
 
             If Not (ObjApiSolicitud Is Nothing) Then
                 resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
@@ -2823,8 +2817,7 @@ Partial Class Compras_eFacturas
     Protected Sub LnkverificarSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs)
         Try
             Dim sbResultado As StringBuilder = New StringBuilder()
-            Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
+            Dim TipoMensaje As ModExtensiones.TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
-
 
             For Each GvRow As GridViewRow In GVSolicitudesPendientes.Rows
                 Dim CveSolicitudActual As Integer = GvRow.DataKey("CveSolicitud").ToEntero()
@@ -2833,11 +2826,11 @@ Partial Class Compras_eFacturas
                 Dim Folio As Integer = GvRow.DataKey("Folio").ToEntero()
                 Dim resultSolicitud As List(Of String) = New List(Of String)()
                 Dim resultVerificacion As List(Of String) = New List(Of String)()
-                Dim ResultadoVerificaionOK = False
+                Dim ResultadoVerificaionOK As Boolean = False
-                Dim SeVerifico = False
+                Dim SeVerifico As Boolean = False
 
-                Dim ResultadoSolicitudOK = False
+                Dim ResultadoSolicitudOK As Boolean = False
-                Dim api = New GeneralesAPIeFacturas()
+                Dim api As New GeneralesAPIeFacturas()
 
                 Dim Verificar As Boolean = True
 
@@ -2950,7 +2943,7 @@ Partial Class Compras_eFacturas
 
 
             If e.Row.DataKey("ArchivoXML").Length > 0 Then
-                Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
+                Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}"
 
                 If System.IO.File.Exists(UrlDescarga) Then
                     Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML")
@@ -2977,8 +2970,8 @@ Partial Class Compras_eFacturas
 
     Protected Sub LnkDescargaXML_Click(ByVal sender As Object, ByVal e As EventArgs)
         Dim GvRow As GridViewRow = CType((CType(sender, LinkButton)).NamingContainer, GridViewRow)
-        Dim UrlDescarga = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
+        Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}"
-        Dim Archivo = New System.IO.FileInfo(UrlDescarga)
+        Dim Archivo As New System.IO.FileInfo(UrlDescarga)
 
         If Archivo.Exists Then
             Response.Clear()
@@ -6858,13 +6851,13 @@ Public Class Compra2
         End If
 
         Dim Msg As String = ""
-        Dim SubtotalTemp = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2).ToDecimal
+        Dim SubtotalTemp As Decimal = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2).ToDecimal
-        Dim DescuentosTemp = TmpDT.SUMD("Descuento")
+        Dim DescuentosTemp As Decimal = TmpDT.SUMD("Descuento")
-        Dim Subtotal2Temp = TmpDT.SUMD("Total")
+        Dim Subtotal2Temp As Decimal = TmpDT.SUMD("Total")
-        Dim IVATemp = TmpDT.SUMD("IVA")
+        Dim IVATemp As Decimal = TmpDT.SUMD("IVA")
-        Dim IEPSTemp = TmpDT.SUMD("IEPSPS")
+        Dim IEPSTemp As Decimal = TmpDT.SUMD("IEPSPS")
-        Dim RetIVATemp = TmpDT.SUMD("RetIVA")
+        Dim RetIVATemp As Decimal = TmpDT.SUMD("RetIVA")
-        Dim RetISRTemp = TmpDT.SUMD("RetISR")
+        Dim RetISRTemp As Decimal = TmpDT.SUMD("RetISR")
         Dim TotalTemp As Decimal = Subtotal2Temp - RetIVATemp - RetISRTemp + Math.Round(IVATemp, 6) + IEPSTemp + OtrosImpuestos - OtrosImpuestosRetenciones
 
         If Math.Abs(Math.Round(DescuentosTemp, 6) - Math.Round(Descuento, 6)) > 0.01 Then
@@ -7148,7 +7141,7 @@ Public Class Compra2
             importeMovimiento = Me.Total
             importeMN = (importeMovimiento * Me.TipoCambio).RoundSQL
             Dim ConPreP As ConceptosTipoSaldo = ObtenerCveConceptoPrePoliza(1, Me.CveMoneda, False, Me.CveTipoConceptoProveedor)
-            Dim ImporteME = importeMovimiento
+            Dim ImporteME As Decimal = importeMovimiento
             Dim UsaComplementaria As Boolean = True
             If Me.CveMoneda > 1 Then ImporteME = importeMovimiento