home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
UMOWY.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
56KB
|
1,082 lines
umowy.spr
Umowy - zlecenia
ewumowy
umowy.spr with 1
umowy.spr with 2
Nie ma F
adnych um
dz=day(u_dataw),u_opis:40:H ='Opis', u_brutto:H= 'Brutto':p='999,999,999.99',u_netto:H='Netto':p='999,999,999.99'
dzien
Umowy - zlecenia
ewumowy
kasumowe
umowy.spr with 2
Nie ma F
adnych um
dz=day(u_dataw),u_opis:40:H ='Opis', u_brutto:H= 'Brutto':p='999,999,999.99',u_netto:H='Netto':p='999,999,999.99'
dzien
Umowy - zlecenia
ewumowy
umowy.spr with 0
umowy.spr with 1
umowy.spr with 2
kasumowe
dz=day(u_dataw),u_opis:40:H ='Opis', u_brutto:H= 'Brutto':p='999,999,999.99',u_netto:H='Netto':p='999,999,999.99'
dzien
Umowy - zlecenia
ewumowy
wz_umowy with kod
umowy.spr with 2
Nie ma F
adnych um
dz=day(u_dataw),u_opis:40:H ='Opis', u_brutto:H= 'Brutto':p='999,999,999.99',u_netto:H='Netto':p='999,999,999.99'
dzien
RIBBON
*UMOWY
EWUMOWY
U_DATAW
MIESNR
STARTLIS
dMAINPATH
LISTA
@CLEARRIB
U_IDKSIEGIWORK
TAKNIE
EWUMOWY
tresc.spr
drukum.spr
SIEGIEWPRAC
TRESC
DRUKUM
KASUMOWE
WZ_UMOWY
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
nearz
ewumowy
Umowa-zlecenie
TALKz
COMPATIBLEz
m.nazwisko
m.u_nr
m.u_opis
m.u_datado
m.u_dataod
m.zus
m.u_prac_s
m.fund
m.wyn
m.u_brutto
m.u_koszt_s
m.u_pod_s
m.dzien
m.u_opiszd
m.exitok
m.exiterr
_r190shcms
Dane umowy - zlecenia
_r190shcms
Data wypF
aty/ksi
gowania:
Miejsce urodzenia:
Data urodzenia:
2 :
1 :
Nazwisko :
Nr umowy:
Dotyczy :
Kwota GSP :
Kwota FP :
Kwota ZUS :
999,999,999.99
999,999,999.99
999,999,999.99
ojca :
matki :
Do opodatkowania:
Kwota brutto :
Koszt uzyskania :
Kwota podatku :
Netto :
Do dnia:
Od dnia:
Pracodawca wpF
Brak takiego pracownika
@*IVN
@K 999.99
@*IVN
@*IVN
@K 99,999,999,999.99
@K 99.99
99,999,999,999.99
99,999,999,999.99
@K 99.99
99,999,999,999.99
@K 99,999,999,999.99
@KL 99
Opis:
@K XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
@*HN Zapisz
@*HT Zaniechaj
_r190shcms
AREA
UUZYSKW
UPODSTAWA
IOPEN
DZIEN
NEAR
KOD
NAZWISKO
IMIE1
5IMIE2
IMIEOJ
127IMIEMAT
1DATAUR
MIEJSCEUR
PESEL
GMINA
KODZIP
ULICA
NR_DOMU
NR_LOKALU
MIASTO
RIBBON
ESC
F10
MAINPATH
EWUMOWY
U_KOSZT_S
_PARKUMOWYU_POD_S
_PARSTOPA1U_DATAW
U_ZUS_TYP
U_FUND_TYPU_WYN_TYP
U_ZUS_S
_PARUZUS
U_FUND_S
_PARFUND
U_WYN_S
_PARWYN
U_PRAC_S
U_OPISZD
EWPRAC
LICZ
CURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
_R190SHCMSFULLYEAR
SROKNR
TWODIG
MIESNR
U_ZUS_K
U_FUND_K
3U_WYN_K
_R190SHDK3_R190SHDLPU_NR
U_OPIS
U_DATADO
U_DATAOD
_R190SHDRZ_R190SHDTMFUND
_R190SHDWAWYN
_R190SHDXYU_BRUTTO
_R190SHDZK_R190SHE1H_R190SHE45U_PODATEK
U_NETTO
_R190SHE6XEXITOK
_R190SHEA7_R190SHEBOEXITERR
_R190SHEH9_R190SHEIV
UUZYSKW
U_KOSZT_S
U_BRUTTO
UPODSTAWA
_PARZ_DOCHU_PODATEK
U_POD_S
_PARZ_POD
U_NETTO
U_ZUS_TYP
U_ZUS_K
U_ZUS_NAL
U_ZUS_S
U_FUND_TYPU_FUND_K
U_FUND_NALU_FUND_S
LU_WYN_TYP
U_WYN_K
U_WYN_NAL
U_WYN_S
ewprac.app
EWPRAC
APP
SZT_S
do pracdata
do dodprac
SZT_S
Musisz podaF
nazwisko
NAZWISKO
EWPRAC
IMIE1
HIMIE2
IMIEOJ
IMIEMAT
DATAUR
MIEJSCEUR
PESEL
GMINA
KODZIP
ULICA
_TYPNR_DOMU
NR_LOKALU
MIASTO
YN_TYP
EWUMOWY
detale.spr
Dane ZUS
DETALE
U_ZUS_TYP
U_ZUS_S
_PARUKZUS
U_ZUS_K
U_ZUS_NAL
U_BRUTTO
m.zus
m.fund
NieprawidF
owa warto
SETRIB
RIBBON
U_PRAC_S
RAC_S
detale.spr
Dane FP
DETALE
U_FUND_TYPU_FUND_S
_PAR_KFUNDU_FUND_K
U_FUND_NALU_BRUTTO
detale.spr
Dane GSP
DETALE
U_WYN_TYP
U_WYN_S
_PAR_KWYN
U_WYN_K
U_WYN_NAL
U_BRUTTO
m.wyn
m.u_koszt_s
U_BRUTTO
m.u_brutto
m.u_pod_s
U_KOSZT_S
m.u_koszt_s
m.dzien
U_POD_S
Musisz podaF
a data
DZIEN
MAXDAY
MIESNR
Musisz podaF
dane osoby
Brak takiego pracownika
a data
ewumowy
NAZWISKO
EWPRAC
IMIE1
IMIE2
IMIEOJ
IMIEMAT
DATAUR
MIEJSCEUR
PESEL
_TYPGMINA
KODZIP
ULICA
LNR_DOMU
NR_LOKALU
MIASTO
EWUMOWY
DZIEN
MAXDAY
MIESNR
U_IDKSIEGIIDENT
U_DATAW
D2DATA
ROKNR
TYP
STOPA1DOWOD
DATA
D_TYPFIRMA
WWYPLATA
U_NR
SIEGIU_OPISZD
U_BRUTTO
U_PRAC_S
U_ZUS_K
U_FUND_K
U_WYN_K
_R190SHCMS
999,999,999.99
999,999,999.99
999,999,999.99
99,999,999,999.99
99,999,999,999.99
99,999,999,999.99
@K 99,999,999,999.99
CURRWIND
_R190SHCMSU_ZUS_K
U_FUND_K
U_WYN_K
IMIE1
IMIE2
IMIEOJ
IMIEMAT
DATAUR
MIEJSCEUR
UUZYSKW
UPODSTAWA
U_PODATEK
U_NETTO
DODPRAC
_R190SHDK3
_R190SHDLP
_R190SHDRZ
_R190SHDTM
_R190SHDWA
_R190SHDXY
_R190SHDZK
_R190SHE1H
_R190SHE45
_R190SHE6X
_R190SHEA7
_R190SHEBO
_R190SHEH9
_R190SHEIV
exactz
_lowzorzec
_lolistabr
_lowzorzec
FCOL
TROW
TCOL
TYTUL
* DLWZORCA
ZMYILOSC
PLIK
m.wyALIAS
TOMENTER
TOMPODGLADINFO
CZYBLOK
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
tionINDEX3
POLA4
INDEX4
POLA5
INDEX5
NUMER
IOPEN
EXACT
AREA
ILE
WIERSZE
Fr_LOWZORZEC_LOLISTABRSETRIB
ZECPROPRZEGLASTARTPRO
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
Koniec danych
PoczF
tek danych
Koniec danych
PoczF
tek danych
Zapis jest zablokowany
DO &tomenter
DO &tompodglad
STRING
MYDO
MYQUIT
WIERSZE
ZNAK
* _LOWZORZECDLWZORCA
LOKATA
.wyMYSZR
MYSZC
FCOL
GLADTCOL
TROW
FROW
PL
TOMENTER
CZYBLOK
BLOKADA
MYILOSC
onPROPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
PROWYKAZ
POLA1
INDEX1
POLA2
INDEX2
ZECPOLA3
INDEX3
.wyINDEX4
POLA5
INDEX5
LADMYILOSC
SET ORDER TO &kolejnosc
_olistast
BROWSE NOWAIT WINDOW _olistast IN WINDOW _lolistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola
{INS}
KOLEJNOSC
_OLISTAST
FCOL
TROW
ZECTCOL
STARTPRO
PROPRZEGLA
PROWYKAZ
exactz
Razem
_lowzorzec
_olistabr
_losumy
TYTUL
DLWZORCA
MYILOSC
ALIAS
TOMPLUS
TOMENTER
TOMDRUK
TOMPODGLADTOMMINUS
TOMBLOKUJ
TOMANULUJ
POMOC
SUMGDZIE
SUMILE
SUMWYR
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
NUMER
IOPEN
EXACT
_LOSUMY
_LOWZORZEC_OLISTABR
SETRIB
ZECREFRSUMY
PRZEGLAD
CLEARRIB
{DNARROW}
{UPARROW}
{TAB}
Koniec danych
PoczF
tek danych
Koniec danych
PoczF
tek danych
MiesiF
c jest zablokowany
Zapis jest zablokowany
Nie moF
esz poprawia
DO &tomenter
DO &tomenter
MiesiF
c jest zablokowany
Zapis jest zablokowany
Nie moF
esz usuwa
DO &tomminus
do &tomminus
MiesiF
c jest zablokowany
Nie moF
esz dodawa
DO &tomplus
do &tomplus
DO &tomdruk
DO &tomblokuj
DO &tomanuluj
DO &tompodglad
STRING
LOKATA
WIERSZE
MYQUIT
MYSZR
MYSZC
SUMILE
DLWZORCA
DGLADTROW
TOMENTER
TOMBLOKUJ
BLOKUJ
BLOKADA
REFRSUMY
SETRIB
POMOC
_LOWZORZECTOMMINUS
BLOKUJ
TOMPLUS
BLOKUJ
MYILOSC
ECPRZEGLAD
TOMDRUK
TOMANULUJ
TOMPODGLAD
NUMER
WYKAZ
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
INDEX4
POLA5
INDEX5
MYILOSC
SET ORDER TO &kolejnosc
BROWSE NOWAIT WINDOW _dlabrow IN WINDOW _olistabr TITLE "Dane" COLOR SCHEM 10 FIELDS &pola
{INS}
KOLEJNOSC
_DLABROW
SUM ALL &sumwyr TO ARRAY sumy FOR not poprawka and typ <> 50
SUM ALL &sumwyr TO ARRAY sumy
Razem
99,999,999,999.99
LEJNOSC
ILREC
SUMWYR
SUMILE
TOMANULUJ
_LOSUMY
SUMGDZIE
PRZEGLAD
WYKAZ
REFRSUMY
Dane pracownikF
ewprac.spr with 2
kod, nazwisko, imie1, imie2, imieoj, imiemat, ulica, nr_domu, nr_lokalu, miasto, kodzip, pesel, gmina, dataur, miejsceur
Brak danych pracownikF
nazwisko:25 :H = 'Nazwisko',imie1:15:H='Imie',miasto:25:H = 'Miejscowosc'
nazwisko
ulica:25:H='Adres',miasto:5 :H = 'Miejscowosc',nazwisko:25:H = 'Nazwisko'
ulica
RIBBON
WYBIERZ
XXMAINPATH
XPODM
XEWPRAC
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
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
NEXTOBJ
__OBJS
BEFPOINTOLKEYESC
KEYF10
KURSOR
SELECTCOLOGETCOLOR
MFIRSTSHOT
MOUSEQUIT
FULLWIDTH
ZAKROPKA
KJESTKROPKAPRZEDKROPKMINUS
ALUEOLDPK
ALUEOLDMINUS
KOLDZK
NEWLOOK
KONIEC
UPDATEFULLMOUSEX
MOUSEY
LLWIDTH
__NUMOBJ
GETNAME
ROPKA
999,999,999,999c
pointz
PRZED
WORKSTR
INUPDATEFULLMINUS
JESTKROPKAFULLWIDTH
MINUS
BEFOREPOINBEFPOINTOLWITHMINUS
NEWLOOK
UPDATEFULL
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
SETRIB
CLEARRIB
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
9OLDALIAS
.XLOC
9SYSPATH
SERRWIN
ERRCODE
IBERRORS
WINMESSAGE
MONTH
ROKNR
MIESNR
MIESIAC
DZIEN
FULLYEAR
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
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
@L 99c
RETVAL
IDENT
TALKz
COMPATIBLEz
_qz90op05d
_qz90op05d
@*HT Drukuj
@*HT Nie drukuj
kopii:
@K 99
_qz90op05d
WPRACRIBBON
ILOSC
EWUMOWY
@CURRAREA
TALKSTAT
COMPSTAT
_QZ90OP05DWYDRUK
05D_QZ90OP0D5BEZ
IloF
nie mo
wna zero
druk.app
umowa
umowa
WPRACOK
IOPEN
ILOSC
W_QZ90OP0D5
do wyjscie
Wybierz treF
umowy
podmioty
podmioty
symbol
tresc
tresc
Brak wzorF
w - zlece
TALKz
COMPATIBLEz
_qz90op16m
_qz90op16m
@ 0,0 GET m.numer PICTURE "@&T" POPUP _qz90op1gx SIZE 15,42 DEFAULT " " VALID _qz90op1il() MESSAGE ribbon[1]+ribbon[3]+ribbon[9] COLOR SCHEME 13
_qz90op16m
RIBBON
PL
TYTUL
IOPEN
NUMER
LICZBA
efiESC
ns PODMPATH
PODMIOTY
SYMBOL
FIRMNR
TRESC
MYOK
CURRAREA
TALKSTAT
*COMPSTAT
_QZ90OP16M_QZ90OP1GXTEMAT
merge.prg
MERGE
PRG
WYJSCIE
_QZ90OP1IL
ERROR
do tomerrorhand with error(), message(), message(1), program(), lineno(), date()
umowy.txt
on error &errhand
ERRHAND
SLOWAMI
EWUMOWY
U_NETTO
TEMPPATH
POLACZ
Brak dostepu do danych w sieci...
ERMES
ERLIN
ERLINNO
ERDZIEN
PRINT_ERR
NOTICE
do MERGE
<<tresc.umowa>>
TOMERRORHA
POLACZ
LOCALENV7
ksiega.fky2
ksiega
MY_QUIT
MAINMENU
KSIEGA
TALKz
COMPATIBLEz
m.s_typ
m.s_procent
m.s_kwota
m.s_wartosc
m.exitok
m.exiterr
detale
_curobj=objnum( m.exitok )
_curobj=objnum( m.exiterr )
detale
@*RVN Procentowy;Kwotowy
@K 99.99
@K 99,999,999.99
Kwota zapF
acona:
@K 999,999,999.99
@*HT Zapisz
@*HT Zaniechaj
@K 999,999,999.99
Kwota naleF
na :
detale
CallY
By: TYT
VALIDTYP
se PROCENT
KWOTA
WARTOSC
ONALEZNOSC
PODSTAWA
utton RIBBON
TEMP
S_TYP
S_PROCENT
S_KWOTA
S_WARTOSC
S_NALEZNOSCURRAREA
TALKSTAT
COMPSTAT
__OBJS
__NUMOBJ
DETALE
ESC
* _QZ90OP3A1_QZ90OP3CR_QZ90OP3HK_QZ90OP3L5_QZ90OP3P1_QZ90OP3U8EXITOK
TIO_QZ90OP3XUEXITERR
m_QZ90OP443_QZ90OP447!
CallS_TYP
CallTEMP
S_TYP
CallS_PROCENT
S_KWOTA
IDTEMP
S_WARTOSC
PODSTAWA
S_NALEZNOS
m.s_typ
m.s_wartosc
SETRIB
allRIBBON
IDS_PROCENT
ARTOSC
S_WARTOSC
PODSTAWA
S_NALEZNOSv
S_TYP
allS_WARTOSC
PODSTAWA
DS_PROCENT
S_NALEZNOSS_KWOTA
m.s_typ
m.s_wartosc
SETRIB
allRIBBON
DS_KWOTA
ALEZNOSS_WARTOSC
S_NALEZNOS
m.s_procent
m.s_kwota8
m.exitok
SETRIB
allRIBBON
DS_WARTOSC
S_TYP
ZNOSG
PROCENT
llS_PROCENT
DS_TYP
WARTOSC
OSS_WARTOSC
NALEZNOSC
S_NALEZNOSL
S_TYP
llS_PROCENT
S_KWOTA
DETALE
@K 999,999,999.99
CURRWIND
lDETALE
S_NALEZNOSINIT
_QZ90OP3A1
_QZ90OP3CR
_QZ90OP3HK
_QZ90OP3L5
_QZ90OP3P1
_QZ90OP3U8
_QZ90OP3XU
_QZ90OP443
_QZ90OP447
jeden
cztery
siedem
osiem
dziewiF
jedenaF
dwanaF
trzynaF
czternaF
szesnaF
siedemnaF
osiemnaF
dziewiF
dziesiF
dwadzieF
trzydzieF
czterdzieF
dziesi
szesF
dziesi
siedemdziesiF
osiemdziesiF
dziewieF
dziesi
dwieF
trzysta
czterysta
siedemset
osiemset
dziewiF
POINTz
999999999999.99c
P_NLICZBA
A_LICZBA
KROPKA
SLICZBA
SEKCJA
CALKOWITE
CONVERTSECADDMILTHO
ULAMKOWE
L_SLOW
CPOM1
L_SLOW1
L_SLOW2
L_SLOW3
P_SEKCJA
STRTORET
CONVERTDIGA_LICZBA
P_DIGIT
P_DIGITPOSA_LICZBA
miliard
milion
tysiF
tysiF
tysiF
milionF
miliony
miliardF
miliardy
P_SECTION
P_SECNO
JEDN1
OSJEDN2
TDIGCONVERTSEC
CONVERTDIG
ADDMILTHO
..\UMOWY\UMOWY.PRG
C:\KSIEGA\SYSTEM\
..\UMOWY\UMOWY.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\UMOWY\PRACDATA.PRG
..\COMMON\WYBIERZ.PRG
..\COMMON\GF.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\MAXDAY.PRG
..\COMMON\D2DATA.PRG
..\COMMON\SETRIB.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\NOTICE.PRG
..\COMMON\TWODIG.PRG
..\COMMON\IDENT.PRG
..\COMMON\FULLYEAR.PRG
..\UMOWY\DRUKUM.SPR
..\UMOWY\TRESC.SPR
..\UMOWY\MERGE.PRG
..\COMMON\CLEAR.PRG
..\PLACE\DETALE.SPR
..\COMMON\SLOWAMI.PRG
UMOWY.FXP
UMOWY.SPX
STARTLIS.FXP
LISTA.FXP
PRACDATA.FXP
WYBIERZ.FXP
GF.FXP
CLEARRIB.FXP
TAKNIE.FXP
MAXDAY.FXP
D2DATA.FXP
SETRIB.FXP
CZEKAJ.FXP
NOTICE.FXP
TWODIG.FXP
IDENT.FXP
FULLYEAR.FXP
DRUKUM.SPX
TRESC.SPX
MERGE.FXP
CLEAR.FXP
DETALE.SPX
SLOWAMI.FXP