XProfan

Proc DS_FindTel

    Parameters Number$ Übergabe-String aus Eingabefeld
    Declare Tel_Gef&, IDX%

    If Left$(Number$,1) = 0 auf führende O prüfen

        Number$ = @Del$(Number$,1,1)

    EndIF

    In folgenden 3 Zeilen hab ich schon probiert:
    Spaces vorn, Spaces hinten, 0n vorn, 0n hinten
    Auch auskommentiert, ums so zu lassen, wieS ist.
    Hat alles nix geholfen, Ergebniss (Tel_Gef&) immer 0 > Nicht gefunden

    While (@Len(Number$) < 15) Suchstring-Länge auf 15 setzen

        Number$ =   + Number$

    EndWhile

    IDX% = @dbIndex(IDX_Tel) verwendeten Index festlegen

    IfNot IDX% FEHLER Index

        @MessageBox(Index konnte nicht geöffnet werden !!!,INFO,262144+64)
        Else oder weiter....
        @dbGo(TOP) zur Sicherheit beim Test eingebaut, auch schon ohne probiert
        Tel_Gef& = @dbfind(Number$,1)
        Interne Programmier-Kontrolle, nur zur Info, wird dann entfernt
        Gleich sieht man, ob was gefunden wurde !!!
        Die zu suchende Nummer wird immer korrekt angezeigt (mit Spaces vorn,
        hinten, 0n vorn oder hinten oder so wie übergeben, nur ohne führende Null,
        je nach dem, was weiter oben in der Schleife gemacht wird (oder auch nicht,
        wenn auskommentiert).
        @MessageBox(Gesuchte Nummer :  + Number$ +
        Länge SuchString : 	+ @str$(@Len(Number$)) +
        Gefunden JA [1] / NEIN [0] :  + @Str$(Tel_Gef&),INFO,262144+16) War noch nie da!!
        Case Tel_Gef& : DS_Einlesen wenn gefunden, Datensatz einlesen

    EndIf

    @dbIndex(IDX_Name) Wieder Standart-Such-Index setzen

EndProc

...
IDX% = @dbIndex(IDX_Tel_1,IDX_Tel_2,IDX_Fax_1,IDX_Fax_2,IDX_Handy_1,IDX_Handy_2)
...

Proc DS_FindTel

    Parameters Number$ Übergabe-String aus Eingabefeld
    Declare Tel_Gef&, IDX%

    If Left$(Number$,1) = 0 auf führende O prüfen

        Number$ = @Del$(Number$,1,1)

    EndIF

    Clear IDX%, Tel_Gef&
    IDX% = @dbIndex(IDX_Tel_1,IDX_Tel_2,IDX_Fax_1,IDX_Fax_2,IDX_Handy_1,IDX_Handy_2)
    ALLE Indexe überprüfen:
    CaseNot IDX% : @MessageBox(Index konnte nicht geöffnet werden !!!,INFO,262144+64)

    If IDX%

        @dbIndex(IDX_Tel_1)
        Tel_Gef& = @dbfind(Number$,1)

        IfNot Tel_Gef&

            @dbIndex(IDX_Tel_2)
            Tel_Gef& = @dbfind(Number$,1)

        EndIF

        IfNot Tel_Gef&

            @dbIndex(IDX_Fax_1)
            Tel_Gef& = @dbfind(Number$,1)

        EndIF

        IfNot Tel_Gef&

            @dbIndex(IDX_Fax_2)
            Tel_Gef& = @dbfind(Number$,1)

        EndIF

        IfNot Tel_Gef&

            @dbIndex(IDX_Handy_1)
            Tel_Gef& = @dbfind(Number$,1)

        EndIF

        IfNot Tel_Gef&

            @dbIndex(IDX_Handy_2)
            Tel_Gef& = @dbfind(Number$,1)

        EndIF

        Interne Programmier-Kontrolle, nur zur Info, wird dann entfernt
        Gleich sieht man, ob was gefunden wurde !!!
        @MessageBox(Gesuchte Nummer :  + Number$ +
        Länge SuchString : 	+ @str$(@Len(Number$)) +
        Gefunden JA [1,2,...] / NEIN [0] :  + @Str$(Tel_Gef&),INFO,262144+16)
        Case Tel_Gef& : DS_Einlesen wenn gefunden, Datensatz einlesen

    Else

        @dbIndex(IDX_Name)
        @dbGo(Top)

    EndIf

    @dbIndex(IDX_Name) Wieder Standart-Such-Index setzen
    Return Tel_Gef&

Proc DB_Index

    AnzMitgl% = @dbuse(#1)
    dbcreateIndex A003+A004 > IDX_NAME
    dbcreateIndex A011 > IDX_Firma
    dbcreateIndex A015+A016+A017 > IDX_Tel  ALLES NUM-FELDER !!
    oder
    dbcreateIndex A015 > IDX_Tel1
    dbcreateIndex A016 > IDX_Tel2
    dbcreateIndex A017 > IDX_Fax1
    ... usw.
    @dbIndex(IDX_NAME)

endproc