PC World Komputer 1996 May

home *** CD-ROM | disk | FTP | other *** search

/ PC World Komputer 1996 May / PCW596.iso / polskie / insert / rachmist / system.arj / USERS.APP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1996-01-21 | 30.8 KB | 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