Validacion en parametro de CveVenta

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)