Merge branch 'master' of http://adsistemasof.sytes.net:8383/SIG
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
@@ -14,7 +14,7 @@
|
||||
<asp:UpdatePanel runat="server" ID="UpAgregar">
|
||||
<ContentTemplate>
|
||||
<li>
|
||||
<asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-plus'></i> Agregar Documento"></asp:LinkButton>
|
||||
<asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-envelope'></i> Enviar Correo"></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" Style="color: #23527c;">Buscar</asp:LinkButton>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
@@ -76,25 +76,67 @@
|
||||
<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" style="height:150px"></textarea>
|
||||
<%--<textarea runat="server" id="TxtCircular" class="form-control" style="height: 150px"></textarea>--%>
|
||||
<asp:TextBox ID="TxtCircular" ClientIDMode="Static" runat="server" MaxLength="5000" TextMode="MultiLine" Height="200px" Width="100%"></asp:TextBox>
|
||||
<ajax:HtmlEditorExtender
|
||||
ID="htmlEdDescripcion"
|
||||
TargetControlID="TxtCircular"
|
||||
DisplaySourceTab="True"
|
||||
EnableSanitization="false"
|
||||
runat="server">
|
||||
<Toolbar>
|
||||
<ajax:Undo />
|
||||
<ajax:Redo />
|
||||
<ajax:Bold />
|
||||
<ajax:Italic />
|
||||
<ajax:Underline />
|
||||
<ajax:StrikeThrough />
|
||||
<ajax:Subscript />
|
||||
<ajax:Superscript />
|
||||
<ajax:JustifyLeft />
|
||||
<ajax:JustifyCenter />
|
||||
<ajax:JustifyRight />
|
||||
<ajax:JustifyFull />
|
||||
<ajax:InsertOrderedList />
|
||||
<ajax:InsertUnorderedList />
|
||||
<ajax:CreateLink />
|
||||
<ajax:UnLink />
|
||||
<ajax:RemoveFormat />
|
||||
<ajax:SelectAll />
|
||||
<ajax:UnSelect />
|
||||
<ajax:Delete />
|
||||
<ajax:Cut />
|
||||
<ajax:Copy />
|
||||
<ajax:Paste />
|
||||
<ajax:BackgroundColorSelector />
|
||||
<ajax:ForeColorSelector />
|
||||
<ajax:FontNameSelector />
|
||||
<ajax:FontSizeSelector />
|
||||
<ajax:Indent />
|
||||
<ajax:Outdent />
|
||||
<ajax:InsertHorizontalRule />
|
||||
<ajax:HorizontalSeparator />
|
||||
<%--<ajax:InsertImage />--%>
|
||||
</Toolbar>
|
||||
</ajax:HtmlEditorExtender>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
<div class="row">
|
||||
<div class="col-md-1" style="width:30%">
|
||||
<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%">
|
||||
<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 />
|
||||
<div id="archivosDiv" runat="server" class="row" visible="false">
|
||||
<div class="col-md-1" style="width:30%">
|
||||
<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 class="col-md-1" style="width: 70%">
|
||||
<asp:HyperLink runat="server" ID="HkArchivo" Style="color: #23527c;"></asp:HyperLink>
|
||||
</div>
|
||||
</div>
|
||||
<br />
|
||||
|
||||
@@ -58,11 +58,11 @@ Partial Class OI_CircularDetalle
|
||||
TxtAsunto.Text = Circular.Item("Asunto")
|
||||
TxtCorreo.Value = Circular.Item("CorreosInternos")
|
||||
TxtCorreoAdicional.Value = Circular.Item("CorreosExternos")
|
||||
TxtCircular.Value = Circular.Item("Circular")
|
||||
TxtCircular.Text = 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.NavigateUrl = $"~/Empresas/{UsuarioActual.CveEmpresa}/Formatos/{Circular.Item("ArchivoAdjunto")}"
|
||||
HkArchivo.Text = Circular.Item("ArchivoAdjunto")
|
||||
End If
|
||||
|
||||
@@ -86,7 +86,7 @@ Partial Class OI_CircularDetalle
|
||||
|
||||
Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
|
||||
|
||||
If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then
|
||||
If ObjOI.UpdateCircular(CveCircular, TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, TxtCorreoAdicional.Value, AdjuntoValidate) Then
|
||||
GuardarArchivo(CveCircular)
|
||||
Alert("Actualizado correctamente")
|
||||
End If
|
||||
@@ -94,7 +94,7 @@ Partial Class OI_CircularDetalle
|
||||
Dim CorreoExtra As String = If(TxtCorreoAdicional.Value = "", "-1", TxtCorreoAdicional.Value)
|
||||
|
||||
Dim AdjuntoValidate As String = NombreArchivo().Split("-")(1)
|
||||
Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Value, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario,
|
||||
Dim CircularInsertado As Integer = ObjOI.AddCircular(TxtAsunto.Text, TxtCircular.Text, TxtCorreo.Value, Today.ToString, UsuarioActual.CveUsuario,
|
||||
UsuarioActual.CveEmpresa, CorreoExtra, AdjuntoValidate)
|
||||
If CircularInsertado > 0 Then
|
||||
GuardarArchivo(CircularInsertado)
|
||||
@@ -223,10 +223,21 @@ Partial Class OI_CircularDetalle
|
||||
Protected Sub LnkMandarCorreo_Click() Handles LnkMandarCorreo.Click
|
||||
Dim correos() As String
|
||||
correos = TxtCorreo.Value.Split(Environment.NewLine)
|
||||
'MandaCorreo()
|
||||
Dim ArchivoBytes As Byte() = ArchivoBytesArrya(HkArchivo.Text)
|
||||
|
||||
Dim Contador As Integer = 0
|
||||
Try
|
||||
For Each Correo As String In correos
|
||||
MandaCorreo(TxtAsunto.Text, Correo, If(Contador > 0, "", TxtCorreoAdicional.Value), TxtCircular.Text, ArchivoBytes, HkArchivo.Text)
|
||||
Contador += 1
|
||||
Next
|
||||
Alert("El correo se envió correctamente")
|
||||
Catch ex As Exception
|
||||
Alert("Error al enviar correo", TipoMensaje.MsgError)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte())
|
||||
Private Sub MandaCorreo(Asunto As String, Para As String, ArrayCC As String, body As String, ArchivoBinario As Byte(), NombreArchivo As String)
|
||||
|
||||
Dim a As String = String.Format("{0} -- {1} --- {2}", Asunto, Para, ArrayCC)
|
||||
a.GuardaLog()
|
||||
@@ -237,7 +248,7 @@ Partial Class OI_CircularDetalle
|
||||
|
||||
With itemMail
|
||||
itemMail.ArchivoBinario = ArchivoBinario
|
||||
itemMail.NombreArchivo = "Invitación.pdf"
|
||||
itemMail.NombreArchivo = NombreArchivo
|
||||
|
||||
End With
|
||||
|
||||
@@ -247,4 +258,19 @@ Partial Class OI_CircularDetalle
|
||||
Mail.SendMail(ClsPaginas.EmpresaNotificaciones, Para, Asunto, body, ArrayCC, LSRutasMail)
|
||||
Mail = Nothing
|
||||
End Sub
|
||||
|
||||
Private Function ArchivoBytesArrya(ArchivoNombre As String) As Byte()
|
||||
Dim ArchivoEnviar As String = String.Format("{0}Formatos\{1}", UsuarioActual.Empresa.Ruta, ArchivoNombre)
|
||||
If File.Exists(ArchivoEnviar) Then
|
||||
Dim fs As System.IO.FileStream = System.IO.File.Open(ArchivoEnviar, IO.FileMode.Open, IO.FileAccess.Read)
|
||||
Dim buff(fs.Length) As Byte
|
||||
If fs.Length > 0 Then
|
||||
fs.Read(buff, 0, fs.Length - 1)
|
||||
fs.Close()
|
||||
End If
|
||||
Return buff
|
||||
End If
|
||||
|
||||
Return New Byte() {}
|
||||
End Function
|
||||
End Class
|
||||
|
||||
Reference in New Issue
Block a user