Entrada usados resumen totales, Cierre cultivo, Empresas acutualizar certificados

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