avance en Circular y soportes varios

App_Code/ClsContabilidad.vb

@@ -212,6 +212,8 @@ Public Class ClsContabilidad
 
             If ex.Message.Contains("50015;") Then
                 OnError("No se puede registrar una póliza en un ejercicio Cerrado", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+            ElseIf ex.Message.Contains("CK_Conta_PrePolizas_Concepto") Then
+                OnError("Ocurrio un error al registrar la póliza, el concepto o descripción no puede ir vacio", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             Else
                 OnError("Ocurrió un error al Guardar", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
             End If

App_Code/ClsOIEventos.vb

@@ -1416,7 +1416,7 @@ Public Class ClsOIEventos
         Return Retorno
     End Function
 
-    Public Function UpdateCircular(CveCircular As Integer, Asunto As String, Circular As String, CorreosInternos As String, CorreosExternos As String, CveUsuario As Integer) As Boolean
+    Public Function UpdateCircular(CveCircular As Integer, Asunto As String, Circular As String, CorreosInternos As String, CorreosExternos As String, Optional Adjunto As String = "-1") As Boolean
 
         Dim Retorno As Boolean = False
 
@@ -1428,8 +1428,7 @@ Public Class ClsOIEventos
             .Add("@Circular", SqlDbType.VarChar).Value = Circular
             .Add("@CorreosInternos", SqlDbType.VarChar).Value = CorreosInternos
             .Add("@CorreosExternos", SqlDbType.VarChar).Value = CorreosExternos
-            .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario
+            .Add("@Adjunto", SqlDbType.VarChar).Value = Adjunto
-
         End With
 
         Try

CRM/CatEtapasProceso.aspx.cs

@@ -156,6 +156,7 @@ public partial class CRM_CatEtapasProceso : ClsPaginas
         DdlTipoProceso.SelectedValueExist(-1);
 
         DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0, new ListItem("Seleccione", "-1"));
         DdlFiltroProceso.DataBind();
 
         UPFiltros.Update();

CRM/CatRechazoMotivo.aspx.cs

@@ -95,6 +95,7 @@ public partial class CRM_CatRechazoMotivo : ClsPaginas
         }
         ObjCRM.Dispose();
         DdlTipoProceso.DataBind();
+        DdlTipoProceso.Items.Insert(0,new ListItem("Seleccione","-1"));
     }
 
     protected void limpiarCamposModal(string NombreRechazo = "")

OI/Circular.aspx

@@ -68,7 +68,7 @@
     </asp:UpdatePanel>
     <asp:UpdatePanel ID="UpDatos" runat="server" UpdateMode="Conditional">
         <ContentTemplate>
-            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Motivo de Baja Registrados"
+            <asp:GridView ID="GvDatos" runat="server" AutoGenerateColumns="False" DataKeyNames="CveCircular,Asunto,Usuario" EmptyDataText="No se encontraron Circulares"
                 ToolTip="Listado de Metas Vendedor" CssClass="table table-striped table-advance table-hover" Style="margin-top: -10px; text-align: center; width: 100%" GridLines="None">
                 <Columns>
                     <asp:HyperLinkField HeaderText="Asunto" DataTextField="Asunto" DataNavigateUrlFields="CveCircular" DataNavigateUrlFormatString="/OI/CircularDetalle.aspx?CveCircular={0}" />

OI/CircularDetalle.aspx

@@ -89,6 +89,15 @@
                             </div>
                         </div>
                         <br />
+                        <div id="archivosDiv" runat="server" class="row" visible="false">
+                            <div class="col-md-1" style="width:30%">
+                                <asp:Label runat="server" ID="Label1">Archivo cargado:</asp:Label>
+                            </div>
+                            <div class="col-md-1" style="width:70%">
+                                <asp:HyperLink runat="server" ID="HkArchivo" ></asp:HyperLink>
+                            </div>
+                        </div>
+                        <br />
                         <div class="row" style="text-align: center">
                             <asp:Button ID="BtnGuardar" runat="server" CssClass="btn btn-primary" Text="Guardar" Visible="true" ValidationGroup="GrpGuardar" />
                             <asp:Button ID="BtnEliminar" runat="server" CssClass="btn btn-danger" Text="Eliminar" Visible="false" data-toggle="confirmation" data-popout="true" data-original-title="Confirmar" data-btn-ok-label="si" />

OI/CircularDetalle.aspx.vb

@@ -2,6 +2,7 @@
 Imports System.Linq
 Imports Extensiones
 Imports System.IO
+Imports System.Text.RegularExpressions
 
 Partial Class OI_CircularDetalle
     Inherits ClsPaginas
@@ -59,6 +60,12 @@ Partial Class OI_CircularDetalle
                 TxtCorreoAdicional.Value = Circular.Item("CorreosExternos")
                 TxtCircular.Value = Circular.Item("Circular")
 
+                If Circular.Item("ArchivoAdjunto") <> "" Then
+                    archivosDiv.Visible = True
+                    HkArchivo.NavigateUrl = String.Format("{0}Empresas\{1}\Formatos\{2}", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, Circular.Item("ArchivoAdjunto"))
+                    HkArchivo.Text = Circular.Item("ArchivoAdjunto")
+                End If
+
                 UpCliente.Update()
             End If
             ObjOI.Dispose()
@@ -76,17 +83,25 @@ Partial Class OI_CircularDetalle
     Private Sub BtnGuardar_Click() Handles BtnGuardar.Click
         Dim ObjOI As New ClsOIEventos
         If CveCircular > 0 Then
-            If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, UsuarioActual.CveUsuario) Then
+
+            Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
+
+            If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then
+                GuardarArchivo(CveCircular)
                 Alert("Actualizado correctamente")
             End If
         Else
             Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
-            Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra)
+
+            Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
+            Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario,
+                                                                 UsuarioActual.CveEmpresa, CorreoExtra, AdjuntoValidate)
             If CircularInsertado > 0 Then
                 GuardarArchivo(CircularInsertado)
                 Alert("Ingresado correctamente")
             End If
         End If
+        CargaDatos()
     End Sub
 
     Private Sub BtnEliminar_Click() Handles BtnEliminar.Click
@@ -133,10 +148,35 @@ Partial Class OI_CircularDetalle
         UpCliente.Update()
     End Sub
 
+    Private Function NombreArchivo() As String
+        Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
+        Dim Filename As String = "-1"
+        For Each fileItem As Archivo In Filesgral
+            Try
+                Filename = fileItem.filename
+            Catch ex As Exception
+                Filename = "-1"
+            End Try
+        Next
+        Return Filename
+    End Function
+
+    Private Function TituloAnterior() As String
+        Dim Directorio As New IO.DirectoryInfo(String.Format("{0}Empresas/{1}/Formatos/", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa))
+        Dim ArchivosArreglo As IO.FileInfo() = Directorio.GetFiles()
+        Dim patronRegEx As String = String.Format("^{0}_.*", CveCircular)
+        Dim archivoEncontrado As String = ""
+        For Each file As IO.FileInfo In ArchivosArreglo
+            If Regex.IsMatch(file.Name, patronRegEx) Then
+                archivoEncontrado = file.Name
+            End If
+        Next
+        Return archivoEncontrado
+    End Function
+
     Private Function GuardarArchivo(CircularInsertado As Integer) As String
 
         Dim respuesta As String = ""
-
         Dim FileExtension As String = "-1"
         Dim Filesgral As List(Of Archivo) = TxtFileDocumentacion.getfiles().Archivos
         Dim Filename As String = ""
@@ -149,13 +189,15 @@ Partial Class OI_CircularDetalle
                 tempArray = fileItem.filename.ToString().Split("-".ToCharArray())
 
                 Dim rutaDestino As String = UsuarioActual.Empresa.Ruta & "Formatos\" & CircularInsertado & "_" & fileItem.filenameO
-                'Dim docAnterior As String = UsuarioActual.Empresa.Ruta & "Formatos\" & _CveDocumentacion & "_" & DocumentacionFormato
 
-                'If DocumentacionFormato.Trim.Length > 0 Then
+                Dim ArchivoAnterior As String = TituloAnterior()
-                '    If File.Exists(docAnterior) Then
+
-                '        File.Delete(docAnterior)
+                If ArchivoAnterior.Length > 0 Then
-                '    End If
+                    Dim docAnterior As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoAnterior)
-                'End If
+                    If File.Exists(docAnterior) Then
+                        File.Delete(docAnterior)
+                    End If
+                End If
 
                 If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then
                     Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos")

RH/Personal.aspx.vb

@@ -4961,6 +4961,11 @@ Partial Class RH_Personal
             FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
             filemove = fileItem.filename
 
+            Dim yaExistente As String = String.Format("{0}Empresas\{1}\RH\Personal\{2}.jpg", AppDomain.CurrentDomain.BaseDirectory, UsuarioActual.CveEmpresa, CvePersonal)
+            If File.Exists(yaExistente) Then
+                File.Delete(yaExistente)
+            End If
+
             If filemove <> "" Then
                 filemove.FilesMove(CvePersonal.ToString, String.Format("Empresas\{0}\RH\Personal\", UsuarioActual.CveEmpresa))
             End If