Merge branch 'master' of http://jperez@192.168.10.111:8383/SIG.git

Compras/Compras.aspx.vb

@@ -12842,6 +12842,7 @@ Partial Class Compras_Compras
 
     End Sub
     Protected Sub RBLContado_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLContado.SelectedIndexChanged
+        LblCheq.Text = RBLContado.SelectedItem.Text
         CargaContado()
     End Sub
     Private Sub RBLTipoDeudor_SelectedIndexChanged(sender As Object, e As EventArgs) Handles RBLTipoDeudor.SelectedIndexChanged
@@ -18006,8 +18007,13 @@ Partial Class Compras_Compras
     Private Sub ReclasificaSubProyecto()
 
         If Not GvPS.Rows.Count > 0 Then
-            Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
-            Exit Sub
+
+            If CveCompra <> Nothing And CveCompra > 0 Then
+                Alert("No hay partidas para reclasificar el SubProyecto", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
+
+
         End If
 
         If Not DdlAsignaSubProyecto.SelectedValue.ToEntero > 0 Then