diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb index 4ec17f940..468f9e2d7 100644 --- a/App_Code/ClsPaginas.vb +++ b/App_Code/ClsPaginas.vb @@ -3483,7 +3483,7 @@ Public Class ClsPaginas PaginaDict.Add("/Inicio.aspx".ToUpper(), -1) PaginaDict.Add("/reporteador.aspx".ToUpper(), -1) - PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), -1) + PaginaDict.Add("/GPS/RepArrastre.aspx".ToUpper(), 718) PaginaDict.Add("/Ventas/RepConciliacionEmitidosSat.aspx".ToUpper(), -1) PaginaDict.Add("/Ventas/RepConciliacionSat.aspx".ToUpper(), 716) PaginaDict.Add("/Ventas/SolicitudesSAT.aspx".ToUpper(), 717) diff --git a/Compras/PopUpVerFactura.aspx.vb b/Compras/PopUpVerFactura.aspx.vb index 4bb00633a..636954eb7 100644 --- a/Compras/PopUpVerFactura.aspx.vb +++ b/Compras/PopUpVerFactura.aspx.vb @@ -2891,7 +2891,33 @@ Partial Class PopUpVerFactura End If End If - End If + End If + + Case 42 'ENTRADAS USADOS + + Dim ObjAcum As New ClsAcumuladores + Dim DatosEntradasUsados As New DataTable + Dim CveAlmacen As String = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", String.Format("Almacen = '{0}'", Almacen)) + If ObjAcum.EntradasUsadosGet(UsuarioActual.CveEmpresa, CveAlmacen.ToEntero, Convert.ToDateTime(Fecha.ToString), Convert.ToDateTime(Today.ToString)) Then + DatosEntradasUsados = ObjAcum.DtResultados + + End If + ObjAcum.Dispose() + + Dim Dia As String = {"lunes", "martes", "miércoles", "jueves", "viernes", "sábado", "domingo"}(If((Weekday(Today) - 2) = -1, 7, Weekday(Today) - 2)) + Dim Mes As String = {"enero", "febrero", "marzo", "abril", "mayo", "junio", "julio", "agosto", "septiembre", "octubre", "noviembre", "diciembre"}(Month(Today) - 1) + + Dim FechaConFormato As String = String.Format("{0}, {1} de {2} de {3}", Dia, Day(Today), Mes, Year(Today)) + + Dim params As New List(Of ReportParameter) + + params.Add(New ReportParameter("Direccion", Almacen)) + params.Add(New ReportParameter("FechaConFormato", FechaConFormato)) + params.Add(New ReportParameter("FechaInicial", Fecha)) + params.Add(New ReportParameter("FechaFinal", Today.ToString)) + params.Add(New ReportParameter("Sucursal", "Sucursal")) + + ImprimirPDF(String.Format("Empresas/{0}/Formatos/RepUsadosEntradas.rdlc", UsuarioActual.CveEmpresa), DtMovimientos, params, "Reporte entrada usados", "PDF", "DsInventarios") End Select diff --git a/GPS/RepArrastre.aspx b/GPS/RepArrastre.aspx index dc674de2a..dbb648fe0 100644 --- a/GPS/RepArrastre.aspx +++ b/GPS/RepArrastre.aspx @@ -54,8 +54,6 @@
-
-
@@ -78,7 +76,7 @@
- +
@@ -105,7 +103,7 @@
- +
@@ -116,6 +114,28 @@
+ + +
+
+
+ + Alerta el vehiculo se encuentra en arrastre +
+
+
+
+
+ +
+ <%----%> +
+
+
+ +
+
+
@@ -124,6 +144,7 @@ +