)Sd +
PATHa
\kody
SET PATH TO &old_path ; &tmp ; &tmp1
PFList.spr
SET PATH TO &old_path
formatki
formatki
SET PATH TO &old_path
pola_frm
pola_frm
nrewid
Brak danych do przegl
du...
SET PATH TO &old_path
TakNie.spr
SET PATH TO &old_path
DO CancelRead
DO CancelRead
DO CallTerm 
DO ShowKody WITH m.CurrScr
DO ShowMemo 
DO Drukuj
DO Drukuj
TakNie.spr
SET PATH TO &old_path
BADANIE
SCIEZKA
PRAWA
OLD_PATH
CHCKPERM
NRLEK
GABINET
NREWID
PFLIST
FORMATKI
POLA_FRM
EDITFORM
UTAKNIE
OK_NREWID
NEWWIZYT
CURRSCR
_EXIT
CURRFIELD
CURROBJ
SREFRESH
ESCFKODY
SHOWFORM
GETFIELDS
SHOWFIELDSPGUP
IL_EKRANOWSAVEBAD
IF &tmp<>0
LOCATE FOR baza_kod.num_kod = &tmp AND wazny
M_KOD
WYBOR
OLD_ALIAS
CURROBJ
EXTRAKODY
BAZA_KOD
SLOWNIK
&yyy = tmp1
&xxx = tmp
M_KOD
EXTRAKODY
BAZA_KOD
NUM_KOD
POP_KODY
num_kod
DO ok_kod
OLD_ALIAS
TYTUL
M_KOD
NUM_KOD
BAZA_KOD
WAZNY
POP_KODY
ESCFKODY
ekran_FF
@ i+1,0 SAY STRTRAN(MLINE(&ekran,i+1),'_',' ') COLOR SCHEME 24
EKRANNO
FORMATKI
EKRAN
NAGLOWEK
ZA_KOD
PICT '@Z 
PICT '
PICT '@D'
@ Yy, Xx SAY &npole COLOR SCHEME 23
EKRANNO
NPOLE
POLA_FRM
GABINET
BADANIE
EKRAN
DLUGOSC
PICT '@Z 
PICT '
PICT '@D'
 VALID kody(
) WHEN DispInf() ERROR gt(9)
 ERROR "B
dna data !" VALID BezKodu() WHEN NDispInf()
 VALID BezKodu() WHEN NDispInf()
 COLOR SCHEME 24
 COLOR SCHEME 24 DISABLE
@ Yy, Xx GET &npole
EKRANNO
NPOLE
POLA_FRM
GABINET
BADANIE
EKRAN
DLUGOSC
WPROWADZ
F1-Kody 
        
CURROBJ
&_const = m.nrhch
&_const = m.rokhch
&_const = tmp
CALCULATE MAX(VAL(&_const)) FOR nrewid = m.nrewid TO tmp
&_const = tran(m.tmp+1,'999')
&_const = m.imienazw
&_const = tmp
&_const = LEFT(m.nrewid+SPACE(11),11)
&_const = LEFT( ALLTRIM( STR( INT( (DATE()-m.data_ur)/365.25 ) )+SPACE(3) ), 3)
OLD_ALIAS
_CONST
GABINET
BADANIE
DATA_UR
TakNie.spr
Prosz
 czeka
CALCULATE MAX(VAL(&tmp)) FOR nrewid = m.nrewid TO mtmp
&tmp = tran(mtmp+1,'999')
ALIAS
TAKNIE
GABINET
BADANIE
Rozwijanie p
l kodowych. Prosz
 czeka
opis_pol
opis_pol
IF &tmp <> 0
LOCATE FOR baza_kod.num_kod = &tmp
ShowKody
EKRANNO
SHOWKODY
OPIS_POL
POLA_FRM
GABINET
BADANIE
EKRAN
EXTRAKODY
BAZA_KOD
Terminar.spr
&xxx = m.TermExit
TERMINAR
NRLEK
TERMEXIT
EDITFORM
Memo_FF
EditMemo.spr
ShowMemo.spr
POLEMEMO
CURRSCR
EDITFORM
EDITMEMO
SHOWMEMO
TakNie.spr
                 Drukowa
 badanie ?
TAKNIE
OK_KOD
SLOWNIK
SHOWFORM
SHOWFIELDS
GETFIELDS
DISPINF
NDISPINF
BEZKODU
NEWWIZYT
SAVEBAD
CANCELREAD
SHOWKODY
CALLTERM
SHOWMEMO
DRUKUJ
F:\MAREK\DOM\ZNACHOR\PROG\PRG\
BADANIE.FXP
F:\MAREK\DOM\ZNACHOR\PROG\PRG\BADANIE.PRG