Extraer código a un nuevo procedimiento

Esta extensión permite extraer código de la parte de Eventos / Procedure de un objeto a un procedimiento. Intenta hacer lo mismo que la extensión Grefactor, y algunas cosas más.

Para ejecutarla hay que seleccionar el código a extraer en el editor y en el menu ir a Lsi.Extensions > Code > Extract selected code to new procedure. Esto creará un nuevo procedimiento, con el código seleccionado, y modificará el objeto original, reemplazando el código seleccionado con una llamada al nuevo procedimiento.

Algunos apuntes:

• El código a extraer no puede contener definiciones de SUBs, eventos ni llamadas al comando PRINT
• El codigo a extraer puede contener llamadas a subrutinas (comando DO). En este caso, la declaración de las subrutinas llamadas se extraerá al nuevo procedimiento. Las subrutinas NO deben llamarse desde otros sitios fuera del código a extraer. Si es así, no se dejará extraer el código (tener código duplicado es mala idea).
• Las variables usadas en el código extraido que se usan en otras partes del objeto original se declaran en la regla parm del nuevo objeto, intentando clasificarlas según se lean o se escriban. Las variables que sólo se escriben en el código extraido se declaran como inout:, porque no está implementado el verificar que siempre se escriban (la escritura puede estar condicionada).
• Si el código extraido contiene referencias a atributos fuera de un FOR EACH / NEW, estas referencias se reemplazan por variables en el nuevo procedimiento
• Si se extrae codigo dentro de un FOR EACH, y este contiene FOR EACH anidados, no se añaden las condiciones extra necesarias al extraerlo. Hay que hacerlo a mano
• Las variables que ya no se usan en el objeto original tras extraer el código se borran

Un ejemplo:

///* El procedimiento original *///
FOR EACH
	DEFINED BY CliCod
	
	// Inicio del codigo a extraer
	&NObras = 0
	FOR EACH
		DEFINED BY ObrCod
		
		&NObras += 1
		DO 'Direcciones'
	ENDFOR
	CliObsIDo = CliNomFis + ': ' + &NObras + ' obras'
	// Fin del codigo a extraer
	
ENDFOR
SUB 'Direcciones'
	DO 'UnSubAnidado'
ENDSUB
SUB 'UnSubAnidado'
	// ...
ENDSUB

Tras ejecutar la extensión:

///* Reglas del nuevo procedimiento *///
parm(
		in:&CliNomFis, 
		// TODO: Following variables could be out:, check it out
		inout:&CliObsIDo
);
///* Procedure del nuevo procedimiento *///
// Inicio del codigo a extraer
	&NObras = 0
	FOR EACH
		DEFINED BY ObrCod
		
		&NObras += 1
		DO 'Direcciones'
	ENDFOR
	&CliObsIDo = &CliNomFis + ': ' + &NObras + ' obras'
	// Fin del codigo a extraer
SUB 'Direcciones'
	DO 'UnSubAnidado'
ENDSUB
SUB 'UnSubAnidado'
	// ...
ENDSUB
///* El procedure original *///
FOR EACH
	DEFINED BY CliCod
	
	&CliObsIDo = CliObsIDo
PProcedure(CliNomFis, &CliObsIDo)
CliObsIDo = &CliObsIDo
	
ENDFOR

Extraer condiciones a un nuevo Data Selector

Esta extensión permite extraer condiciones de un Win/Webform/SD Panel, o clausulas WHERE de un FOR EACH a un nuevo Data Selector.

Para ejecutarla hay que seleccionar el código a extraer en el editor y en el menu ir a Lsi.Extensions > Code > Extract selected code to new Data Selector. Esto creará un nuevo Data Selector, con las condiciones del código seleccionado. El código original no se modifica, sólo se crea el nuevo Data Selector.

El código a seleccionar deben ser sentencias enteras. En caso de las conditions de un Web/Win Form , o de un SD Panel, hay que seleccionar las condiciones enteras, incluyendo los puntos y coma. En caso de seleccionar código de un FOR EACH, hay que incluir los WHERE completos (incluyendo la palabra clave WHERE). Se puede seleccionar más de una condición a la vez.