Inventarios/Apartados.aspx

@@ -397,11 +397,11 @@
 
                 <%--GV DATOS APARTADOS--%>
                 <div class="row">
-                    <div class="col-md-10 col-md-offset-1">
+                    <div class="col-md-12 col-md-offset-1">
                         <asp:UpdatePanel runat="server" ID="UpDatosDesapartado" UpdateMode="Conditional">
                             <ContentTemplate>
                                 <div style="max-height: 300px; overflow-y: auto;">
-                                    <asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion,AplicaSerie" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada" ToolTip="Listado de Movimientos" CssClass="Widthall table table-striped table-hover" GridLines="None">
+                                    <asp:GridView ID="GvDatosDesapartado" DataKeyNames="CvePS,CveUM,CveMovimientoDetalle,CveSeccionAlmacen,Serie,Lote,FechaCaducidad,PU,Cantidad,AplicaSeccion,AplicaSerie" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontró mercancía apartada"   CssClass="Widthall table table-striped table-hover" GridLines="None">
                                         <Columns>
                                             <asp:BoundField HeaderText="#" DataField="No" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%" ItemStyle-Font-Size="6pt" />
                                             <asp:BoundField HeaderText="Disponible" DataField="Cantidad" DataFormatString="{0:#,###.##}" ItemStyle-Width="10%" ItemStyle-HorizontalAlign="Right" />

Inventarios/EntradasSalidas.aspx.vb

@@ -790,6 +790,15 @@ Partial Class Inventarios_EntradasSalidas
 
             End If
 
+            'carga personal
+            If Mov.CvePersonal > 0 Then
+                DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=Mov.CvePersonal)
+                DdlPersonal.DataBind()
+                DdlPersonal.SelectedValueExist(Mov.CvePersonal)
+                DdlPersonal.Enabled = False
+                TrPersonal.Visible = True
+            End If
+
             If Mov.CveClienteSucursal > 0 Then
                 CambiaCliente()
 

Inventarios/EntregaAlmacen.aspx.vb

@@ -2128,6 +2128,8 @@ Partial Class Inventarios_EntregaAlmacen
                                         CveMovimientoSalida = DtTraspasos.FiltroPrimeroValor("CveMovimientoSalida", $"CveAlmacen = {Dr1("CveAlmacen")}").ToEntero
 
                                         If Not CveMovimientoSalida > 0 Then
+
+
                                             CveMovimientoSalida = ObjInventario.AddMovimiento(Dr1("CveAlmacen").ToString.ToEntero, 8, 1, TxtFecha.Text.ToDate, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, CveVentaSurtir, -1, -1,
                                                                                               Observaciones:=TxtObservaciones.Text.Trim, Guia:=TxtGuia.Text, CveContrato:=CveContrato, CveVendedor:=CveVendedor,
                                                                                               CveCliente:=If(UsuarioActual.Empresa.Funcionalidad(146) = "1", -1, CveCliente), CveAlmacenDestino:=DdlAlmacen.SelectedValue.ToEntero, Modulo:="RE/G3")
@@ -2149,6 +2151,12 @@ Partial Class Inventarios_EntregaAlmacen
                                             DtTraspasos.Rows.Add(DrMovto)
                                         End If
 
+                                        Dim CveSeccionAlmacen As Integer = -1
+                                        If CBool(Dr("AplicaSeccion")) Then
+                                            CveSeccionAlmacen = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, Dr1("CveAlmacen").ToString.ToEntero, Dr("CvePS").ToString.ToEntero).FiltroPrimeroValor("CveSeccionAlmacen").ToEntero
+                                        Else
+                                            CveSeccionAlmacen = -1
+                                        End If
 
                                         CantidadPendiente = If(Dr1("ExistenciaFinal").ToString.ToDecimal > CantidadSaldo, CantidadSaldo, Dr1("ExistenciaFinal").ToString.ToDecimal)
 
@@ -2157,7 +2165,7 @@ Partial Class Inventarios_EntregaAlmacen
                                                                                     CveVentaDetalle:=Dr("CveVentaDetalle").ToString.ToEntero,
                                                                                     FechaCaducidad:=If(CBool(Dr("AplicaCaducidad")), Dr("FechaCaducidad").ToString.ToDate, MinFecha),
                                                                                     Lote:=If(CBool(Dr("AplicaLote")), Dr("Lote").ToString, "-1"),
-                                                                                    CveSeccionAlmacen:=If(CBool(Dr("AplicaSeccion")), Dr("CveSeccion").ToString.ToEntero, -1)) Then
+                                                                                    CveSeccionAlmacen:=CveSeccionAlmacen) Then
                                             ErrorMovInv = True
                                             TextoError.AppendFormat("Ocurrió un error al procesar los conceptos de traspaso de apartado. Por favor vuelva a intentar.")
                                             Exit For

Inventarios/PopUpExistenciasAlmacen.aspx.vb

@@ -164,7 +164,7 @@ Partial Class Inventarios_Default
             UPDatos.Update()
             TblBusqueda.Visible = True
         Else
-            Alert("Seleccione un producto o servicio", TipoMensaje.MsgAdvertencia)
+            Alert("Seleccione un producto", TipoMensaje.MsgAdvertencia)
         End If
     End Sub
     Private Sub GV_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GV.RowDataBound