Bei klassischen BOM-Strukturen brauche ich eine strenge Ordnung der siblings. Ich lege eine Tabelle bom (id bigint, name varchar(32), parentid bigint) zu Grunde, wobei das Feld name die geforderte Ordnung herstellt, d.h. name ist (lokal) eindeutig.
Anders als bei nested sets muss ich mich mit dem rekursiven Charakter der Struktur auseinandersetzen - das ist der hier sichtbare Aufwand, den ich in meinem vorigen Beitrag ansprach.
Code:
SET TERM ^ ;
CREATE PROCEDURE successor ( id Bigint ) RETURNS ( nextid Bigint ) AS
DECLARE VARIABLE parentid bigint;
DECLARE VARIABLE place varchar(32);
BEGIN
SELECT parentid, name FROM bom WHERE id = :id INTO :parentid, :place;
/* try first child */
SELECT FIRST 1 id FROM bom WHERE parentid = :id ORDER BY name INTO :nextid;
WHILE ( :nextid IS NULL AND :parentid IS NOT NULL ) DO
BEGIN
/* try next sibling */
SELECT FIRST 1 id FROM bom WHERE parentid = :parentid AND name > :place ORDER BY name INTO :nextid;
/* prepare backtracking */
IF ( :nextid IS NULL ) THEN
SELECT parentid, name FROM bom WHERE id = :parentid INTO :parentid, :place;
END
END^
SET TERM ; ^
Das solltest Du an deine eigenen Anforderungen anpassen können.
Freundliche Grüße