@@ -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 b/Ventas/Promociones.aspx
index b3f400918..5b8f32de4 100644
--- a/Ventas/Promociones.aspx
+++ b/Ventas/Promociones.aspx
@@ -292,7 +292,7 @@
|
-
+
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
|