Hente indexnavn med ALT+H

INT    &TableId
STR    &IndexNavn

SET &TableId = FileName2Id("Debkart")  // Tablenavn skrive indenfor "'erne
SET &IndexNavn = IndexId2Name(&TableId,PickIndex(&TableId))

Vil returnere det valgte indexnavn fra debkart i &Indexnavn

Hej jasman

Tak for 2 hurtige og gode respons (jeg bliver het forpustet)

Det virker dejligt.

Nu mangler jeg bare, at feltvælgeren først kommer frem når det trykker ALT+H.

Har du også løsning på dette.

/Laasby

Der kunne du gå ind og lave en processtast (ALT+P) i din form som fanger AlT+H også checke på om du står i det felt, hvor du vil have det til at virke.
Hvis du gør det kalder du ovenstående kode.

1. Åbn din form.
2. Tryk ALT+P
3. Tryk INSERT.
4. Skriv ALTH i feltet "Parametre til process".
5. Skriv evt. "Hjælp til feltet" i feltet "Hjælpetekst"
6. Tryk F3 to gange.
7. Tryk CTRL+F6 og åbner Formler.
8. I triggeren PRE-KEY skriver du følgende kode:

#MACROLOAD(TASKS)  // Kan udelades hvis der i INIT-triggeren er lavet #MACROLOAD(FORMS)

INT    &TableId

IF &PARM == "ALTH" AND &CurFld == VarStr(FormFeltNavn) THEN
    SET &TableId = FileName2Id("Debkart")
    SET &FormFeltNavn = IndexId2Name(&TableId,PickIndex(&TableId))
ELSE
    SET Keyqueue(#TASK_CRT_HELP) // Udfører ALTH som normalt
ENDIF

I ovenstående kode er &FormFeltNavn det VIRTUELLE felt på din form, hvor du vil have placeret indexnavnet.
Altså skal dette felt være oprettet i formen !!!

Hej jasman

Det var en mulighed - endnu engang tak for hurtig respons.

Jeg prøver lige at vente, for at se om der kommer en anden med en smartere måde (og i mellemtiden tester jeg dit oplæg).

/Laasby

Ok.

Hej Jasman

Hermed points - løsningsforslaget virker, og der kom ikke yderligere bud.

Tak for input.

/Laasby

Velbekomme :)

Jeg er bange for at der ikke er så mange andre måder at gøre det på.
Derfor manglende alternativer.