home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
WSPOLNIK.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
32KB
|
610 lines
wspolnik.spr
ciciel/wsp
lnicy
wspolnik
wspolnik
wspolnik.spr with 1
wspolnik.spr with 2
Brak danych wF
ciciela/wsp
nazwisko:25:H='Nazwisko',imie1:15:H = 'Imi'+pl[12], ul=alltrim(ulica)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu):25:H='Ulica'
nazwisko
ciciel/wsp
lnicy
wspolnik
wspolnik
kasujwsp
wspolnik.spr with 2
Brak danych wF
ciciela/wsp
nazwisko:25:H='Nazwisko',imie1:15:H = 'Imi'+pl[12], ul=alltrim(ulica)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu):25:H='Ulica'
nazwisko
ciciel/wsp
lnicy
wspolnik
wspolnik
wspolnik.spr with 0
wspolnik.spr with 1
wspolnik.spr with 2
kasujwsp
nazwisko:25:H='Nazwisko',imie1:15:H = 'Imi'+pl[12], ul=alltrim(ulica)+' '+alltrim(nr_domu)+' '+alltrim(nr_lokalu):25:H='Ulica'
nazwisko
RIBBON
WSPOLNIK
STARTLIS
RPODMPATH
LPODM
LISTA
ICLEARRIB
TAKNIE
KASUJWSP
Dane wF
ciciela/wsp
lnika
wspolnik
wspolnik
wspolnik,
urzedy
urzedy
us_id
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
TALKz
COMPATIBLEz
_qz90oseuc
_qz90oseuc
matki
Data urodzenia:
Nr lokalu:
@K 99-999
@*HN UrzF
d skarbowy
@K 999.99
y procent udzia
@*HN Dane o innych F
ach dochod
@*HN Zapisz
@*HT Zaniechaj
Gmina/dzielnica:
Miejsce zamieszkania
Ulica :
Kod :
Nazwisko :
Miejsce urodzenia:
PESEL :
NIP :
Dane osobowe
MiejscowoF
UdziaF
w % :
1 :
2 :
Nr domu :
Telefon :
Poczta :
ojca :
_qz90oseuc
urzedy
RIBBON
US_NAZWA
URZAD_NR
IOPEN
TOTAL
OLDREK
TYTWSP
MAINPATH
WSPOLNIK
UDZIAL
PODMPATH
URZEDY
US_ID
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OSEUCNAZWISKO
CIMIE1
IMIE2
OJCIEC
MATKA
DATAUR
MIEJSCE
ULICA
NR_DOMU
NR_LOKALU
MIASTO
TELEFON
POCZTA
PESEL
GMINA
DALEJ
_QZ90OSFT4_QZ90OSFWHINNE
_QZ90OSG2MEXITOK
_QZ90OSG68EXITERR
_QZ90OSGO0C
TOTAL
UDZIAL
wyb_us.prg
WYB_US
CHECK_UD
inne.spr
y procent udzia
wspolnik
wspolnik
CHECK_UD
UDZIAL
IDENT
_QZ90OSEUC
CURRWIND
_QZ90OSEUCUS_NAZWA
CHECK_UD
_QZ90OSFT4
_QZ90OSFWH
_QZ90OSG2M
_QZ90OSG68
_QZ90OSGO0
exactz
_lowzorzec
_lolistabr
_lowzorzec
TYTUL
DLWZORCA
MYILOSC
ALIAS
TOMENTER
TOMPODGLADINFO
CZYBLOK
POMOC
POLA1
INDEX1
POLA2
INDEX2
POLA3
INDEX3
POLA4
INDEX4
POLA5
INDEX5
NUMER
IOPEN
EXACT
WIERSZE
_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
MYQUIT
WIERSZE
_LOWZORZECDLWZORCA
LOKATA
MYSZR
MYSZC
GLADTCOL
TOMENTER
CZYBLOK
BLOKADA
MYILOSC
PROPRZEGLATOMPODGLADSETRIB
POMOC
NUMER
PROWYKAZ
POLA1
INDEX1
POLA2
INDEX2
ZECPOLA3
INDEX3
INDEX4
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
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
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
PL
AREA
IOPEN
ILE
US_ID
URZEDY
PODMPATH
URZAD_NR
WYBIERZ
_curobj=objnum(m.exiterr)
_curobj=objnum(m.exitok)
m.?nip?i
PozostaF
e dane w
ciciela/wsp
lnika
TALKz
COMPATIBLEz
_qz90osj1g
_qz90osj1g
Pozarolnicza dziaF
gospodarcza
REGON/PESEL:
Rodzaj:
Miejsce:
REGON/PESEL:
Rodzaj:
Miejsce:
Uczestnictwo w spF
kach nie b
cych osobami prawnymi
REGON/PESEL:
Miejsce:
REGON/PESEL:
Miejsce:
Miejsce:
Miejsce:
@*HT Zapisz
@*HT Zaniechaj
Nazwa:
Nazwa:
Przedmiot:
Przedmiot:
_qz90osj1g
RIBBON
TITLE
PNIPBI
PNIPB
PREGONBI
PREGONB
PRODZAJBI
PRODZAJB
PMIEJSCEB
PNIPCI
PNIPC
PREGONCI
PREGONC
PRODZAJCI
PRODZAJC
PMIEJSCEC
SNIPBI
SNIPB
SREGONBI
SREGONB
SRODZAJBI
SRODZAJB
SMIEJSCEB
SNIPCI
SNIPC
SREGONCI
SREGONC
SRODZAJCI
SRODZAJC
SMIEJSCEC
NAJRODZAI
NAJRODZA
NAJMIEJAI
NAJMIEJA
NAJRODZBI
NAJRODZB
NAJMIEJBI
NAJMIEJB
CURRAREA
TALKSTAT
COMPSTAT
_QZ90OSJ1GPMIEJSCEBIPMIEJSCECISMIEJSCEBISMIEJSCECIEXITOK
_QZ90OSKAIEXITERR
PNIPB
PNIPBI
PREGONB
PREGONBI
PRODZAJB
PRODZAJBI
PMIEJSCEB
PMIEJSCEBIPNIPC
PNIPCI
PREGONC
PREGONCI
PRODZAJC
PRODZAJCI
PMIEJSCEC
PMIEJSCECISNIPB
SNIPBI
SREGONB
SREGONBI
SRODZAJB
SRODZAJBI
SMIEJSCEB
SMIEJSCEBISNIPC
SNIPCI
SREGONC
SREGONCI
SRODZAJC
SRODZAJCI
SMIEJSCEC
SMIEJSCECINAJRODZA
NAJRODZAI
NAJMIEJA
NAJMIEJAI
NAJRODZB
NAJRODZBI
NAJMIEJB
NAJMIEJBI
_QZ90OSKAI
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
OMDWIND
TOMPOCOL
TOMMINSETRIB
LOKCLEARRIB
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
PODEFAULTANSY0
POLAX0
INDEXOLDALIAS
SYSPATH
SERRWIN
_LERRCODE
OLERRORS
ETRMESSAGE
RETVAL
IDENT
@ wrows()-1, 0 say padr(m.text, wcols()-1," " ) COLOR &col
POWIND
LTANSCOL
..\WSPOLNIK\WSPOLNIK.PRG
C:\KSIEGA\SYSTEM\
..\WSPOLNIK\WSPOLNIK.SPR
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\PODMIOTY\WYB_US.PRG
..\WSPOLNIK\INNE.SPR
..\COMMON\WYBIERZ.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\IDENT.PRG
..\COMMON\SETRIB.PRG
WSPOLNIK.FXP
WSPOLNIK.SPX
STARTLIS.FXP
LISTA.FXP
WYB_US.FXP
INNE.SPX
WYBIERZ.FXP
CLEARRIB.FXP
TAKNIE.FXP
IDENT.FXP
SETRIB.FXP