Habilitar el log de cambios para todos los campos de un folder

Para habilitar el log de cambios para todos los campos de un folder pegar el siguiente código en gexec, modificar el ID de folder de la 1ra linea y ejecutar

Set fld = dSession.FoldersGetFromId(5116)

Set dom = dSession.XML.NewValidatedDOM("folderLogConf")
Set root = dom.documentElement
For Each oField In fld.Form.Fields
    If oField.Custom Then
      If Updatable(oField) Then
        Set node = dom.createNode("element", "item", root.NamespaceURI)
        node.setAttribute "field", LCase(oField.Name)
        node.setAttribute "log", "1"
        node.setAttribute "old_value", "1"
        node.setAttribute "new_value", "1"
        root.appendChild node
      End If
    End If
Next

Set fld.LogConf = dom
fld.Save


Function Updatable(pField)
    Updatable = True
    sName = UCase(pField.Name)
    If sName = "DOC_ID" Or sName = "FRM_ID" Or sName = "FLD_ID" Or _
        sName = "ACC_ID" Or sName = "CREATED" Or sName = "MODIFIED" Or _
        sName = "ACCESSED" Or sName = "INHERITS" Or sName = "FLD_ID_OLD" Or _
        pField.Computed Then
            Updatable = False
    End If
End Function