--FIX efacturas
This commit is contained in:
@@ -69,9 +69,9 @@
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkShowSolicitudes" OnClick="LnkShowSolicitudes_Click" runat="server"> <i class="fa fa-external-link"></i> Solicitudes SAT</asp:LinkButton>
|
||||
</li>
|
||||
<li>
|
||||
<%--<li>
|
||||
<asp:LinkButton ID="LnkBitacoraFacturas" runat="server" OnClick="LnkBitacoraFacturas_Click"><i class="fa fa-book" ></i> Bitácora Facturas</asp:LinkButton>
|
||||
</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>
|
||||
</li>
|
||||
@@ -1360,7 +1360,7 @@
|
||||
|
||||
<div class="row">
|
||||
<div class="col-md-12">
|
||||
<asp:GridView ID="GVSolicitudesNominas" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesNominas_RowDataBound"
|
||||
<asp:GridView ID="GVSolicitudesHistorial" runat="server" GridLines="None" CssClass="table table-striped table-hover Widthall ScrollAD mysmallbtn" AutoGenerateColumns="False" OnRowDataBound="GVSolicitudesHistorial_RowDataBound"
|
||||
ShowHeaderWhenEmpty="true" EmptyDataText="No se encontraron registros"
|
||||
DataKeyNames="CveSolicitudDetalle,CveSolicitud,idSolicitudCFDI,idSolicitudMetadata,Estatus,Observaciones,FechaInicio,FechaFin,FechaIng,CveUsuarioIng,CveEmpresa,ArchivoXML,Folio,CveTipoSolicitud,TipoDescargaStr">
|
||||
<Columns>
|
||||
|
||||
@@ -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()
|
||||
|
||||
Reference in New Issue
Block a user