Este grupo de extensiones permite crear procedimientos para operaciones comunes con la base de datos. Se encuentran en el menú Lsi.Extensions > Procedures
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
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
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
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