podmioty
podmioty
nazwa
podm1st.spr
getdate.app
infopodm.spr
getdate.app
getdate.app
podmioty
INTERN
ILOSCPODM
IOPEN
MYPATH
PODMPATH
PODMIOTY
NAZWA
PODM1ST
FIRMNR
GETDATE
INFOPODM
SYMBOL
PODZLISTY
CLEARRIB
SUBPATH
ENTER
CLEAR READ
RETRY
_dlapopupa
 Wybierz podmiot: 
_dlapopupa
@ 0,0 GET m.wybor 	PICTURE "@&N" 	POPUP _wyborek 	SIZE 13,32 	MESSAGE ribbon[1]+ribbon[9] 	DEFAULT 1 	COLOR SCHEME 13
_dlapopupa
getdate.app
ESCQUIT
RIBBON
ENTER
_DLAPOPUPA_WYBOREK
NAZWA
PUPACLEARRIB
AFIRMNR
SYMBOL
GETDATE
PODZLISTY
TALKz
COMPATIBLEz
_qz90olnsv
 Info 
_qz90olnsv
Istnieje tylko jeden podmiot gospodarc
ne z menu.
@*HT OK
Aby wpisaF
 nowy podmiot, wybierz opcj
_qz90olnsv
CURRAREA
RTALKSTAT
COMPSTAT
_QZ90OLNSVRIBBON
EXITOK
_curobj=objnum(m.exitok)
retry
retry	
_curobj=objnum(m.exiterr)
podmioty
podmioty
nazwa
urzedy
us_id
TALKz
COMPATIBLEz
mypodm
 Dane podmiotu gospodarczego 
mypodm
Nr lokalu:
Gmina/dzielnica:
Nazwa podmiotu:
Ulica      :
MiejscowoF
Kod        :
Telefon    :
Fax        :
NIP           :
 Bank 
Nazwa      :
Konto      :
Opis       :
@K 99-999
@*HN UrzF
d skarbowy
@*HN Zapisz
@*HN Zaniechaj
 Adres prowadzenia dziaF
Nr domu  : 
Poczta   :
Telex    :
REGON    :
mypodm
podmioty
T.SPR
RIBBON
US_NAZWA
URZAD_NR
IOPEN
MYPATH
TYTUL
PODMIOTY
PODMPATH
NAZWA
OLDREK
URZEDY
US_ID
CURRAREA
TALKSTAT
COMPSTAT
MYPODM
REGON
ADRES
NR_DOMU
NR_LOKALU
MIASTO
POCZTA
TELEFON
TELEX
GMINA
_R5O0TRITYBANK
KONTO
EXITOK
_R5O0TRIXMEXITERR
_R5O0TRJ0W_R5O0TRJ6B
symbol
nazwa
OLDREK
SYMBOL
_NAZWA
NAZWA
wyb_us.prg
WYB_US
podmioty
firma
!md &mypath
\rach.pod
 Musisz podaF
 nazw
 firmy 
NAZWA
SYMBOL
FFREESYM
MYPATH
MAINPATH
TWODIG
HANDLE
 Musisz zapisaF
 dane podmiotu 
EXITOK
MYPODM
CURRWIND
MYPODM
US_NAZWA
FFREESYM
_R5O0TRITY
_R5O0TRIXM
_R5O0TRJ0W
_R5O0TRJ6B
urzedy
urzedy
urzedy.app
urzedy,
 UrzF
dy skarbowe 
urzedy
us_nazwa, us_id
 Brak urzedF
us_nazwa:20:H='Nazwa urzedu', ad=alltrim(us_ulica)+' '+alltrim(us_nrdomu):20:H='Adres',us_kodzip:6:H='Kod',us_miasto:20:H='Miasto'
us_nazwa
RIBBON
FAREA
IOPEN
US_ID
URZEDY
 WyPODMPATH
URZAD_NR
 WYBIERZ
exactz
LISTAZW
_olistazw
_owzorzec
TYTUL
DLWZORCA
ILOSC
TOMPODGLADZWROT
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
MYQUIT
NUMER
IOPEN
EXACT
WZWIERSZE
LISTAZW
_OLISTAZW
_OWZORZEC
SETRIB
WYBPRZEGLAWYBPRO
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
 Koniec danych 
 PoczF
tek danych 
 Koniec danych 
 PoczF
tek danych 
SCATTER FIELDS &coret MEMVAR
DO &tompodglad
CORET
STRING
LOKATA
MYSZR
MYSZC
DBLTIME
MYQUIT
CHANGED
DGLAD_OWZORZEC
DLWZORCA
WZWIERSZE
ILOSC
WYBPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
WYBWYKAZ
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
INDEX4
DPOLA5
INDEX5
ILOSC
SET ORDER TO &kolejnosc
_olbrow
BROWSE NOWAIT WINDOW _olbrow	IN WINDOW _olistazw TITLE "Wybierz" COLOR SCHEM 10 	FIELDS &pola
_olistazw
{INS}
KOLEJNOSC
_OLBROW
WZWIERSZE
WYBPRO
WYBPRZEGLA
WYBWYKAZ
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
jw5WIND
SETRIB
CLEARRIB
@L 99c
on[1]+q
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
w5WIND
inst.dta2
s3path.txt2	
inst.dta
rachcrc
rachcr*
rachcrc.mem2
rachcrc
MYINST
jw5RACHCRC
podmioty
PODMPATH
SYMBOL
FIRMNR
S3PATH
S4PATH
..\WYBPODMI\WYBPODMI.PRG
C:\KSIEGA\SYSTEM\
..\WYBPODMI\INFOPODM.SPR
..\WYBPODMI\PODM1ST.SPR
..\PODMIOTY\WYB_US.PRG
..\COMMON\WYBIERZ.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TWODIG.PRG
..\COMMON\SETRIB.PRG
..\COMMON\READCRC.PRG
..\KSIEGA\SUBPATH.PRG
WYBPODMI.FXP
INFOPODM.SPX
PODM1ST.SPX
WYB_US.FXP
WYBIERZ.FXP
CLEARRIB.FXP
TWODIG.FXP
SETRIB.FXP
READCRC.FXP
SUBPATH.FXP