PC World Komputer 1996 May/PCW596.iso/polskie/insert/rachmist/system.arj/USERS.APP

MS Visual FoxPro App | 1996-01-21 | 32KB | 556 lines

users
user.spr
ytkownicy
users
users
user.spr with 1
username:30:H='Nazwisko'
userid
ytkownicy
users
users
kasujuser
username:30:H='Nazwisko'
userid
ytkownicy
users
users
user.spr with 0
user.spr with 1
kasujuser
username:30:H='Nazwisko'
userid
RIBBON
PODMPATH
USERS
STARTLIS
LISTA
CLEARRIB
NAPIS
TAKNIE
USERS
NOTICE
KASUJUSER
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
TALKz
COMPATIBLEz
_r5c0uw0dk
 Dane uF
ytkownika
NOTIFYz
podmioty
symbol
userid
Wszystkie
Wszystkie
_curobj = objnum( m.exitok )
_curobj = objnum( m.exiterr )
_r5c0uw0dk
Nazwisko:
DostF
p do firm:
@AK XXXXXXXXXX
@*C Dopisywanie
@*C Poprawianie
@*C Usuwanie
@*C Blokowanie miesiF
@*C Odblokowanie miesiF
@*C Blokowanie zapisF
@*C Anulowanie zapisF
@*C RF
@*C Opisy zdarzeF
@*C Kategorie
@*C WspF
lnicy
@*C UrzF
@*C Import danych
@*C Drukarka
@*C Parametry
@*C Ewidencje
@*C ...kontrahentF
@*C ...pracownikF
@*C ...wyposaF
@*C ...F
w trwa
@*C ...zakupF
w VAT
@*C ...sprzedaF
y VAT
@*C ...remanentu
@*C ...wyjazdF
@*C Wydruki
@*C ...z ksiF
@*C ...deklaracji
@*C ...umF
w-zlece
@*C ...z ewidencji
@*C ...pracownikF
@*C ...wyposaF
@*C ...F
w trwa
@*C ...zakupF
w VAT
@*C ...sprzedaF
y VAT
@*C ...remanentu
@*C ...wyjazdF
@*C Statystyka
@*C PF
@*HN Zapisz
@*HT Zaniechaj
_r5c0uw0dk
DVLPR7
JAREK
Autor
n[8]+rRIBBON
ILPODM
OLDID
PODNAME
NOTSTAT
USUSERID
   KD
       KP
       KU
       KPOD
     KBM
      KOM
      WYDRUKI
       WE
       WD
    s 5WEP
910   WEW
      WEST
   3FWEI
      WEZV
     WESV
  0  EWIDENCJA
      EWP
      EWW
      EWST
USERPASS
USERNAME
PLACE
MCZEKAJ
CURRAREA
TALKSTAT
COMPSTAT
_R5C0UW0DKPODMPATH
SYMBOL
PODMLIST
CZYTLIST
LUSERS
DECRYPT
PODMIOTY
NAZWA
_R5C0UW0Z4_R5C0UW119_R5C0UW19H_R5C0UW1H2_R5C0UW1QF_R5C0UW1WWEXITOK
_R5C0UW27PEXITERR
_R5C0UW2C4
Wszystkie
n[8]+rPODMLIST
ILPODM
PODMIOTY
NAZWA
Musisz wprowadziF
 nazwisko
USERNAME
MLIST
Musisz wprowadziF
o nie mo
e zawiera
 spacji
USERPASS
RPASS
RPASS
MIOTY
EWIDENCJA
USEWI
   EWPR

WYDRUKI
USWEW
   WEST
     WESV
     WEZV
     WEI
     WEPR

USWEI
Musisz wprowadziF
 nazwisko
Musisz wprowadziF
o nie mo
e zawiera
 spacji
Wszystkie
podmioty
nazwa
users
users
USERNAME
USERPASS
ENCRYPT
PODNAME
PODMPATH
SNAZWA
   PODMIOTY
 SYMBOL
   USERS
    ACT
    USERID
   IDENT
    BOSS
USERNAME
USERPASS
EXITOK
EXITERR
   MI
MIOTY
   MP
    MK
    EWIDENCJA
    EWP
  EWW
      EWST
     EWSV
  s 5EWZV
10   EWI
      EWPR
   3FWYDRUKI
     WEK
  0  WEP
ENCJA
      WEST
     WESV
     WEZV
CZYTLIST
_R5C0UW0Z4
_R5C0UW119
_R5C0UW19H
_R5C0UW1H2
_R5C0UW1QF
_R5C0UW1WW
_R5C0UW27P
_R5C0UW2C4
TAJNE
    DLUGOSC
        POM
      JAWNE
2   IRAND
JAWNE
    DLUGOSC
        POM
      TAJNE
    IRAND
TAJNE
        IRAND
@ srows()-1, 0 say replicate(" ", scols()-1 ) COLOR &col
RIBBON
   WIND
  COL
      SETRIB
   CLEARRIB
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
cjaDEFAULTANSY0
ON\TAKNX0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
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
WaitWin
Za chwilF
 dalszy ci
g programu.
DrukujF
CierpliwoF
ci. Mo
e to potrwa
ugo...
ONOFF
KOMUNIK
WAITWIN
RETVAL
IDENT
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
PODMPATH
PODMIOTY
SYMBOL
FIRMNR
NAZWA
MIESNR
..\USERS\USER.PRG
C:\KSIEGA\SYSTEM\
..\COMMON\STARTLIS.PRG
..\COMMON\LISTA.PRG
..\USERS\USER.SPR
..\COMMON\DECRYPT.PRG
..\COMMON\ENCRYPT.PRG
..\COMMON\IRAND.PRG
..\COMMON\CLEARRIB.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\NOTICE.PRG
..\COMMON\SETRIB.PRG
..\COMMON\CZEKAJ.PRG
..\COMMON\IDENT.PRG
..\COMMON\NAPIS.PRG
USER.FXP
STARTLIS.FXP
LISTA.FXP
USER.SPX
DECRYPT.FXP
ENCRYPT.FXP
IRAND.FXP
CLEARRIB.FXP
TAKNIE.FXP
NOTICE.FXP
SETRIB.FXP
CZEKAJ.FXP
IDENT.FXP
NAPIS.FXP