Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
371
Ventas/CatUnidadesMedida.aspx.vb
Normal file
371
Ventas/CatUnidadesMedida.aspx.vb
Normal file
@@ -0,0 +1,371 @@
|
||||
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() Then
|
||||
GlobalDTUnidadesMedida = ObjUnidadesMedida.DtResultados
|
||||
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 = ObjUnidadesMedida.DtResultados
|
||||
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(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 = ObjUnidadesMedida.DtResultados
|
||||
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 = ObjUnidadesMedida.DtResultados
|
||||
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 = ObjUnidadesMedida.DtResultados
|
||||
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 = ObjUnidadesMedida.DtResultados
|
||||
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
|
||||
|
||||
Reference in New Issue
Block a user