-- liberar con secciones
This commit is contained in:
rrene
@@ -829,7 +829,7 @@
|
||||
|
||||
<asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros de uniforme" ToolTip="Listado de familiares"
|
||||
<asp:GridView ID="GvUniformesResguardo" runat="server" AutoGenerateColumns="False" EmptyDataText="No se encontraron registros" DataKeyNames="CveAlmacen,CodigoPS,PU,CveUM,CveMovimiento,CveMovimientoDetalle,CvePS,AplicaSeccion,AplicaSerie,CveSeccionAlmacen" ToolTip=""
|
||||
CssClass="table table-hover table-advance Widthall" GridLines="None">
|
||||
<Columns>
|
||||
<asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" />
|
||||
@@ -3861,13 +3861,18 @@
|
||||
<h4 class="modal-title">Liberar Uniforme</h4>
|
||||
</div>
|
||||
<div class="modal-body">
|
||||
<asp:UpdatePanel runat="server" ID="UpdatePanel3" UpdateMode="Conditional">
|
||||
<asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">
|
||||
<ContentTemplate>
|
||||
<div class="row" style="width: 50%; text-align: center">
|
||||
<div class="row" style="width: 75%;">
|
||||
<asp:Label Text="Almacen: " runat="server" Style="width: 20%" />
|
||||
<asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" CssClass="form-control input-sm select2me" Style="width: 50%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
|
||||
</div>
|
||||
|
||||
<div runat="server" id="divSeccionAlmacen" class="frow" visible="false">
|
||||
<asp:Label Text="Sección: " runat="server" Style="width: 20%" />
|
||||
<asp:DropDownList ID="DdlSeccionAlmacen" DataTextField="Seccion" AppendDataBoundItems="true" DataValueField="CveSeccion" Class="form-control input-sm select2me" Style="width: 50% !important" runat="server" CausesValidation="true">
|
||||
<asp:ListItem Selected="True" Text="Seleccione" Value="-1"></asp:ListItem>
|
||||
</asp:DropDownList>
|
||||
</div>
|
||||
</ContentTemplate>
|
||||
</asp:UpdatePanel>
|
||||
</div>
|
||||
|
||||
@@ -271,6 +271,14 @@ Partial Class RH_Personal
|
||||
Set(value As Integer)
|
||||
ViewState("CveAlmacenUniforme") = value
|
||||
End Set
|
||||
End Property
|
||||
Private Property CveSeccionAlmacenUniforme As Integer
|
||||
Get
|
||||
Return CInt(ViewState("CveSeccionAlmacenUniforme"))
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveSeccionAlmacenUniforme") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Property DescripcionUniforme As String
|
||||
@@ -302,7 +310,7 @@ Partial Class RH_Personal
|
||||
|
||||
Private Property PU As Decimal
|
||||
Get
|
||||
Return CInt(ViewState("PU"))
|
||||
Return ViewState("PU").ToString.ToDecimal
|
||||
End Get
|
||||
Set(value As Decimal)
|
||||
ViewState("PU") = value
|
||||
@@ -5080,22 +5088,27 @@ Partial Class RH_Personal
|
||||
End Sub
|
||||
|
||||
Protected Sub LbLiberarUniforme(sender As Object, e As System.EventArgs)
|
||||
Dim lb As LinkButton = CType(sender, LinkButton)
|
||||
|
||||
Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
|
||||
Dim index As Integer = row.DataItemIndex
|
||||
|
||||
Dim rowInfo As DataRow = UniformesInfo.Rows(index)
|
||||
Dim lb As LinkButton = CType(sender, LinkButton)
|
||||
|
||||
Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
|
||||
|
||||
CveAlmacenUniforme = row.DataKey("CveAlmacen").ToString().ToEntero
|
||||
DescripcionUniforme = row.DataKey("CodigoPS")
|
||||
PU = row.DataKey("PU").ToString().ToDecimal
|
||||
CveSeccionAlmacenUniforme = row.DataKey("CveSeccionAlmacen").ToString().ToEntero
|
||||
CveUM = row.DataKey("CveUM").ToString().ToEntero
|
||||
CvePS = row.DataKey("CvePS").ToString().ToEntero
|
||||
CveMovimientoUniforme = row.DataKey("CveMovimiento").ToString().ToEntero
|
||||
CveMovimientoDetalleUniforme = row.DataKey("CveMovimientoDetalle").ToString().ToEntero
|
||||
If row.DataKey("AplicaSeccion").ToString = "True" Then
|
||||
divSeccionAlmacen.Visible = True
|
||||
DdlSeccionAlmacen.Items.Clear()
|
||||
DdlSeccionAlmacen.DataSource = GlobalDTInvPSSeccionesAlmacen(UsuarioActual.CveEmpresa, DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePS)
|
||||
DdlSeccionAlmacen.DataBind()
|
||||
End If
|
||||
|
||||
|
||||
CveAlmacenUniforme = rowInfo.Item("CveAlmacen").ToString().ToEntero
|
||||
DescripcionUniforme = rowInfo.Item("CodigoPS").ToString()
|
||||
PU = rowInfo.Item("PU").ToString().ToDecimal
|
||||
|
||||
CveUM = rowInfo.Item("CveUM").ToString().ToEntero
|
||||
CvePS = rowInfo.Item("CvePS").ToString().ToEntero
|
||||
CveMovimientoUniforme = rowInfo.Item("CveMovimiento").ToString().ToEntero
|
||||
CveMovimientoDetalleUniforme = rowInfo.Item("CveMovimientoDetalle").ToString().ToEntero
|
||||
UPPLiberarUniforme.Update()
|
||||
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
|
||||
End Sub
|
||||
@@ -5108,20 +5121,25 @@ Partial Class RH_Personal
|
||||
|
||||
Sub LiberarUniforme(sender As Object, e As EventArgs)
|
||||
|
||||
Dim ObjInv As New ClsInventarios
|
||||
Dim ObjInventario As New ClsInventarios
|
||||
ObjInventario.IniciaTransacSQL()
|
||||
|
||||
Dim ResultadoSalida As Integer = ObjInv.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
|
||||
Dim ResultadoEntrada As Integer = ObjInv.AddMovimiento(CInt(DdlAlmacenDestinoLiberarUniforme.SelectedValue), 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
|
||||
|
||||
Dim ResultadoDetalleSalida As Boolean = ObjInv.AddMovimientoDetalle(ResultadoSalida, 1.0, CveUM, CvePS, PU, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
|
||||
Dim ResultadoDetalleEntrada As Boolean = ObjInv.AddMovimientoDetalle(ResultadoEntrada, 1.0, CveUM, CvePS, PU, -1)
|
||||
Dim CveResultadoSalida As Integer = ObjInventario.AddMovimiento(CveAlmacenUniforme, 3, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CveAlmacenDestino:=DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme)
|
||||
Dim ResultadoDetalleSalida As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
|
||||
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
|
||||
Dim CveResultadoEntrada As Integer = ObjInventario.AddMovimiento(DdlAlmacenDestinoLiberarUniforme.SelectedValue.ToEntero, 2, 1, Date.Now, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, -1, -1, -1, CvePersonal:=CvePersonal, Observaciones:=DescripcionUniforme, CveMovimientoRelacionado:=CveMovimientoUniforme)
|
||||
Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
|
||||
|
||||
If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
|
||||
ObjInventario.Commit()
|
||||
Alert("Uniforme liberado")
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
|
||||
CargaUniformesPersonal()
|
||||
CargaUniformesPersonal()
|
||||
Else
|
||||
Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
|
||||
ObjInventario.RollBack()
|
||||
End If
|
||||
ObjInv.Dispose()
|
||||
ObjInventario.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
@@ -5130,7 +5148,7 @@ Partial Class RH_Personal
|
||||
|
||||
#Region "CARGAR IMAGEN"
|
||||
Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchvivo"))
|
||||
RegistraScript(String.Format("$('#{0}').modal();", "ModalArchivo"))
|
||||
End Sub
|
||||
|
||||
Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click
|
||||
|
||||
Reference in New Issue
Block a user