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

Todas las respuestas

• 

  

  0

  Inicie sesión para votar

  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.

  • Marcado como respuesta Ricardo Alfredo Pavez Catrileo miércoles, 6 de junio de 2012 19:16

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

  Responder

  |

  Citar
• 

  

  0

  Inicie sesión para votar

  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

  Responder

  |

  Citar
• 

  

  0

  Inicie sesión para votar

  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

  Responder

  |

  Citar