home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
PARAMS.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
20KB
|
357 lines
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
separat
TALKz
COMPATIBLEz
_r260tanam
Parametry
_r260tanam
Katalog Subiekta 3:
ZaokrF
glenia :
dochodu:
podatku:
Sterowanie :
10,000
@^ 100,000;10,000;1,000;100;10;1;0.1;0.01
1,000
@^ 10,000;1,000;100;10;1;0.1;0.01
Separator - tysiF
Katalog Subiekta 4:
@*C Dopisz/Popraw/UsuF
@*C Tabela
@*C AmortyzowaF
rodki trwa
e w nast
pnym miesi
@*HT Zapisz
@*HT Zaniechaj
_r260tanam
RIBBON
TEMPDOCH
TEMPPOD
GDZIES3
GDZIES4
TEMPS3
TEMPTAB
S3PATH
ARS4PATH
M._PARZ_DOCH_PARZ_POD
MENU_S3
MENU_TAB
PODMPATH
CURRAREA
TALKSTAT
dCOMPSTAT
elect 0_R260TANAM_R260TANPO_R260TANTISEP_TYS
pSEP_ULA
mPOZNSRTR
tEXITOK
_R260TANZGEXITERR
.fCLEARRIB
y katalog Subiekta 3
GDZIES3
y katalog Subiekta 3
GDZIES4
params
_par*
podmioty
podmioty
menu_*
separat
sep_*
IOPEN
S3PATH
GDZIES3
S4PATH
GDZIES4
TEMPDOCH
_PARZ_DOCHTEMPPOD
CH_PARZ_POD
PODMPATH
PODMIOTY
HSYMBOL
FIRMNR
POZNSRTR
MENU_S3
TEMPS3
MENU_TAB
dTEMPTAB
eREDOMENU
0SEP_ULA
MSEP_TYS
PO_R260TANPO
_R260TANTI
_R260TANZG
CURSORz
TALKz
COMPATIBLEz
_qz90oigji
Informacja o programie
(c) InsERT 1994
_qz90oigji
InsERT, WrocF
Parkowa 25
telefon: (071) 48-42-81
Wersja
XXXXXXXXXXXXXXXXXXX
R A C H M I S T R Z
Autorzy:
Artur Bartnicki
Marcin Hudyma
Tomasz KF
Komputerowa ksiF
ka przychod
w i rozchod
Wolnej pamiF
ci DOS-owej masz:
Rachmistrz potrafi wykorzystaF
Na dysku masz jeszcze wolnych:
999,999,999c
bajt
999,999,999c
bajt
999,999,999c
bajt
_qz90oigji
set cursor &curstat
CURSTAT
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OIGJIRACHVER
system.spr
infoprog.spr
miesiac.spr
REDOMENU
SYSTEM
INFOPROG
MIESIAC
CLEARRIB
COLORLOOP
MAINMENU
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
SETRIB
CLEARRIB
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
WaitWin
Za chwilF
dalszy ci
g programu.
DrukujF
CierpliwoF
ci. Mo
e to potrwa
ugo...
ONOFF
KOMUNIK
WAITWIN
CURSORz
errors
WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
SYSPATH
ERRWIN
ERRORS
ERRCODE
MESSAGE
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
TALKz
COMPATIBLEz
m.typnum
m.numpocz
m.wylicz
m.typsum
m.exitok
m.exiterr
_r700ogdoz
Parametry miesiF
_curobj = objnum( m.exitok )
_curobj = objnum( m.exiterr )
_r700ogdoz
Numeracja pozycji w ksiF
PoczF
tkowy numer:
Sumowanie kolumn ksiF
@*RVN oddzielna dla kaF
dego miesi
czna w ci
gu roku
@K 9,999
@*HN Wylicz
@*RVN oddzielnie dla kaF
dego miesi
cznie od pocz
tku roku
@*HT Zapisz
@*HT Zaniechaj
_r700ogdoz
NUMPOCZ
TYPNUM
NUMCIAG
RIBBON
CURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
_R700OGDOZF10
MIESIACE
FULLYEAR
ROKNR
MIESIAC
MIESNR
SUMCIAG
TYPSUM
_UPDACTIV
_R700OGE2K_R700OGE4G_R700OGE6PWYLICZ
_R700OGE8P_R700OGEDDEXITOK
_R700OGEF3_R700OGEGNEXITERR
_R700OGEIX_R700OGEKG[
TYPNUM
NUMPOCZ
WYLICZ
_UPDACTIV
m.typnum
m.wylicz
Numer pocz
tkowy musi by
co najmniej 1
DACTIV
SETRIB
RIBBON
NUMPOCZ
Numer pocz
tkowy musi by
co najmniej 1
NUMPOCZ
NUMER
WORKPATH
TYPNUM
MIESIACE
MIESNR
MIESIAC
NUMCIAG
NUMPOCZ
MAINPATH
OGDOZTWODIG
ROKNR
BI_WORK
_UPDACTIV
Numer pocz
tkowy musi by
co najmniej 1
_UPDACTIV
TYPNUM
NUMPOCZ
TYPNUM
NUMCIAG
NUMPOCZ
SUMCIAG
TYPSUM
_UPDACTIV
_UPDACTIV
_UPDACTIV
_R700OGE2K
_R700OGE4G
_R700OGE6P
_R700OGE8P
_R700OGEDD
_R700OGEF3
_R700OGEGN
_R700OGEIX
_R700OGEKG
@L 99c
cursorz
_curobj = objnum( &getname )
show get &getname
&KeyEsc
_curobj = objnum(&nextobj)
&KeyF10
_curobj = objnum(&prevobj)
pointz
@y0,x0 say guma color &GetColor
@y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor
@y0,x0 say guma color &GetColor
@y0,x0 say NewLook(PrzedKropka, ZaKropka) color &GetColor
set cursor &Kursor
BEFOREPOINSTARTVALUEWITHMINUS
WITHULAMEKCOLORSCHEMPREVOBJ
LDNEXTOBJ
__OBJS
BEFPOINTOLKEYESC
WKEYF10
WPKURSOR
WPRSELECTCOLOGETCOLOR
MFIRSTSHOT
MOUSEQUIT
FULLWIDTH
ZAKROPKA
KJESTKROPKAPRZEDKROPKMINUS
ALUEOLDPK
ALUEOLDMINUS
KOLDZK
SNEWLOOK
KONIEC
UPDATEFULLMOUSEX
Y MOUSEY
LLWIDTH
__NUMOBJ
GETNAME
ROPKA
999,999,999,999c
pointz
PRZED
WORKSTR
INUPDATEFULLMINUS
JESTKROPKAFULLWIDTH
MINUS
BEFOREPOINBEFPOINTOLWITHMINUS
NEWLOOK
UPDATEFULL
..\PARAMS\SYSTEM.SPR
C:\KSIEGA\SYSTEM\
..\PARAMS\INFOPROG.SPR
..\PARAMS\PARAMS.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\NOTICE.PRG
..\COMMON\SETRIB.PRG
..\PARAMS\MIESIAC.SPR
..\COMMON\FULLYEAR.PRG
..\COMMON\TWODIG.PRG
..\COMMON\GF.PRG
SYSTEM.SPX
INFOPROG.SPX
PARAMS.FXP
CLEARRIB.FXP
TAKNIE.FXP
CZEKAJ.FXP
NOTICE.FXP
SETRIB.FXP
MIESIAC.SPX
FULLYEAR.FXP
TWODIG.FXP
GF.FXP