Merge branch 'master' of http://192.168.10.111:8383/SIG

Inventarios/RepResumenMovimientosDiario.aspx

@@ -145,7 +145,7 @@
                     <div class="titlefiltros caption magindate">
                         <div class="row">
                             <div class="col-md-1 truncate text-right">Fecha del mes: </div>
-                            <div class="col-md-3">
+                            <div class="col-md-1">
                                 <div class="input-group input-sm input-small date date-picker " data-date-format="dd/mm/yyyy" style="width: 95px !important; padding: 0px;">
                                     <asp:TextBox Style="width: 80px !important;" ID="TxtFechaMes" runat="server" CssClass="form-control" CausesValidation="true" MaxLength="10"></asp:TextBox>
                                     <span class="input-group-btn ">
@@ -155,6 +155,13 @@
                                 <ajax:MaskedEditExtender ID="MaskedEditExtender1" runat="server" TargetControlID="TxtFechaMes" Mask="99/99/9999" MaskType="Date" DisplayMoney="Left" AcceptNegative="Left"></ajax:MaskedEditExtender>
                                 <ajax:CalendarExtender runat="server" ID="CalendarExtender1" TargetControlID="TxtFechaMes" PopupButtonID="ImgFechaMes" PopupPosition="BottomRight" Enabled="True"></ajax:CalendarExtender>
                             </div>
+
+                            <label class="col-md-1 truncate text-right"  runat="server">Almacén:</label>
+                            <div class="col-md-2">
+                                <asp:DropDownList ID="ddlAlmacen" runat="server" CssClass="select2me"   DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>                                
+                            </div>
+
+
                         </div>
                     </div>
                 </div>

Inventarios/RepResumenMovimientosDiario.aspx.vb

@@ -18,13 +18,25 @@ Partial Class Inventarios_RepResumenMovimientosDiario
     End Property
     Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
         If Not IsPostBack Then
-            TxtFechaMes.Text = NowADS().ToString("dd/MM/yyyy")
+            InicializaControles()
+
+
         End If
     End Sub
 
+    Private Sub InicializaControles()
+
+        ddlAlmacen.DataSource = GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1)
+        ddlAlmacen.DataBind()
+        ddlAlmacen.Items.Insert(0, New ListItem("Todos", "-1"))
+
+        TxtFechaMes.Text = NowADS().ToString("dd/MM/yyyy")
+
+    End Sub
+
     Private Sub CargarDatos()
         Dim ObjInventarios As New ClsInventarios
-        If ObjInventarios.GetRepResumenMovimientosDiario(TxtFechaMes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
+        If ObjInventarios.GetRepResumenMovimientosDiario(TxtFechaMes.Text.ToDate, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, ddlAlmacen.SelectedValue.ToEntero) Then
             DtDatos = ObjInventarios.DtResultados.Copy()
             GvDatos.DataSource = DtDatos
         End If

Inventarios/TrasladoSolicitud.aspx.vb

@@ -320,7 +320,7 @@ Partial Class Inventarios_TrasladoSolicitud
         End If
 
         If Not GvDatos.Rows.Count > 0 Then
-            Alert("No se ha seleccionado ningún Producto para trasladar.", TipoMensaje.MsgAdvertencia)
+            Alert("No se ha seleccionado ningún producto para trasladar.", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
 
@@ -479,6 +479,20 @@ Partial Class Inventarios_TrasladoSolicitud
             Exit Sub
         End If
 
+        Dim HaySeleccion As Boolean = False
+        For Each gvr As GridViewRow In GvSolicitudes.Rows
+            Dim Cantidad As Decimal = gvr.FCTextBox("TxtCantidad").Text.ToDecimal
+            If gvr.FCCheckBox("Chk").Checked AndAlso Cantidad > 0 Then
+                HaySeleccion = True
+                Exit For
+            End If
+        Next
+
+        If Not HaySeleccion Then
+            Alert("No se ha seleccionado ningún producto para trasladar.", TipoMensaje.MsgAdvertencia)
+            Exit Sub
+        End If
+
         Dim ErrorMovInv As Boolean = False
         Dim ErrorExistencia As Boolean = False
 
@@ -749,8 +763,8 @@ Partial Class Inventarios_TrasladoSolicitud
 
         If e.Row.RowType = DataControlRowType.DataRow Then
 
-            Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
-            Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False)
+            'Dim PermisoOrigen As Boolean = If(e.Row.DataKey("PermisoOrigen").ToEntero = 1, True, False)
+            'Dim PermisoDestino As Boolean = If(e.Row.DataKey("PermisoDestino").ToEntero = 1, True, False)
 
             Dim CveMovimientoAlmacen As Integer = e.Row.DataKey("CveMovimientoAlmacen").ToEntero
             Dim FolioMovimiento As Integer = e.Row.DataKey("FolioMovimiento").ToEntero
@@ -758,6 +772,9 @@ Partial Class Inventarios_TrasladoSolicitud
             Dim CveMovimientoTransitorio As Integer = e.Row.DataKey("CveMovimientoTransitorio").ToEntero
             Dim CveAlmacenTransitorio As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero
 
+            Dim PermisoOrigen As Boolean = If(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveAlmacen = {e.Row.DataKey("CveAlmacenOrigen").ToEntero}").ToEntero > 0, True, False)
+            Dim PermisoDestino As Boolean = If(GlobalDTAlmacenUsuarios(UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa).FiltroPrimeroValor("CveAlmacen", $" CveAlmacen = {CveAlmacenDestino}").ToEntero > 0, True, False)
+
             'Dim CveMovimientoEntrada As Integer = e.Row.DataKey("CveAlmacenTransitorio").ToEntero ' Este es el movmiento   de recepcion  de traspaso
 
             e.Row.FCLinkButton("LnkMostrarTraspaso").Visible = True