Etykiety

Etykieta jest to specjalny sposób oznaczenia miejsca w raporcie, umożliwiający wykonanie skoku do tego miejsca. Używana jest w poleceniach GoSub i GoTo.

Etykiety tworzy się przez umieszczenie na początku linii unikalnego symbolu z umieszczonym na końcu dwukropkiem. Skok do określonej etykiety wykonuje się podając symbol tej etykiety.

 

Przykład

//Wyświetlenie okna dialogowego
Form "Tytuł okna", 400, 110
Text "Demonstracja zastosowania etykiety", 10,10,460,24
Button "O&K", 50, 50, 100, 24, -1
Button "&Anuluj", 200, 50, 100, 24, 3
Int ko = ExecForm
//Wyjście po wybraniu przycisku Anuluj
If ko != -1 Then GoTo etykietaWyj
//Wyświetlenie komunikatu umożliwiającego wybór sposobu zakończenia raportu po wybraniu przycisku OK
If (Message "Czy utworzyć wydruk raportu DefBtn: &Nie=1 Btn: &Tak=2 Ico:?") == 1 Then
//Przerwanie wykonywania raportu i podanie komunikatu oraz informacji o miejscu wywołania
etykietaWyj:
Error "Zakończenie bez tworzenia wydruku"
Else
//Zakończenie raportu, wyświetlenie na ekranie strony raportu z napisem Koniec i możliwością wydrukowania
Print "Koniec"
End
Endif