avance en Circular y soportes varios
This commit is contained in:
Antonio Gonzalez
@@ -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}" />
|
||||
|
||||
@@ -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" />
|
||||
|
||||
@@ -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")
|
||||
|
||||
Reference in New Issue
Block a user