diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 241e90e0d..8fefa2be5 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5571,6 +5571,17 @@ Partial Class Compras_Compras
CvePersonal = GvPersonal.Rows(Cont).FCDropDownList("DdlPersonalGv").SelectedValue.ToEntero
Referencia = GvPersonal.Rows(Cont).FCTextBox("TxtReferencia").Text
End If
+
+
+ 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)
+ ErrorDetalles = True
+ End If
+ End If
+
+
Cont = Cont + 1
'Si es AF-INSUMO se guarda CveAF en CompraDetalle
diff --git a/Inventarios/PrestamosdeProveedor.aspx b/Inventarios/PrestamosdeProveedor.aspx
index ec234bb63..382bac5a8 100644
--- a/Inventarios/PrestamosdeProveedor.aspx
+++ b/Inventarios/PrestamosdeProveedor.aspx
@@ -59,7 +59,7 @@