From f08c2962611c6210ded9183baff9ce17aba1ca88 Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 30 Oct 2023 18:19:54 -0700 Subject: [PATCH] option explicit --- Compras/eFacturas.aspx.vb | 55 +++++++++++++++++---------------------- 1 file changed, 24 insertions(+), 31 deletions(-) diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 92b07f197..17042909b 100644 --- a/Compras/eFacturas.aspx.vb +++ b/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 Retorno = "" + Dim Bandera As Boolean = True + 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 ResultadoSolicitudOK = False + Dim TipoMensaje As ModExtensiones.TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion + 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 SeVerifico = False + Dim ResultadoVerificaionOK As Boolean = False + Dim SeVerifico As Boolean = False - Dim ResultadoSolicitudOK = False - Dim api = New GeneralesAPIeFacturas() + Dim ResultadoSolicitudOK As Boolean = False + 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 Archivo = New System.IO.FileInfo(UrlDescarga) + Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}" + 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 DescuentosTemp = TmpDT.SUMD("Descuento") - Dim Subtotal2Temp = TmpDT.SUMD("Total") - Dim IVATemp = TmpDT.SUMD("IVA") - Dim IEPSTemp = TmpDT.SUMD("IEPSPS") - Dim RetIVATemp = TmpDT.SUMD("RetIVA") - Dim RetISRTemp = TmpDT.SUMD("RetISR") + Dim SubtotalTemp As Decimal = TmpDT.SUMD("Total") + Math.Round(TmpDT.SUM("Descuento") + Math.Round(TmpDT.SUM("Amortizacion")), 2).ToDecimal + Dim DescuentosTemp As Decimal = TmpDT.SUMD("Descuento") + Dim Subtotal2Temp As Decimal = TmpDT.SUMD("Total") + Dim IVATemp As Decimal = TmpDT.SUMD("IVA") + Dim IEPSTemp As Decimal = TmpDT.SUMD("IEPSPS") + Dim RetIVATemp As Decimal = TmpDT.SUMD("RetIVA") + 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