diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 39138f4f0..34fdee2b6 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -70,7 +70,7 @@ Solicitudes SAT
  • - Bitácora Facturas + Bitácora Facturas
  • Vinculación Masiva Complementos diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index f6a0b67ce..ee9c59d3c 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -786,7 +786,7 @@ Partial Class Compras_eFacturas CargaGvBitacora() CargaDatos() - MostrarSolcitudesSAT() + MostrarSolicitudesSAT() If UsuarioActual.CveRol = 1 Then GVSolicitudesPendientes.Columns(8).Visible = True @@ -982,7 +982,7 @@ Partial Class Compras_eFacturas End Sub - Protected Sub LnkBitacotaFacturas_Click(sender As Object, e As EventArgs) + Protected Sub LnkBitacoraFacturas_Click(sender As Object, e As EventArgs) RegistraScript("$('#ModalBitacoraEfacturas').modal()") CargaDatosBitacora() @@ -994,7 +994,6 @@ Partial Class Compras_eFacturas LblFacturasProcesadasCount.Text = "" Dim ObjCompras As New ClsCompras - If ObjCompras.GetFacturasBitacoraGet(TxtFechaBitInicio.Text.ToDate, TxtFechaBitFin.Text.ToDate, UsuarioActual.CveEmpresa) Then GvBitacoraEfacturas.DataSource = ObjCompras.DtResultados Else @@ -1676,16 +1675,12 @@ Partial Class Compras_eFacturas rowLog("Estatus") = 0 rowLog("Tipo") = "" - Dim fInfoXML As New FileInfo(filePathXML) - Dim RutaPDF As String = "" For Each filePathPDF As String In ListPDF Dim fInfoPDF As New FileInfo(filePathPDF) - - Dim fxml As String = fInfoXML.Name.ToUpper().Replace(".XML", "") Dim fpdf As String = fInfoPDF.Name.ToUpper().Replace(".PDF", "") Dim fpdfSplit As String() = fpdf.Split("-"c) @@ -1698,7 +1693,6 @@ Partial Class Compras_eFacturas RutaPDF = fInfoPDF.FullName Exit For End If - Next If File.Exists(filePathXML) Then @@ -1716,12 +1710,9 @@ Partial Class Compras_eFacturas End If File.Move(RutaPDF, PDfDestino) End If - End If End If - DTLOG.Rows.Add(rowLog) - Next sw.Stop() @@ -2710,11 +2701,9 @@ Partial Class Compras_eFacturas If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then GVSolicitudesPendientes.DataSource = nom.DtResultados - If nom.DtResultados.Rows.Count > 0 Then LnkverificarSolicitudes.Visible = True End If - GVSolicitudesPendientes.DataBind() End If @@ -2726,7 +2715,6 @@ Partial Class Compras_eFacturas UPModalViewSolicitudes.Update() - End Sub Protected Sub LnkShowSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs) @@ -2782,7 +2770,7 @@ Partial Class Compras_eFacturas ' Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken) ' Dim resultSolicitud As List(Of String) = New List(Of String)() ' Dim resultVerificacion As List(Of String) = New List(Of String)() - ' Dim ResultadoVerificaionOK = False + ' Dim ResultadoVerificacionOK = False ' Dim SeVerifico = False ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion ' Dim ResultadoSolicitudOK = False @@ -2799,7 +2787,7 @@ Partial Class Compras_eFacturas ' If Not (ObjApiVerificacion Is Nothing) Then ' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() - ' ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0)) + ' ResultadoVerificacionOK = Boolean.Parse(resultVerificacion(0)) ' SeVerifico = True ' Else ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia @@ -2827,7 +2815,7 @@ Partial Class Compras_eFacturas ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then - ' If ResultadoVerificaionOK Then + ' If ResultadoVerificacionOK Then ' sbResultado.Append($"{resultVerificacion(1)}
    ") ' Else ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}
    ") @@ -2852,8 +2840,6 @@ Partial Class Compras_eFacturas Protected Sub LnkSolicitarSat_Click(ByVal sender As Object, ByVal e As EventArgs) - - Dim sbResultado As StringBuilder = New StringBuilder() Dim idSolicitudCFDI As Integer = 0 Dim idSolicitudMetadata As Integer = 0 @@ -2927,7 +2913,7 @@ Partial Class Compras_eFacturas ' Dim ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken) ' Dim resultSolicitud As List(Of String) = New List(Of String)() ' Dim resultVerificacion As List(Of String) = New List(Of String)() - ' Dim ResultadoVerificaionOK = False + ' Dim ResultadoVerificacionOK = False ' Dim SeVerifico = False ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion ' Dim ResultadoSolicitudOK = False @@ -2944,7 +2930,7 @@ Partial Class Compras_eFacturas ' If Not (ObjApiVerificacion Is Nothing) Then ' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() - ' ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0)) + ' ResultadoVerificacionOK = Boolean.Parse(resultVerificacion(0)) ' SeVerifico = True ' Else ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia @@ -2972,7 +2958,7 @@ Partial Class Compras_eFacturas ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then - ' If ResultadoVerificaionOK Then + ' If ResultadoVerificacionOK Then ' sbResultado.Append($"{resultVerificacion(1)}
    ") ' Else ' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}
    ") @@ -3003,7 +2989,7 @@ 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 As Boolean = False + Dim ResultadoVerificacionOK As Boolean = False Dim SeVerifico As Boolean = False Dim ResultadoSolicitudOK As Boolean = False @@ -3017,21 +3003,17 @@ Partial Class Compras_eFacturas If Not (ObjApiSolicitud Is Nothing) Then resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0)) - Try sbResultado.Append($"Solicitud {Folio} { resultSolicitud(1)}.
    ") - - If resultSolicitud(1).Contains("No se Generaron solicitudes al SAT") Then + If resultSolicitud(1).Contains("No se generaron solicitudes al SAT") Then Verificar = False Else Verificar = True End If Catch ex As Exception - sbResultado.Append($"Solicitud {Folio} solicitada a SAT.
    ") + sbResultado.Append($"Solicitud {Folio} solicitada a SAT.
    ") Verificar = False End Try - - Else TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If @@ -3049,7 +3031,16 @@ Partial Class Compras_eFacturas Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken) If Not (ObjApiVerificacion Is Nothing) Then + ''pendiente de terminar RMF. 2024.09.28 resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() + Using nom As ClsNominas = New ClsNominas() + Dim Cve As String + If nom.SolicitudesDetalleSATGet(2530, UsuarioActual.CveEmpresa, 1, 2) Then + Cve = nom.DtResultados.FiltroPrimeroValor("CveSolicitudDetalle") + Alert(Cve) + End If + + End Using 'If UsuarioActual.CveRol = 1 Then ' Dim respesta = New StringBuilder @@ -3059,8 +3050,7 @@ Partial Class Compras_eFacturas ' Alert(respesta.ToString) 'End If - - ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0)) + ResultadoVerificacionOK = Boolean.Parse(resultVerificacion(0)) SeVerifico = True Else TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia @@ -3075,18 +3065,16 @@ Partial Class Compras_eFacturas TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If - - 'If UsuarioActual.CveRol = 1 Then ' Alert($"SeVerifico {SeVerifico.ToString} resultVerificacion.Count {resultVerificacion.Count }") 'End If If Verificar Then If SeVerifico AndAlso resultVerificacion.Count >= 4 Then - If ResultadoVerificaionOK Then - sbResultado.Append($"Solicitud procesadaFolio: {Folio}
    {resultVerificacion(1)}") + If ResultadoVerificacionOK Then + sbResultado.Append($"Solicitud procesada Folio: {Folio}
    {resultVerificacion(1)}") Else - sbResultado.Append($"Solicitud no verificada
    Folio: {Folio}{resultVerificacion(1)}.
    ") + sbResultado.Append($"Solicitud no verificada
    Folio: {Folio}{resultVerificacion(1)}.
    ") TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If Else @@ -3094,11 +3082,7 @@ Partial Class Compras_eFacturas TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If End If - - - Next - Alert(sbResultado.ToString(), TipoMensaje) cargasolicitudes() Catch ex As Exception @@ -3161,7 +3145,7 @@ Partial Class Compras_eFacturas End If End Sub - Private Sub MostrarSolcitudesSAT() + Private Sub MostrarSolicitudesSAT() LnkShowSolicitudes.Visible = False @@ -3795,11 +3779,6 @@ Partial Class Compras_eFacturas 'DivVincularPagoManualmente.Visible = False End If - - - - - LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero LblPagosCantidad.Text = PagosCantidad.ToString