AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- corrección seleccion de cliente/personal

Browse Source
This commit is contained in:
rrene
2023-04-22 07:59:14 -07:00
parent 492532baab
commit 2792e3d919
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
Contabilidad2/CatCuentasAsignaciones.aspx.vb
View File

@@ -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();")