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

-- cambiar a procesamiento de gzip, en efacturas

Browse Source
This commit is contained in:
rrene
2024-09-28 10:10:27 -07:00
parent 632cc36bbb
commit c34c1bb71e
2 changed files with 26 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Compras/eFacturas.aspx
View File

@@ -70,7 +70,7 @@
<asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkBitacotaFacturas" runat="server" OnClick="LnkBitacotaFacturas_Click"><i class="fa fa-book" ></i> Bitácora Facturas</asp:LinkButton>
<asp:LinkButton ID="LnkBitacoraFacturas" runat="server" OnClick="LnkBitacoraFacturas_Click"><i class="fa fa-book" ></i> Bitácora Facturas</asp:LinkButton>
</li>
<li>
<asp:LinkButton ID="LnkVinculacionMasivaComplementos" runat="server" OnClick="LnkVinculacionMasivaComplementos_Click" Visible ="false" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea realizar la vinculación masiva de complementos?" data-btn-ok-label="si"><i class="fa fa-tasks" ></i> Vinculación Masiva Complementos</asp:LinkButton>

71
Compras/eFacturas.aspx.vb
View File

@@ -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)}<br>")
' Else
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
@@ -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)}<br>")
' Else
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>")
@@ -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)}.<br>")
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.<br>")
sbResultado.Append($"Solicitud {Folio} solicitada a SAT.<br>")
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} <br> {resultVerificacion(1)}")
If ResultadoVerificacionOK Then
sbResultado.Append($"Solicitud procesada Folio: {Folio} <br> {resultVerificacion(1)}")
Else
sbResultado.Append($"Solicitud no verificada <br> Folio: {Folio}{resultVerificacion(1)}.<br>")
sbResultado.Append($"Solicitud no verificada <br> Folio: {Folio}{resultVerificacion(1)}.<br>")
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