XAL - udskrivning af indexkomponenter

Hej mariaf

Under dbd/diverse er der en funktion der hedder oversigt der har du et fanebrev (side) der viser alle index\'er og deres komponenter; alternativt kan du bruge sysinfo\'erne i macrolib\'en DATABASE_INFORMATION.
Håber det var svar nok; ellers jeg kan evt skrive en lille rutine til dig og sende den pr. mail.

Hverdag er en ny dag! ;-)

Ja, det kan jeg godt se, men det dækker ikke mit behov.
Jeg vil gerne kunne lave en udskrift til fil, hvor jeg får en liste over samtlige index med alle komponenter, så jeg uden videre kan slå op og finde komponenterne, når jeg har et indexnavn (og kartoteksnavn).

Man kan i udviklingsmenuen under DBD/udskriv, vælge kartotek og så udskrives alle info om valgte kartotek incl. index med komponeneter.

Ja, men jeg skal bruge for ALLE kartoteker i en udskrift, ikke et ad gangen.

Der findes ikke en standard udskrift der kan dette, det nemmeste er at tage den udskrift jeg henviste til og korrigere den så den tager alle
kartoteker.

Hej Mariaf

Måske kan dette bruges ;-)

{XAL:Index2file}
// Udviklet af Logicx Innovation tlf: 70208220
// Programmer: S›ren Skov Andersen id: 4
// Mail: ssa@logicx.dk
// Stamp:4SSA130901#5766
// (C) Alle rettigheder forbeholdes 2001

#MacroLoad(DATABASE_INFORMATION)
INT &Files
INT &NumIdx
INT &fileno
STR  70 &FilNavn = \"c:\\\\index.kom\"
INT    &Counter


#PROMPT \"Export af indexer til fil:\",,
        \"Filnavn..: \" GET(&FilNavn LENGTH 20)
#PromptAbort(10,5)

IF NOT &FilNavn THEN
  RETURN 0
ENDIF
IF #FileExists(&FilNavn) THEN
  IF Box(3,\"Filen eksisterer allerede, skal den overskrives.\",0) <> 1 THEN
    RETURN 0
  ENDIF
ENDIF


WINDOW 40,5 AT 20,5
PRINT \"Skriver index nummer: \" AT 1,3


//Find antallet af kartoteker i databasen udl&#8216;s indexer og skriv dem til fil
SET &files = #Db_Dictionary(FILES)

WHILE &files > 0
    SET &NumIdx = 0
    WHILE IndexId2Name(&Files,&NumIdx+1) <> \'RecId\'
        #ADD(&NumIdx,1)
        SET &Counter = &Counter + 1
        WRITE &FilNavn AS Comma FROM (
        Fileid2name(&Files)+\",\"+IndexId2name(&Files,&NumIdx)+\",\"+#Db_Index(Fileid2name(&Files),IndexId2name(&Files,&NumIdx),FIELDLIST)

        )
            PRINT &counter AT 25,3
        END
        #ADD(&files,-1)
END
PAUSE

Det var nemlig lige det, jeg havde brug for. Tak for hjælpen.

Altid glad for at kunne hjælpe ;-)