Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
314
Bancos/CatTiposTransaccion.aspx.vb
Normal file
314
Bancos/CatTiposTransaccion.aspx.vb
Normal file
@@ -0,0 +1,314 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
Partial Class Bancos_CatTiposTransaccion
|
||||
Inherits ClsPaginas
|
||||
|
||||
|
||||
#Region "Propiedades"
|
||||
Public Property CveTipoTransaccion As Integer
|
||||
Get
|
||||
Return ViewState("CveTipoTransaccion").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("CveTipoTransaccion") = value
|
||||
End Set
|
||||
End Property
|
||||
Public Property EsEditar As Integer
|
||||
Get
|
||||
Return ViewState("EsEditar").ToString.ToEntero
|
||||
End Get
|
||||
Set(value As Integer)
|
||||
ViewState("EsEditar") = value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
#End Region
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CveTipoTransaccion = -1
|
||||
EsEditar = 0
|
||||
dvEstatus.Visible = False
|
||||
CargaDatos()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjEstatusIE As New ClsBancos
|
||||
If ObjEstatusIE.GetBancos_TiposTransaccion(-1) Then
|
||||
GlobalDTTipoTransacciones = ObjEstatusIE.DtResultados
|
||||
GvDatos.DataSource = ObjEstatusIE.DtResultados
|
||||
Else
|
||||
GvDatos.DataSource = Nothing
|
||||
End If
|
||||
ObjEstatusIE.Dispose()
|
||||
GvDatos.DataBind()
|
||||
|
||||
If UsuarioActual.Empresa.CvePlataforma = 2 Then
|
||||
GvDatos.Columns(6).Visible = False
|
||||
GvDatos.Columns(7).Visible = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub imgE_Click(sender As Object, e As EventArgs)
|
||||
Dim Boton = CType(sender, LinkButton)
|
||||
CveTipoTransaccion = Boton.CommandArgument.ToEntero
|
||||
Dim GvRow As GridViewRow = DirectCast(Boton.NamingContainer, GridViewRow)
|
||||
TxtTipoTransaccion.Text = GvRow.DataKey("TipoTransaccion").ToString
|
||||
TxtCveTipoTransaccion.Text = GvRow.DataKey("CveTipoTransaccion").ToString
|
||||
DdlCveTipo.SelectedValue = GvRow.DataKey("Tipo").ToString
|
||||
TxtCveTipoTransaccion.Enabled = False
|
||||
chkEstatus.Checked = If(GvRow.DataKey("EstatusTexto") = "Activo", True, False)
|
||||
EsEditar = 1
|
||||
BtnAgregarCatalogo.Text = "Actualizar"
|
||||
dvEstatus.Visible = True
|
||||
UpBodyCompuesto.Update()
|
||||
UpFooter.Update()
|
||||
RegistraScript("$('#divAgregar').modal()")
|
||||
End Sub
|
||||
|
||||
Protected Sub BtnAgregarCatalogo_Click(sender As Object, e As EventArgs) Handles BtnAgregarCatalogo.Click
|
||||
Dim ObjEstatusIE As New ClsBancos
|
||||
|
||||
If EsEditar = 0 Then
|
||||
If ObjEstatusIE.AddBancos_TiposTransaccion(TxtCveTipoTransaccion.Text.Trim.ToEntero, TxtTipoTransaccion.Text.Trim, DdlCveTipo.SelectedValue, UsuarioActual.CveUsuario) Then
|
||||
Alert("El Tipo de Transacción se agregó correctamente", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ElseIf EsEditar = 1 Then
|
||||
If ObjEstatusIE.UpdateBancos_TiposTransaccion(TxtTipoTransaccion.Text, DdlCveTipo.SelectedValue, chkEstatus.Checked, CveTipoTransaccion) Then
|
||||
Alert("El Tipo de Transacción se editó correctamente", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
EsEditar = 0
|
||||
dvEstatus.Visible = False
|
||||
BtnAgregarCatalogo.Text = "Agregar"
|
||||
End If
|
||||
RegistraScript("$('#divAgregar').modal('hide')")
|
||||
|
||||
ObjEstatusIE.Dispose()
|
||||
TxtCveTipoTransaccion.Text = ""
|
||||
TxtTipoTransaccion.Text = ""
|
||||
DdlCveTipo.SelectedValue = "-1"
|
||||
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
UpBodyCompuesto.Update()
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjEstatusIE As New ClsBancos
|
||||
Dim CveTipoTransaccion As Integer = GvDatos.Rows(e.RowIndex).DataKey("CveTipoTransaccion").ToEntero
|
||||
If ObjEstatusIE.RemoveBancos_TiposTransaccion(CveTipoTransaccion) Then
|
||||
Alert("El Tipo de Transaccion se eliminó correctamente", TipoMensaje.MsgInformacion)
|
||||
End If
|
||||
ObjEstatusIE.Dispose()
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
e.Row.VerticalAlign = VerticalAlign.Middle
|
||||
e.Row.FCLinkButton("ImgE").CommandArgument = e.Row.DataKey("CveTipoTransaccion").ToString
|
||||
|
||||
If e.Row.DBCampo("EstatusTexto") = "Activo" Then
|
||||
e.Row.FCLabel("LblEstatus").Text = "Activo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Green
|
||||
|
||||
Else
|
||||
e.Row.FCLabel("LblEstatus").Text = "Inactivo"
|
||||
e.Row.FCLabel("LblEstatus").ForeColor = Drawing.Color.Red
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Protected Sub btnCancelar_Click(sender As Object, e As EventArgs) Handles BtnOpenDiv.Click
|
||||
EsEditar = 0
|
||||
RegistraScript("$('#divAgregar').modal()")
|
||||
BtnAgregarCatalogo.Text = "Agregar"
|
||||
TxtCveTipoTransaccion.Text = ""
|
||||
TxtCveTipoTransaccion.Enabled = True
|
||||
TxtTipoTransaccion.Text = ""
|
||||
DdlCveTipo.SelectedValue = "-1"
|
||||
dvEstatus.Visible = False
|
||||
UpBodyCompuesto.Update()
|
||||
UpFooter.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
' Public Sub CargaDatos()
|
||||
' Dim ObjTipoTransacciones As New ClsBancos
|
||||
' If ObjTipoTransacciones.GetBancos_TiposTransaccion() Then
|
||||
' ViewState("DTTipoTransacciones") = ObjTipoTransacciones.DtResultados
|
||||
' GlobalDTTipoTransacciones = ObjTipoTransacciones.DtResultados
|
||||
' Else
|
||||
' Me.GvDatos.DataSource = Nothing
|
||||
' End If
|
||||
|
||||
' ObjTipoTransacciones.Dispose()
|
||||
|
||||
' If ViewState("Orden").ToString() <> String.Empty Then
|
||||
' CargaGrid(ViewState("Orden").ToString())
|
||||
' Else
|
||||
' CargaGrid("")
|
||||
' End If
|
||||
' End Sub
|
||||
|
||||
' Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
' Dim ObjTipoTransacciones As New ClsBancos
|
||||
' If ObjTipoTransacciones.AddBancos_TiposTransaccion(TxtCveTipoTransaccion.Text.Trim.ToEntero, TxtTipoTransaccion.Text.Trim, DdlCveTipo.SelectedValue, UsuarioActual.CveUsuario) Then
|
||||
' TxtTipoTransaccion.Text = ""
|
||||
' TxtCveTipoTransaccion.Text = ""
|
||||
' Alert("El nuevo Tipo de Transacción se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
' UpTitulos.Update()
|
||||
' ViewState("DTTipoTransacciones") = ObjTipoTransacciones.DtResultados
|
||||
' GlobalDTTipoTransacciones = ObjTipoTransacciones.DtResultados
|
||||
|
||||
' If ViewState("Orden").ToString() <> String.Empty Then
|
||||
' CargaGrid(ViewState("Orden").ToString())
|
||||
' Else
|
||||
' CargaGrid("")
|
||||
' End If
|
||||
' End If
|
||||
' ObjTipoTransacciones.Dispose()
|
||||
' End Sub
|
||||
|
||||
'#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(86) 'CveTipoTransaccion
|
||||
' e.Row.Cells(1).Width = Unit.Pixel(256) 'Tipo Transacción
|
||||
' e.Row.Cells(2).Width = Unit.Pixel(126) 'Tipo
|
||||
' e.Row.Cells(3).Width = Unit.Pixel(100) 'Estatus
|
||||
' e.Row.Cells(4).Width = Unit.Pixel(100) 'Fecha Ing
|
||||
' e.Row.Cells(5).Width = Unit.Pixel(100) 'Usuario
|
||||
' e.Row.Cells(6).Width = Unit.Pixel(100)
|
||||
' e.Row.Cells(7).Width = Unit.Pixel(65)
|
||||
' End If
|
||||
' e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
' e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(4).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Center
|
||||
' e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Center
|
||||
' If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
|
||||
' e.Row.FCDropDownList("DdlTipo").SelectedValue = e.Row.DBCampo("Tipo")
|
||||
|
||||
' End If
|
||||
' End If
|
||||
|
||||
' End Sub
|
||||
|
||||
' Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
' Dim ObjTipoTransacciones As New ClsBancos
|
||||
' If ObjTipoTransacciones.RemoveBancos_TiposTransaccion(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
' GvDatos.EditIndex = -1
|
||||
' ViewState("DTTipoTransacciones") = ObjTipoTransacciones.DtResultados
|
||||
' GlobalDTTipoTransacciones = ObjTipoTransacciones.DtResultados
|
||||
' Alert("El Tipo de Transacción se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
' End If
|
||||
|
||||
' ObjTipoTransacciones.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 ObjTipoTransacciones As New ClsBancos
|
||||
|
||||
' Dim TipoTransaccion As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtTipoTransaccion"), TextBox).Text.Trim
|
||||
' Dim Tipo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("DdlTipo"), DropDownList).SelectedValue
|
||||
' Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
' Dim CveTipoTransaccion As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
' If ObjTipoTransacciones.UpdateBancos_TiposTransaccion(TipoTransaccion, Tipo, Estatus, CveTipoTransaccion) Then
|
||||
' GvDatos.EditIndex = -1
|
||||
' ViewState("DTTipoTransacciones") = ObjTipoTransacciones.DtResultados
|
||||
' GlobalDTTipoTransacciones = ObjTipoTransacciones.DtResultados
|
||||
' Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
' End If
|
||||
|
||||
' ObjTipoTransacciones.Dispose()
|
||||
|
||||
' If ViewState("Orden").ToString() <> String.Empty Then
|
||||
' CargaGrid(ViewState("Orden").ToString())
|
||||
' Else
|
||||
' CargaGrid("")
|
||||
' End If
|
||||
|
||||
' End Sub
|
||||
|
||||
' Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
||||
' GvDatos.EditIndex = e.NewEditIndex
|
||||
|
||||
' If ViewState("Orden").ToString() <> String.Empty Then
|
||||
' CargaGrid(ViewState("Orden").ToString())
|
||||
' Else
|
||||
' CargaGrid("")
|
||||
' End If
|
||||
' End Sub
|
||||
'#End Region
|
||||
|
||||
'#Region "O R D E N A M I E N T O"
|
||||
' Protected Sub LbOrden_Click(ByVal sender As Object, ByVal e As EventArgs)
|
||||
' Dim Orden As String = ""
|
||||
' Dim Campo As String = ""
|
||||
' Dim Literal As Literal = Nothing
|
||||
' Const OrdenInicial As String = ""
|
||||
' Dim Arg(2) As String
|
||||
|
||||
' Arg = CType(sender, LinkButton).CommandArgument().ToString.Split(";"c)
|
||||
' Campo = Arg(0)
|
||||
' Literal = CType(CType(sender, LinkButton).NamingContainer.FindControl("Img" & Campo.Replace(",", "_")), Literal)
|
||||
|
||||
' If ViewState(String.Format("O{0}", Campo)) IsNot Nothing AndAlso ViewState(String.Format("O{0}", Campo)).ToString = String.Format("{0} DESC", Campo) Then
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} ASC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-asc' style='color:#999' ></i>")
|
||||
' Else
|
||||
' ViewState(String.Format("O{0}", Campo)) = String.Format("{0} DESC", Campo)
|
||||
' Literal.Text = String.Format("<i class='fa fa-sort-desc' style='color:#999' ></i>")
|
||||
' End If
|
||||
' Orden = OrdenInicial & ViewState(String.Format("O{0}", Campo)).ToString
|
||||
' ViewState("Orden") = Orden
|
||||
' CargaGrid(Orden)
|
||||
' End Sub
|
||||
|
||||
' Private Sub CargaGrid(Orden As String)
|
||||
' If Orden <> String.Empty Then
|
||||
' Dim DV As New DataView(CType(ViewState("DTTipoTransacciones"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
' GvDatos.DataSource = DV.ToTable()
|
||||
' DV.Dispose()
|
||||
' Else
|
||||
' GvDatos.DataSource = CType(ViewState("DTTipoTransacciones"), DataTable)
|
||||
' End If
|
||||
' GvDatos.DataBind()
|
||||
' UpDatos.Update()
|
||||
' End Sub
|
||||
'#End Region
|
||||
End Class
|
||||
Reference in New Issue
Block a user