C5 - ver.3,0 Egen menu - prompt
Jeg har lavet en label, som udskriver adresselabels. Det startes både fra DebKart Egen menu og fra DebRapStam.Når der udskrives fra DebKart/Egen menu udskrives aktuelle debitor - med denne kode i Formler/Init:
----------------------------------------------
#MacroLoad(REPORTS)
#MacroLoad(QUERY)
INT &Attention
EXTERN DebKart RENAME Buffer
IF Buffer.Løbenummer THEN
#QT_CLEAR(DebKart)
SET DebKart.Konto = Buffer.Konto
#QT_FILL(DebKart,Konto)
#QT_SKIP
ENDIF
---------------------------------------------------
Så langt virker det.
Der promptes for om Attention skal medtages, med denne kode:
---------------------------------------------------
#Prompt(CurUserId(),&Report)
#StrPrompt("Incl. attention") #NejJa(NejJa1)
#PromptAbort(25,8,Parametre)
SET &Attention = NejJa1
-----------------------------------------------
Prompten virker når der udskrives fra DebRapStam,
men ikke, når der udskrives fra DebKart/Egen menu.
Hvad mangler der i koden, for at det Attention
promptes i Egen menu ?
I rapportlayoutet er indsat RETURN Attention<>"" for at
skippe blanke linier.
/Lotte
