Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
312
OI/Normatividad.aspx.vb
Normal file
312
OI/Normatividad.aspx.vb
Normal file
@@ -0,0 +1,312 @@
|
||||
Imports System.Data
|
||||
Imports System.Globalization
|
||||
Imports System.IO
|
||||
Imports Extensiones
|
||||
Imports Microsoft.Reporting.WebForms
|
||||
Partial Class OI_Normatividad
|
||||
Inherits ClsPaginas
|
||||
|
||||
#Region "Propiedades"
|
||||
|
||||
Private Property DtDatos As DataTable
|
||||
Get
|
||||
Return CType(ViewState("DtDatos"), DataTable)
|
||||
End Get
|
||||
Set(value As DataTable)
|
||||
ViewState("DtDatos") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property IDSelected As Integer
|
||||
Get
|
||||
Return ViewState("idsel").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("idsel") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
|
||||
CargaDatos()
|
||||
|
||||
If DtDatos.Rows.Count = 0 Then 'Agregar los titulos Padres necesarios para que el usuario comience agregar los suyos
|
||||
|
||||
Dim ObjOIEventos As New ClsOIEventos
|
||||
|
||||
If ObjOIEventos.AddEventoNormatividad("PADRE", "PADRE DE TODOS", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, "".ToEntero) Then
|
||||
If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then
|
||||
IDSelected = ObjOIEventos.DtResultados(0)("CveEvento").ToString.ToEntero
|
||||
ObjOIEventos.AddEventoNormatividad("Título 1", "", "", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, IDSelected)
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
ObjOIEventos.Dispose()
|
||||
CargaDatos()
|
||||
End If
|
||||
CargaTitulosPadre()
|
||||
RegistraScript("expandir();")
|
||||
|
||||
End If
|
||||
End Sub
|
||||
Private Sub CargaDatos()
|
||||
|
||||
Dim ObjOIEventos As New ClsOIEventos
|
||||
|
||||
If ObjOIEventos.GetEventoNormatividad(UsuarioActual.CveEmpresa) Then
|
||||
DtDatos = ObjOIEventos.DtResultados.FiltraParametros("", "CveEvento")
|
||||
End If
|
||||
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
ArbolCuentas.nivel = "CtaInicial"
|
||||
ArbolCuentas.nodoid = "CveEvento"
|
||||
ArbolCuentas.padre = "CveEventoPadre"
|
||||
ArbolCuentas.titulo = "Asunto"
|
||||
updatos.Update()
|
||||
|
||||
|
||||
ObjOIEventos.Dispose()
|
||||
End Sub
|
||||
Private Sub CargaTitulosPadre()
|
||||
DdlSubtitulo.Items.Clear()
|
||||
|
||||
DdlSubtitulo.DataSource = DtDatos.FiltraParametros("CveEventoPadre IS NOT NULL")
|
||||
DdlSubtitulo.DataBind()
|
||||
DdlSubtitulo.Items.Insert(0, New ListItem("-", "-1"))
|
||||
End Sub
|
||||
|
||||
Private Function getNodospadreHijos(nodo As Integer) As DataTable
|
||||
Return DtDatos.FiltraParametros(String.Format("CveEvento = {0}", nodo))
|
||||
End Function
|
||||
|
||||
Protected Sub agregar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.addclick
|
||||
RegistraScript("$('#DvModalTitulos').modal();")
|
||||
ModalTitulo.Text = "Nuevo Título"
|
||||
|
||||
LimpiarCampos()
|
||||
Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
|
||||
IDSelected = obj.Cve
|
||||
|
||||
DdlSubtitulo.SelectedValueExist(IDSelected)
|
||||
|
||||
nuevacuenta.Visible = True
|
||||
updatos.Visible = True
|
||||
updatos.Update()
|
||||
|
||||
End Sub
|
||||
Protected Sub editar_Click(sender As Object, e As EventArgs) Handles ArbolCuentas.editclick
|
||||
RegistraScript("$('#DvModalTitulos').modal();")
|
||||
ModalTitulo.Text = "Modificar Título"
|
||||
LimpiarCampos()
|
||||
Dim dt As DataTable
|
||||
Dim obj As ADServerControl.DragableItem = DirectCast(sender, ADServerControl.DragableItem)
|
||||
IDSelected = obj.Cve
|
||||
dt = getNodospadreHijos(IDSelected)
|
||||
If dt IsNot Nothing AndAlso dt.Rows.Count > 0 Then
|
||||
Dim dr As DataRow = dt.Rows(0)
|
||||
Ttitulo.Text = dr("Asunto").ToString()
|
||||
DdlSubtitulo.SelectedValueExist(dr("CveEventoPadre").ToString())
|
||||
TxtObservaciones.Text = dr("Descripcion").ToString
|
||||
|
||||
DdlSubtitulo.Enabled = False
|
||||
|
||||
If dr("Archivo").ToString() <> "" Then
|
||||
ImgDownLoadFormato.Visible = True
|
||||
ImgDownLoadFormato.CommandArgument = String.Format("OI\{0}", dr("Archivo").ToString())
|
||||
|
||||
End If
|
||||
|
||||
Dim Hijos As Integer = DtDatos.FiltraParametros(String.Format("CveEventoPadre = {0}", IDSelected)).Rows.Count
|
||||
|
||||
If (Hijos = 0 And DtDatos.Rows.Count > 2) Then BtnEliminar.Visible = True
|
||||
|
||||
End If
|
||||
|
||||
|
||||
Guardar.Visible = True
|
||||
updatos.Visible = True
|
||||
updatos.Update()
|
||||
|
||||
End Sub
|
||||
Protected Sub Guardar_Click(sender As Object, e As EventArgs) Handles Guardar.Click
|
||||
|
||||
Dim ObjOIEventos As New ClsOIEventos
|
||||
|
||||
'ARCHIVO
|
||||
Dim FileExtension As String = "-1"
|
||||
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
||||
Dim filemove As String = ""
|
||||
|
||||
For Each fileItem As Archivo In filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
filemove = fileItem.filename
|
||||
Next
|
||||
|
||||
If ObjOIEventos.UpdateEventoNormatividad(Ttitulo.Text.Trim, TxtObservaciones.Text.Trim, String.Format(".{0}", FileExtension), IDSelected) Then
|
||||
|
||||
If filemove <> "" Then
|
||||
Dim ruta = UsuarioActual.Empresa.Ruta & String.Format("OI\{0}", String.Format("OI{0}.{1}", IDSelected.ToString, FileExtension))
|
||||
If File.Exists(ruta) Then
|
||||
File.Delete(ruta)
|
||||
End If
|
||||
filemove.FilesMove(String.Format("OI{0}", IDSelected.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
|
||||
End If
|
||||
|
||||
Dim customerRow As Data.DataRow
|
||||
customerRow = DtDatos.Select(String.Format("CveEvento = {0}", IDSelected))(0)
|
||||
customerRow("Asunto") = Ttitulo.Text.Trim
|
||||
DtDatos.AcceptChanges()
|
||||
|
||||
'CargaDatos()
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
ArbolCuentas.DataBind()
|
||||
|
||||
Dim item As CheckBox = DirectCast(ArbolCuentas.FindControl(String.Format("chk{0}", IDSelected)), CheckBox)
|
||||
item.Text = Ttitulo.Text.Trim
|
||||
|
||||
|
||||
'Dim btnAdd As Button = DirectCast(ArbolCuentas.FindControl(String.Format("aradd{0}", IDSelected)), Button)
|
||||
'btnAdd.Visible = False
|
||||
|
||||
Anexo.Text = "[]"
|
||||
LimpiarCampos()
|
||||
RegistraScript("expandir();")
|
||||
CargaDatos()
|
||||
RegistraScript("$get('BtnCambiaTitulos').click();")
|
||||
updatos.Update()
|
||||
|
||||
Alert("El título se guardó correctamente")
|
||||
End If
|
||||
ObjOIEventos.Dispose()
|
||||
|
||||
End Sub
|
||||
Protected Sub nuevacuenta_Click(sender As Object, e As EventArgs) Handles nuevacuenta.Click
|
||||
|
||||
Dim ObjOIEventos As New ClsOIEventos
|
||||
|
||||
'ARCHIVO
|
||||
Dim FileExtension As String = "-1"
|
||||
Dim filesgral As List(Of Archivo) = Anexo.getfiles().Archivos
|
||||
Dim filemove As String = ""
|
||||
|
||||
For Each fileItem As Archivo In filesgral
|
||||
FileExtension = IO.Path.GetExtension(String.Format("{0}Temp\{1}", AppDomain.CurrentDomain.BaseDirectory, fileItem.filename)).Replace(".", "")
|
||||
filemove = fileItem.filename
|
||||
Next
|
||||
|
||||
If ObjOIEventos.AddEventoNormatividad(Ttitulo.Text.Trim, TxtObservaciones.Text.Trim, String.Format(".{0}", FileExtension), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlSubtitulo.SelectedValue.ToEntero) Then
|
||||
|
||||
CargaDatos()
|
||||
Dim Idnew As Integer = 0
|
||||
Dim row As DataRow = DtDatos.FiltraParametros("", "CveEvento DESC").Rows(0)
|
||||
Idnew = row("CveEvento").ToString().ToEntero
|
||||
|
||||
If filemove <> "" Then
|
||||
filemove.FilesMove(String.Format("OI{0}", Idnew.ToString), String.Format("Empresas\{0}\OI", UsuarioActual.CveEmpresa))
|
||||
End If
|
||||
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", DdlSubtitulo.SelectedValue.ToEntero)), ADServerControl.DragableItem)
|
||||
item.Attributes.Item("data-hijos") = item.Attributes.Item("data-hijos").ToEntero + 1
|
||||
Dim objul As ADServerControl.DragableUL = DirectCast(ArbolCuentas.FindControl(String.Format("ul{0}", DdlSubtitulo.SelectedValue.ToEntero)), ADServerControl.DragableUL)
|
||||
If (IsNothing(objul)) Then
|
||||
objul = New ADServerControl.DragableUL
|
||||
objul.ID = String.Format("ul{0}", item.Cve)
|
||||
item.Controls.Add(objul)
|
||||
End If
|
||||
ArbolCuentas.additem(objul, Idnew, DdlSubtitulo.SelectedValue.ToEntero, String.Format("{0}", Ttitulo.Text))
|
||||
|
||||
Anexo.Text = "[]"
|
||||
LimpiarCampos()
|
||||
CargaDatos()
|
||||
RegistraScript("$get('BtnCambiaTitulos').click();")
|
||||
updatos.Update()
|
||||
RegistraScript("expandir();")
|
||||
Alert("El título se guardó correctamente")
|
||||
End If
|
||||
|
||||
ObjOIEventos.Dispose()
|
||||
End Sub
|
||||
Private Sub LimpiarCampos()
|
||||
Ttitulo.Text = ""
|
||||
DdlSubtitulo.SelectedValue = -1
|
||||
TxtObservaciones.Text = ""
|
||||
|
||||
Guardar.Visible = False
|
||||
nuevacuenta.Visible = False
|
||||
BtnEliminar.Visible = False
|
||||
DdlSubtitulo.Enabled = True
|
||||
ImgDownLoadFormato.Visible = False
|
||||
End Sub
|
||||
Protected Sub BtnEliminar_Click(sender As Object, e As EventArgs) Handles BtnEliminar.Click
|
||||
|
||||
Dim ObjOIEventos As New ClsOIEventos
|
||||
|
||||
If ObjOIEventos.RemoveEvento(IDSelected.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
|
||||
Dim customerRow As Data.DataRow
|
||||
customerRow = DtDatos.Select(String.Format("CveEvento = {0}", IDSelected))(0)
|
||||
customerRow("CveEventoPadre") = "-5"
|
||||
DtDatos.AcceptChanges()
|
||||
|
||||
Dim dt As DataTable = getNodospadreHijos(IDSelected)
|
||||
Dim ruta = UsuarioActual.Empresa.Ruta & String.Format("OI\{0}", dt(0)("Archivo").ToString())
|
||||
|
||||
If File.Exists(ruta) Then
|
||||
File.Delete(ruta)
|
||||
End If
|
||||
|
||||
ArbolCuentas.DataSource = DtDatos
|
||||
Dim item As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", IDSelected)), ADServerControl.DragableItem)
|
||||
Dim padre As ADServerControl.DragableItem = DirectCast(ArbolCuentas.FindControl(String.Format("{0}", item.CvePadre)), ADServerControl.DragableItem)
|
||||
padre.Attributes.Item("data-hijos") = padre.Attributes.Item("data-hijos").ToEntero - 1
|
||||
ArbolCuentas.Controls.Remove(item)
|
||||
'RegistraScript(String.Format("$('#{0}').click();", editar.ClientID))
|
||||
|
||||
dt.Rows(0).Delete()
|
||||
RegistraScript(String.Format("$('li#{0}').remove();", IDSelected))
|
||||
|
||||
LimpiarCampos()
|
||||
Alert("El título ha sido eliminado", TipoMensaje.MsgInformacion)
|
||||
|
||||
CargaDatos()
|
||||
RegistraScript("$get('BtnCambiaTitulos').click();")
|
||||
Else
|
||||
Alert("El título no pudo ser eliminado", TipoMensaje.MsgError)
|
||||
ObjOIEventos.RollBack()
|
||||
End If
|
||||
|
||||
ObjOIEventos.Dispose()
|
||||
|
||||
End Sub
|
||||
Protected Sub ImgDownLoadFormato_Click(sender As Object, e As EventArgs)
|
||||
Dim filePath As String = String.Format("{0}{1}", UsuarioActual.Empresa.Ruta, CType(sender, LinkButton).CommandArgument)
|
||||
Dim Archivo As New System.IO.FileInfo(filePath)
|
||||
|
||||
HttpContext.Current.Response.Clear()
|
||||
HttpContext.Current.Response.ClearContent()
|
||||
HttpContext.Current.Response.ContentType = "application/octet-stream"
|
||||
HttpContext.Current.Response.AppendHeader("Content-disposition", "attachment; filename=" + Path.GetFileName(filePath))
|
||||
HttpContext.Current.Response.AddHeader("Content-Length", Archivo.Length.ToString())
|
||||
HttpContext.Current.Response.TransmitFile(filePath)
|
||||
HttpContext.Current.Response.Flush()
|
||||
HttpContext.Current.Response.End()
|
||||
|
||||
Archivo = Nothing
|
||||
End Sub
|
||||
Protected Sub BtnCambiaTitulos_Click(sender As Object, e As EventArgs)
|
||||
CargaTitulosPadre()
|
||||
End Sub
|
||||
Protected Sub LnkNuevo_Click(sender As Object, e As EventArgs)
|
||||
RegistraScript("$('#DvModalTitulos').modal();")
|
||||
ModalTitulo.Text = "Nuevo Título"
|
||||
|
||||
LimpiarCampos()
|
||||
nuevacuenta.Visible = True
|
||||
updatos.Visible = True
|
||||
updatos.Update()
|
||||
End Sub
|
||||
End Class
|
||||
Reference in New Issue
Block a user