372 lines
15 KiB
VB.net
372 lines
15 KiB
VB.net
Option Explicit On
|
|
Option Strict On
|
|
|
|
Imports System.Data
|
|
Imports System.Linq
|
|
Imports Extensiones
|
|
|
|
Partial Class CatUnidadesMedida
|
|
Inherits ClsPaginas
|
|
|
|
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
|
If Not Page.IsPostBack Then
|
|
ViewState("Orden") = ""
|
|
CargaDdlSATUnidadMedida()
|
|
CargaDatos()
|
|
|
|
''Permiso Registro
|
|
'If PermisoRegistro Then
|
|
' LbAgregar.Enabled = True
|
|
'Else
|
|
' LbAgregar.Enabled = False
|
|
'End If
|
|
|
|
End If
|
|
End Sub
|
|
|
|
Dim UM As String
|
|
|
|
Public Sub CargaDatos()
|
|
|
|
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
If ObjUnidadesMedida.GetUnidadesMedida(UsuarioActual.CveEmpresa) Then
|
|
GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
GvDatos.DataSource = ViewState("DTUnidadesMedida")
|
|
GvDatos.DataBind()
|
|
Else
|
|
Me.GvDatos.DataSource = Nothing
|
|
End If
|
|
ObjUnidadesMedida.Dispose()
|
|
End Sub
|
|
|
|
Protected Sub LbAgregarAlias_Click(sender As Object, e As System.EventArgs) Handles LbAgregarAlias.Click
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
Dim cve As Integer
|
|
cve = lblClave.Text.ToEntero
|
|
|
|
|
|
If ObjUnidadesMedida.AddUnidadMedidaAlias(TxtAlias.Text.Trim, cve) Then
|
|
TxtAlias.Text = ""
|
|
Alert("El nueva Alias Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
UpDatosAlias.Update()
|
|
GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve)
|
|
End If
|
|
CargaGridAlias()
|
|
ObjUnidadesMedida.Dispose()
|
|
End Sub
|
|
|
|
|
|
|
|
Protected Sub BtnCancelarIE_Click(sender As Object, e As EventArgs)
|
|
RegistraScript("$('#DivCancelarIE').modal('hide');")
|
|
|
|
End Sub
|
|
|
|
Protected Sub BtnAlias_Click(sender As Object, e As EventArgs)
|
|
|
|
Dim cve = CType(sender, Button).CommandArgument.ToEntero
|
|
Dim btn As Button = CType(sender, Button)
|
|
|
|
|
|
Dim gvr As GridViewRow = CType(btn.NamingContainer, GridViewRow)
|
|
Dim NombreUnidad As String = CType(gvr.FindControl("LtlUnidadMedida"), Literal).Text
|
|
|
|
headeralias.InnerText = String.Format("Alias de: {0}", NombreUnidad)
|
|
|
|
|
|
lblClave.Text = cve.ToString
|
|
|
|
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
If ObjUnidadesMedida.GetUnidadesMedidaAlias(UsuarioActual.CveEmpresa, cve) Then
|
|
ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
Else
|
|
ViewState("DTUnidadesMedidaAlias") = Nothing
|
|
End If
|
|
|
|
CargaGridAlias()
|
|
|
|
ObjUnidadesMedida.Dispose()
|
|
|
|
RegistraScript("$('#DivCancelarIE').modal();")
|
|
UpDatosAlias.Update()
|
|
End Sub
|
|
|
|
#Region "G V A L I A S"
|
|
Protected Sub GvAlias_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvAlias.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(400)
|
|
|
|
|
|
|
|
End If
|
|
|
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
|
|
|
|
|
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Protected Sub GvAlias_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvAlias.RowDeleting
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
Dim cve As Integer
|
|
cve = lblClave.Text.ToEntero
|
|
Dim Row As GridViewRow = GvAlias.Rows(e.RowIndex)
|
|
Dim nombrealias As String = CType(Row.FindControl("LtlAlias"), Literal).Text
|
|
|
|
|
|
If ObjUnidadesMedida.RemoveUnidadMedidaAlias(cve, nombrealias) Then
|
|
GvAlias.EditIndex = -1
|
|
GlobalDTUnidadesMedidaAlias(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).FiltraParametros("CveUnidadMedida = " & cve)
|
|
Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
|
|
ObjUnidadesMedida.Dispose()
|
|
CargaGridAlias()
|
|
|
|
|
|
'If ViewState("Orden").ToString() <> String.Empty Then
|
|
' CargaGridAlias(ViewState("Orden").ToString())
|
|
'Else
|
|
' CargaGridAlias("")
|
|
'End If
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
|
|
|
|
#End Region
|
|
|
|
|
|
|
|
|
|
|
|
#Region "G V D A T O S"
|
|
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
|
If e.Row.RowType = DataControlRowType.DataRow Then
|
|
If e.Row.RowIndex = 0 Then
|
|
e.Row.Cells(0).Width = Unit.Pixel(260)
|
|
e.Row.Cells(1).Width = Unit.Pixel(110)
|
|
e.Row.Cells(2).Width = Unit.Pixel(80)
|
|
'e.Row.Cells(3).Width = Unit.Pixel(80)
|
|
'e.Row.Cells(4).Width = Unit.Pixel(80)
|
|
e.Row.Cells(3).Width = Unit.Pixel(90)
|
|
e.Row.Cells(4).Width = Unit.Pixel(90)
|
|
e.Row.Cells(5).Width = Unit.Pixel(100)
|
|
e.Row.Cells(6).Width = Unit.Pixel(100)
|
|
e.Row.Cells(7).Width = Unit.Pixel(61)
|
|
End If
|
|
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
|
e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Left
|
|
|
|
e.Row.FCButton("BtnAlias").CommandArgument = e.Row.DBCampo("CveUnidadMedida")
|
|
End If
|
|
End Sub
|
|
|
|
'Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
|
' Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
' If ObjUnidadesMedida.RemoveUnidadMedida(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
|
' GvDatos.EditIndex = -1
|
|
' GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
|
|
' ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
' Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
|
' End If
|
|
|
|
' ObjUnidadesMedida.Dispose()
|
|
|
|
' If ViewState("Orden").ToString() <> String.Empty Then
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' Else
|
|
' CargaGrid("")
|
|
' End If
|
|
'End Sub
|
|
|
|
'Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
|
' GvDatos.EditIndex = -1
|
|
' If ViewState("Orden").ToString() <> String.Empty Then
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' Else
|
|
' CargaGrid("")
|
|
' End If
|
|
'End Sub
|
|
|
|
|
|
|
|
'Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
|
|
|
' Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
' Dim UnidadMedida As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtUnidadMedida"), TextBox).Text.Trim
|
|
' Dim SATUnidadMedida As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("SATUnidadMedida"), DropDownList).ToString.ToEntero
|
|
' Dim Abreviatura As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAbreviatura"), TextBox).Text.Trim
|
|
' 'Dim Alias1 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias1"), TextBox).Text.Trim
|
|
' 'Dim Alias2 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias2"), TextBox).Text.Trim
|
|
' 'Dim Alias3 As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtAlias3"), TextBox).Text.Trim
|
|
' Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstado").Checked
|
|
' Dim CveUnidadMedida As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
|
|
|
' If ObjUnidadesMedida.UpdateUnidadMedida(UnidadMedida, Abreviatura, "", "", "", Estatus, UsuarioActual.CveUsuario, CveUnidadMedida, SATUnidadMedida) Then
|
|
' GvDatos.EditIndex = -1
|
|
' GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
|
|
' ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
' End If
|
|
|
|
' ObjUnidadesMedida.Dispose()
|
|
|
|
'End Sub
|
|
|
|
'Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
|
' CargaDdlSATUnidadMedida()
|
|
' GvDatos.EditIndex = e.NewEditIndex
|
|
|
|
|
|
' If ViewState("Orden").ToString() <> String.Empty Then
|
|
' CargaGrid(ViewState("Orden").ToString())
|
|
' Else
|
|
' CargaGrid("")
|
|
' End If
|
|
' CargaDdlSATUnidadMedida()
|
|
'End Sub
|
|
#End Region
|
|
|
|
Public Sub CargaDdlSATUnidadMedida()
|
|
DdlSATUnidadMedida.setEsWebService(True)
|
|
DdlSATUnidadMedida.Attributes.Add("data-metodo", "getumsat")
|
|
|
|
End Sub
|
|
|
|
#Region "O R D E N A M I E N T O"
|
|
|
|
|
|
Private Sub CargaGrid()
|
|
Dim DV As New DataView(CType(ViewState("DTUnidadesMedida"), DataTable), "", "", DataViewRowState.CurrentRows)
|
|
GvDatos.DataSource = DV.ToTable()
|
|
DV.Dispose()
|
|
GvDatos.DataBind()
|
|
UpDatos.Update()
|
|
End Sub
|
|
|
|
Private Sub CargaGridAlias()
|
|
|
|
Dim DV As New DataView(CType(ViewState("DTUnidadesMedidaAlias"), DataTable), "", "", DataViewRowState.CurrentRows)
|
|
GvAlias.DataSource = DV.ToTable()
|
|
DV.Dispose()
|
|
GvAlias.DataBind()
|
|
UpGvAlias.Update()
|
|
End Sub
|
|
#End Region
|
|
|
|
Private Sub BtnAgregarUnidadMedida_Click(sender As Object, e As EventArgs) Handles BtnAgregarUnidadMedida.Click
|
|
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
Dim Estatus = 0
|
|
If ChkEstatus.Checked Then Estatus = 1
|
|
If HdnModalidad.Value = "A" Then
|
|
If ObjUnidadesMedida.AddUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "-1", "-1", "-1", UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
|
|
DdlSATUnidadMedida.SelectedValue.ToEntero) > 0 Then
|
|
TxtUnidadMedida.Text = ""
|
|
TxtAbreviatura.Text = ""
|
|
Alert("La nueva Unidad de Medida se guardó correctamente.", TipoMensaje.MsgInformacion)
|
|
UpAddUnidadMedida.Update()
|
|
GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
If ViewState("Orden").ToString() <> String.Empty Then
|
|
CargaGrid()
|
|
Else
|
|
CargaGrid()
|
|
End If
|
|
End If
|
|
Else
|
|
If ObjUnidadesMedida.UpdateUnidadMedida(TxtUnidadMedida.Text.Trim, TxtAbreviatura.Text.Trim, "", "", "", CBool(Estatus),
|
|
UsuarioActual.CveUsuario, HdnID.Value.ToEntero, DdlSATUnidadMedida.SelectedValue.ToEntero) Then
|
|
GvDatos.EditIndex = -1
|
|
GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
If ViewState("Orden").ToString() <> String.Empty Then
|
|
CargaGrid()
|
|
Else
|
|
CargaGrid()
|
|
End If
|
|
|
|
End If
|
|
RegistraScript(String.Format("$('#{0}').modal('hide');", "divAddUnidadMedida"))
|
|
ObjUnidadesMedida.Dispose()
|
|
End Sub
|
|
|
|
|
|
|
|
Public Sub Edit_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
HdnModalidad.Value = "U"
|
|
HdnID.Value = GvRow.DataKey("CveUnidadMedida")
|
|
UpDatos.Update()
|
|
BtnAgregarUnidadMedida.Text = "Actualizar"
|
|
myModalLabel.InnerText = "Actualizar Unidad de Medida"
|
|
TxtUnidadMedida.Text = GvRow.DataKey("UnidadMedida")
|
|
DdlSATUnidadMedida.SelectedValue = ""
|
|
DdlSATUnidadMedida.SelectedText = ""
|
|
'DdlImpEmpaque.SelectedValueExist(GvRow.DataKey("CveImpEmpaque"))
|
|
'DdlImpUM.SelectedValueExist(GvRow.DataKey("CveImpUM"))
|
|
If GvRow.DataKey("CveUnidadMedidaSAT") <> Nothing Then
|
|
DdlSATUnidadMedida.SelectedValue = GvRow.DataKey("CveUnidadMedidaSAT")
|
|
DdlSATUnidadMedida.SelectedText = GvRow.DataKey("ClaveNombre")
|
|
End If
|
|
TxtAbreviatura.Text = GvRow.DataKey("Abreviatura")
|
|
divEstatus.Visible = True
|
|
If GvRow.DataKey("Estado") = "Activo" Then
|
|
ChkEstatus.Checked = True
|
|
Else
|
|
ChkEstatus.Checked = False
|
|
End If
|
|
UpAddUnidadMedida.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidadMedida"))
|
|
End Sub
|
|
|
|
Public Sub Delete_Click(sender As Object, e As EventArgs)
|
|
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
|
Dim ObjUnidadesMedida As New ClsUnidadesMedida
|
|
HdnID.Value = GvRow.DataKey("CveUnidadMedida")
|
|
UpDatos.Update()
|
|
If ObjUnidadesMedida.RemoveUnidadMedida(HdnID.Value.ToEntero) Then
|
|
GvDatos.EditIndex = -1
|
|
GlobalDTUnidadesMedida(UsuarioActual.CveEmpresa) = Nothing
|
|
ViewState("DTUnidadesMedida") = ObjUnidadesMedida.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
|
Alert("La Unidad de Medida se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
|
End If
|
|
CargaGrid()
|
|
ObjUnidadesMedida.Dispose()
|
|
End Sub
|
|
|
|
Private Sub LnkAgregar_Click(sender As Object, e As EventArgs) Handles LnkAgregar.Click
|
|
HdnModalidad.Value = "A"
|
|
UpDatos.Update()
|
|
BtnAgregarUnidadMedida.Text = "Agregar"
|
|
myModalLabel.InnerText = "Agregar Unidad de Medida"
|
|
TxtUnidadMedida.Text = ""
|
|
DdlSATUnidadMedida.SelectedValue = ""
|
|
DdlSATUnidadMedida.SelectedText = ""
|
|
'DdlImpEmpaque.SelectedValueExist("-1")
|
|
'DdlImpUM.SelectedValueExist("-1")
|
|
TxtAbreviatura.Text = ""
|
|
divEstatus.Visible = False
|
|
UpAddUnidadMedida.Update()
|
|
RegistraScript(String.Format("$('#{0}').modal('show');", "divAddUnidadMedida"))
|
|
End Sub
|
|
End Class
|
|
|