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

avance en Circular y soportes varios

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-20 19:53:01 -07:00
parent ee1103180d
commit 71e924b294
8 changed files with 72 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
App_Code/ClsContabilidad.vb
View File

@@ -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

5
App_Code/ClsOIEventos.vb
View File

@@ -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

1
CRM/CatEtapasProceso.aspx.cs
View File

@@ -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();

1
CRM/CatRechazoMotivo.aspx.cs
View File

@@ -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 = "")

2
OI/Circular.aspx
View File

@@ -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}" />

9
OI/CircularDetalle.aspx
View File

@@ -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" />

60
OI/CircularDetalle.aspx.vb
View File

@@ -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")

5
RH/Personal.aspx.vb
View File

@@ -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