AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- liberar con secciones

Browse Source
This commit is contained in:
rrene
2020-07-28 23:13:39 -07:00
parent 2d554e587d
commit c7f6f4d76c
2 changed files with 51 additions and 28 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
RH/Personal.aspx
View File

@@ -829,7 +829,7 @@
<asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional"> <asp:UpdatePanel ID="UpUniformesResguardo" runat="server" UpdateMode="Conditional">
<ContentTemplate> <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"> CssClass="table table-hover table-advance Widthall" GridLines="None">
<Columns> <Columns>
<asp:HyperLinkField DataNavigateUrlFields="CveMovimiento" Target="_blank" HeaderText="Folio" DataNavigateUrlFormatString="../Inventarios/EntradasSalidas.aspx?CveMovimiento={0}" DataTextField="Folio" /> <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> <h4 class="modal-title">Liberar Uniforme</h4>
</div> </div>
<div class="modal-body"> <div class="modal-body">
<asp:UpdatePanel runat="server" ID="UpdatePanel3" UpdateMode="Conditional"> <asp:UpdatePanel runat="server" ID="UPPLiberarUniforme" UpdateMode="Conditional">
<ContentTemplate> <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: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> <asp:DropDownList runat="server" ID="DdlAlmacenDestinoLiberarUniforme" CssClass="form-control input-sm select2me" Style="width: 50%" DataTextField="Almacen" DataValueField="CveAlmacen"></asp:DropDownList>
</div> </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> </ContentTemplate>
</asp:UpdatePanel> </asp:UpdatePanel>
</div> </div>

56
RH/Personal.aspx.vb
View File

@@ -272,6 +272,14 @@ Partial Class RH_Personal
ViewState("CveAlmacenUniforme") = value ViewState("CveAlmacenUniforme") = value
End Set End Set
End Property 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 Private Property DescripcionUniforme As String
Get Get
@@ -302,7 +310,7 @@ Partial Class RH_Personal
Private Property PU As Decimal Private Property PU As Decimal
Get Get
Return CInt(ViewState("PU")) Return ViewState("PU").ToString.ToDecimal
End Get End Get
Set(value As Decimal) Set(value As Decimal)
ViewState("PU") = value ViewState("PU") = value
@@ -5083,19 +5091,24 @@ Partial Class RH_Personal
Dim lb As LinkButton = CType(sender, LinkButton) Dim lb As LinkButton = CType(sender, LinkButton)
Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow) Dim row As GridViewRow = CType(lb.NamingContainer, GridViewRow)
Dim index As Integer = row.DataItemIndex
Dim rowInfo As DataRow = UniformesInfo.Rows(index) 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 UPPLiberarUniforme.Update()
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
RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme")) RegistraScript(String.Format("$('#{0}').modal();", "ModalUniforme"))
End Sub End Sub
@@ -5108,20 +5121,25 @@ Partial Class RH_Personal
Sub LiberarUniforme(sender As Object, e As EventArgs) 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 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 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 = ObjInventario.AddMovimientoDetalle(CveResultadoSalida, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacenUniforme, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme)
Dim CveSeccionAlmacen As Integer = DdlSeccionAlmacen.SelectedValue.ToEntero
Dim ResultadoDetalleSalida As Boolean = ObjInv.AddMovimientoDetalle(ResultadoSalida, 1.0, CveUM, CvePS, PU, -1, CveMovimientoDetalleEntrada:=CveMovimientoDetalleUniforme) 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 = ObjInv.AddMovimientoDetalle(ResultadoEntrada, 1.0, CveUM, CvePS, PU, -1) Dim ResultadoDetalleEntrada As Boolean = ObjInventario.AddMovimientoDetalle(CveResultadoEntrada, 1.0, CveUM, CvePS, PU, CveSeccionAlmacen:=CveSeccionAlmacen)
If ResultadoDetalleSalida And ResultadoDetalleEntrada Then If ResultadoDetalleSalida And ResultadoDetalleEntrada Then
ObjInventario.Commit()
Alert("Uniforme liberado") Alert("Uniforme liberado")
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme")) RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalUniforme"))
CargaUniformesPersonal() CargaUniformesPersonal()
Else
Alert("No se pudo registrar la liberación.", TipoMensaje.MsgError)
ObjInventario.RollBack()
End If End If
ObjInv.Dispose() ObjInventario.Dispose()
End Sub End Sub
@@ -5130,7 +5148,7 @@ Partial Class RH_Personal
#Region "CARGAR IMAGEN" #Region "CARGAR IMAGEN"
Private Sub LnkSubirFacturas_Click(sender As Object, e As EventArgs) Handles LnkSubirFacturas.Click 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 End Sub
Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click Private Sub BtnGuardarArchivo_Click(sender As Object, e As EventArgs) Handles BtnGuardarArchivo.Click