858 lines
35 KiB
VB.net
858 lines
35 KiB
VB.net
Imports Extensiones
|
|
Imports System.Data
|
|
|
|
Partial Class Inventarios_InventarioFisico
|
|
Inherits ClsPaginas
|
|
|
|
|
|
#Region "PROPIEDADES"
|
|
|
|
Public Property DtEquivalencias() As DataTable
|
|
Get
|
|
Return CType(ViewState("dtIF"), DataTable)
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("dtIF") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property tDTClasif As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTClasif")), Nothing, CType(ViewState("tDTClasif"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTClasif") = value
|
|
End Set
|
|
End Property
|
|
Private Property tDTProv As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTProv")), Nothing, CType(ViewState("tDTProv"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTProv") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property tDTUsuario As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTUsuario")), Nothing, CType(ViewState("tDTUsuario"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTUsuario") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property tDTClasifExcluye As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTClasifExcluye")), Nothing, CType(ViewState("tDTClasifExcluye"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTClasifExcluye") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property tDTPS As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTPS")), Nothing, CType(ViewState("tDTPS"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTPS") = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Property tDTPSExcluye As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tDTPSExcluye")), Nothing, CType(ViewState("tDTPSExcluye"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tDTPSExcluye") = value
|
|
End Set
|
|
End Property
|
|
Private Property tALM As DataTable
|
|
Get
|
|
Return If(IsNothing(ViewState("tALM")), Nothing, CType(ViewState("tALM"), DataTable))
|
|
End Get
|
|
Set(value As DataTable)
|
|
ViewState("tALM") = value
|
|
End Set
|
|
End Property
|
|
Property FechaInicio As String
|
|
Property FechaFin As String
|
|
|
|
#End Region
|
|
|
|
Protected Sub Page_Load(sender As Object, e As EventArgs) Handles Me.Load
|
|
If Not IsPostBack Then
|
|
CargaDdlSubProyectos()
|
|
CargaDdlClasificacion()
|
|
CargDdlProveedor()
|
|
CargaDdlProductosServicios()
|
|
CargDdlAlmacen()
|
|
CargaDdlUsuarios()
|
|
CreaTmpClasificaciones()
|
|
CreaTmpProductosServicios()
|
|
CreaTmpAlmacen()
|
|
CreaTmpProveedores()
|
|
CreaTmpUsuario()
|
|
CargaDatos(UsuarioActual.CveEmpresa)
|
|
|
|
End If
|
|
End Sub
|
|
|
|
#Region "CARGAS"
|
|
Private Sub CargaDatos(CveEmpresa As Integer)
|
|
Dim Inventario As New ClsInventarios
|
|
Dim dt As New DataTable
|
|
|
|
If Inventario.GetInventarioFisico(-1, CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
|
|
dt = Inventario.DtResultados
|
|
End If
|
|
Inventario.Dispose()
|
|
gvIF.DataSource = dt
|
|
gvIF.EditIndex = -1
|
|
gvIF.Columns(1).HeaderText = LblSubProyecto.Text
|
|
gvIF.DataBind()
|
|
gvIF.Columns(6).Visible = UsuarioActual.TienePermisoProceso(178)
|
|
End Sub
|
|
Private Sub CargaGvAlmacen()
|
|
Dim ObjInventario As New ClsInventarios()
|
|
If ObjInventario.GetInventarioFisicoDetallesAlmacen(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
|
GvAlmacen.DataSource = ObjInventario.DtResultados
|
|
GvAlmacen.DataBind()
|
|
End If
|
|
ObjInventario.Dispose()
|
|
UpSubProyecto.Update()
|
|
End Sub
|
|
Private Sub CargaGvClasificacion()
|
|
Dim ObjInventario As New ClsInventarios()
|
|
If ObjInventario.GetInventarioFisicoDetallesClasificacion(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
|
GvClasificacion.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
|
|
GvClasificacionExcluida.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
|
|
End If
|
|
ObjInventario.Dispose()
|
|
GvClasificacion.DataBind()
|
|
GvClasificacionExcluida.DataBind()
|
|
UpClasificacionExcluida.Update()
|
|
UpClasificacion.Update()
|
|
End Sub
|
|
Private Sub CargaGvProductosServicios()
|
|
Dim ObjInventario As New ClsInventarios()
|
|
If ObjInventario.GetInventarioFisicoDetallesProductosServicios(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
|
GvPS.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
|
|
GvPSExcluye.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 0")
|
|
End If
|
|
ObjInventario.Dispose()
|
|
GvPS.DataBind()
|
|
GvPSExcluye.DataBind()
|
|
UpProductosServicios.Update()
|
|
UPPPSExcluye.Update()
|
|
End Sub
|
|
|
|
Private Sub CargaGvProveedores()
|
|
Dim ObjInventario As New ClsInventarios()
|
|
If ObjInventario.GetInventarioFisicoDetallesProveedores(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
|
GvProveedor.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
|
|
End If
|
|
ObjInventario.Dispose()
|
|
GvProveedor.DataBind()
|
|
UpProveedor.Update()
|
|
End Sub
|
|
|
|
Private Sub CargaGvUsuarios()
|
|
Dim ObjInventario As New ClsInventarios()
|
|
If ObjInventario.GetInventarioFisicoDetallesUsuarios(HdnID.Value, UsuarioActual.CveEmpresa) Then
|
|
gvUsuarios.DataSource = ObjInventario.DtResultados.FiltraParametros("Incluye = 1")
|
|
End If
|
|
ObjInventario.Dispose()
|
|
gvUsuarios.DataBind()
|
|
upUsuarios.Update()
|
|
End Sub
|
|
Private Sub CargaDdlSubProyectos()
|
|
CargarCentrosDeCosto(Nothing, DdlSubProyecto, Nothing, LblSubProyecto)
|
|
CargarCentrosDeCosto(Nothing, DdlFiltroSubProyecto, Nothing, LblFiltroSubProyecto)
|
|
End Sub
|
|
Private Sub CargaDdlClasificacion()
|
|
DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3)")
|
|
DdlClasificacion.DataBind()
|
|
DdlClasificacionExcluida.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlClasificacionExcluida.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros("UsoClasificacion IN (1,3)")
|
|
DdlClasificacionExcluida.DataBind()
|
|
End Sub
|
|
Private Sub CargaDdlProductosServicios()
|
|
DdlProductosServicios.setEsWebService(True)
|
|
DdlProductosServicios.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
|
|
DdlProductosServicios.SelectedText = "Todos"
|
|
DdlProductosServicios.SelectedValue = "-1"
|
|
DdlPSExcluye.setEsWebService(True)
|
|
DdlPSExcluye.ddlWS.Attributes.Add("data-cveclasificacion", "-1")
|
|
DdlPSExcluye.SelectedText = "Todos"
|
|
DdlPSExcluye.SelectedValue = "-1"
|
|
End Sub
|
|
Private Sub CargDdlAlmacen()
|
|
DdlAlmacen.Items.Clear()
|
|
DdlAlmacen.DataSource = GlobalDTAlmacen(UsuarioActual.CveEmpresa).FiltraParametros($"CveSubProyecto ={DdlSubProyecto.SelectedValue} AND Inventariable= 'True'")
|
|
DdlAlmacen.DataBind()
|
|
End Sub
|
|
|
|
Private Sub CargDdlProveedor()
|
|
|
|
If (UsuarioActual.Empresa.Funcionalidad(105) = "1") Then
|
|
DdlProveedor.setEsWebService(True)
|
|
DdlProveedor.Attributes.Add("data-metodo", "getproveedores")
|
|
DdlProveedor.SelectedText = "Todos"
|
|
DdlProveedor.SelectedValue = "-1"
|
|
Else
|
|
DdlProveedor.setEsWebService(False)
|
|
DdlProveedor.ddl.DataSource = GlobalDTCompProveedores(UsuarioActual.CveEmpresa)
|
|
DdlProveedor.ddl.DataBind()
|
|
DdlProveedor.ddl.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
End If
|
|
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub CargaDdlUsuarios()
|
|
Dim FiltroAD() As String = {"CveUsuario", "Usuario", "Nombre", "Contraseña", "CveEmpresa", "Rol", "Correo", "Empresa", "CveRol"}
|
|
DdlUsuarios.DataSource = GlobalDTUsuarios.FiltraParametros(String.Format("CveEmpresa = {0} AND Estatus =1", UsuarioActual.CveEmpresa), "Rol ASC", FiltroAD)
|
|
DdlUsuarios.Items.Insert(0, New ListItem("Todos", "-1"))
|
|
DdlUsuarios.DataBind()
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
#Region "PRODUCTOS SERVICIOS"
|
|
|
|
Public Sub DeleteProductosServicios_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTPS.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvPS.DataSource = tDTPS
|
|
GvPS.DataBind()
|
|
UpProductosServicios.Update()
|
|
End Sub
|
|
|
|
Public Sub DeleteProductosServiciosExcluye_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTPSExcluye.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvPSExcluye.DataSource = tDTPSExcluye
|
|
GvPSExcluye.DataBind()
|
|
UPPPSExcluye.Update()
|
|
End Sub
|
|
|
|
Private Sub BtnAgregarProductosServicios_Click(sender As Object, e As EventArgs) Handles BtnAgregarProductosServicios.Click
|
|
If DdlProductosServicios.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvPS.DataSource = Nothing
|
|
GvPS.DataBind()
|
|
tDTPS.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTPS.NewRow
|
|
Row("CvePS") = DdlProductosServicios.SelectedValue.ToEntero
|
|
Row("CodigoPS") = DdlProductosServicios.SelectedText
|
|
tDTPS.Rows.Add(Row)
|
|
GvPS.DataSource = tDTPS
|
|
GvPS.DataBind()
|
|
UpProductosServicios.Update()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub BtnAddPSExcluye_Click(sender As Object, e As EventArgs) Handles BtnAddPSExcluye.Click
|
|
If DdlPSExcluye.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvPSExcluye.DataSource = Nothing
|
|
GvPSExcluye.DataBind()
|
|
tDTPSExcluye.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTPSExcluye.NewRow
|
|
Row("CvePS") = DdlPSExcluye.SelectedValue.ToEntero
|
|
Row("CodigoPS") = DdlPSExcluye.SelectedText
|
|
tDTPSExcluye.Rows.Add(Row)
|
|
GvPSExcluye.DataSource = tDTPSExcluye
|
|
GvPSExcluye.DataBind()
|
|
UPPPSExcluye.Update()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreaTmpProductosServicios()
|
|
tDTPS = New DataTable
|
|
tDTPS.Columns.Add("CvePS", GetType(Integer))
|
|
tDTPS.Columns.Add("CodigoPS", GetType(String))
|
|
tDTPS.Columns.Add("Incluye", GetType(Integer))
|
|
tDTPSExcluye = New DataTable
|
|
tDTPSExcluye.Columns.Add("CvePS", GetType(Integer))
|
|
tDTPSExcluye.Columns.Add("CodigoPS", GetType(String))
|
|
tDTPSExcluye.Columns.Add("Incluye", GetType(Integer))
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "CLASIFICACIONES"
|
|
Public Sub DeleteClasificacion_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTClasif.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvClasificacion.DataSource = tDTClasif
|
|
GvClasificacion.DataBind()
|
|
UpClasificacion.Update()
|
|
End Sub
|
|
|
|
Private Sub BtnAgregarClasificaciones_Click(sender As Object, e As EventArgs) Handles BtnAgregarClasificaciones.Click
|
|
If DdlClasificacion.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvClasificacion.DataSource = Nothing
|
|
GvClasificacion.DataBind()
|
|
tDTClasif.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTClasif.NewRow
|
|
Row("CveClasificacion") = DdlClasificacion.SelectedValue.ToEntero
|
|
Row("Clasificacion") = DdlClasificacion.SelectedItem.Text
|
|
tDTClasif.Rows.Add(Row)
|
|
GvClasificacion.DataSource = tDTClasif
|
|
GvClasificacion.DataBind()
|
|
UpClasificacion.Update()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreaTmpClasificaciones()
|
|
tDTClasif = New DataTable
|
|
tDTClasif.Columns.Add("CveClasificacion", GetType(Integer))
|
|
tDTClasif.Columns.Add("Clasificacion", GetType(String))
|
|
tDTClasif.Columns.Add("Incluye", GetType(Integer))
|
|
tDTClasifExcluye = New DataTable
|
|
tDTClasifExcluye.Columns.Add("CveClasificacion", GetType(Integer))
|
|
tDTClasifExcluye.Columns.Add("Clasificacion", GetType(String))
|
|
tDTClasifExcluye.Columns.Add("Incluye", GetType(Integer))
|
|
End Sub
|
|
|
|
Protected Sub BtnClasificacionExcluida_Click(sender As Object, e As EventArgs)
|
|
If DdlClasificacionExcluida.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvClasificacionExcluida.DataSource = Nothing
|
|
GvClasificacionExcluida.DataBind()
|
|
tDTClasifExcluye.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTClasifExcluye.NewRow
|
|
Row("CveClasificacion") = DdlClasificacionExcluida.SelectedValue.ToEntero
|
|
Row("Clasificacion") = DdlClasificacionExcluida.SelectedItem.Text
|
|
tDTClasifExcluye.Rows.Add(Row)
|
|
GvClasificacionExcluida.DataSource = tDTClasifExcluye
|
|
GvClasificacionExcluida.DataBind()
|
|
UpClasificacionExcluida.Update()
|
|
End If
|
|
End Sub
|
|
Protected Sub LnkEliminarClasificacionExcluida_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTClasifExcluye.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvClasificacionExcluida.DataSource = tDTClasifExcluye
|
|
GvClasificacionExcluida.DataBind()
|
|
UpClasificacionExcluida.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "PROVEEDORES"
|
|
Private Sub BtnAgregarProveedor_Click(sender As Object, e As EventArgs) Handles BtnAgregarProveedor.Click
|
|
If DdlProveedor.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvPS.DataSource = Nothing
|
|
GvPS.DataBind()
|
|
tDTPS.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTProv.NewRow
|
|
Row("CveProveedor") = DdlProveedor.SelectedValue.ToEntero
|
|
Row("RazonSocial") = DdlProveedor.SelectedText
|
|
tDTProv.Rows.Add(Row)
|
|
GvProveedor.DataSource = tDTProv
|
|
GvProveedor.DataBind()
|
|
UpProveedor.Update()
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub CreaTmpProveedores()
|
|
tDTProv = New DataTable
|
|
tDTProv.Columns.Add("CveProveedor", GetType(Integer))
|
|
tDTProv.Columns.Add("RazonSocial", GetType(String))
|
|
tDTProv.Columns.Add("Incluye", GetType(Integer))
|
|
End Sub
|
|
|
|
|
|
Protected Sub DeleteProveedor_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTProv.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvProveedor.DataSource = tDTProv
|
|
GvProveedor.DataBind()
|
|
UpProveedor.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "USUARIOS"
|
|
|
|
Private Sub btnAddUsuarios_Click(sender As Object, e As EventArgs) Handles btnAddUsuarios.Click
|
|
If DdlUsuarios.SelectedValue = -1 Then
|
|
Alert("Tienes seleccionada la opcion 'Todos'.", TipoMensaje.MsgInformacion)
|
|
GvPS.DataSource = Nothing
|
|
GvPS.DataBind()
|
|
tDTPS.Rows.Clear()
|
|
Else
|
|
Dim Row As DataRow = Nothing
|
|
Row = tDTUsuario.NewRow
|
|
Row("CveUsuario") = DdlUsuarios.SelectedValue.ToEntero
|
|
Row("Nombre") = DdlUsuarios.SelectedItem.ToString
|
|
Row("Cerrado") = False
|
|
Row("Bloqueado") = False
|
|
|
|
tDTUsuario.Rows.Add(Row)
|
|
gvUsuarios.DataSource = tDTUsuario
|
|
gvUsuarios.DataBind()
|
|
upUsuarios.Update()
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub CreaTmpUsuario()
|
|
tDTUsuario = New DataTable
|
|
tDTUsuario.Columns.Add("CveUsuario", GetType(Integer))
|
|
tDTUsuario.Columns.Add("Nombre", GetType(String))
|
|
tDTUsuario.Columns.Add("Incluye", GetType(Integer))
|
|
tDTUsuario.Columns.Add("Cerrado", GetType(Boolean))
|
|
tDTUsuario.Columns.Add("Bloqueado", GetType(Boolean))
|
|
|
|
End Sub
|
|
|
|
Public Sub DeleteUsurios_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
gvUsuarios.DataSource = tDTUsuario
|
|
gvUsuarios.DataBind()
|
|
upUsuarios.Update()
|
|
End Sub
|
|
|
|
Public Sub imgCerrar_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
Dim Estado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3))
|
|
If Estado Then
|
|
tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3) = False
|
|
Else
|
|
tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3) = True
|
|
End If
|
|
Dim ObjInventario As New ClsInventarios()
|
|
Dim CveUsuario As Integer = tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(0).ToString().ToEntero()
|
|
Dim Cerrado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(3))
|
|
Dim Bloqueado As Boolean = Convert.ToBoolean(tDTUsuario.Rows(GvRow.RowIndex.ToEntero).Item(4))
|
|
|
|
ObjInventario.UpdateInventarioFisicoUsuarios(HdnID.Value, CveUsuario, Cerrado, Bloqueado)
|
|
gvUsuarios.DataSource = tDTUsuario
|
|
gvUsuarios.DataBind()
|
|
upUsuarios.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "INVENTARIO FISICO"
|
|
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
|
Dim ObjInventario As New ClsInventarios()
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnID.Value = GvRow.DataKey("CveInventarioFisico")
|
|
UppInventarioFisico.Update()
|
|
If ObjInventario.RemoveInventarioFisico(HdnID.Value) Then
|
|
CargaDatos(UsuarioActual.CveEmpresa)
|
|
Alert("Eliminado Correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
ObjInventario.Dispose()
|
|
UppInventarioFisico.Update()
|
|
End Sub
|
|
|
|
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
DdlProductosServicios.ddl.SelectedValueExist(-1)
|
|
DdlProveedor.ddl.SelectedValueExist(-1)
|
|
DdlPSExcluye.ddl.SelectedValueExist(-1)
|
|
DdlClasificacion.SelectedValueExist(-1)
|
|
DdlClasificacionExcluida.SelectedValueExist(-1)
|
|
DdlUsuarios.SelectedValueExist(-1)
|
|
|
|
tDTUsuario.Rows.Clear()
|
|
tDTClasif.Rows.Clear()
|
|
tDTClasifExcluye.Rows.Clear()
|
|
tDTPS.Rows.Clear()
|
|
tDTPSExcluye.Rows.Clear()
|
|
tALM.Rows.Clear()
|
|
gvUsuarios.DataSource = Nothing
|
|
gvUsuarios.DataBind()
|
|
GvAlmacen.DataSource = Nothing
|
|
GvAlmacen.DataBind()
|
|
GvClasificacion.DataSource = Nothing
|
|
GvClasificacion.DataBind()
|
|
GvClasificacionExcluida.DataSource = Nothing
|
|
GvClasificacionExcluida.DataBind()
|
|
GvPS.DataSource = Nothing
|
|
GvPS.DataBind()
|
|
HdnModalidad.Value = "U"
|
|
HdnID.Value = GvRow.DataKey("CveInventarioFisico")
|
|
UppInventarioFisico.Update()
|
|
BtnAgregarInventarioFisico.Text = "Actualizar"
|
|
myModalLabel.InnerText = "Actualizar Inventario Fisico"
|
|
TxtTitulo.Text = GvRow.DataKey("InventarioFisico")
|
|
TxtObservaciones.Text = GvRow.DataKey("Observaciones")
|
|
FechaInicio = GvRow.DataKey("FechaInicio").ToEntero
|
|
FechaFin = GvRow.DataKey("FechaFin").ToEntero
|
|
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto").ToEntero)
|
|
chkUsarApp.Checked = Convert.ToBoolean(GvRow.DataKey("ConAplicacion").ToString)
|
|
divUsuarios.Visible = chkUsarApp.Checked
|
|
CargaGvAlmacen()
|
|
CargaGvClasificacion()
|
|
CargaGvProductosServicios()
|
|
CargaGvProveedores()
|
|
CargaGvUsuarios()
|
|
tDTClasif = GvClasificacion.DataSource
|
|
tDTClasifExcluye = GvClasificacionExcluida.DataSource
|
|
tDTPS = GvPS.DataSource
|
|
tDTPSExcluye = GvPSExcluye.DataSource
|
|
tDTProv = GvProveedor.DataSource
|
|
tDTUsuario = gvUsuarios.DataSource
|
|
tALM = GvAlmacen.DataSource
|
|
UpAddInventarioFisico.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddInventarioFisico"))
|
|
End Sub
|
|
|
|
|
|
Private Sub LnkInventarioFisico_Click(sender As Object, e As EventArgs) Handles LnkInventarioFisico.Click
|
|
Agregar()
|
|
End Sub
|
|
|
|
Public Sub Agregar()
|
|
If tDTClasif IsNot Nothing AndAlso tDTPS IsNot Nothing Then
|
|
tDTClasif.Rows.Clear()
|
|
tDTPS.Rows.Clear()
|
|
tDTPSExcluye.Rows.Clear()
|
|
tDTClasifExcluye.Rows.Clear()
|
|
tALM.Rows.Clear()
|
|
tDTProv.Rows.Clear()
|
|
tDTUsuario.Rows.Clear()
|
|
End If
|
|
|
|
DdlProductosServicios.ddl.SelectedValueExist(-1)
|
|
DdlPSExcluye.ddl.SelectedValueExist(-1)
|
|
DdlProveedor.ddl.SelectedValueExist(-1)
|
|
DdlUsuarios.SelectedValueExist(-1)
|
|
DdlClasificacion.SelectedValueExist(-1)
|
|
DdlClasificacionExcluida.SelectedValueExist(-1)
|
|
|
|
HdnModalidad.Value = "A"
|
|
UppInventarioFisico.Update()
|
|
BtnAgregarInventarioFisico.Text = "Agregar"
|
|
myModalLabel.InnerText = "Agregar Inventario Fisico"
|
|
TxtTitulo.Text = ""
|
|
TxtObservaciones.Text = ""
|
|
GvAlmacen.DataSource = Nothing
|
|
GvAlmacen.DataBind()
|
|
GvClasificacion.DataSource = Nothing
|
|
GvClasificacion.DataBind()
|
|
GvClasificacionExcluida.DataSource = Nothing
|
|
GvClasificacionExcluida.DataBind()
|
|
GvPS.DataSource = Nothing
|
|
GvPS.DataBind()
|
|
GvPSExcluye.DataSource = Nothing
|
|
GvPSExcluye.DataBind()
|
|
GvProveedor.DataSource = Nothing
|
|
GvProveedor.DataBind()
|
|
gvUsuarios.DataSource = Nothing
|
|
gvUsuarios.DataBind()
|
|
UpAddInventarioFisico.Update()
|
|
RegistraScript("$('#divAddInventarioFisico').modal('show');")
|
|
|
|
End Sub
|
|
|
|
Private Sub BtnAgregarInventarioFisico_Click(sender As Object, e As EventArgs) Handles BtnAgregarInventarioFisico.Click
|
|
'verificar almacen
|
|
If GvAlmacen.Rows.Count = 0 Then Alert("Favor de especificar cuando menos un almacen", TipoMensaje.MsgAdvertencia) : Exit Sub
|
|
Dim ErrorClasif As Boolean = False
|
|
Dim ObjInventario As New ClsInventarios
|
|
Dim CveInventarioFisico As Integer
|
|
Dim aplicacion As Boolean = chkUsarApp.Checked
|
|
ObjInventario.IniciaTransacSQL()
|
|
If HdnModalidad.Value = "A" Then
|
|
If ObjInventario.AddInventarioFisico(UsuarioActual.CveEmpresa, TxtTitulo.Text, TxtObservaciones.Text, 0, DdlSubProyecto.SelectedValue.ToEntero, aplicacion) Then
|
|
CveInventarioFisico = ObjInventario.CveInventarioFisico
|
|
If CveInventarioFisico > 0 Then
|
|
|
|
For Each Gvr As GridViewRow In GvAlmacen.Rows
|
|
If Not ObjInventario.AddInventarioFisicoAlmacenes(CveInventarioFisico, Gvr.DataKey("CveAlmacen").ToEntero) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvClasificacion.Rows
|
|
If Not ObjInventario.AddInventarioFisicoClasificaciones(CveInventarioFisico, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
For Each Gvr As GridViewRow In GvClasificacionExcluida.Rows
|
|
If Not ObjInventario.AddInventarioFisicoClasificaciones(CveInventarioFisico, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, False) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvPS.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProductosServicios(CveInventarioFisico, Gvr.DataKey("CvePS").ToEntero, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
For Each Gvr As GridViewRow In GvPSExcluye.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProductosServicios(CveInventarioFisico, Gvr.DataKey("CvePS").ToEntero, False) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvProveedor.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProveedores(CveInventarioFisico, Gvr.DataKey("CveProveedor").ToEntero, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In gvUsuarios.Rows
|
|
If Not ObjInventario.AddInventarioFisicoUsuarios(CveInventarioFisico, Gvr.DataKey("CveUsuario").ToEntero, True, False, False) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
Else
|
|
ErrorClasif = False
|
|
End If
|
|
|
|
If ErrorClasif = False And CveInventarioFisico > 0 Then
|
|
ObjInventario.Commit()
|
|
Alert("Agregado Correctamente.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
|
|
CargaDatos(UsuarioActual.CveEmpresa)
|
|
UppInventarioFisico.Update()
|
|
Else
|
|
ObjInventario.RollBack()
|
|
End If
|
|
End If
|
|
|
|
Else
|
|
If HdnID.Value.ToEntero > 0 Then
|
|
If ObjInventario.UpdateInventarioFisico(HdnID.Value.ToEntero, TxtTitulo.Text, TxtObservaciones.Text, DdlSubProyecto.SelectedValue.ToEntero, aplicacion) Then
|
|
|
|
If Not ObjInventario.RemoveInventarioFisicoAlamacen(HdnID.Value.ToEntero) Then
|
|
ErrorClasif = True
|
|
End If
|
|
|
|
If Not ObjInventario.RemoveInventarioFisicoClasificacion(HdnID.Value.ToEntero) Then
|
|
ErrorClasif = True
|
|
End If
|
|
|
|
If Not ObjInventario.RemoveInventarioFisicoProductosServicios(HdnID.Value.ToEntero) Then
|
|
ErrorClasif = True
|
|
End If
|
|
|
|
If Not ObjInventario.RemoveInventarioFisicoProveedores(HdnID.Value.ToEntero) Then
|
|
ErrorClasif = True
|
|
End If
|
|
|
|
If Not ObjInventario.RemoveInventarioFisicoUsuarios(HdnID.Value.ToEntero) Then
|
|
ErrorClasif = True
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvAlmacen.Rows
|
|
If Not ObjInventario.AddInventarioFisicoAlmacenes(HdnID.Value.ToEntero, Gvr.DataKey("CveAlmacen").ToEntero) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvClasificacion.Rows
|
|
If Not ObjInventario.AddInventarioFisicoClasificaciones(HdnID.Value.ToEntero, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
For Each Gvr As GridViewRow In GvClasificacionExcluida.Rows
|
|
If Not ObjInventario.AddInventarioFisicoClasificaciones(HdnID.Value.ToEntero, Gvr.DataKey("CveClasificacion").ToEntero, UsuarioActual.CveUsuario, False) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvPS.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProductosServicios(HdnID.Value.ToEntero, Gvr.DataKey("CvePS").ToEntero, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
For Each Gvr As GridViewRow In GvPSExcluye.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProductosServicios(HdnID.Value.ToEntero, Gvr.DataKey("CvePS").ToEntero, False) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
For Each Gvr As GridViewRow In GvProveedor.Rows
|
|
If Not ObjInventario.AddInventarioFisicoProveedores(HdnID.Value.ToEntero, Gvr.DataKey("CveProveedor").ToEntero, True) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
|
|
If ErrorClasif = False Then
|
|
Dim cerrado As Boolean = False
|
|
Dim bloqueado As Boolean = False
|
|
|
|
For Each Gvr As GridViewRow In gvUsuarios.Rows
|
|
cerrado = Convert.ToBoolean(Gvr.DataKey("Cerrado").ToString)
|
|
bloqueado = Gvr.FCCheckBox("chkBloqueado").Checked
|
|
|
|
If Not ObjInventario.AddInventarioFisicoUsuarios(HdnID.Value.ToEntero, Gvr.DataKey("CveUsuario").ToEntero, True, cerrado, bloqueado) Then
|
|
ErrorClasif = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
End If
|
|
Else
|
|
ErrorClasif = False
|
|
End If
|
|
If ErrorClasif = False And HdnID.Value > 0 Then
|
|
ObjInventario.Commit()
|
|
Alert("Actualizado Correctamente.", TipoMensaje.MsgInformacion)
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddInventarioFisico"))
|
|
CargaDatos(UsuarioActual.CveEmpresa)
|
|
UppInventarioFisico.Update()
|
|
Else
|
|
ObjInventario.RollBack()
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Protected Sub gvIF_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvIF.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.DBCampo("CveEstatus") = "3" Then
|
|
e.Row.FCLinkButton("imgE").Visible = False
|
|
e.Row.FCLinkButton("imgD").Visible = False
|
|
ElseIf e.Row.DBCampo("CveEstatus") = "1" Then ' cuando es en proceso
|
|
e.Row.FCHyperLink("HplDif").NavigateUrl = String.Format("/Inventarios/RepAnomalias.aspx?CveInventarioFisico={0}&EsAvance=1", e.Row.DBCampo("CveInventarioFisico"))
|
|
ElseIf e.Row.DBCampo("CveEstatus") = "0" Then ' Nuevo
|
|
e.Row.FCHyperLink("HplDif").Visible = False
|
|
End If
|
|
|
|
End If
|
|
End Sub
|
|
Protected Sub gvUsuarios_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles gvUsuarios.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If Convert.ToBoolean(e.Row.DBCampo("Bloqueado")) Then
|
|
e.Row.FCCheckBox("chkBloqueado").Checked = True
|
|
End If
|
|
If Convert.ToBoolean(e.Row.DBCampo("Cerrado")) Then
|
|
e.Row.FCLinkButton("imgCerrar").Text = "<i class='fa fa-lock'></i>"
|
|
Else
|
|
e.Row.FCLinkButton("imgCerrar").Text = "<i class='fa fa-unlock'></i>"
|
|
End If
|
|
End If
|
|
End Sub
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
#Region "ALMACEN"
|
|
Public Sub DeleteAlmacen_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
tALM.Rows(GvRow.RowIndex.ToEntero).Delete()
|
|
GvAlmacen.DataSource = tALM
|
|
GvAlmacen.DataBind()
|
|
UpSubProyecto.Update()
|
|
End Sub
|
|
Private Sub BtnAgregarAlmacen_Click(sender As Object, e As EventArgs) Handles BtnAgregarAlmacen.Click
|
|
Dim Row As DataRow = Nothing
|
|
Row = tALM.NewRow
|
|
Row("CveAlmacen") = DdlAlmacen.SelectedValue.ToEntero
|
|
Row("Almacen") = DdlAlmacen.SelectedItem.Text
|
|
tALM.Rows.Add(Row)
|
|
GvAlmacen.DataSource = tALM
|
|
GvAlmacen.DataBind()
|
|
UpSubProyecto.Update()
|
|
End Sub
|
|
Private Sub CreaTmpAlmacen()
|
|
tALM = New DataTable
|
|
tALM.Columns.Add("CveAlmacen", GetType(Integer))
|
|
tALM.Columns.Add("Almacen", GetType(String))
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "CONSULTA"
|
|
|
|
Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
|
|
Dim ObjInventario As New ClsInventarios
|
|
If ObjInventario.GetInventarioFisico(-1, UsuarioActual.CveEmpresa, DdlFiltroSubProyecto.SelectedValue.ToEntero, DdlEstado.SelectedValue, UsuarioActual.CveUsuario) Then
|
|
gvIF.DataSource = ObjInventario.DtResultados
|
|
gvIF.DataBind()
|
|
gvIF.Columns(1).HeaderText = LblSubProyecto.Text
|
|
End If
|
|
UppInventarioFisico.Update()
|
|
ObjInventario.Dispose()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "SELECTED INDEX CHANGE"
|
|
Private Sub DdlSubProyecto_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlSubProyecto.SelectedIndexChanged
|
|
CargDdlAlmacen()
|
|
GvAlmacen.DataSource = Nothing
|
|
GvAlmacen.DataBind()
|
|
tALM.Rows.Clear()
|
|
UpSubProyecto.Update()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
Protected Sub chkUsarApp_CheckedChanged(sender As Object, e As EventArgs) Handles chkUsarApp.CheckedChanged
|
|
|
|
If chkUsarApp.Checked Then
|
|
divUsuarios.Visible = True
|
|
Else
|
|
divUsuarios.Visible = False
|
|
End If
|
|
End Sub
|
|
|
|
End Class
|