primera subida del nuevo modulo
This commit is contained in:
Antonio Gonzalez
@@ -14,7 +14,7 @@
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkAgregar" runat="server"> Agregar Circular</asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-plus'></i> Agregar Documento"></asp:LinkButton>
|
||||
</li>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
@@ -58,7 +58,7 @@
|
||||
<textarea runat="server" id="TxtCorreo" class="form-control"></textarea>
|
||||
</div>
|
||||
<div class="col-md-1" style="width: 15%">
|
||||
<asp:LinkButton runat="server" ID="LbBuscar">Buscar</asp:LinkButton>
|
||||
<asp:LinkButton runat="server" ID="LbBuscar" >Buscar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
@@ -76,7 +76,16 @@
|
||||
<asp:Label runat="server" ID="LblCircular">Circular:</asp:Label>
|
||||
</div>
|
||||
<div class="col-md-1" style="width: 70%">
|
||||
<textarea runat="server" id="TxtCircular" class="form-control"></textarea>
|
||||
<textarea runat="server" id="TxtCircular" class="form-control" style="height:150px"></textarea>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="width:30%">
|
||||
<asp:Label runat="server" ID="LblAdjunto">Adjuntar archivo:</asp:Label>
|
||||
</div>
|
||||
<div class="col-md-1" style="width:70%">
|
||||
<asp:TextBox ID="TxtFileDocumentacion" CssClass="ADSdropzone hidden" data-maxFile="1" Text="" runat="server"></asp:TextBox>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
@@ -115,7 +124,7 @@
|
||||
<asp:Button ID="BtnBuscar" runat="server" CssClass="btn btn-primary" Text="Buscar" Visible="true" ValidationGroup="GrpGuardar" />
|
||||
</div>
|
||||
</div>
|
||||
<div class="row" style="margin-top: 30px; ">
|
||||
<div class="row" style="margin-top: 30px;">
|
||||
<asp:UpdatePanel runat="server" ID="UpUsuarios" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvUsuarios" runat="server" AutoGenerateColumns="False" DataKeyNames="CveUsuario,Nombre,Correo" EmptyDataText="No se encontraron Motivo de Baja Registrados"
|
||||
|
||||
@@ -1,6 +1,7 @@
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
Imports System.IO
|
||||
|
||||
Partial Class OI_CircularDetalle
|
||||
Inherits ClsPaginas
|
||||
@@ -80,7 +81,9 @@ Partial Class OI_CircularDetalle
|
||||
End If
|
||||
Else
|
||||
Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
|
||||
If ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra) Then
|
||||
Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CorreoExtra)
|
||||
If CircularInsertado > 0 Then
|
||||
GuardarArchivo(CircularInsertado)
|
||||
Alert("Ingresado correctamente")
|
||||
End If
|
||||
End If
|
||||
@@ -129,4 +132,77 @@ Partial Class OI_CircularDetalle
|
||||
RegistraScript("$('#ModalDescuento').modal('hide')")
|
||||
UpCliente.Update()
|
||||
End Sub
|
||||
|
||||
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 = ""
|
||||
|
||||
For Each fileItem As Archivo In Filesgral
|
||||
Try
|
||||
respuesta = fileItem.filenameO
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
Dim tempArray() As String
|
||||
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
|
||||
|
||||
If Not Directory.Exists(UsuarioActual.Empresa.Ruta & "\Formatos") Then
|
||||
Directory.CreateDirectory(UsuarioActual.Empresa.Ruta & "\Formatos")
|
||||
|
||||
End If
|
||||
|
||||
If System.IO.File.Exists(rutaDestino) Then
|
||||
System.IO.File.Delete(rutaDestino)
|
||||
End If
|
||||
|
||||
System.IO.File.Move(fileItem.FileUrl, rutaDestino)
|
||||
|
||||
Catch ex As Exception
|
||||
OnError("Error al cargar archivo", ex)
|
||||
End Try
|
||||
TxtFileDocumentacion.Text = ""
|
||||
Next
|
||||
|
||||
|
||||
Return respuesta
|
||||
End Function
|
||||
|
||||
Protected Sub LnkMandarCorreo_Click() Handles LnkMandarCorreo.Click
|
||||
Dim correos() As String
|
||||
correos = TxtCorreo.Value.Split(Environment.NewLine)
|
||||
'MandaCorreo()
|
||||
End Sub
|
||||
|
||||
Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte())
|
||||
|
||||
Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC)
|
||||
a.GuardaLog()
|
||||
|
||||
Dim Mail As New ClsSisMail()
|
||||
Dim LSRutasMail As New List(Of ClsSisMail.ArchivoMail)
|
||||
Dim itemMail As New ClsSisMail.ArchivoMail
|
||||
|
||||
With itemMail
|
||||
itemMail.ArchivoBinario = ArchivoBinario
|
||||
itemMail.NombreArchivo = "Invitación.pdf"
|
||||
|
||||
End With
|
||||
|
||||
LSRutasMail.Add(itemMail)
|
||||
|
||||
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail)
|
||||
Mail = Nothing
|
||||
End Sub
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user