AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

option explicit

Browse Source
This commit is contained in:
rrene
2023-10-30 18:19:54 -07:00
parent 9190cf950b
commit f08c296261
1 changed files with 24 additions and 31 deletions
Download Patch File Download Diff File Expand all files Collapse all files

55
Compras/eFacturas.aspx.vb
View File

@@ -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