Entrada usados resumen totales, Cierre cultivo, Empresas acutualizar certificados

Sistemas/Empresa.aspx

@@ -1761,6 +1761,12 @@
         </tr>
     </table>
     <br />
+
+
+    <asp:UpdatePanel runat="server" ID="UpModalCertificados" UpdateMode="Conditional">
+        <ContentTemplate>
+
+            
     <div id="ModalArchvivo" class="modal ADS fade" role="dialog">
         <div class="modal-dialog">
 
@@ -1768,7 +1774,7 @@
             <div class="modal-content" style="width: 700px;">
                 <div class="modal-header ">
                     <button type="button" class="close" data-dismiss="modal">&times;</button>
-                    <h4 class="modal-title">Subir Imagen</h4>
+                    <h4 class="modal-title"><asp:Label runat="server" ID="LblModalCertificadosTitulo"></asp:Label></h4>
                 </div>
 
                 <div class="modal-body" style="height: 200px;">
@@ -1787,17 +1793,33 @@
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
+                <br />
                 <div class="modal-footer">
                     <asp:UpdatePanel runat="server">
                         <ContentTemplate>
-                            <asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
-                            <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                            
+                            <div class="row">
+                                <div class="col-md-12">
+                                     <asp:Button ID="BtnGuardarArchivo" runat="server" OnClick="BtnGuardarArchivo_Click" ClientIDMode="Static" Text="Guardar" CssClass="btn btn-primary" />
+                                    <button type="button" class="btn btn-danger" data-dismiss="modal">Cancelar</button>
+                                </div>
+                            </div>
+                           
+
                         </ContentTemplate>
                     </asp:UpdatePanel>
                 </div>
             </div>
         </div>
-    </div>
+    </div>
+
+
+
+        </ContentTemplate>
+    </asp:UpdatePanel>
+
+
+
 </asp:Content>
 <asp:Content ID="Content7" ContentPlaceHolderID="JS" runat="server">
     <script type="text/javascript">

Sistemas/Empresa.aspx.vb

@@ -107,6 +107,31 @@ Partial Class Sistemas_Empresa
         End Set
     End Property
 
+
+    Enum EnumOpActualizaArchivosCer
+        SinOpcion
+        KEY
+        CER
+        PFX
+    End Enum
+
+
+    Property OpActualizaArchivosCer As EnumOpActualizaArchivosCer
+
+        Get
+            If ViewState("OpActualizaArchivosCer") Is Nothing Then
+                ViewState("OpActualizaArchivosCer") = EnumOpActualizaArchivosCer.SinOpcion
+            End If
+
+            Return DirectCast(ViewState("OpActualizaArchivosCer"), EnumOpActualizaArchivosCer)
+
+        End Get
+        Set(value As EnumOpActualizaArchivosCer)
+            ViewState("OpActualizaArchivosCer") = value
+        End Set
+
+    End Property
+
 #End Region
 
 
@@ -1644,15 +1669,35 @@ Partial Class Sistemas_Empresa
 
             If result.Exitoso Then
                 Alert("El emisor se registró correctamente.<br>" & result.Descripcion)
+            Else
+                Alert("Ocurrió un error al registrar el emisor.<br>" & result.Descripcion & ".<br> Numero Error: " & result.NumeroError, TipoMensaje.MsgError)
+            End If
+
+        Catch ex As Exception
             OnError("Ocurrió un error al registrar el emisor", ex)
+        End Try
+
+    End Sub
+
+
 
 
 
 
+    Protected Sub LnkArchivoKey_Click(sender As Object, e As EventArgs) Handles LnkArchivoKey.Click
+        TxtCargaImg.getfiles().Archivos = Nothing
+        TxtCargaImg.Text = "[]"
+        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY
+        LblModalCertificadosTitulo.Text = "Archivo KEY"
         UpModalCertificados.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
 
+    Protected Sub LnkArchivoCer_Click(sender As Object, e As EventArgs) Handles LnkArchivoCer.Click
+        TxtCargaImg.getfiles().Archivos = Nothing
+        TxtCargaImg.Text = "[]"
+        OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER
+        LblModalCertificadosTitulo.Text = "Archivo CER"
         UpModalCertificados.Update()
         RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
@@ -1663,6 +1708,7 @@ Partial Class Sistemas_Empresa
         OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX
         LblModalCertificadosTitulo.Text = "Archivo PFX"
         UpModalCertificados.Update()
+        RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
     End Sub
 
     Protected Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs)
@@ -1670,6 +1716,9 @@ Partial Class Sistemas_Empresa
         Dim filesgral As List(Of Archivo) = TxtCargaImg.getfiles().Archivos
         Dim filemove As String = ""
         Dim TieneError As Boolean = False
+
+        For Each fileItem As Archivo In filesgral
+
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
 
@@ -1681,13 +1730,57 @@ Partial Class Sistemas_Empresa
             Dim ArchivoCertificado As String = $"{NombreArchivo}.{FileExtension}"
 
             If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+            Try
+                If filemove <> "" Then
+                    Dim Ruta As String = String.Format("Empresas\{0}\Certificados\", CveEmpresa)
+                    filemove.FilesMove(NombreArchivo, Ruta)
+                End If
+            Catch ex As Exception
+                TieneError = True
+            End Try
+
+
+            If CveEmpresa > 0 AndAlso Not TieneError Then
+
+                Dim ObjEmpresas As New ClsSisEmpresas
+
+
+                Dim ArchivoKey As String = "-1"
+                Dim ArchivoCer As String = "-1"
+                Dim ArchivoPfx As String = "-1"
+
+
+                If OpActualizaArchivosCer = EnumOpActualizaArchivosCer.KEY Then
+                    ArchivoKey = ArchivoCertificado
+                    TxtArchivoKey.Text = ArchivoKey
+                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.CER Then
+                    ArchivoCer = ArchivoCertificado
+                    TxtArchivoCer.Text = ArchivoCer
+                ElseIf OpActualizaArchivosCer = EnumOpActualizaArchivosCer.PFX Then
+                    ArchivoPfx = ArchivoCertificado
+                    TxtArchivoPfx.Text = ArchivoPfx
+                End If
+
+                If Not ObjEmpresas.UpdateEmpresasCertificados(ArchivoKey, ArchivoCer, ArchivoPfx, CveEmpresa) Then
                     TieneError = True
+                End If
+
+
+                ObjEmpresas.Dispose()
+
             End If
 
 
 
         Next
 
+
+
+
+
+        If Not TieneError Then
             Alert("Certificado cargado con exito")
             RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalArchvivo"))
         End If