Limpieza, lienas adicionales

Compras/Compras.aspx.vb

@@ -744,6 +744,10 @@ Partial Class Compras_Compras
     End Property
     Private Property CveCompraRefacturacion As Integer
         Get
+            If ViewState("CveCompraRefacturacion") Is Nothing Then
+                ViewState("CveCompraRefacturacion") = -1
+            End If
+
             Return ViewState("CveCompraRefacturacion").ToString.ToEntero
         End Get
         Set(value As Integer)
@@ -4305,10 +4309,18 @@ Partial Class Compras_Compras
                         x = x + 1
                     End If
                 Next
-                If x = 0 AndAlso GvInv.Rows.Count > 0 Then
-                    Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia)
-                    Exit Sub
+
+                If Not (CveCompraRefacturacion > 0 AndAlso ChkRefacturacionConAlmacen.Checked) Then
+
+                    If x = 0 AndAlso GvInv.Rows.Count > 0 Then
+                        Alert("Favor de seleccionar un producto en la pestaña de almacen", TipoMensaje.MsgAdvertencia)
+                        Exit Sub
+                    End If
+
                 End If
+
+
+
             End If
         End If