AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Validacion en parametro de CveVenta

Browse Source
This commit is contained in:
Jonathan Alexis Perez Morales
2021-07-07 19:00:14 -07:00
parent 69bfa317da
commit 0885051d45
1 changed files with 2 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Ventas/PV.aspx.vb
View File

@@ -168,7 +168,7 @@ Partial Class PV
Private ReadOnly Property CveVenta As Integer Private ReadOnly Property CveVenta As Integer
Get Get
Return ViewState("CveVenta").ToString.ToEntero Return If(IsNothing(ViewState("CveVenta")), -1, ViewState("CveVenta").ToString.ToEntero)
End Get End Get
End Property End Property
@@ -1008,6 +1008,7 @@ Partial Class PV
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
If Not IsPostBack Then If Not IsPostBack Then
ViewState("CveVenta") = -1
'VERIFICAR SI LA SESION SE ENCUENTRA BLOQUEADA 'VERIFICAR SI LA SESION SE ENCUENTRA BLOQUEADA
If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then If UsuarioActual.Empresa.Funcionalidad(599) = "1" Then
Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0) Dim DrUsuario As DataRow = GlobalDTUsuarios(CveUsuario:=UsuarioActual.CveUsuario, CveEmpresa:=UsuarioActual.CveEmpresa).Rows(0)