none
El número de llamadas al evento Changed para una única actualización de los datos superó el límite máximo. RRS feed

  • Pregunta

  • HOLA AMIGOS DE MSDN NECESITO DE SU AYUDA COMO PODER ARREGLAR ESTE ERROR 

    Error en el código del formulario. El número de llamadas al evento Changed para una única actualización de los datos superó el límite máximo.

    Se ha agregado una entrada al registro de eventos de Windows del servidor.
    Id. de registro:5337

    Id. de correlación:ff9b8511-2bf8-4711-8d1e-71707b5b9890

    ATTE Ricardo Pavez


    Ricardo Pavez Analista Programador Aprendiz Sharepoint 2010

    
    O COMO SE PUEDE deshabilitar  EL ERROR POR QUE EL FORMULARIO AL DARLE ACEPTAR se Abre Igual.
    martes, 5 de junio de 2012 15:07

Respuestas

  • Hola Ricardo, por el tipo de error pareciera algo relacionado con el código del formulario. Quizá algo está entrando en un ciclo infinito y está enviando el mensaje (ej. alguna actualización del mismo item dentro de un ciclo). Puede ser alguna regla o tabla repetible en el código que pueda estar causando el problema.

    miércoles, 6 de junio de 2012 0:48

Todas las respuestas

  • Hola Ricardo, por el tipo de error pareciera algo relacionado con el código del formulario. Quizá algo está entrando en un ciclo infinito y está enviando el mensaje (ej. alguna actualización del mismo item dentro de un ciclo). Puede ser alguna regla o tabla repetible en el código que pueda estar causando el problema.

    miércoles, 6 de junio de 2012 0:48
  • Gracias Por tu respuesta Eso estoy tratando de darme cuenta,  por que El Formulario no lo Hice Yo, ( pero la incidencia la tome yo ), lo que pasa que la persona que codifico ya no esta en la compañía pero tengo este error con el formulario y no puedo darme cuenta específicamente donde es. si es asi como dices tu estaria el problema en el evento 

    Public Sub FormEvents_Loading(ByVal sender As Object, ByVal e As LoadingEventArgs)
                Dim Varid As String
                Dim dd As String
                Dim mm As String
                Dim yy As String
                Dim hh As String
                Dim ms As String
                Dim ss As String
                Dim frmid As String
                Dim frmdate As String

                Dim navCmp As XPathNavigator = MainDataSource.CreateNavigator()
                Dim tblglosaAccAct As XPathNodeIterator = navCmp.Select("/my:PMActividades/my:Plan/my:Actividad/my:cmtDesAct", NamespaceManager)
                Dim tblglosaAccTar As XPathNodeIterator = navCmp.Select("/my:PMActividades/my:Plan/my:Actividad/my:Lista/my:Tarea/my:cmtDesTar", NamespaceManager)

                Dim tipdoc As String
                tipdoc = Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:PlnEst", Me.NamespaceManager).Value
                If tipdoc = "En Definición" Then
                    tblglosaAccAct.MoveNext()
                    tblglosaAccAct.Current.SetValue("Eliminar")
                    tblglosaAccTar.MoveNext()
                    tblglosaAccTar.Current.SetValue("Eliminar")
                Else
                    tblglosaAccAct.MoveNext()
                    tblglosaAccAct.Current.SetValue("Cancelar")
                    tblglosaAccTar.MoveNext()
                    tblglosaAccTar.Current.SetValue("Cancelar")
                End If

                Dim txtid As String
                txtid = Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:PlnID", Me.NamespaceManager).Value
                If txtid <> "" Then
                    Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:NewDoc", Me.NamespaceManager).SetValue("Procesando")
                    Call camposEncabezado()
                    'comentado 06062012 
                    'Call tblExtensible()
                    GoTo sigo
                End If

                Dim Actividad As XPathNavigator
                Actividad = Me.MainDataSource.CreateNavigator
                Actividad.SelectSingleNode("/my:PMActividades/my:PlnPai", NamespaceManager).SetValue("Chile")
                Actividad.SelectSingleNode("/my:PMActividades/my:PlnAno", NamespaceManager).SetValue(Date.Now.Year)
                Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:cmbArea", Me.NamespaceManager).SetValue("Localidad Santiago")
                Actividad.SelectSingleNode("/my:PMActividades/my:ResObj/pc:Person/pc:AccountId", NamespaceManager).SetValue(Me.User.UserName)

                Dim res As String = MainDataSource.CreateNavigator.SelectSingleNode("/my:PMActividades/my:ResObj/pc:Person/pc:AccountId", NamespaceManager).Value
                Dim pos As Integer = 0
                pos = InStr(res, "\")
                res = Mid(res, pos + 1, Len(res))
                MainDataSource.CreateNavigator.SelectSingleNode("/my:PMActividades/my:PlnRes", NamespaceManager).SetValue(res)


                Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:NewDoc", Me.NamespaceManager).SetValue("Nuevo")
                Me.CreateNavigator().SelectSingleNode("/my:PMActividades/my:Plan/my:Actividad/my:cmtDesAct", Me.NamespaceManager).SetValue("Eliminar")
                Varid = Date.Now

                Varid = Replace(Varid, "/", "")
                Varid = Replace(Varid, ":", "")
                Varid = Replace(Varid, " ", "")

                dd = Mid(Varid, 1, 2)
                mm = Mid(Varid, 3, 2)
                yy = Mid(Varid, 5, 4)
                hh = Mid(Varid, 9, 2)
                ms = Mid(Varid, 11, 2)
                ss = Mid(Varid, 13, 2)

                frmid = yy & mm & dd & hh & ms & ss
                frmdate = dd & "-" & mm & "-" & yy

                Actividad.SelectSingleNode("/my:PMActividades/my:PlnID", NamespaceManager).SetValue(frmid)
                Actividad.SelectSingleNode("/my:PMActividades/my:PlnFem", NamespaceManager).SetValue(frmdate)
                Actividad.SelectSingleNode("/my:PMActividades/my:fecAbj", NamespaceManager).SetValue(Replace(frmdate, "-", "_"))
    sigo:

            End Sub


    Ricardo Pavez Analista Programador Aprendiz Sharepoint 2010

    miércoles, 6 de junio de 2012 18:49
  • Muchas gracias Por tus Comentarios encontré el pedazo de código que me esta haciendo que le formulario se caiga.

     '            Call Mensajes("")
                '            Dim nav As XPathNavigator = MainDataSource.CreateNavigator()
                '            Dim iter As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:ActSec", NamespaceManager)
                '            Dim iterVerSec As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:Lista/my:Tarea/my:TarSec", NamespaceManager)
                '            Dim tblFecIni As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:Lista/my:Tarea/my:TarIni", NamespaceManager)
                '            Dim tblFecTer As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:Lista/my:Tarea/my:TarTer", NamespaceManager)
                '            Dim tblglosaAcc As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:cmtDesAct", NamespaceManager)
                '            Dim tblglosaAccTar As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:Lista/my:Tarea/my:cmtDesTar", NamespaceManager)
                '            Dim tipdoc As String = Me.MainDataSource.CreateNavigator.SelectSingleNode("/my:PMActividades/my:PlnEst", NamespaceManager).Value

                '            Dim i As Integer = 1
                '            Dim it As Integer
                '            Dim j As Integer = 1

                '            While iter.MoveNext()
                '                it = 1
                '                Dim iterSecTar As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad[" & i & "]/my:Lista/my:Tarea/my:TarSec", NamespaceManager)
                '                While iterSecTar.MoveNext
                '                    iterSecTar.Current.SetValue(it.ToString())
                '                    it = it + 1
                '                End While
                '                iter.Current.SetValue(i.ToString())
                '                i = i + 1
                '            End While

                '            While tblFecIni.MoveNext
                '                tblFecTer.MoveNext()

                '                Dim fecini As String = tblFecIni.Current.Value
                '                Dim fecter As String = tblFecTer.Current.Value

                '                Dim objIni As String = MainDataSource.CreateNavigator.SelectSingleNode("/my:PMActividades/my:objini", NamespaceManager).Value
                '                Dim ObjTer As String = MainDataSource.CreateNavigator.SelectSingleNode("/my:PMActividades/my:objter", NamespaceManager).Value

                '                fecini = Mid(fecini, 1, 10)
                '                fecter = Mid(fecter, 1, 10)

                '                objIni = Mid(objIni, 7, 4) + "-" + Mid(objIni, 4, 2) + "-" + Mid(objIni, 1, 2)
                '                ObjTer = Mid(ObjTer, 7, 4) + "-" + Mid(ObjTer, 4, 2) + "-" + Mid(ObjTer, 1, 2)

                '                Dim resultado As String = ""
                '                If fecter = "" Or objIni = "--" Then GoTo sig 'Exit While
                '                If resultado = "" Then
                '                    If fecini > fecter Then
                '                        resultado = "La fecha de Inicio no puede ser MAYOR a fecha de Término"
                '                        Call Mensajes(resultado)
                '                    End If
                '                    If fecter < fecini Then
                '                        resultado = "La fecha de Término no puede ser MENOR a fecha de Inicio"
                '                        Call Mensajes(resultado)
                '                    End If

                '                    If fecini < objIni Then
                '                        Call Mensajes("La fecha de Inicio no debe ser Menor a fecha Inicio del Objetivo")
                '                    End If

                '                    If fecter > ObjTer Then
                '                        Call Mensajes("La fecha de Término no debe ser mayor a fecha Término del Objetivo")
                '                    End If
                '                End If
                'sig:
                '            End While

                '            If tipdoc = "En Definición" Then
                '                While tblglosaAcc.MoveNext()
                '                    tblglosaAcc.Current.SetValue("Eliminar")
                '                End While
                '                While tblglosaAccTar.MoveNext()
                '                    tblglosaAccTar.Current.SetValue("Eliminar")
                '                End While
                '            Else
                '                While tblglosaAcc.MoveNext()
                '                    tblglosaAcc.Current.SetValue("Cancelar")
                '                End While
                '                While tblglosaAccTar.MoveNext()
                '                    tblglosaAccTar.Current.SetValue("Cancelar")
                '                End While
                '            End If

                '            If tipdoc = "En Definición" Then
                '                i = 1
                '                Dim cmtAccAct As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad/my:cmtAccAct", NamespaceManager)
                '                While cmtAccAct.MoveNext()
                '                    Dim eliAct As Boolean
                '                    Dim posNodoAct As Integer
                '                    eliAct = cmtAccAct.Current.Value

                '                    If eliAct = True Then
                '                        posNodoAct = cmtAccAct.CurrentPosition
                '                        If cmtAccAct.Count = 1 Then
                '                            Call Mensajes("Debe tener más de un registro para eliminar")
                '                        Else
                '                            Me.MainDataSource.CreateNavigator().SelectSingleNode("/my:PMActividades/my:Plan/my:Actividad[" & posNodoAct & "]", NamespaceManager).DeleteSelf()
                '                        End If
                '                    End If

                '                    it = 1
                '                    Dim cmtAccTar As XPathNodeIterator = nav.Select("/my:PMActividades/my:Plan/my:Actividad[" & i & "]/my:Lista/my:Tarea/my:cmtAccTar", NamespaceManager)
                '                    While cmtAccTar.MoveNext
                '                        Dim eliTar As Boolean
                '                        Dim posNodoTar As Integer
                '                        eliTar = cmtAccTar.Current.Value

                '                        If eliTar = True Then
                '                            posNodoTar = cmtAccTar.CurrentPosition
                '                            If cmtAccTar.Count = 1 Then
                '                                Call Mensajes("Debe tener más de un registro para eliminar")
                '                            Else
                '                                Me.MainDataSource.CreateNavigator().SelectSingleNode("/my:PMActividades/my:Plan/my:Actividad[" & i & "]/my:Lista/my:Tarea[" & posNodoTar & "]", NamespaceManager).DeleteSelf()
                '                            End If
                '                        End If
                '                    End While
                '                    i = i + 1
                '                End While
                '            End If


    Ricardo Pavez Analista Programador Aprendiz Sharepoint 2010

    miércoles, 6 de junio de 2012 19:16