Compras CvePersonal de viaticos en detalle, pretamos proveedor ajustes visuales, re recuperación vendedor list bug cuando el item es mas grande que elcontnedor

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