From 2792e3d9197d66693c54c44875b7471e67b9dbbd Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 22 Apr 2023 07:59:14 -0700 Subject: [PATCH] =?UTF-8?q?--=20correcci=C3=B3n=20seleccion=20de=20cliente?= =?UTF-8?q?/personal?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Contabilidad2/CatCuentasAsignaciones.aspx.vb | 17 ++++++++++------- 1 file changed, 10 insertions(+), 7 deletions(-) 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();")