Bloqueo AF 13, Actualzia Compra fecha vencimiento, Rep OC bloquear mostrar oc req de proyectos no asignados

Compras/Compras.aspx.vb

@@ -1568,6 +1568,7 @@ Partial Class Compras_Compras
                 If UsuarioActual.CveEmpresa = 189 Then
                     BtnCancelarCompra.Visible = False
                 End If
+                CargaGvPersonal()
             Else
 
                 ViewState("CveProveedor") = -1
@@ -9357,6 +9358,16 @@ Partial Class Compras_Compras
 
                                 Dim CvePersonal As Integer = 0
                                 If Cont < GvPersonal.Rows.Count Then CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
+
+                                'If CvePersonal <= 0 AndAlso RBLContado.SelectedValue.ToEntero = 2 AndAlso TxtNumeroReembolso.Text.Length > 0 Then
+                                '    CvePersonal = DdlPersonalReembolso.SelectedValue.ToEntero
+                                '    If Not CvePersonal > 0 Then
+                                '        Alert("Debe asignar personal al reembolso.", TipoMensaje.MsgAdvertencia)
+                                '        Retorno = False
+                                '    End If
+                                'End If
+
+
                                 Dim Referencia As String = ""
                                 If Cont < GvPersonal.Rows.Count Then Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text