Dodatki > TCL > Rozszerzenia Tcl > Funkcje wbudowane w Powerbuilder

Poniższe funkcje zostały zaimplementowane jako obiekty i funkcje wbudowane w aplikację SSN, w związku z czym są zawsze dostępne w skryptach Tcl uruchamianych z wnętrza aplikacji (nie z interpretera Tcl) np. jako formuły cenowe.

get_file_open_name

Wyświetla okienko systemowe pozwalające na wybór pliku z dysku.

get_file_open_name tytul [domyslne_roz { filtr }]

ArgumentZnaczenie

tytulTytuł okienka.

domyslne_roz1-3 literowe rozszerzenie pliku , które jest wybierane jako domyślne na liście wyboru filtr.

filtrTekstowy opis plików i wzorców ich nazw, wyświetlany jako lista wyboru, służący do przefiltrowania listy plików wyświetlanych przez okienko (np.: *.* czy *.psr). Format filtra:

opis, *.rozszerzenie

Wartość domyślna:

"All Files (*.*),*.*"

Wynik

Pełna nazwa wybranego pliku ( razem ze ścieżką), lub pusty napis jeśli nie wskazano żadnego pliku.

Przykład:

set ls_filename [get_file_open_name "Nazwa pliku z fakturami" "MDB" "Bazy danych MS Access (*.mdb), *.mdb,Wszystkie pliki (*.*),*.*"]

messagebox

Wyświetla okienko systemowe z nagłówkiem i komunikatem

messagebox [tytul] komunikat

ArgumentZnaczenie

TytulTekst wyświetlany w nagłówku okienka.

KomunikatWyświetlany komunikat

progress

Wyświetla pasek postępu zadania

progress –init tytul max | -setposition pos | -message komunikat | -close

OpcjaZnaczenie

-initOtwiera okienko z paskiem postępu o tytule tytul i maksymalnej liczbie kroków zaawansowania max

-setpositionUstawia pozycję paska postępu na pos kroków

-messageWyświetla komunikat nad paskiem postępu

-closeZamyka okienko z paskiem postępu

ArgumentZnaczenie

tytulTytuł okienka

maxLiczba kroków odpowiadająca 100% zaawansowania zadania

posLiczba kroków określająca bieżące zaawansowanie zadania

komunikatTekst komunikatu wyświetlanego nad paskiem

sqlca

Steruje transakcjami na serwerze bazy danych w ramach aktualnego połączenia

sqlca -begin_tran | -commit | -rollback | -getidentity

OpcjaZnaczenie

-begin_tranOtwiera transakcję

-commitZatwierdza transakcję

-rollbackWycofuje transakcję

-getidentityZwraca ostatnia nadaną wartość autonumeru

sys_uzytk_id

Podaje numer wewnętrzny bieżącego użytkownika aplikacji

sys_uzytk_id

sys_input

Otwiera okienko dialogowe i pobiera wprowadzone przez użytkownika wartości.

sys_input tytul naglowek etykieta_pola typ_maski maska wyrownanie wartosc_pola { etykieta_pola typ_maski maska_pola wyrownanie_pola wartosc_pola}

ArgumentZnaczenie

tytulTytuł okienka

naglowekNapis u góry okienka

etykieta_polaEtykieta wyświetlana po lewej stronie pola

typ_maskiOkreślenie typu wartości, która może być wprowadzona. Dopuszczalne wartości:

datemask- wartość typu data

datetimemask- wartość typu dataczas

decimalmask- wartość typu dziesiętnego

numericmask - dowolna liczba

stringmask- wartość znakowa

timemask- wartość typu czas

maska_polaFormat pola

wyrownanie_polaSposób dosunięcia wartości w polu

center- centrowanie

justify- justowanie

left- dosunięcie do lewego

rigth- dosunięcie do prawego

wartosc_polaWartość początkowa pola

Wynik

Ciąg znaków zawierający wartości wprowadzone na okienku dialogowym. Wartości są od siebie odseparowane znakiem tyldy (~).

Przykład

set ls_parametry [sys_input "Transfer faktur" "Podaj parametry transferu\ faktur"\

"Numer startowy:" numericmask ###### right $ld_Start\

"Od faktury:" numericmask ###### right $ld_Od\

"Do faktury:" numericmask ###### right $ld_Do ]

# przepisz pobrane wartości do listy

set lsl_parametry [split $ls_parametry ~]

# przepisz wartosci z listy do zmiennych

set ld_Start [lindex $lsl_parametry 0]

set ld_Od [lindex $lsl_parametry 1]

set ld_Do [lindex $lsl_parametry 2]

sys_zmienne

Pobiera wartość ustawioną przez procedurę wbudowaną.

sys_zmienne –getlong | -getstatus | -getmessage | -user_message

-getlongPobiera wartość liczbową zapisaną przez procedurę wbudowaną

-getstatusPobiera kod powrotu z procedury wbudowanej.

-getmessagePobiera komunikat o błędzie zapisany przez procedurę wbudowaną.

-user_messageWyświetla komunikat o błędzie zapisany przez procedurę wbudowaną.

wywolaj

Wywołuje formułę zapisaną w Tcl

wywolaj formula

ArgumentZnaczenie

formulanazwa formuły, która zostanie wywołana