From 23e1fab67c0bdef377abdb16e326bcf773c0456a Mon Sep 17 00:00:00 2001 From: Jonathan Alexis Perez Morales Date: Wed, 2 Oct 2024 16:57:02 -0700 Subject: [PATCH] --FIX efacturas --- Compras/eFacturas.aspx | 6 +-- Compras/eFacturas.aspx.vb | 86 +++++++++++++++++---------------------- 2 files changed, 40 insertions(+), 52 deletions(-) diff --git a/Compras/eFacturas.aspx b/Compras/eFacturas.aspx index 34fdee2b6..fc05ef3e2 100644 --- a/Compras/eFacturas.aspx +++ b/Compras/eFacturas.aspx @@ -69,9 +69,9 @@
  • Solicitudes SAT
    • -
  • + <%--
  • Bitácora Facturas -
    • + --%>
  • Vinculación Masiva Complementos
    • @@ -1360,7 +1360,7 @@
    - diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb index 3405f0e7e..40a6e46cc 100644 --- a/Compras/eFacturas.aspx.vb +++ b/Compras/eFacturas.aspx.vb @@ -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() @@ -2709,33 +2709,20 @@ Partial Class Compras_eFacturas Using nom As ClsNominas = New ClsNominas() - 'PRUEBAS - If UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 119 Then - If nom.SolicitudesGet(1589, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=-1, Top:=1) Then - GVSolicitudesPendientes.DataSource = nom.DtResultados + 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() + If nom.DtResultados.Rows.Count > 0 Then + LnkverificarSolicitudes.Visible = True End If - Else - 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 + GVSolicitudesPendientes.DataBind() End If - If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=1, Top:=1) Then - GVSolicitudesNominas.DataSource = nom.DtResultados - GVSolicitudesNominas.DataBind() + If nom.SolicitudesGet(-1, UsuarioActual.CveEmpresa, CveTipoSolicitud:=2, Estatus:=1, Top:=50) Then + GVSolicitudesHistorial.DataSource = nom.DtResultados + GVSolicitudesHistorial.DataBind() End If End Using @@ -3028,7 +3015,7 @@ Partial Class Compras_eFacturas Dim SeVerifico As Boolean = False Dim ResultadoSolicitudOK As Boolean = False - Dim api As New GeneralesAPIeFacturas() + Dim api As New GeneralesAPIeFacturas(If(EsProduccion, "http://localhost:4001/", "http://localhost:60281/")) Dim Verificar As Boolean = True @@ -3068,40 +3055,28 @@ Partial Class Compras_eFacturas If ResultadoSolicitudOK And Verificar Then - '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 - ' resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() + If Not (ObjApiVerificacion Is Nothing) Then + resultVerificacion = ObjApiVerificacion.[Select](Function(token) token.Values().Aggregate(Function(i, j) $"{i}|{j}").Value(Of String)()).ToList() - ' If UsuarioActual.CveRol = 1 Then - ' Dim respesta = New StringBuilder - ' For Each s As String In resultVerificacion - ' respesta.AppendLine($"{s} - ") - ' Next + ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0)) + SeVerifico = True + Else + TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia + End If - ' Alert(respesta.ToString) - ' End If - - ' ResultadoVerificaionOK = Boolean.Parse(resultVerificacion(0)) - ' SeVerifico = True - 'Else - ' TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia - 'End If - - Dim Archivo = New FileInfo(String.Format("{0}DescargasSATXML\Compras\{1}.gzip", UsuarioActual.Empresa.Ruta, CveSolicitudDetalle)) + Dim Archivo = New FileInfo(String.Format("{0}DescargasSATXML\Compras\{1}.zip", UsuarioActual.Empresa.Ruta, CveSolicitudDetalle)) Dim fileName = Archivo.Name Dim filemove = Archivo.FullName - If Archivo.Exists Then + If ResultadoVerificaionOK AndAlso Archivo.Exists Then Try 'COPIAR ARCHIVO A LA CARPETA DE PROCESAMIENTO DE FACTURAS, SE ELIMINARAN ESOS ARCHIVOS TEMPORALES Dim destFile = String.Format("{0}Temp\Facturas\{1}", UsuarioActual.Empresa.Ruta, fileName) File.Copy(filemove, destFile, overwrite:=True) ListComprimidos.Add(destFile) - ResultadoVerificaionOK = True - SeVerifico = True - Catch ex As Exception ex.ToString().GuardaLog() End Try @@ -3119,7 +3094,7 @@ Partial Class Compras_eFacturas TipoMensaje = ModExtensiones.TipoMensaje.MsgAdvertencia End If - If SeVerifico AndAlso UsuarioActual.CveRol = 1 AndAlso UsuarioActual.CveEmpresa = 119 Then + If SeVerifico Then SubirFacturas(ListComprimidos, ListXML, ListPDF) End If @@ -3161,17 +3136,24 @@ Partial Class Compras_eFacturas RegistraScript("$('#ModalAgregarSolicitud').modal('show');") End Sub - Protected Sub GVSolicitudesNominas_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) + Protected Sub GVSolicitudesHistorial_RowDataBound(ByVal sender As Object, ByVal e As GridViewRowEventArgs) If e.Row.RowType = DataControlRowType.DataRow Then If e.Row.DataKey("ArchivoXML").Length > 0 Then - Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}" + Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Compras\\{e.Row.DataKey("CveSolicitudDetalle")}.zip" If System.IO.File.Exists(UrlDescarga) Then Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML") ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML) LnkDescargaXML.Visible = True + Else + Dim UrlDescarga2 As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{e.Row.DataKey("ArchivoXML")}" + If System.IO.File.Exists(UrlDescarga2) Then + Dim LnkDescargaXML As LinkButton = e.Row.FCLinkButton("LnkDescargaXML") + ScriptManager.GetCurrent(Me).RegisterPostBackControl(LnkDescargaXML) + LnkDescargaXML.Visible = True + End If End If End If @@ -3193,9 +3175,14 @@ 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 As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}" + Dim UrlDescarga As String = $"{UsuarioActual.Empresa.Ruta}DescargasSATXML\\Compras\\{GvRow.DataKey("CveSolicitudDetalle")}.zip" Dim Archivo As New System.IO.FileInfo(UrlDescarga) + If Not Archivo.Exists Then + Dim UrlDescarga2 As String = $"{UsuarioActual.Empresa.Ruta}NomXMLSAT\\Descargas\\{GvRow.DataKey("ArchivoXML")}" + Archivo = New System.IO.FileInfo(UrlDescarga2) + End If + If Archivo.Exists Then Response.Clear() Response.AddHeader("Content-Disposition", "attachment; filename=" & Archivo.Name) @@ -3205,6 +3192,7 @@ Partial Class Compras_eFacturas Response.TransmitFile(Archivo.FullName) Response.[End]() End If + End Sub Private Sub MostrarSolcitudesSAT()