none
CAMBIO CUANDO SE HACE CLICK EN CHEKBOX RRS feed

  • Pregunta

  • Buenos días mis estimados, tengo la siguiente consulta, estoy haciendo esta pantalla de una matricula

    Pero mi tema es el siguiente:

    Me han pedido que cada vez que hago un check a los cursos que tengo en i lista, la caja de texto de promocion cambie de acuerdo a la elección del curso que tengo ahi. Por ejemplo en la figura de arriba cuando le hago un check al curso deberia cambiar a PL 000X - 201X - I, pero actualmente eso pasa recien cuando le hago click en grabar, ahi recien me cambia la promoción. Gracias por su ayuda

    viernes, 18 de enero de 2019 15:57

Respuestas

  • Buenas,<o:p></o:p>

    En caso que poseas el código fuente puedes revisar que evento (¿por favor puedes indicar que tipo de evento estas usando del control??) estas usando del listado (¿sí puedes indicar que tipo de control es la lista??), entre mayores datos pongas en la consulta mejor puede ser la ayuda de la comunidad.  Generalmente el datagridview aunque tenga bien programado el evento es necesario hacer focus a otro control para que aplique el cambio pero no se sí sea su caso.

    Saludos.

    jueves, 24 de enero de 2019 19:17

Todas las respuestas

  • Hola  Emilio Lescano B

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te comento que estaremos realizando una revisión a profundidad acerca del inconveniente que se te está presentando.

    Proporcionaremos una respuesta lo más pronto posible.

    Gracias por usar los foros de MSDN.

    Pedro Alfaro
     ____

    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde. 

    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft.  

    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.
    lunes, 21 de enero de 2019 23:17
    Moderador
  • Buenas,<o:p></o:p>

    En caso que poseas el código fuente puedes revisar que evento (¿por favor puedes indicar que tipo de evento estas usando del control??) estas usando del listado (¿sí puedes indicar que tipo de control es la lista??), entre mayores datos pongas en la consulta mejor puede ser la ayuda de la comunidad.  Generalmente el datagridview aunque tenga bien programado el evento es necesario hacer focus a otro control para que aplique el cambio pero no se sí sea su caso.

    Saludos.

    jueves, 24 de enero de 2019 19:17
  • Te envio el codigo fuente:

    Private Sub ValidacionGrillaCurso(ByVal sender As Object, ByVal e As Infragistics.Win.UltraWinGrid.CellEventArgs) Handles grdCurso.ClickCellButton
            'Dim Idpromocion, IdGrupo, Idcurso As String
            ''Limpia
            If e.Cell.Column.Index = 7 And mstrEstado = GC_EVENTO_EDITAR Then
                If mblnEsMatricula = False Then
                    e.Cell.Row.Cells("HorarioNombre").Value = ""
                    e.Cell.Row.Cells("IdSeccion").Value = -1
                    e.Cell.Row.Cells("Sel").Value = 0
                Else
                    If e.Cell.Row.Cells("TipoCondicion").Text = "EXAMEN CARGO" Or e.Cell.Row.Cells("TipoCondicion").Text = "CURSO CARGO" Then
                        e.Cell.Row.Cells("HorarioNombre").Value = ""
                        e.Cell.Row.Cells("IdSeccion").Value = -1
                        e.Cell.Row.Cells("Sel").Value = 0
                    End If

                End If
            End If
            If mblnEsMatricula = True And mstrEstado = GC_EVENTO_EDITAR Then
                e.Cell.Row.Cells("HorarioNombre").Value = ""
                e.Cell.Row.Cells("IdSeccion").Value = -1
                e.Cell.Row.Cells("Sel").Value = 0
            End If

            If e.Cell.Column.Index = 8 And mstrEstado = GC_EVENTO_EDITAR Then
                Dim oFrmBuscarUsuario As New EF.FrmBuscarGrupoSeccionCurso
                If e.Cell.Row.Cells("TipoCondicion").Text = "EXAMEN CARGO" Or e.Cell.Row.Cells("TipoCondicion").Text = "CURSO CARGO" Then
                    'Cursos a llevar
                    With oFrmBuscarUsuario
                        .pptIdPromocion = lblIdPromocion.Text
                        .pptIdGrupo = lblIdGrupo.Text
                        .pptGrupoCodigo = codigoGrupo
                        .pptIdCurso = e.Cell.Row.Cells("IdCurso").Value
                        .pptEstado = "AF-"
                        .pptEsCalificable = 1
                        .pptIdProducto = lblIdProducto.Text
                        .pptIdUnidadAcademica = mintIdUnidadAcademica
                        .pptIdUnidadNegocio = mintIdUnidadNegocio
                        .pptIdPeriodo = mintIdPeriodo
                        'Inicio JNAVIA 22/03/2018
                        .pptIdSede = lblIdSede.Text
                        .pptIdCurricula = e.Cell.Row.Cells("IdCurricula").Value
                        'Fin JNAVIA 22/03/2018
                        .pptIdMatricula = mintIdMatricula 'JNAVIA 18/09/2018
                        .pptIdTipoPermiso = 2 'Busqueda especializada
                        .ShowDialog()
                        If .pptOk = True Then
                            e.Cell.Row.Cells("IdSeccion").Value = .pptIdSeccion
                            e.Cell.Row.Cells("HorarioNombre").Value = .pptSeccionCodigo & " Facilitador: " & .pptFacilitador & " - Horario: " & .pptDiaClaseTexto & " - Ambiente: " & .pptAmbienteNombre
                            grdCurso.ActiveRow.Cells("Sel").Value = 1
                            ''Verifica si hay vacantes:
                            'Inicio JNAVIA 22/03/2018
                            If e.Cell.Row.Cells("IdCurriculaOriginal").Value = 0 Then
                                e.Cell.Row.Cells("IdCurriculaOriginal").Value = e.Cell.Row.Cells("IdCurricula").Value
                            End If
                            If e.Cell.Row.Cells("IdCursoOriginal").Value = 0 Then
                                e.Cell.Row.Cells("IdCursoOriginal").Value = e.Cell.Row.Cells("IdCurso").Value
                            End If
                            If e.Cell.Row.Cells("CursoNombreOriginal").Value = "" Then
                                e.Cell.Row.Cells("CursoNombreOriginal").Value = e.Cell.Row.Cells("CursoNombre").Value
                            End If
                            e.Cell.Row.Cells("IdCurso").Value = .pptIdCurso
                            mIdCurso = .pptIdCurso 'e.Cell.Row.Cells("IdCurso").Value
                            e.Cell.Row.Cells("IdCurricula").Value = .pptIdCurricula
                            e.Cell.Row.Cells("CursoCodigo").Value = .pptCursoCodigo
                            e.Cell.Row.Cells("CursoNombre").Value = .pptCursoNombre
                            'Fin JNAVIA 22/03/2018
                            mIdSeccion = .pptIdSeccion
                            mIdPromocion = .pptIdPromocion
                            mIdGrupo = .pptIdGrupo
                            e.Cell.Row.Cells("IdGrupo").Value = .pptIdGrupo
                            Call sVacantePromocionGrupoSeccion()
                            If bolResultado = False Then
                                e.Cell.Row.Cells("HorarioNombre").Value = ""
                                e.Cell.Row.Cells("IdSeccion").Value = -1
                                gfMsgBox("No se puede agregar sección NO hay vacantes,vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                grdCurso.ActiveRow.Cells("Sel").Value = 0
                                Exit Sub
                            End If
                            'Verifica que no haya cruces
                            Call sHorarioCruce()
                            If strResultado <> "0" Then
                                e.Cell.Row.Cells("HorarioNombre").Value = ""
                                e.Cell.Row.Cells("IdSeccion").Value = -1
                                gfMsgBox(strResultado & vbCrLf & ",vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                Exit Sub
                                grdCurso.ActiveRow.Cells("Sel").Value = 0
                            End If

                            ''Realiza Update de la promocion,grupo,sección en AlumnoCurso en caso de Curso a llevar
                            Dim conAlumnoCursoUpdate As New DC.AlumnoCursoContract
                            Dim clsAlumnoCursoUpdate As New EB.AlumnoCurso
                            conAlumnoCursoUpdate.IdPromocion = .pptIdPromocion
                            conAlumnoCursoUpdate.IdGrupo = .pptIdGrupo
                            conAlumnoCursoUpdate.IdSeccion = .pptIdSeccion
                            conAlumnoCursoUpdate.IdMatricula = mintIdMatricula
                            conAlumnoCursoUpdate.IdCurso = e.Cell.Row.Cells("IdCurso").Value
                            conAlumnoCursoUpdate.UsuarioModificacion = gintIdUsuario
                            conAlumnoCursoUpdate.IdRegistro = mintIdRegistro
                            conAlumnoCursoUpdate.IdCurricula = e.Cell.Row.Cells("IdCurricula").Value 'Inicio JNAVIA 22/03/2018
                            clsAlumnoCursoUpdate.UpdatePromocionGrupo(conAlumnoCursoUpdate)
                            'gfMsgBox("OK.", MessageBoxIcon.Information, gstrTituloMensaje)
                        End If
                        .Dispose()
                    End With
                    Exit Sub
                End If
                If mblnEsMatricula = False Then
                    If e.Cell.Row.Cells("IdTipoAutorizacion").Value <> 1034 Then
                        If strEsmatricula = False Then
                            With oFrmBuscarUsuario
                                .pptIdPromocion = lblIdPromocion.Text
                                .pptIdGrupo = lblIdGrupo.Text
                                .pptGrupoCodigo = codigoGrupo
                                .pptIdCurso = e.Cell.Row.Cells("IdCurso").Value
                                .pptEstado = "AF-"
                                .pptEsCalificable = 1
                                ''se agregan campos para filtrar-busqueda a especializada
                                .pptIdPromocion = lblIdPromocion.Text
                                .pptIdGrupo = lblIdGrupo.Text
                                .pptGrupoCodigo = codigoGrupo

                                .pptIdProducto = lblIdProducto.Text
                                .pptIdUnidadAcademica = mintIdUnidadAcademica
                                .pptIdUnidadNegocio = mintIdUnidadNegocio
                                .pptIdPeriodo = mintIdPeriodo
                                .pptIdCurricula = lblIdCurricula.Text
                                .pptIdMatricula = mintIdMatricula
                                .pptIdTipoPermiso = 1 'Busqueda general 
                                .pptIdSede = lblIdSede.Text
                                .ShowDialog()
                                If .pptOk = True Then
                                    e.Cell.Row.Cells("IdSeccion").Value = .pptIdSeccion
                                    'e.Cell.Row.Cells("HorarioNombre").Value = .pptSeccionCodigo & " " & .pptFacilitador & " " & .pptDiaClaseTexto & " " & .pptAmbienteNombre
                                    e.Cell.Row.Cells("HorarioNombre").Value = .pptSeccionCodigo & " Facilitador: " & .pptFacilitador & " - Horario: " & .pptDiaClaseTexto & " - Ambiente: " & .pptAmbienteNombre
                                    grdCurso.ActiveRow.Cells("Sel").Value = 1
                                    ''Verifica si hay vacantes:
                                    mIdCurso = e.Cell.Row.Cells("IdCurso").Value
                                    mIdSeccion = .pptIdSeccion
                                    mIdGrupo = .pptIdGrupo
                                    e.Cell.Row.Cells("IdPromocion").Value = .pptIdPromocion
                                    mIdPromocion = .pptIdPromocion
                                    e.Cell.Row.Cells("IdGrupo").Value = .pptIdGrupo
                                    Call sVacantePromocionGrupoSeccionRegular()
                                    If bolResultado = False Then
                                        e.Cell.Row.Cells("HorarioNombre").Value = ""
                                        e.Cell.Row.Cells("IdSeccion").Value = -1
                                        grdCurso.ActiveRow.Cells("Sel").Value = 0
                                        gfMsgBox("No se puede agregar sección NO hay vacantes,vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                        Exit Sub
                                    End If
                                    'Verifica que no haya cruces
                                    Call sHorarioCruce()
                                    If strResultado <> "0" Then
                                        e.Cell.Row.Cells("HorarioNombre").Value = ""
                                        e.Cell.Row.Cells("IdSeccion").Value = -1
                                        grdCurso.ActiveRow.Cells("Sel").Value = 0
                                        gfMsgBox(strResultado & vbCrLf & ",vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                        Exit Sub
                                    End If

                                End If
                                .Dispose()
                            End With
                        End If

                    ElseIf e.Cell.Row.Cells("IdTipoAutorizacion").Value = 1034 Then
                        'Cursos a llevar
                        With oFrmBuscarUsuario
                            .pptIdPromocion = lblIdPromocion.Text
                            .pptIdGrupo = lblIdGrupo.Text
                            .pptGrupoCodigo = codigoGrupo
                            .pptIdCurso = e.Cell.Row.Cells("IdCurso").Value
                            .pptEstado = "AF-"
                            .pptEsCalificable = 1
                            .pptIdProducto = lblIdProducto.Text
                            .pptIdUnidadAcademica = mintIdUnidadAcademica
                            .pptIdUnidadNegocio = mintIdUnidadNegocio
                            .pptIdPeriodo = mintIdPeriodo
                            .pptIdTipoPermiso = 2 'Busqueda especializada 
                            .ShowDialog()
                            If .pptOk = True Then
                                e.Cell.Row.Cells("IdSeccion").Value = .pptIdSeccion
                                'e.Cell.Row.Cells("HorarioNombre").Value = .pptSeccionCodigo & " " & .pptFacilitador & " " & .pptDiaClaseTexto & " " & .pptAmbienteNombre
                                e.Cell.Row.Cells("HorarioNombre").Value = .pptSeccionCodigo & " Facilitador: " & .pptFacilitador & " - Horario: " & .pptDiaClaseTexto & " - Ambiente: " & .pptAmbienteNombre
                                grdCurso.ActiveRow.Cells("Sel").Value = 1
                                ''Verifica si hay vacantes:
                                mIdCurso = e.Cell.Row.Cells("IdCurso").Value
                                mIdSeccion = .pptIdSeccion
                                e.Cell.Row.Cells("IdGrupo").Value = .pptIdGrupo
                                Call sVacantePromocionGrupoSeccionRegular()
                                If bolResultado = False Then
                                    e.Cell.Row.Cells("HorarioNombre").Value = ""
                                    e.Cell.Row.Cells("IdSeccion").Value = -1
                                    gfMsgBox("No se puede agregar sección NO hay vacantes,vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                    grdCurso.ActiveRow.Cells("Sel").Value = 0
                                    Exit Sub
                                End If
                                'Verifica que no haya cruces
                                Call sHorarioCruce()
                                If strResultado <> "0" Then
                                    e.Cell.Row.Cells("HorarioNombre").Value = ""
                                    e.Cell.Row.Cells("IdSeccion").Value = -1
                                    gfMsgBox(strResultado & vbCrLf & ",vuelva a seleccionar.", MessageBoxIcon.Information, gstrTituloMensaje)
                                    Exit Sub
                                    grdCurso.ActiveRow.Cells("Sel").Value = 0
                                End If

                                ''Realiza Update de la promocion,grupo,sección en AlumnoCurso en caso de Curso a llevar
                                Dim conAlumnoCursoUpdate As New DC.AlumnoCursoContract
                                Dim clsAlumnoCursoUpdate As New EB.AlumnoCurso
                                conAlumnoCursoUpdate.IdPromocion = .pptIdPromocion
                                conAlumnoCursoUpdate.IdGrupo = .pptIdGrupo
                                conAlumnoCursoUpdate.IdSeccion = .pptIdSeccion
                                conAlumnoCursoUpdate.IdMatricula = mintIdMatricula
                                conAlumnoCursoUpdate.IdCurso = e.Cell.Row.Cells("IdCurso").Value
                                conAlumnoCursoUpdate.UsuarioModificacion = gintIdUsuario
                                conAlumnoCursoUpdate.IdRegistro = mintIdRegistro
                                conAlumnoCursoUpdate.IdCurricula = lblIdCurricula.Text
                                clsAlumnoCursoUpdate.UpdatePromocionGrupo(conAlumnoCursoUpdate)
                                'gfMsgBox("OK.", MessageBoxIcon.Information, gstrTituloMensaje)
                            End If
                            .Dispose()
                        End With
                    End If
                End If


            End If
        End Sub

    Gracias

    lunes, 18 de febrero de 2019 21:27