diff --git a/Contabilidad2/CatCuentasAsignaciones.aspx.vb b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
index 3ec01dd77..009282029 100644
--- a/Contabilidad2/CatCuentasAsignaciones.aspx.vb
+++ b/Contabilidad2/CatCuentasAsignaciones.aspx.vb
@@ -163,20 +163,23 @@ Partial Class Contabilidad2_CatCuentasAsignaciones
             DdlTipoGasto.SelectedValueExist(GvRow.DataKey("CveTipoGasto").ToEntero)
             DdlActivoFijo.SelectedValueExist(GvRow.DataKey("CveActivoFijo").ToEntero)
             DdlActivoFijo.Enabled = False
-
-
             Dim CveCliente As Integer = GvRow.DataKey("CveCliente").ToEntero
             Dim CvePersonal As Integer = GvRow.DataKey("CvePersonal").ToEntero
 
-            DdlClientes.ddl.SelectedValueExist(CveCliente)
+            If CveCliente > 0 Then
+                Dim drp As String = GlobalDTCliente(UsuarioActual.CveEmpresa, CveCliente:=CveCliente).FiltroPrimeroValor("Nombre")
+                DdlClientes.ddl.Items.Insert(0, New ListItem(drp, CveCliente))
+                DdlClientes.SelectedValue = CveCliente
+                DdlClientes.SelectedText = drp
+            End If
 
             If CvePersonal > 0 Then
                 Dim drp As String = GlobalDTRHPersonal(UsuarioActual.CveEmpresa, CvePersonal:=CvePersonal).FiltroPrimeroValor("NombreCompleto")
-
-                DdlPersonal.ddl.Items.Add(New ListItem(drp, CvePersonal))
-
+                DdlPersonal.ddl.Items.Insert(0, New ListItem(drp, CvePersonal))
+                DdlPersonal.SelectedValue = CvePersonal
+                DdlPersonal.SelectedText = drp
             End If
-            DdlPersonal.ddl.SelectedValueExist(CvePersonal)
+
             LbAgregar.Text = "Actualizar"
             UpModalModulos.Update()
             RegistraScript("$('#ModalCat').modal();")