From c6d6977d330225989efcb7cdbbf0818ff928f2ca Mon Sep 17 00:00:00 2001 From: rakcsle Date: Wed, 9 Oct 2024 08:26:03 -0700 Subject: [PATCH] VyA.2024.10.04 --- Compras/Proveedores.aspx.vb | 2 +- OI/Proyecto.aspx | 1 + Transportes/RepContratosCalendario.aspx | 352 ++++++++++++++++++++- Transportes/RepContratosCalendario.aspx.vb | 66 +++- Ventas/Promociones.aspx.vb | 2 + Ventas/RepPedidosSTF.aspx | 4 + Ventas/RepPedidosSTF.aspx.vb | 19 +- 7 files changed, 434 insertions(+), 12 deletions(-) diff --git a/Compras/Proveedores.aspx.vb b/Compras/Proveedores.aspx.vb index 8a0b376d3..618b6ce5f 100644 --- a/Compras/Proveedores.aspx.vb +++ b/Compras/Proveedores.aspx.vb @@ -1513,7 +1513,7 @@ Partial Class Compras_Proveedores GlobalDTCompProveedores(UsuarioActual.CveEmpresa) = Nothing GlobalDTProveedoresCuentas(UsuarioActual.CveEmpresa, -1) = Nothing - Alert("El Proveedor se guardó correctamente. " & "
" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "window.opener.location.href = window.opener.location.href; window.close();")) + Alert("El Proveedor se guardó correctamente. " & "
" & MsgCuentaContable, TipoMensaje.MsgInformacion, If(Request("CveFactura") Is Nothing, "document.location.href=""/Compras/CatProveedores.aspx""", "if (window.opener && !window.opener.closed) { window.opener.location.href = window.opener.location.href; window.close(); }else{ alert('No se pudo recargar la pestaña origen, recargue manualmente si lo necesita.'); }")) RecargaGlobalCuentasBancarias() End If End If diff --git a/OI/Proyecto.aspx b/OI/Proyecto.aspx index a0ce32782..59132a3d1 100644 --- a/OI/Proyecto.aspx +++ b/OI/Proyecto.aspx @@ -437,6 +437,7 @@ } gantt.render(); } + var datosGant = []; function loadGant() { gantt.config.date_format = "%Y-%m-%d %H:%i"; diff --git a/Transportes/RepContratosCalendario.aspx b/Transportes/RepContratosCalendario.aspx index c9591f344..0c09024d6 100644 --- a/Transportes/RepContratosCalendario.aspx +++ b/Transportes/RepContratosCalendario.aspx @@ -23,7 +23,75 @@ width: 100%; height: 600px; } + + + .fc-month-view .fc-day { + border-left: 4px solid #464646; + border-right: 4px solid #464646 + } + .fc-month-view .fc-week { + border-left: 4px solid #464646; + border-right: 4px solid #464646; + border-top: 4px solid #464646; + } + .fc-month-view .fc-row.fc-week.fc-widget-content:last-of-type { + border-bottom: 4px solid #464646!important; + } + + + + + + + + + + + @@ -287,6 +355,61 @@ <%--Calendario Tab--%> + + + + +
+
+ + Formato:   + + + + + + +
+ +     |     + Mostrar:   + + +
+
+
+ +
+ + + +
@@ -560,6 +683,7 @@ + diff --git a/Transportes/RepContratosCalendario.aspx.vb b/Transportes/RepContratosCalendario.aspx.vb index fb8d508e1..6832a1032 100644 --- a/Transportes/RepContratosCalendario.aspx.vb +++ b/Transportes/RepContratosCalendario.aspx.vb @@ -39,9 +39,17 @@ Partial Class RepContratosCalendario End Property #End Region - + Public Property RCveEvento As Integer + Get + Return If(ViewState("RCveEvento") IsNot Nothing, ViewState("RCveEvento").ToString().ToEntero(), 0) + End Get + Set(value As Integer) + ViewState("RCveEvento") = value + End Set + End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then + RCveEvento = 0 txtFechaI.Text = NowADS().FirstDayOfMonth.ToShortDateString() txtFechaF.Text = GetLastDayOfMonth(NowADS()).ToShortDateString() InicializaCombos() @@ -83,16 +91,16 @@ Partial Class RepContratosCalendario Private Sub CargaCronograma(Optional TipoVista As Integer = -1) If DtAvance IsNot Nothing Then + Dim separator As String = "" + Dim str As New StringBuilder() + str.AppendLine("datosGant=[") + + Dim StrFiltro As String = "" If DdlTipoUnidad.SelectedValue.ToEntero > 0 Then StrFiltro = " AND CveTipoActivoFijo = " & DdlTipoUnidad.SelectedValue Dim DtUnidades As DataTable = GlobalDTActivoFijos(UsuarioActual.CveEmpresa).FiltraParametros("Codigo <> '' AND MedidaVehicular IN (2,3) " & StrFiltro, Orderby:=" TipoActivoFijo ASC, CodigoNumeroOrden ASC", DistinctColumns:={"Codigo", "CveActivoFijo"}) - 'For Each Row As DataRow In DtAvance.Rows - ' If String.IsNullOrEmpty(Row("CodigoAF").ToString()) Then - ' Row("CodigoAF") = "Unidad no asignada" - ' End If - 'Next Dim jsonData As New JArray() Dim jsonCategorias As New JArray() @@ -117,6 +125,16 @@ Partial Class RepContratosCalendario ) jsonData.Add(obj) strAF.AppendFormat("{0},", Row("CveAF")) + + 'uniad contrato y duracion + + Dim unidad As String = $"{Row("CodigoAF")}-{Row("NombreAF")}" + Dim duracion As String = $"{Row("FechaInicial").ToString.ToDate.ToString("dd/MM/yyyy HH:mm")} - {Row("FechaFinal").ToString.ToDate.ToString("dd/MM/yyyy HH:mm")}" + + str.AppendLine(String.Format("{0}{{id: {1}, text: ""{2}"", start_date: ""{3:yyyy/MM/dd HH:mm}"", end_date: ""{4:yyyy/MM/dd HH:mm}"", parent: {5}, progress:{6}, open: true, unidad: ""{7}"",duracion: ""{8}""}}", + separator, Row("CveContrato"), Row("NumeroContrato").ToString().Replace("\\", "\\\\").Replace("""", "\"""), Row("FechaInicial"), Row("FechaFinal"), 0, 100, unidad, duracion)) + separator = "," + Next If TipoVista = 1 Then 'solo con viajes @@ -134,11 +152,45 @@ Partial Class RepContratosCalendario Dim FechaF = txtFechaF.Text.ToDateTime() Dim ScriptZoom = $"zoomAxis({FechaI.Year},{FechaI.Month - 1},{FechaI.Day},{FechaF.Year},{FechaF.Month - 1},{FechaF.Day});" - RegistraScript($"cargaDiagramaGrant({jsonData.ToString()},{jsonCategorias.ToString()},{TipoVista});{ScriptZoom}", "A1") + + + str.AppendLine("];loadGant();") + RegistraScript(str.ToString()) + UPPGantt.Update() + UPGat.Update() End If End Sub + + 'Public Sub loadEvento() + ' Dim separator As String = "" + ' Dim str As New StringBuilder() + ' str.AppendLine("datosGant=[") + + ' Using oieve As New ClsOIEventos() + ' If oieve.GetEventos2(RCveEvento, UsuarioActual.CveEmpresa) AndAlso oieve.DtResultados.Rows.Count > 0 Then + ' Dim drow As System.Data.DataRow = oieve.DtResultados.Rows(0) + ' LblAsunto.Text = drow("Asunto").ToString() + ' End If + + ' If oieve.GetTareaConHijos(RCveEvento, UsuarioActual.CveEmpresa) Then + ' For Each dr As System.Data.DataRow In oieve.DtResultados.Select("Nivel > 0") + ' str.AppendLine(String.Format("{0}{{id: {1}, text: ""{2}"", start_date: ""{3:yyyy/MM/dd}"", end_date: ""{4:yyyy/MM/dd}"", parent: {5}, progress:{6}, open: true }}", + ' separator, dr("CveEvento"), dr("Asunto").ToString().Replace("\\", "\\\\").Replace("""", "\"""), dr("FechaInicio"), dr("FechaFin"), If(dr("Nivel").ToString().ToEntero() <= 1, 0, dr("CveEventoPadre").ToString().ToEntero()), dr("Avance").ToString().ToDecimal() / 100)) + ' separator = "," + ' Next + ' End If + ' End Using + + ' str.AppendLine("];loadGant();") + ' RegistraScript(str.ToString()) + ' UpContenido.Update() + ' ' { id: 2, text: "Direccion: evaluación de mercado", start_date: "2020/04/29 00:00", end_date: "2020/05/02 00:00",/*duration: 3,*/ parent: 1, progress: 0.25 } + 'End Sub + + + Private Sub InicializaCalendar() RegistraScript("InitCalendar();") diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb index 475018935..984cd2efc 100644 --- a/Ventas/Promociones.aspx.vb +++ b/Ventas/Promociones.aspx.vb @@ -1365,6 +1365,8 @@ Partial Class Ventas_Promociones CargaGrid() RegistraScript("$('#DivAgregarPlantilla').modal('hide')") + ValidaPromosiones(True) + End Sub Private Function ValidaDTPlantilla(ByRef DTPlantilla As DataTable) As Boolean diff --git a/Ventas/RepPedidosSTF.aspx b/Ventas/RepPedidosSTF.aspx index 710d69627..94e602883 100644 --- a/Ventas/RepPedidosSTF.aspx +++ b/Ventas/RepPedidosSTF.aspx @@ -24,12 +24,16 @@
  • Imprimir Pedidos
    • +
  • + Excel Pedidos +
    • + diff --git a/Ventas/RepPedidosSTF.aspx.vb b/Ventas/RepPedidosSTF.aspx.vb index e0c22e6ab..f687e60a2 100644 --- a/Ventas/RepPedidosSTF.aspx.vb +++ b/Ventas/RepPedidosSTF.aspx.vb @@ -65,6 +65,12 @@ Partial Class Ventas_RepPedidosSTF End Sub Protected Sub CargaDatos() + LnkImprimirPedidos.Visible = False + LnkImprimirPedidosExcel.Visible = False + + + + DatosGV = New DataTable Dim Opcion As Integer = 1 Dim FechaInicio As Date = MinFecha @@ -99,6 +105,7 @@ Partial Class Ventas_RepPedidosSTF GvDatos.DataSource = DatosGV If DatosGV IsNot Nothing AndAlso DatosGV.Rows.Count > 0 Then LnkImprimirPedidos.Visible = True + LnkImprimirPedidosExcel.Visible = True End If End If ObjVentas.Dispose() @@ -372,7 +379,15 @@ Partial Class Ventas_RepPedidosSTF End Sub Protected Sub LnkImprimirPedidos_Click(sender As Object, e As EventArgs) + ImprimirReporte("PDF") + End Sub + Protected Sub LnkImprimirPedidosExcel_Click(sender As Object, e As EventArgs) + ImprimirReporte("Excel") + End Sub + + + Private Sub ImprimirReporte(Formato As String) Dim FechaI As String = txtFechaI.Text Dim FechaF As String = txtFechaF.Text If txtFechaI.Text = "" Then FechaI = "-1" @@ -408,13 +423,13 @@ Partial Class Ventas_RepPedidosSTF - ImprimirPDF("Empresas/Grales/Formatos/RepPedidos.rdlc", DatosGV, params, "ReportePedidos") + ImprimirPDF("Empresas/Grales/Formatos/RepPedidos.rdlc", DatosGV, params, "ReportePedidos", Formato) Else Alert("No hay datos consultados", TipoMensaje.MsgAdvertencia) End If - End Sub + Protected Sub BtnEditarHorariosPedidos_Click(sender As Object, e As EventArgs) Dim objSisEmpresas As New ClsSisEmpresas If objSisEmpresas.UpdateEmpresaFuncionalidad(546, $"{TxtHorarioDe.Text}|{TxtHorarioA.Text}", UsuarioActual.CveEmpresa) Then