-
+
-
-
+
-
+
+
@@ -90,6 +97,64 @@
+
+
+
+
+
+
+
+
+
+
Rol:
+
+
Sucursales:
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/OI/CircularDetalle.aspx.vb b/OI/CircularDetalle.aspx.vb
index c0f1202c5..c231670a5 100644
--- a/OI/CircularDetalle.aspx.vb
+++ b/OI/CircularDetalle.aspx.vb
@@ -1,10 +1,20 @@
Imports System.Data
Imports System.Linq
Imports Extensiones
+Imports System.IO
Partial Class OI_CircularDetalle
Inherits ClsPaginas
+ Private Property DtUsuarios As DataTable
+ Get
+ Return If(IsNothing(ViewState("DtUsuarios")), Nothing, CType(ViewState("DtUsuarios"), DataTable))
+ End Get
+ Set(value As DataTable)
+ ViewState("DtUsuarios") = value
+ End Set
+ End Property
+
Private Property CveCircular As Integer
Get
Return ViewState("CveCircular").ToString.ToEntero
@@ -31,10 +41,10 @@ Partial Class OI_CircularDetalle
Private Sub ConfigurarBotones()
If CveCircular > 0 Then
- BtnGuardar.Text = "Guardar"
+ BtnGuardar.Text = "Actualizar"
BtnEliminar.Visible = True
Else
- BtnGuardar.Text = "Actualizar"
+ BtnGuardar.Text = "Guardar"
End If
End Sub
@@ -53,6 +63,14 @@ Partial Class OI_CircularDetalle
End If
ObjOI.Dispose()
End If
+
+ DdlRolesFiltro.DataSource = GlobalDTRoles(UsuarioActual.CveEmpresa)
+ DdlRolesFiltro.DataBind()
+ DdlRolesFiltro.Items.Insert(0, New ListItem("Todos", "-1"))
+
+ DdlSucursales.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa)
+ DdlSucursales.DataBind()
+ DdlSucursales.Items.Insert(0, New ListItem("Todos", "-1"))
End Sub
Private Sub BtnGuardar_Click() Handles BtnGuardar.Click
@@ -63,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
@@ -76,4 +96,113 @@ Partial Class OI_CircularDetalle
End If
ObjOI.Dispose()
End Sub
+
+ Protected Sub LbBuscar_Click(sender As Object, e As EventArgs) Handles LbBuscar.Click
+ LimpiarModal()
+ RegistraScript("$('#ModalDescuento').modal()")
+ End Sub
+
+ Private Sub LimpiarModal()
+ DdlRolesFiltro.SelectedValue = -1
+ DdlSucursales.SelectedValue = -1
+ GvUsuarios.DataSource = Nothing
+ GvUsuarios.DataBind()
+ UpUsuarios.Update()
+ End Sub
+
+ Protected Sub BtnBuscar_Click() Handles BtnBuscar.Click
+ Dim buscadorQuery As New StringBuilder
+ buscadorQuery.Append(If(DdlRolesFiltro.SelectedValue.ToEntero > 0, String.Format("CveRol = {0}", DdlRolesFiltro.SelectedValue), ""))
+ buscadorQuery.Append(If(DdlSucursales.SelectedValue.ToEntero > 0, String.Format("{0} CveSubProyecto = {1}", If(buscadorQuery.Length > 0, "AND", ""), DdlSucursales.SelectedValue), ""))
+ GvUsuarios.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ DtUsuarios = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa).FiltraParametros(buscadorQuery.ToString)
+ GvUsuarios.DataBind()
+ UpUsuarios.Update()
+ RegistraScript("$('#ModalDescuento').modal()")
+ End Sub
+
+ Private Sub BtnAplicarDescG_Click() Handles BtnAplicarDescG.Click
+ Dim UsuariosCorreos As String = ""
+ For Each usuario As DataRow In DtUsuarios.Rows
+ If usuario.Item("Correo").ToString.Length > 0 Then
+ UsuariosCorreos = String.Format("{0}{1}" & Environment.NewLine, UsuariosCorreos, usuario.Item("Correo").ToString)
+ End If
+ Next
+ TxtCorreo.Value = UsuariosCorreos
+ 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
diff --git a/vwd.webinfo b/vwd.webinfo
index c9e193dc4..6b76e11e1 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -50,6 +50,8 @@
+
+