Procedures

Este grupo de extensiones permite crear procedimientos para operaciones comunes con la base de datos. Se encuentran en el menú Lsi.Extensions > Procedures

Crear procedimiento para devolver atributo ( PU<atributo>)

Pide al usuario seleccionar un atributo de la kbase y crea un procedimiento para devolver el valor el valor de dicho atributo de un registro. Ejemplo:

///************* REGLAS *************///
parm(
		in:&EmpCod, in:&CliCod, 	// Codigo de Cliente
		out:&CliNomFis	// Valor de Nombre Fiscal
);

///************* PROCEDIMIENTO *************///
FOR EACH
	WHERE EmpCod = &EmpCod
	WHERE CliCod = &CliCod

	&CliNomFis = CliNomFis
WHEN NONE
	&CliNomFis = NullValue( &CliNomFis )
ENDFOR
        

Crear procedimiento para borrar registro(P<tabla>Bor)

Pide al usuario seleccionar una tabla de la kbase y crea un procedimiento para borrar un registro de dicha tabla en la base de datos. Ejemplo:

///************* REGLAS *************///
parm(
		in:&EmpCod, in:&CliCod	// Codigo de Cliente
);

///************* PROCEDIMIENTO *************///
FOR EACH
	WHERE EmpCod = &EmpCod
	WHERE CliCod = &CliCod

	DELETE
ENDFOR
        

Crear proc. para insertar registro (P<tabla>Gen)

Pide al usuario seleccionar una tabla de la kbase y crea un procedimiento para crear el registro en la base de datos. El procedimiento espera recibir todos los atributos de la tabla como parametros. Ejemplo:

///************* REGLAS *************///
parm(
		in:&EmpCod, 	// Empresa
		in:&MAbCod, 	// Codigo de Motivo de Abono
		in:&MAbDes, 	// Descripcion de Motivo de Abono
		out:&FlgErr, 	// Cierto si se ha producido algun error
		out:&MsgErr	// Mensaje del error, si &FlgErr es cierto
);

///************* PROCEDIMIENTO *************///
NEW
	EmpCod = &EmpCod
	MAbCod = &MAbCod
	MAbDes = &MAbDes
	
WHEN DUPLICATE
	&FlgErr = true
	&MsgErr = 'Ya existe un registro con el codigo indicado'
ENDNEW
         

Crear procedimiento para asignar un atributo (P<atributo>)

Pide al usuario seleccionar un atributo de la kbase y crea un procedimiento para asignar el atributo. Ejemplo:

///************* REGLAS *************///
parm(
		in:&EmpCod, in:&CliCod, 	// Codigo de Cliente
		in:&CliNomFis	// Valor de Nombre Fiscal
);

///************* PROCEDIMIENTO *************///
FOR EACH
	WHERE EmpCod = &EmpCod
	WHERE CliCod = &CliCod

	CliNomFis = &CliNomFis
ENDFOR