-

Inventarios/EntradasSalidas.aspx.vb

@@ -145,6 +145,15 @@ Partial Class Inventarios_EntradasSalidas
             ViewState("TieneSalida") = value
         End Set
     End Property
+
+    Public Property CveEntregaAlmacen() As Integer
+        Get
+            Return ViewState("CveEntregaAlmacen").ToString.ToEntero
+        End Get
+        Set(value As Integer)
+            ViewState("CveEntregaAlmacen") = value
+        End Set
+    End Property
     Private Property DtBitacora As DataTable
         Get
             Return CType(ViewState("DtBitacora"), DataTable)
@@ -471,7 +480,6 @@ Partial Class Inventarios_EntradasSalidas
                 CargaDatosEntregaAlmacen(Request("CveEntregaAlmacen").ToString.ToEntero)
             End If
 
-
             'BLOQUEA PERMISOS
             BtnGuardar.Enabled = PermiteGuardar()
             BtnEliminar.Enabled = PermiteEliminar()
@@ -507,7 +515,6 @@ Partial Class Inventarios_EntradasSalidas
                 'ImgFecha.Visible = True
             End If
 
-
             If CveMovimiento > 0 And CveConcepto.Contiene(8) And UsuarioActual.Empresa.Funcionalidad(578).ToEntero = 1 Then
                 ValidaUsaConsola()
             End If
@@ -1238,7 +1245,7 @@ Partial Class Inventarios_EntradasSalidas
     End Sub
 
 
-    Private Sub CargaDatosEntregaAlmacen(CveEntregaAlmacen As Integer)
+    Private Sub CargaDatosEntregaAlmacen(tCveEntregaAlmacen As Integer)
         'RECARGA ALMACENES SOLO DE recepcion de usados
         DdlAlmacen.Items.Clear()
         DdlAlmacen.DataBind()
@@ -1254,8 +1261,8 @@ Partial Class Inventarios_EntradasSalidas
 
         Dim ObjGenerales As New ClsGenerales()
 
-        If (ObjGenerales.GetEntregaAlmacenRutaDetalle(CveEntregaAlmacen)) Then
+        If (ObjGenerales.GetEntregaAlmacenRutaDetalle(tCveEntregaAlmacen)) Then
-
+            CveEntregaAlmacen = tCveEntregaAlmacen
             For Each dr As DataRow In ObjGenerales.DtResultados.Rows
                 AddNew(dr("CvePS").ToString.ToEntero, dr("CodigoPS").ToString, dr("CveUnidadMedida").ToString.ToEntero, dr("Abreviatura").ToString, dr("Cantidad").ToString.ToDecimal,
                 0, "", "", "", "", "E", "", MinFecha, 0, "")
@@ -1975,8 +1982,7 @@ Partial Class Inventarios_EntradasSalidas
 
                     Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Inv/ES", 53, 0, 0, 1, TxtFecha.Text.Replace(",", "").ToDate, obs, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, CveTipoPoliza:=3)
 
-                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1")
+                    CveMovimiento = ObjInventario.AddMovimiento(CveAlmacen, DdlConcepto.SelectedValue.ToEntero, 1, Fecha, tFolio, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, SubProyecto, ActivoFijo, Guia:=TxtGuia.Text, Observaciones:=TxtObservaciones.Text, CvePersonal:=DdlPersonal.SelectedValue.ToEntero, Recibio:=TxtResponsable.Text.Trim, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, DepartamentoEntrega:=TxtDepartamentoEntrega.Text, PedidoContrato:=TxtPedidoContrato.Text, CveProveedor:=tCveProveedor, Modulo:="ES/1", CveEntregaAlmacen:=CveEntregaAlmacen)
-
 
                     If CveMovimiento <= 0 OrElse CvePrePoliza <= 0 Then
                         Alert("No se pudo almacenar el movimiento correctamente", TipoMensaje.MsgError)

Inventarios/RepEntregaAlmacenRuta.aspx

@@ -81,10 +81,20 @@
                 </div>
                 <div class="portlet-body" style="display: none;">
                     <div class="row">
-                         <label class="col-md-1 " id="Label1" runat="server" style="width: 90px; margin-top: 5px;">Chofer:</label>
+                         <label class="col-md-1 " id="Label1" runat="server" >Chofer:</label>
                             <div class="col-md-2"    >
                                <asp:DropDownList ID="DdlChofer" runat="server" DataTextField="Chofer" DataValueField="CveChofer"   CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true"></asp:DropDownList>
                             </div>
+                        <label class="col-md-1 " id="LblTipo" runat="server">Tipo:</label>
+                           <div class="col-md-2"    >
+                              <asp:DropDownList ID="DdlTipo" runat="server" CssClass="form-control input-sm select2me" Width="100%" CausesValidation="true">
+                                  <asp:ListItem Value="-1" Text="Todos"></asp:ListItem>
+                                  <asp:ListItem Value="T" Text="Traspasos"></asp:ListItem>
+                                  <asp:ListItem Value="R" Text="Recolecciones"></asp:ListItem>
+                                  <asp:ListItem Value="E" Text="Entregas"></asp:ListItem>
+                                  <asp:ListItem Value="I" Text="Ingresos"></asp:ListItem>
+                              </asp:DropDownList>
+                           </div>
                     </div>
      
                 </div>

Inventarios/RepEntregaAlmacenRuta.aspx.cs

@@ -345,7 +345,7 @@ public partial class General_RepEntregaAlmacenRuta : ClsPaginas
     {
         ClsGenerales ObjGeneral = new ClsGenerales();
 
-        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario))
+        if (ObjGeneral.GetInvEntregaAlmacenRutaRep(DdlSucursales.SelectedValue.ToEntero(), UsuarioActual.CveEmpresa, DdlEstatus.SelectedValue.ToEntero(), TxtFechaI.Text.ToDate(), TxtFechaF.Text.ToDate(), DdlChofer.SelectedValue.ToEntero(), UsuarioActual.CveUsuario, Tipo:DdlTipo.SelectedValue))
         {
             DTDatos = ObjGeneral.DtResultados;
             GVDatos.DataSource = DTDatos;