getdate.spr
miesiac
check.app
miesiac.mem
miesiac
miesiac.mem
miesiac
FFF$m
check.app
getdate.spr
miesiac
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
check.app
OLMIES
OLDROK
PASSED
SCIEZ
ROKNR
MIESNR
GETDATE
OLDMIES
MAINPATH
CHECK
CLEARRIB
MAKEPODM
FIRMNR
RACHCRC
RIBBON
OPENBASE
NAPIS
podmioty
podmioty
symbol
StyczeF
Marzec
KwiecieF
Czerwiec
Lipiec
SierpieF
WrzesieF
dziernik
Listopad
GrudzieF
@20,0 SAY "U"+pl[18]+"ytkownik      : "+m.username color &n_color
@21,0 SAY "Aktualny podmiot: "+m.n_nazwa color &n_color
@22,0 SAY "Miesi"+pl[10]+"c         : "+m.n_miesiac+" "+alltrim(str(fullyear(m.roknr))) color &n_color
@23,0 SAY iif( alltrim(rachcrc) <> "", "Numer licencji  : "+alltrim(rachcrc), 	"Wersja demonstracyjna") color &n_color
N_MIESIAC
IOPEN
N_NAZWA
N_COLOR
oPODMPATH
PODMIOTY
SYMBOL
TFIRMNR
NAZWA
MIESNR
firmaF
FIRMNR
TWODIG
ident
ident
ewfirm
ewfirmy
ewsrtr
ewsrtr
ewamort
ewamort
miesiace
ewprac
ewwypl
ewwypos
ewumowy
ewreman
ewzvf
ewzvr
ewzvfk
ewzvrk
ewsvf
ewsvr
ewsvfk
ewsvrk
MAKEPUB
DACZEKAJ
SHUTOPEN
MAINPATH
NPODM
EWPRAC
EWWYPL
EWWYPOS
4EWUMOWY
EWREMAN
EWZVF
EWZVR
EWZVFK
EWZVRK
EWSVF
EWSVR
EWSVFK
EWSVRK
CZYTBLOK
@L 99c
pojazd
pprzej
prach
umowy
wypos
LOEWPOJAZD
MEWPRAC
AEWREMAN
NPEWWYPOS
POEWZVF
PODEWZVR
EWZVFK
EWZVRK
EWSVF
MEWSVR
FUEWSVFK
MONEWSVRK
EWWYPL
EWUMOWY
EWPPRZEJ
QEWPRACH
PRACH
MAKEPODM
FIRMNR
TWODIG
ROKNR
AMIESNR
WaitWin
Za chwilF
 dalszy ci
g programu.
DrukujF
CierpliwoF
ci. Mo
e to potrwa
ugo...
ONOFF
KOMUNIK
WAITWIN
MIESIACE
MIESIAC
MIESNR
ROKNR
MBLOKADA
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
OKADAWIND
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
SETRIB
CLEARRIB
??mies.dbf
mies1
(zablokowany)
TALKz
COMPATIBLEz
_qz90oljw5
 Wybierz miesiF
c do pracy 
_qz90oljw5
@ 1,2 GET m.wybor 	PICTURE "@&T" 	POPUP _qz90olkdt 	SIZE 9,34 	DEFAULT " " 	VALID _qz90olkhq() 	MESSAGE ribbon[1]+ribbon[11]+ribbon[9] 	COLOR SCHEME 13
@*HN Nowy miesiF
_qz90oljw5
XXXXXXILEY
XXXXXILEM
XXXXXSCIEZ
XXXXI
XXXXXXXXROK
NAZWA
WYBOR
JESTNOWY
/NOWYM
FNOWYR
RIBBON
(BLOK
MAINPATH
MAKEPODM
FFIRMNR
_MIESIAC
MIESIAC
MBLOKADA
SYSPATH
_MIES1
FULLYEAR
DATAMI
CURRAREA
TALKSTAT
/COMPSTAT
_QZ90OLJW5F1
_QZ90OLKDTNEW
0OLJW5_QZ90OLKLH_QZ90OLKOX4
XXXXXXDATY
XXXXXROK
XXXXXMN
XXXXMIES
XXXXXPASSED
nowymies.spr
NOWYMIES
XXXXXJESTNOWY
XXXXNOWYR
XXXXMN
NOWYM
PASSED
{ENTER}
XXXXX_QZ90OLKHQ
_QZ90OLKLH
_QZ90OLKOX
TALKz
COMPATIBLEz
_qz90ollgf
 Nowy miesiF
_curobj = objnum( m.exitok )
_curobj = objnum( m.exiterr )
_qz90ollgf
stycze
@^ stycze
;luty;marzec;kwiecie
;maj;czerwiec;lipiec;sierpie
;wrzesie
dziernik;listopad;grudzie
@*HN Zapisz
@*HT Zaniechaj
_qz90ollgf
RIBBON
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OLLGFF10
EXITOK
LGF_QZ90OLLQYEXITERR
_QZ90OLLV9
Taki miesiF
 istnieje!
JESTNOWY
NOWYR
NOWYM
KSTAT
JESTNOWY
_QZ90OLLQY
_QZ90OLLV9
..\GETDATE\GETDATE.PRG
C:\KSIEGA\SYSTEM\
..\COMMON\NAPIS.PRG
..\COMMON\MAKEPODM.PRG
..\COMMON\OPENBASE.PRG
..\COMMON\TWODIG.PRG
..\COMMON\MAKEPUB.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\SHUTOPEN.PRG
..\COMMON\CZYTBLOK.PRG
..\COMMON\SETRIB.PRG
..\COMMON\CLEARRIB.PRG
..\GETDATE\GETDATE.SPR
..\GETDATE\NOWYMIES.SPR
..\COMMON\FULLYEAR.PRG
GETDATE.FXP
NAPIS.FXP
MAKEPODM.FXP
OPENBASE.FXP
TWODIG.FXP
MAKEPUB.FXP
CZEKAJ.FXP
SHUTOPEN.FXP
CZYTBLOK.FXP
SETRIB.FXP
CLEARRIB.FXP
GETDATE.SPX
NOWYMIES.SPX
FULLYEAR.FXP