Validar saldo de lineas adicionales

Ventas/Ventas.aspx.vb

@@ -2242,10 +2242,10 @@ Partial Class Ventas
 
     Private Property SaldoLineaAdicional As Decimal
         Get
-            Return (IfNull(ViewState("ImporteLineaAdicional"), "0", ViewState("ImporteLineaAdicional"))).ToString().ToDecimal()
+            Return (IfNull(ViewState("SaldoLineaAdicional"), "0", ViewState("SaldoLineaAdicional"))).ToString().ToDecimal()
         End Get
         Set(value As Decimal)
-            ViewState("ImporteLineaAdicional") = value
+            ViewState("SaldoLineaAdicional") = value
         End Set
     End Property
 
@@ -35286,9 +35286,17 @@ Partial Class Ventas
 
                             Me.CveCategoriaLineaAdicional = RowLinea("CveCategoria").ToString().ToEntero()
                             Me.CveMonedaLineaAdicional = RowLinea("CveMoneda").ToString().ToEntero()
+                            Me.SaldoLineaAdicional = RowLinea("Saldo").ToString().ToDecimal()
                         End If
-
+                    Else
+                        Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
+                        Me.SaldoLineaAdicional = 0
+                        Me.CveCategoriaLineaAdicional = 0
                     End If
+                Else
+                    Alert("No se pudieron obtener datos de la linea adicional", TipoMensaje.MsgAdvertencia)
+                    Me.SaldoLineaAdicional = 0
+                    Me.CveCategoriaLineaAdicional = 0
                 End If
             End Using
         Else