From 0885051d45b651b8f1f2747b3c9d630550b21412 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 7 Jul 2021 19:00:14 -0700
Subject: [PATCH] Validacion en parametro de CveVenta

---
 Ventas/PV.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

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