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

retroalimentación

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-04-22 12:21:22 -07:00
parent 3a5482ada7
commit 0bc003e2c4
2 changed files with 63 additions and 16 deletions
Download Patch File Download Diff File Expand all files Collapse all files

58
OI/CircularDetalle.aspx
View File

@@ -14,7 +14,7 @@
<asp:UpdatePanel runat="server" ID="UpAgregar">
<ContentTemplate>
<li>
<asp:LinkButton ID="LnkMandarCorreo" runat="server" Text="<i class='fa fa-envelope'></i> mandar correo"></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 />

15
OI/CircularDetalle.aspx.vb
View File

@@ -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)
@@ -226,10 +226,15 @@ Partial Class OI_CircularDetalle
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.Value, ArchivoBytes, HkArchivo.Text)
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(), NombreArchivo As String)