From 71e924b2942392879b47f93d4637e92df7a7cf54 Mon Sep 17 00:00:00 2001 From: Antonio Gonzalez Date: Mon, 20 Apr 2020 19:53:01 -0700 Subject: [PATCH] avance en Circular y soportes varios --- App_Code/ClsContabilidad.vb | 2 ++ App_Code/ClsOIEventos.vb | 5 ++- CRM/CatEtapasProceso.aspx.cs | 1 + CRM/CatRechazoMotivo.aspx.cs | 1 + OI/Circular.aspx | 2 +- OI/CircularDetalle.aspx | 9 ++++++ OI/CircularDetalle.aspx.vb | 60 ++++++++++++++++++++++++++++++------ RH/Personal.aspx.vb | 5 +++ 8 files changed, 72 insertions(+), 13 deletions(-) diff --git a/App_Code/ClsContabilidad.vb b/App_Code/ClsContabilidad.vb index d394db9b6..226d01675 100644 --- a/App_Code/ClsContabilidad.vb +++ b/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 diff --git a/App_Code/ClsOIEventos.vb b/App_Code/ClsOIEventos.vb index 7b6bf94c7..4404872e7 100644 --- a/App_Code/ClsOIEventos.vb +++ b/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 diff --git a/CRM/CatEtapasProceso.aspx.cs b/CRM/CatEtapasProceso.aspx.cs index cd11d8942..6bcb487ca 100644 --- a/CRM/CatEtapasProceso.aspx.cs +++ b/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(); diff --git a/CRM/CatRechazoMotivo.aspx.cs b/CRM/CatRechazoMotivo.aspx.cs index 7bcac024f..230664a97 100644 --- a/CRM/CatRechazoMotivo.aspx.cs +++ b/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 = "") diff --git a/OI/Circular.aspx b/OI/Circular.aspx index 1007eefbe..d3954852f 100644 --- a/OI/Circular.aspx +++ b/OI/Circular.aspx @@ -68,7 +68,7 @@ - diff --git a/OI/CircularDetalle.aspx b/OI/CircularDetalle.aspx index 1d9bbdec7..35ae4bcda 100644 --- a/OI/CircularDetalle.aspx +++ b/OI/CircularDetalle.aspx @@ -89,6 +89,15 @@
+
+
+ Archivo cargado: +
+
+ +
+
+
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb index c231670a5..ab460d3e9 100644 --- a/OI/CircularDetalle.aspx.vb +++ b/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 - ' If File.Exists(docAnterior) Then - ' File.Delete(docAnterior) - ' End If - 'End If + Dim ArchivoAnterior As String = TituloAnterior() + + If ArchivoAnterior.Length > 0 Then + Dim docAnterior As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoAnterior) + 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") diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 6228b0e4d..4a1480b55 100644 --- a/RH/Personal.aspx.vb +++ b/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