- | Proyecto: |
+ |
|
-
+
|
diff --git a/OC/PopUpBuscarReq.aspx.vb b/OC/PopUpBuscarReq.aspx.vb
index f4d2d40c4..92216f52f 100644
--- a/OC/PopUpBuscarReq.aspx.vb
+++ b/OC/PopUpBuscarReq.aspx.vb
@@ -70,18 +70,19 @@ Partial Class OC_PopUpBuscarReq
txtFechaI.Text = Now.FirstDayOfMonth.AddMonths(-3).ToShortDateString
CargaEstatus()
- If UsuarioActual.Empresa.GralSoloProyecto Then
- TdProyecto.Visible = False
- TdProyecto2.Visible = False
- LtSubProyecto.Text = "Proyecto:"
- Else
- 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
- 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
- ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
- DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
- DdlProyectos.DataBind()
- DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
- End If
+ CargarCentrosDeCosto(DdlProyectos, DdlSubProyectos, LblProyecto, LtSubProyecto)
+ 'If UsuarioActual.Empresa.GralSoloProyecto Then
+ ' TdProyecto.Visible = False
+ ' TdProyecto2.Visible = False
+ ' LtSubProyecto.Text = "Proyecto:"
+ 'Else
+ ' 'DdlProyectos.DataSource = DtEstatusUsuarios.FiltraParametros("", "", {"CveProyecto", "Proyecto"}) 'GlobalDTProyectos(UsuarioActual.CveEmpresa, 1)
+ ' 'DdlProyectos.DataSource = If(UsuarioActual.Empresa.Funcionalidad(102) = "1" AndAlso Not UsuarioActual.TienePermisoProceso(110),
+ ' ' GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1), GlobalDTProyectos(UsuarioActual.CveEmpresa, -1))
+ ' DdlProyectos.DataSource = GlobalDTProyectosUsuarios(UsuarioActual.CveUsuario, -1, UsuarioActual.CveEmpresa, -1)
+ ' DdlProyectos.DataBind()
+ ' DdlProyectos.Items.Insert(0, New ListItem("Todos", "-1"))
+ 'End If
DdlProveedor.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
DdlProveedor.DataBind()
@@ -161,10 +162,10 @@ Partial Class OC_PopUpBuscarReq
Dim CveProyecto = -1
Dim CveSubProyecto = -1
- If UsuarioActual.Empresa.GralSoloProyecto Then
+ If LblProyecto.Visible Then
+ CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
Else
- CveProyecto = DdlProyectos.SelectedValue.ToEntero
CveSubProyecto = DdlSubProyectos.SelectedValue.ToEntero
End If
diff --git a/RH/Personal.aspx b/RH/Personal.aspx
index 9dabad475..16ff6e369 100644
--- a/RH/Personal.aspx
+++ b/RH/Personal.aspx
@@ -829,7 +829,7 @@
-
@@ -3861,13 +3861,18 @@
Liberar Uniforme
-
+
-
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb
index 117080dbd..50d0a075f 100644
--- a/RH/Personal.aspx.vb
+++ b/RH/Personal.aspx.vb
@@ -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
diff --git a/Sistemas/UsuarioDetalle.aspx.vb b/Sistemas/UsuarioDetalle.aspx.vb
index cd8b24562..2a596754f 100644
--- a/Sistemas/UsuarioDetalle.aspx.vb
+++ b/Sistemas/UsuarioDetalle.aspx.vb
@@ -1326,8 +1326,8 @@ Partial Class Sistemas_UsuarioDetalle
'RECARGA GLOBAL ALMACEN
- If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-
+ 'If ObjUsuarios.GetAlmacen(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
+ GlobalDTAlmacenUsuarios(-1, UsuarioActual.CveEmpresa) = Nothing
'RECARGA GLOBAL EMPRESAS USUARIOS
If ObjUsuarios.GetUsuariosEmpresas(-1) Then
diff --git a/Ventas/ProductosServicios.aspx b/Ventas/ProductosServicios.aspx
index 36274682c..075222523 100644
--- a/Ventas/ProductosServicios.aspx
+++ b/Ventas/ProductosServicios.aspx
@@ -2072,7 +2072,7 @@
|