Inoffizielles deutsches Xbase-Forum

Code: Alles auswählen

create table uli (listenid integer, listenposid integer, lfdnr integer, maschinenschritt cichar(30));
insert into uli values
  (1,1,1,'Bohren'),
  (1,2,2,'Fräsen'),
  (1,3,3,'Schleifen'),
  (2,4,1,'Bohren'),
  (2,5,2,'Schleifen'),
  (2,6,3,'Fräsen');

Code: Alles auswählen

select u2.* from uli u1, uli u2
where (u1.listenid=u2.listenid)
  and (u1.lfdnr=u2.lfdnr-1)

Code: Alles auswählen

select u2.* from uli u1, uli u2
where (u1.listenid=u2.listenid)
  and (u1.lfdnr=u2.lfdnr-1)
  and u1.maschinenschritt like 'Schleifen'
  and u2.maschinenschritt like 'Fräsen'

Code: Alles auswählen

Index on StrZero(ListenId,10)+StrZero(LfdNr,10)+MaschinenSchritt TO MyIndex
aSeek := {"Schleifen,Fräsen"}

GO BOTTOM
// höchste Auftragsnummer
nLast := FIELD->ListenId

FOR i := 1 TO nLast 
   // ob gesuchte Begriffe enthalten sind
   aResult := Seek_multi(i,aSeek) 
   // gleiche Anzahl
   IF LEN(aResult) = LEN(aSeek)
      // Reihenfolge prüfen
      IF Check_Position(aResult)
         // Treffer
      ENDIF 
   ENDIF
NEXT

Code: Alles auswählen

insert into uli values
  (3,7,1,'Bohren'),
  (3,10,3,'Fräsen'),
  (3,12,5,'Schleifen'),
  (4,15,1,'Bohren'),
  (4,18,4,'Schleifen'),
  (4,23,6,'Fräsen');

Code: Alles auswählen

CREATE PROCEDURE FindeSchritt(schritt1 CICHAR(255), schritt2 CICHAR(255), RID CHAR(18) OUTPUT)
BEGIN
DECLARE @tab CURSOR AS SELECT rowid, listenid, listenposid, lfdnr, maschinenschritt from uli ORDER BY 1,2,3;
DECLARE @listenid INTEGER;
DECLARE @maschinenschritt STRING;
OPEN @tab;
@listenid=-1;
@maschinenschritt='';
WHILE FETCH @tab DO
  IF @listenid<>@tab.listenid THEN 
    //Listenbeginn
    @listenid=@tab.listenid;
    @maschinenschritt='';
  END IF;
  IF @maschinenschritt=_schritt1 AND @tab.maschinenschritt=_schritt2 THEN
    INSERT INTO __output(RID) VALUES (@tab.ROWID);
  END IF;
  @maschinenschritt=@tab.maschinenschritt;
END WHILE;
CLOSE @tab;
END;

Code: Alles auswählen

SELECT * FROM uli WHERE Rowid in 
(SELECT * FROM (EXECUTE PROCEDURE FindeSchritt('Schleifen', 'Fräsen')) a)