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

ya se pueden subir y descar los certificados

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-07-02 14:18:09 -07:00
parent 2dc93d59cf
commit 8859496163
2 changed files with 103 additions and 85 deletions
Download Patch File Download Diff File Expand all files Collapse all files

138
Sistemas/Empresa.aspx
View File

@@ -319,76 +319,80 @@
</div> </div>
</div> </div>
<div class="portlet-body"> <div class="portlet-body">
<table border="0"> <asp:UpdatePanel runat="server" ID="UpArchivoDescarga">
<tr> <ContentTemplate>
<td>Archivo Key:</td> <table border="0">
<td> <tr>
<asp:TextBox ID="TxtArchivoKey" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <td>Archivo Key:</td>
</tr> <td>
<tr> <asp:TextBox ID="TxtArchivoKey" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
<td colspan="2"> </tr>
<asp:LinkButton ID="LnkArchivoKey" runat="server" class="Texto">Cargar Archivo Key</asp:LinkButton></td> <tr>
</tr> <td colspan="2">
<tr id="TrDescargaArchivoKey" runat="server" visible="false"> <asp:LinkButton ID="LnkArchivoKey" runat="server" class="Texto">Cargar Archivo Key</asp:LinkButton></td>
<td colspan="2"> </tr>
<asp:UpdatePanel runat="server" ID="UpArchivoDescarga"> <tr id="TrDescargaArchivoKey" runat="server" visible="false">
<ContentTemplate> <td colspan="2">
<asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="Texto">Descargar Archivo Key</asp:LinkButton> <asp:LinkButton ID="LbArchivoKeyDescarga" runat="server" CssClass="Texto">Descargar Archivo Key</asp:LinkButton>
<%--<a id="LinkDescargaArchivoKey" target="_blank"></a>--%> <%--<a id="LinkDescargaArchivoKey" target="_blank"></a>--%>
</ContentTemplate>
<Triggers> </td>
<asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" /> </tr>
</Triggers> <tr>
</asp:UpdatePanel> <td>Archivo CER:</td>
</td> <td>
</tr> <asp:TextBox ID="TxtArchivoCer" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
<tr> </tr>
<td>Archivo CER:</td> <tr>
<td> <td colspan="2">
<asp:TextBox ID="TxtArchivoCer" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <asp:LinkButton ID="LnkArchivoCer" runat="server" class="Texto">Cargar Archivo CER</asp:LinkButton></td>
</tr> </tr>
<tr> <tr id="TrDescargaArchivoCer" runat="server" visible="false">
<td colspan="2"> <td colspan="2">
<asp:LinkButton ID="LnkArchivoCer" runat="server" class="Texto">Cargar Archivo CER</asp:LinkButton></td> <a id="LinkDescargaArchivoCer" target="_blank"></a>
</tr> <asp:LinkButton ID="LbArchivoCerDescarga" runat="server" CssClass="Texto">Descargar Archivo CER</asp:LinkButton>
<tr id="TrDescargaArchivoCer" runat="server" visible="false"> </td>
<td colspan="2"> </tr>
<a id="LinkDescargaArchivoCer" target="_blank"></a> <tr>
<asp:LinkButton ID="LbArchivoCerDescarga" runat="server" CssClass="Texto">Descargar Archivo CER</asp:LinkButton> <td>Archivo PFX:</td>
</td> <td>
</tr> <asp:TextBox ID="TxtArchivoPfx" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td>
<tr> </tr>
<td>Archivo PFX:</td> <tr>
<td> <td colspan="2">
<asp:TextBox ID="TxtArchivoPfx" runat="server" MaxLength="115" Width="200px"></asp:TextBox></td> <asp:LinkButton ID="LnkArchivoPfx" runat="server" class="Texto">Cargar Archivo PFX</asp:LinkButton></td>
</tr> </tr>
<tr> <tr id="TrDescargaArchivoPfx" runat="server" visible="false">
<td colspan="2"> <td colspan="2">
<asp:LinkButton ID="LnkArchivoPfx" runat="server" class="Texto">Cargar Archivo PFX</asp:LinkButton></td> <%--<a id="LinkDescargaArchivoPfx" target="_blank"></a>--%>
</tr> <asp:LinkButton ID="LbArchivoPfxDescarga" runat="server" CssClass="Texto">Descargar Archivo PFX</asp:LinkButton>
<tr id="TrDescargaArchivoPfx" runat="server" visible="false"> </td>
<td colspan="2"> </tr>
<a id="LinkDescargaArchivoPfx" target="_blank"></a> <tr>
<asp:LinkButton ID="LbArchivoPfxDescarga" runat="server" CssClass="Texto">Descargar Archivo PFX</asp:LinkButton> <td>Contraseña Key: </td>
</td> <td>
</tr> <asp:TextBox ID="TxtContraseñaKey" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td>
<tr> </tr>
<td>Contraseña Key: </td> <tr>
<td> <td>Contraseña CIEC: </td>
<asp:TextBox ID="TxtContraseñaKey" runat="server" MaxLength="50" Width="200px"></asp:TextBox></td> <td>
</tr> <asp:TextBox ID="TxtCIEC" runat="server" MaxLength="50" Width="50px"></asp:TextBox></td>
<tr> </tr>
<td>Contraseña CIEC: </td> <tr id="TrRegistrarPAC3" runat="server">
<td> <td colspan="2">
<asp:TextBox ID="TxtCIEC" runat="server" MaxLength="50" Width="50px"></asp:TextBox></td> <asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton>
</tr> </td>
<tr id="TrRegistrarPAC3" runat="server"> </tr>
<td colspan="2"> </table>
<asp:LinkButton ID="LnkRegistrarPAC3" runat="server" CssClass="Texto" OnClick="LnkRegistrarPAC3_Click">Registrar en ProFact</asp:LinkButton> </ContentTemplate>
</td> <Triggers>
</tr> <asp:PostBackTrigger ControlID="LbArchivoKeyDescarga" />
</table> <asp:PostBackTrigger ControlID="LbArchivoCerDescarga" />
<asp:PostBackTrigger ControlID="LbArchivoPfxDescarga" />
</Triggers>
</asp:UpdatePanel>
</div> </div>
</div> </div>

50
Sistemas/Empresa.aspx.vb
View File

@@ -5,6 +5,7 @@ Imports System.Data
Imports Extensiones Imports Extensiones
Imports System.Runtime.InteropServices Imports System.Runtime.InteropServices
Imports System.IO Imports System.IO
Imports Microsoft.Reporting.WebForms
Partial Class Sistemas_Empresa Partial Class Sistemas_Empresa
Inherits ClsPaginas Inherits ClsPaginas
@@ -404,7 +405,7 @@ Partial Class Sistemas_Empresa
LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');" LbBannerDescarga.OnClientClick = "javascript:AbrirVentana('/Cer/" & .ArchivoCer & "', 500, 500, 'N', 'ArchivoCer Empresa');"
Session("FileUpload") = .ArchivoCer Session("FileUpload") = .ArchivoCer
LbArchivoPfxDescarga.OnClientClick = "javascript:AbrirVentana('/Pfx/" & .ArchivoPfx & "', 500, 500, 'N', 'ArchivoPfx Empresa');" 'LbArchivoPfxDescarga.OnClientClick = "javascript:AbrirVentana('/Pfx/" & .ArchivoPfx & "', 500, 500, 'N', 'ArchivoPfx Empresa');"
Session("FileUpload") = .ArchivoPfx Session("FileUpload") = .ArchivoPfx
End With End With
@@ -1680,26 +1681,39 @@ Partial Class Sistemas_Empresa
Catch ex As Exception Catch ex As Exception
TieneError = True TieneError = True
End Try End Try
Next Next
If Not TieneError Then If Not TieneError Then
Alert("Certificado cargado con exito")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
End If
TxtCargaImg.getfiles().Archivos = Nothing
UpAddArchivo.Update()
End Sub
Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click
Dim NombreArchivo As String = TxtArchivoKey.Text
DescargarArchivo(NombreArchivo)
End Sub
Protected Sub LbArchivoCerDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoCerDescarga.Click
Dim NombreArchivo As String = TxtArchivoCer.Text
DescargarArchivo(NombreArchivo)
End Sub
Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click Protected Sub LbArchivoPfxDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoPfxDescarga.Click
End If Dim NombreArchivo As String = TxtArchivoPfx.Text
TxtCargaImg.getfiles().Archivos = Nothing DescargarArchivo(NombreArchivo)
UpAddArchivo.Update()
End Sub End Sub
Protected Sub LbArchivoKeyDescarga_Download(sender As Object, e As EventArgs) Handles LbArchivoKeyDescarga.Click Private Sub DescargarArchivo(NombreArchivo As String)
Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, TxtArchivoKey.Text)
'Dim fi As New FileInfo(File)
Dim byteArray As Byte() = File.ReadAllBytes(FilePath)
'HttpContext.Current.Response.Clear()
'HttpContext.Current.Response.ClearContent()
'HttpContext.Current.Response.ContentType = "application/octet-stream"
'HttpContext.Current.Response.AddHeader("Content-Disposition", "attachment filename=prueba.docx")
'HttpContext.Current.Response.AddHeader("Content-Length", byteArray.Length.ToString())
Dim FilePath As String = String.Format("{0}Empresas\{1}\Certificados\{2}", ModExtensiones.DirectorioBaseEmpresas, CveEmpresa, NombreArchivo)
Dim byteArray As Byte() = File.ReadAllBytes(FilePath) Dim byteArray As Byte() = File.ReadAllBytes(FilePath)
HttpContext.Current.Response.Clear() HttpContext.Current.Response.Clear()