Clarion - Lista de procedimientos

Alguien sabe como se podria todos listar los procedimientos de mi APP y volcarlos en una tabla? Gracias.
Claion 6.3 TPS

Cristian
Si lo que queres listar en un archivo de texto son los CLW de tu proyecto podes hacerlo desde el Simbolo del Sistema, asi:

supongamos que en la carpeta TRABAJO tenes la carpeta PROYECT1 que es donde tenes los CLW

Inicio
------- Todos Los Programas
-----------------------Accesorios
-------------------------------- Simbolo del Sistema

donde caes escribis: C:\TRABAJO\PROYECT1 (Enter)
tendrias que quedar posicionado en C:\TRABAJO\PROYECT1
luego:

dir *.CLW /O/B/S >PROCESO.TXT (Enter)

exit (enter)

Edita el archivo PROCESO.TXT y fijate si es lo que necesitas.

Saludos

La pregunta de Cristian va en el sentido de obtener una tabla con los nombres de los procedimientos desarrollados en un aplicación. En resumen una lista de que diga algo así como:

Main
Tabla_Maestra
Forma_Tabla_Maestra
etc.

No existe una instrucción en Clarion que permita obtenes esto, sin embargo se me ocurren dos posibles soluciones:

1.- Si tu aplicación se nombra como "aplicacion.APP", abre el archivo "aplicacion.clw" en este archivo encontrarás las declaraciones de todos los procedimientos. Tendrás que editar una copia de este archivo para dejar solo los nombres de los procedimientos.

2.- Desarrollar un template que genere una lista de los procedimientos declarados en una aplicación.

Con esta segunda opción se pueden hacer muchísimas cosas. La pregunta es ¿Cual es el propósito para obtener la tabla de procedimintos? Ya que en base a esto el desarrollo del template puede variar, dependiendo el objetivo.

Efectivamente, es lo que quiero hacer. El objetivo es porque mi sistema trabaja con con control de usuarios, cada cual tiene una clave de acceso. La idea es que, sobre todo el los Forms, no todos los usarios van a tener los mismos privilegios, algunos podran solo visualizarlos, otros modificaros, otros agregar nuevos registros, entre otras cosas.
Hasta el momento estuve trabajando con un ejemplo que alguien lo compartio en el foro de evolution pero se limita a activar y desactivar items de la barra de menu y/o botones de la barra de herramientas, y lo que necesitaria es trabajar directamente sobre los forms. Gracias por el comentario. No soy experto en clarion y no he desarrollado templates hasta el momento, pero me pasaron un template pero no lo puedo implementar, me tira un error y hasta ahora no me repondieron porque.

Cristian

Si me pasas tu mail te paso un ejemplo que acabo de hacer.
Me surgió curiosidad de ver si se podía hacer.

Pude listar todos los procesos leyendo los .INC después vos lo garbarás o listarás según tus necesidades.

Saludos desde Venado Tuerto - Argentina

Veamos si lo podemos hacer desde aca.
Primero tienen que agregar un archivo al diccionario, se va a llamar TEXTO
y sera ASCII y de 200 caracteres
en FullPathName: !MyFile (No se olviden del signo ! al principio)
Luego vamos a la aplicacion.
En Global
...........Data
............................Click en el cuadradito que tiene (...) luego agregar la variable global. (Copien lo que sigue:)
[SCREENCONTROLS]
! ENTRY(@s99),USE(MyFile)
[REPORTCONTROLS]
! STRING(@s99),USE(MyFile)
MyFile CSTRING(100)
!!> IDENT(4294967005),PICTURE(@s99)


En mi caso agregue un button dentro del toolbar y en el Aceptar le agregué:

DIRECTORY(AllFiles,'C:\DRI\*.INC',ff_:DIRECTORY) !Get all files and directories
Recs = RECORDS(AllFiles)
I# = 0
LOOP LP = Recs TO 1 BY -1
GET(AllFiles,LP)
NoProcesado = LONGPATH('C:\dri\'&FIL:ShortName)
MyFile = NoProcesado
ListaText ! ........ LLamo al proceso de listar el texto
END

(Graben y Cierren)
Luego en PROCEDURES agregar el nombre del procedimiento ListaText
si no lo hacen les va a dar error en la compilación

Creen un process del archivo TEXTO y en TakeRecord agreguen
IF SUB(TEX:Texto,1,1) > '' ! Veo si en la primer posición hay algo
Message (TEX:Texto)
END
! Tengan en cuenta que es solo un ejemplo el resto depende de cada uno
! Los INC solo tienen tres lineas
! esto tiene PRUEB046.INC

MODULE('PRUEB046.CLW')
Aopago01:Ficha PROCEDURE !Actualizar la Tabla Aopago01
END

Si no queda claro avisen
Saludos desde Venado Tuerto - Argentina
Un abrazo a los Chilenos que no lo están pasando nada bien

Gracias, voy a revisarlo el finde y te cuento, en este momento me encuentro de viaje.

Me podrias mandar el ejemplo en un APP ? mi mail es [email protected] Gracias

Cristian, te mande el ejemplo.
(Tene en cuenta que el ejemplo està algo desprolijo, es solo para mostrar que se puede hacer)
Avisame como te fue.