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> <asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
</li> </li>
<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>
<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> <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() CargaGvBitacora()
CargaDatos() CargaDatos()
MostrarSolcitudesSAT() MostrarSolicitudesSAT()
If UsuarioActual.CveRol = 1 Then If UsuarioActual.CveRol = 1 Then
GVSolicitudesPendientes.Columns(8).Visible = True GVSolicitudesPendientes.Columns(8).Visible = True
@@ -982,7 +982,7 @@ Partial Class Compras_eFacturas
End Sub 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()") RegistraScript("$('#ModalBitacoraEfacturas').modal()")
CargaDatosBitacora() CargaDatosBitacora()
@@ -994,7 +994,6 @@ Partial Class Compras_eFacturas
LblFacturasProcesadasCount.Text = "" LblFacturasProcesadasCount.Text = ""
Dim ObjCompras As New ClsCompras Dim ObjCompras As New ClsCompras
If ObjCompras.GetFacturasBitacoraGet(TxtFechaBitInicio.Text.ToDate, TxtFechaBitFin.Text.ToDate, UsuarioActual.CveEmpresa) Then If ObjCompras.GetFacturasBitacoraGet(TxtFechaBitInicio.Text.ToDate, TxtFechaBitFin.Text.ToDate, UsuarioActual.CveEmpresa) Then
GvBitacoraEfacturas.DataSource = ObjCompras.DtResultados GvBitacoraEfacturas.DataSource = ObjCompras.DtResultados
Else Else
@@ -1676,16 +1675,12 @@ Partial Class Compras_eFacturas
rowLog("Estatus") = 0 rowLog("Estatus") = 0
rowLog("Tipo") = "" rowLog("Tipo") = ""
Dim fInfoXML As New FileInfo(filePathXML) Dim fInfoXML As New FileInfo(filePathXML)
Dim RutaPDF As String = "" Dim RutaPDF As String = ""
For Each filePathPDF As String In ListPDF For Each filePathPDF As String In ListPDF
Dim fInfoPDF As New FileInfo(filePathPDF) Dim fInfoPDF As New FileInfo(filePathPDF)
Dim fxml As String = fInfoXML.Name.ToUpper().Replace(".XML", "") Dim fxml As String = fInfoXML.Name.ToUpper().Replace(".XML", "")
Dim fpdf As String = fInfoPDF.Name.ToUpper().Replace(".PDF", "") Dim fpdf As String = fInfoPDF.Name.ToUpper().Replace(".PDF", "")
Dim fpdfSplit As String() = fpdf.Split("-"c) Dim fpdfSplit As String() = fpdf.Split("-"c)
@@ -1698,7 +1693,6 @@ Partial Class Compras_eFacturas
RutaPDF = fInfoPDF.FullName RutaPDF = fInfoPDF.FullName
Exit For Exit For
End If End If
Next Next
If File.Exists(filePathXML) Then If File.Exists(filePathXML) Then
@@ -1716,12 +1710,9 @@ Partial Class Compras_eFacturas
End If End If
File.Move(RutaPDF, PDfDestino) File.Move(RutaPDF, PDfDestino)
End If End If
End If End If
End If End If
DTLOG.Rows.Add(rowLog) DTLOG.Rows.Add(rowLog)
Next Next
sw.Stop() sw.Stop()
@@ -2710,11 +2701,9 @@ Partial Class Compras_eFacturas
If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=0, Top:=50) Then
GVSolicitudesPendientes.DataSource = nom.DtResultados GVSolicitudesPendientes.DataSource = nom.DtResultados
If nom.DtResultados.Rows.Count > 0 Then If nom.DtResultados.Rows.Count > 0 Then
LnkverificarSolicitudes.Visible = True LnkverificarSolicitudes.Visible = True
End If End If
GVSolicitudesPendientes.DataBind() GVSolicitudesPendientes.DataBind()
End If End If
@@ -2726,7 +2715,6 @@ Partial Class Compras_eFacturas
UPModalViewSolicitudes.Update() UPModalViewSolicitudes.Update()
End Sub End Sub
Protected Sub LnkShowSolicitudes_Click(ByVal sender As Object, ByVal e As EventArgs) 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 ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
' Dim resultSolicitud As List(Of String) = New List(Of String)() ' Dim resultSolicitud As List(Of String) = New List(Of String)()
' Dim resultVerificacion 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 SeVerifico = False
' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
' Dim ResultadoSolicitudOK = False ' Dim ResultadoSolicitudOK = False
@@ -2799,7 +2787,7 @@ Partial Class Compras_eFacturas
' If Not (ObjApiVerificacion Is Nothing) Then ' If Not (ObjApiVerificacion Is Nothing) Then
' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() ' 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 ' SeVerifico = True
' Else ' Else
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
@@ -2827,7 +2815,7 @@ Partial Class Compras_eFacturas
' If SeVerifico AndAlso resultVerificacion.Count = 4 Then ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
' If ResultadoVerificaionOK Then ' If ResultadoVerificacionOK Then
' sbResultado.Append($"{resultVerificacion(1)}<br>") ' sbResultado.Append($"{resultVerificacion(1)}<br>")
' Else ' Else
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>") ' 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) Protected Sub LnkSolicitarSat_Click(ByVal sender As Object, ByVal e As EventArgs)
Dim sbResultado As StringBuilder = New StringBuilder() Dim sbResultado As StringBuilder = New StringBuilder()
Dim idSolicitudCFDI As Integer = 0 Dim idSolicitudCFDI As Integer = 0
Dim idSolicitudMetadata 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 ObjApiSolicitud As JToken = CType(api.GeneraSolicitud(UsuarioActual.CveEmpresa, 3), JToken)
' Dim resultSolicitud As List(Of String) = New List(Of String)() ' Dim resultSolicitud As List(Of String) = New List(Of String)()
' Dim resultVerificacion 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 SeVerifico = False
' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion ' Dim TipoMensaje = ModExtensiones.TipoMensaje.MsgInformacion
' Dim ResultadoSolicitudOK = False ' Dim ResultadoSolicitudOK = False
@@ -2944,7 +2930,7 @@ Partial Class Compras_eFacturas
' If Not (ObjApiVerificacion Is Nothing) Then ' If Not (ObjApiVerificacion Is Nothing) Then
' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() ' 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 ' SeVerifico = True
' Else ' Else
' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
@@ -2972,7 +2958,7 @@ Partial Class Compras_eFacturas
' If SeVerifico AndAlso resultVerificacion.Count = 4 Then ' If SeVerifico AndAlso resultVerificacion.Count = 4 Then
' If ResultadoVerificaionOK Then ' If ResultadoVerificacionOK Then
' sbResultado.Append($"{resultVerificacion(1)}<br>") ' sbResultado.Append($"{resultVerificacion(1)}<br>")
' Else ' Else
' sbResultado.Append($"Se presento un error al verificar las solicitudes {resultVerificacion(1)}<br>") ' 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 Folio As Integer = GvRow.DataKey("Folio").ToEntero()
Dim resultSolicitud As List(Of String) = New List(Of String)() Dim resultSolicitud As List(Of String) = New List(Of String)()
Dim resultVerificacion 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 SeVerifico As Boolean = False
Dim ResultadoSolicitudOK As Boolean = False Dim ResultadoSolicitudOK As Boolean = False
@@ -3017,21 +3003,17 @@ Partial Class Compras_eFacturas
If Not (ObjApiSolicitud Is Nothing) Then If Not (ObjApiSolicitud Is Nothing) Then
resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() resultSolicitud = ObjApiSolicitud.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList()
ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0)) ResultadoSolicitudOK = Boolean.Parse(resultSolicitud(0))
Try Try
sbResultado.Append($"Solicitud {Folio} { resultSolicitud(1)}.<br>") 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 Verificar = False
Else Else
Verificar = True Verificar = True
End If End If
Catch ex As Exception Catch ex As Exception
sbResultado.Append($"Solicitud {Folio} solicitada a SAT.<br>") sbResultado.Append($"Solicitud {Folio} solicitada a SAT.<br>")
Verificar = False Verificar = False
End Try End Try
Else Else
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
End If End If
@@ -3049,7 +3031,16 @@ Partial Class Compras_eFacturas
Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken) Dim ObjApiVerificacion As JToken = CType(api.VerificaSolicitudesNominas(UsuarioActual.CveEmpresa, CveTipoSolicitud, CveSolicitudActual), JToken)
If Not (ObjApiVerificacion Is Nothing) Then 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() 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 'If UsuarioActual.CveRol = 1 Then
' Dim respesta = New StringBuilder ' Dim respesta = New StringBuilder
@@ -3059,8 +3050,7 @@ Partial Class Compras_eFacturas
' Alert(respesta.ToString) ' Alert(respesta.ToString)
'End If 'End If
ResultadoVerificacionOK = Boolean.Parse(resultVerificacion(0))
ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0))
SeVerifico = True SeVerifico = True
Else Else
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
@@ -3075,18 +3065,16 @@ Partial Class Compras_eFacturas
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
End If End If
'If UsuarioActual.CveRol = 1 Then 'If UsuarioActual.CveRol = 1 Then
' Alert($"SeVerifico {SeVerifico.ToString} resultVerificacion.Count {resultVerificacion.Count }") ' Alert($"SeVerifico {SeVerifico.ToString} resultVerificacion.Count {resultVerificacion.Count }")
'End If 'End If
If Verificar Then If Verificar Then
If SeVerifico AndAlso resultVerificacion.Count >= 4 Then If SeVerifico AndAlso resultVerificacion.Count >= 4 Then
If ResultadoVerificaionOK Then If ResultadoVerificacionOK Then
sbResultado.Append($"Solicitud procesadaFolio: {Folio} <br> {resultVerificacion(1)}") sbResultado.Append($"Solicitud procesada Folio: {Folio} <br> {resultVerificacion(1)}")
Else 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 TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
End If End If
Else Else
@@ -3094,11 +3082,7 @@ Partial Class Compras_eFacturas
TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia
End If End If
End If End If
Next Next
Alert(sbResultado.ToString(), TipoMensaje) Alert(sbResultado.ToString(), TipoMensaje)
cargasolicitudes() cargasolicitudes()
Catch ex As Exception Catch ex As Exception
@@ -3161,7 +3145,7 @@ Partial Class Compras_eFacturas
End If End If
End Sub End Sub
Private Sub MostrarSolcitudesSAT() Private Sub MostrarSolicitudesSAT()
LnkShowSolicitudes.Visible = False LnkShowSolicitudes.Visible = False
@@ -3795,11 +3779,6 @@ Partial Class Compras_eFacturas
'DivVincularPagoManualmente.Visible = False 'DivVincularPagoManualmente.Visible = False
End If End If
LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}" LblSerieFolioPago.Text = $"{SeriePago}-{FolioPago}"
LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero LblImportePago.Text = Monto.ToString("###,###,###.00") 'ImportePago.FormatoNumero
LblPagosCantidad.Text = PagosCantidad.ToString LblPagosCantidad.Text = PagosCantidad.ToString