diff --git a/OI/GraficaGantt.aspx b/OI/GraficaGantt.aspx deleted file mode 100644 index c6585a6cf..000000000 --- a/OI/GraficaGantt.aspx +++ /dev/null @@ -1,216 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="GraficaGantt.aspx.vb" Inherits="OI_GraficaGantt" %> - - - - - - - - - - - - - - - <%----%> -
-
-
- -
-
-
- -
- - -
- <%-- -
- - -
--%> -
-
- -
- - -
-
-
-
-
- -
- - -
-
-
- -
-
- -
- - -
-
-
-
-
- -
- - - - - -
-
-
- -
-
-
-
- <%----%> -
- - - - - - -
-
-
- - TaReaS -
-
- - - - -
-
-
-
-
-
- - - - - - - - diff --git a/OI/GraficaGantt.aspx.vb b/OI/GraficaGantt.aspx.vb deleted file mode 100644 index 6e6d8423d..000000000 --- a/OI/GraficaGantt.aspx.vb +++ /dev/null @@ -1,131 +0,0 @@ -Imports Extensiones -Imports System.Data - -Partial Class OI_GraficaGantt - Inherits ClsPaginas - - Private Property DTDatos As DataTable - Get - Return CType(ViewState("DTDatos"), DataTable) - End Get - Set(value As DataTable) - ViewState("DTDatos") = value - End Set - End Property - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - - DdlSegundoNivel.DataBind() - DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1")) - DdlPrimerNivel.DataBind() - DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1")) - CargaCombos() - CargaEventos() - CargaComboP1() - End If - End Sub - - - Private Sub CargaCombos() - 'usuarios - DdlUsuario.DataSource = GlobalDTUsuarios(CveEmpresa:=UsuarioActual.CveEmpresa) - DdlUsuario.DataBind() - DdlUsuario.Items.Insert(0, New ListItem("Todos", "-1")) - DdlUsuario.SelectedValue = -1 - 'Revision - Dim ObjOI As New ClsOIEventos - - If ObjOI.GetRevisionesEventos(UsuarioActual.CveEmpresa) Then - DdlRevision.DataSource = ObjOI.DtResultados - DdlRevision.DataBind() - End If - ObjOI.Dispose() - DdlRevision.Items.Insert(0, New ListItem("Todos", "-1")) - DdlRevision.SelectedValue = -1 - End Sub - - Protected Sub CargaEventos() - Dim de As Integer = DdlUsuario.SelectedValue - Dim cverevision As Integer = DdlRevision.SelectedValue - Dim objoi As New ClsOIEventos - If objoi.GetEventosProyecto(UsuarioActual.CveEmpresa, de, cverevision, DdlPrimerNivel.SelectedValue, DdlSegundoNivel.SelectedValue) Then - DTDatos = objoi.DtResultados - End If - objoi.Dispose() - End Sub - Private Sub CargaComboP1() - DdlPrimerNivel.Items.Clear() - DdlPrimerNivel.DataSource = DTDatos.FiltraParametros("CveEventoPadre = 0") - DdlPrimerNivel.DataBind() - DdlPrimerNivel.Items.Insert(0, New ListItem("Todos", "-1")) - DdlSegundoNivel.Items.Clear() - DdlSegundoNivel.DataBind() - DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - - Private Sub CargaComboP2() - DdlSegundoNivel.Items.Clear() - DdlSegundoNivel.DataSource = DTDatos.FiltraParametros(String.Format("CveEventoPadre = {0} OR {0}=-1", DdlPrimerNivel.SelectedValue)) - DdlSegundoNivel.DataBind() - DdlSegundoNivel.Items.Insert(0, New ListItem("Todos", "-1")) - End Sub - Protected Sub DdlPrimerNivel_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlPrimerNivel.SelectedIndexChanged - CargaComboP2() - End Sub - Public Function DTTogant() As String - Dim StrDatos As New StringBuilder - StrDatos.Append("{""data"": [ ") - Dim dttemp As DataTable = GetDatos() - If Not (dttemp Is Nothing) Then - For Each item As DataRow In dttemp.Rows '28-03-2013 - Dim duracion = DateDiff(DateInterval.Day, item("FechaInicio").ToString().ToDate(), item("FechaFin").ToString().ToDate()) - If item("ISFhater").ToString = "1" Then - StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"",""type"":""Project"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString) - Else - StrDatos.AppendFormat("{{""id"": {0}, ""text"": ""{1}"", ""start_date"": ""{2}"", ""duration"": ""{3}"", ""progress"": {4},""parent"":{5}, ""open"": true,""end_date"": ""{6}"",""users"":""{7}""}},", item("CveEvento").ToString, item("Asunto").ToString, If(item("FechaInicio").ToString <> "", item("FechaInicio").ToString().Substring(0, 10), ""), duracion, item("Avance").ToString.ToEntero / 100, item("CveEventoPadre").ToString().ToEntero, If(item("FechaFin").ToString <> "", item("FechaFin").ToString().Substring(0, 10), ""), item("UsuarioDe").ToString) - End If - - Next - End If - - Return StrDatos.ToString.Substring(0, StrDatos.ToString.Length - 1) & "]}" - End Function - - Public Function GetDatos() As DataTable - Dim dt As DataTable = DTDatos.Copy - - 'If Not (DdlPrimerNivel.SelectedValue = -1 And DdlSegundoNivel.SelectedValue = -1) Then - ' dt.Clear() - 'End If - Return dt - End Function - - - Protected Sub NewUser_Click(sender As Object, e As EventArgs) Handles NewUser.Click - Dim FechaI As Date = FechaInicio.Value.ToDate() - Dim Fechaf As Date = FechaI.AddDays(Duracion.Value.ToEntero) - Dim objOI As New ClsOIEventos - If objOI.AddEventoProyecto(Asunto.Value, Asunto.Value, 1, UsuarioActual.CveUsuario, -1, FechaI, Fechaf, - EventoPadre.Value.ToEntero, -1, "", -1, -1, -1, -1, -1, -1, -1, -1, UsuarioActual.CveUsuario,-1, - UsuarioActual.CveEmpresa) Then - Dim newrow As DataRow = DTDatos.NewRow() - newrow("CveEvento") = objOI.CveEvento - newrow("Asunto") = Asunto.Value - newrow("FechaInicio") = FechaInicio.Value - newrow("FechaFin") = Fechaf.ToString("dd/MM/yyyy") - newrow("CveEventoPadre") = EventoPadre.Value - DTDatos.Rows.Add(newrow) - Else - Alert("No se logro agregar la tarea", TipoMensaje.MsgInformacion) - - End If - objOI.Dispose() - - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - CargaEventos() - ' RegistraScript(String.Format("debugger;gantt.parse('{0}');datagant='{0}';", DTTogant())) - End Sub -End Class diff --git a/Ventas/RepABT.aspx b/Ventas/RepABT.aspx deleted file mode 100644 index 168c55b22..000000000 --- a/Ventas/RepABT.aspx +++ /dev/null @@ -1,132 +0,0 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="RepABT.aspx.vb" Inherits="Ventas_RepABT" %> - - - - -   -   - - - - - - - - - - - - - <%-- - --%> -
-
-
- - -
-
-
- -
- - - -
- -
- - - - - - - - - - - - - -
-
-
-
-
- <%-- - --%> - -
-
- - - - - - - - - - - - - - - - - - - -
TipoFolioClienteSucursalFecha VentaMesa# PerFecha CorteTotal
- - - - - - - - - - - - - - - - - - -
<%# Eval("TipoDocto") %><%# Eval("SerieFolio") %><%# Eval("Cliente")%><%# Eval("Sucursal")%><%# Eval("FechaVenta", "{0:d}")%><%# Eval("Mesa")%><%# Eval("NumeroPersonas")%><%# Eval("FechaCorte", "{0:d}")%><%# Eval("TotalRemision", "{0:F2}")%>
- - - - - - - -
- <%----%> - - - <%-- - - - - - - - - - - - - --%> - - - - - - - - - diff --git a/Ventas/RepABT.aspx.vb b/Ventas/RepABT.aspx.vb deleted file mode 100644 index 1a64bf119..000000000 --- a/Ventas/RepABT.aspx.vb +++ /dev/null @@ -1,73 +0,0 @@ -Option Explicit On -Option Strict On - -Imports Extensiones -Imports System.Data - -Partial Class Ventas_RepABT - Inherits ClsPaginas - - 'Private ReadOnly Property Ejercicio As Integer - ' Get - ' Return ViewState("Ejercicio") - ' End Get - 'End Property - - 'Private ReadOnly Property Periodo As Integer - ' Get - ' Return ViewState("Periodo") - ' End Get - 'End Property - - Private Property DtDatos As datatable - Get - Return CType(ViewState("DtDatos"), DataTable) - End Get - Set(value As datatable) - ViewState("DtDatos") = value - End Set - End Property - - Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load - If Not IsPostBack Then - 'If Request("Ejercicio") IsNot Nothing AndAlso IsNumeric(Request("Ejercicio")) Then - ' ViewState("Ejercicio") = Request("Ejercicio") - 'End If - 'If Request("Periodo") IsNot Nothing AndAlso IsNumeric(Request("Periodo")) Then - ' ViewState("Periodo") = Request("Periodo") - 'End If - DdlEjercicio.SelectedValue = Now.Year.ToString - DdlPeriodo.SelectedValue = Now.Month.ToString - CargaDatos() - End If - End Sub - - Private Sub CargaDatos() - Dim ObjVentas As New ClsVentas - If ObjVentas.GetRepABT(DdlEjercicio.SelectedValue.ToEntero, DdlPeriodo.SelectedValue.ToEntero) Then - GvRepABT.DataSource = ObjVentas.DtResultados.FiltraParametros("", DistinctColumns:={"CveVenta", "TipoDocto", "SerieFolio", "Cliente", "SubProyecto", "FechaVenta", "Mesa", "NumeroPersonas", "TotalRemision", "FechaCorte"}) - Else - GvRepABT.DataSource = Nothing - End If - DtDatos = ObjVentas.DtResultados - ObjVentas.Dispose() - GvRepABT.DataBind() - End Sub - - Protected Sub ImgExcel_Click(sender As Object, e As EventArgs) Handles ImgExcel.Click - GvRepABT.ExportToExcel("Reporte ABT") - End Sub - - Protected Sub GvRepABT_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GvRepABT.RowDataBound - If e.Row.RowType = DataControlRowType.DataRow Then - - e.Row.FCGridView("GvD").DataSource = DtDatos.FiltraParametros(String.Format("CveVenta = {0}", e.Row.DBCampo("CveVenta"))) - e.Row.FCGridView("GvD").DataBind() - End If - End Sub - - Protected Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click - CargaDatos() - UpDatos.Update() - End Sub -End Class