home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
system.arj
/
PEWLIST.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
42KB
|
550 lines
OBJTYPE
OBJCODE
HEIGHT
WIDTH
STYLE
PICTURE
ORDER
UNIQUE
COMMENT
ENVIRON
BOXCHAR
FILLCHAR
FLOAT
STRETCH
NOREPEAT
RESETRPT
PAGEBREAK
RESETPAGE
SWAPHEADER
SWAPFOOTER
EJECTBEFOR
EJECTAFTER
PLAIN
SUMMARY
ADDALIAS
OFFSET
TOPMARGIN
BOTMARGIN
TOTALTYPE
RESETTOTAL
1 0 97132 F T FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 2 8 0 16 22 1 1130 C FFF 0 0 0 5 0 18 17 2 1 1 F 5 0 19 17 16 1 1 F 8 0 20 8 63 1 3 21 N FFF 0 0 0 5 0 22 13 1 1 3 F 5 0 23 17 116 1 1 F 8 0 24 6 53 1 30 C FFF 0 0 0 5 0 27 8 55 1 7 F 8 0 28 20 5 1 15 C FFF 0 0 0 8 0 29 21 5 1 25 C FFF 0 0 0 8 0 31 20 31 1 17 34 33 N FFF 0 0 0 5 0 35 17 39 1 1 F 5 0 36 17 57 1 1 F 5 0 37 13 67 1 17 F 5 0 38 17 75 1 1 F 5 0 39 17 93 1 1 F 5 0 40 13 105 1 24 F 8 0 42 20 85 1 17 44 43 N FFF 0 0 0 8 0 45 20 49 1 17 47 46 N FFF 0 0 0 8 0 48 20 67 1 17 50 49 N FFF 0 0 0 5 0 51 6 51 1 1 F 7 7 12 0 1132 =
F 7 7 16 0 1132 =
F 7 7 18 0 1132 =
F 7 7 23 0 1132 =
F 7 7 13 0 11 1 |
F 7 7 13 4 11 1 |
F 7 7 13 30 11 1 |
F 7 7 13 48 11 1 |
F 7 7 13 66 11 1 |
F 7 7 13 84 11 1 |
F 7 7 13 102 11 1 |
F 7 7 13 131 11 1 |
F 8 0 52 0 1 1 80 C FFF 0 0 0 8 0 54 3 1 1 25 C FFF 0 0 0 8 0 57 1 1 1 50 C FFF 0 0 0 8 0 64 2 1 1 40 C FFF 0 0 0 8 0 68 20 1 1 3 69 N FFF 0 0 0 5 0 70 5 51 1 19 F 5 0 71 13 9 1 15 F 8 0 72 0 0 1 1 75 C FFF 0 0 0 5 0 85 13 54 1 6 F 5 0 86 14 52 1 9 F 5 0 87 15 52 1 9 F 5 0 88 13 35 1 7 F 5 0 89 14 35 1 6 F 5 0 90 13 88 1 10 F 18 91 92 T 93 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130))
_pageno + m.offset
"Lp."
=alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r."
"Strona:"
ALLTRIM(kursorek.imie1)
ALLTRIM(kursorek.nazwisko)
kursorek.brutto+kursorek.doplata
"99,999,999,999.99"
"Podatek dochodowy"
"Data i podpis pracownika"
kursorek.netto
"99,999,999,999.99"
kursorek.koszt
"99,999,999,999.99"
kursorek.zaliczka
"99,999,999,999.99"
dane_firmy(m.firmnr,'nazwa')
Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ')
dane_firmy(m.firmnr,'adres') +iif(len(dane_firmy(m.firmnr,'nr_domu'))>0,", " + dane_firmy(m.firmnr,'nr_domu'),' ') +iif(len(dane_firmy(m.firmnr,'nr_lokalu'))>0,"/" + dane_firmy(m.firmnr,'nr_lokalu'),' ')
odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ')
"L I S T A P
A C"
i nazwisko"
Aiif(p_paper=1 .and. _pageno>1 and predruk=.f., new_page(.t.)," ")
4Wywo
anie funkcji new_page(.t.)
(kt
ra wtedy wy
wietla komunikat "W
kartk
..itd." oraz wysuwa stron
tylko w sytuacji, gdy:
- drukarka przyjmuje pojedy
cze kartki
- dana strona nie jest stron
pierwsz
aktualnego raportu
- raport nie jest wykonywany w trybie predruk (czyli tylko do pami
"Koszty"
"uzyskania"
"przychodu"
"Warto
"brutto"
"Do wyp
kursorek.imie1
m.beg_num
OBJTYPE
OBJCODE
HEIGHT
WIDTH
STYLE
PICTURE
ORDER
UNIQUE
COMMENT
ENVIRON
BOXCHAR
FILLCHAR
FLOAT
STRETCH
NOREPEAT
RESETRPT
PAGEBREAK
RESETPAGE
SWAPHEADER
SWAPFOOTER
EJECTBEFOR
EJECTAFTER
PLAIN
SUMMARY
ADDALIAS
OFFSET
TOPMARGIN
BOTMARGIN
TOTALTYPE
RESETTOTAL
1 0 97132 F T FFFFF 0 0 0 21 9 1 20 9 4 3 9 7 2 8 0 16 22 1 1130 C FFF 0 0 0 5 0 18 17 2 1 1 F 5 0 19 17 16 1 1 F 8 0 20 8 63 1 3 21 N FFF 0 0 0 7 4 12 0 12 5
F 7 4 16 0 3132
F 7 4 12 4 12 27
F 7 4 12 30 12 19
F 7 4 12 48 12 19
F 7 4 12 66 12 19
F 7 4 12 84 12 19
F 7 4 12 102 12 30
F 5 0 22 12 102 1 1 F 5 0 23 23 102 1 1 F 5 0 24 16 102 1 1 F 5 0 25 18 102 1 1 F 5 0 26 16 131 1 1 F 5 0 27 18 131 1 1 F 5 0 28 12 84 1 1 F 5 0 29 23 84 1 1 F 5 0 30 16 84 1 1 F 5 0 31 18 84 1 1 F 5 0 32 12 66 1 1 F 5 0 33 23 66 1 1 F 5 0 34 16 66 1 1 F 5 0 35 18 66 1 1 F 5 0 36 12 48 1 1 F 5 0 37 23 48 1 1 F 5 0 38 16 48 1 1 F 5 0 39 18 48 1 1 F 5 0 40 12 30 1 1 F 5 0 41 23 30 1 1 F 5 0 42 16 30 1 1 F 5 0 43 18 30 1 1 F 5 0 44 16 4 1 1 F 5 0 45 18 4 1 1 F 5 0 46 12 4 1 1 F 5 0 47 23 4 1 1 F 5 0 48 16 0 1 1 F 5 0 49 18 0 1 1 F 5 0 50 13 1 1 3 F 5 0 51 17 116 1 1 F 5 0 52 8 55 1 7 F 8 0 53 20 5 1 15 C FFF 0 0 0 8 0 54 21 5 1 25 C FFF 0 0 0 8 0 56 20 31 1 17 59 58 N FFF 0 0 0 5 0 60 17 39 1 1 F 5 0 61 17 57 1 1 F 5 0 62 13 67 1 17 F 5 0 63 17 75 1 1 F 5 0 64 17 93 1 1 F 5 0 65 13 105 1 24 F 8 0 67 20 85 1 17 69 68 N FFF 0 0 0 8 0 70 20 49 1 17 72 71 N FFF 0 0 0 8 0 73 20 67 1 17 75 74 N FFF 0 0 0 5 0 76 6 51 1 1 F 8 0 77 0 1 1 80 C FFF 0 0 0 8 0 79 3 1 1 25 C FFF 0 0 0 8 0 82 1 1 1 50 C FFF 0 0 0 8 0 89 2 1 1 40 C FFF 0 0 0 8 0 93 6 53 1 30 C FFF 0 0 0 8 0 96 20 1 1 3 97 N FFF 0 0 0 5 0 98 5 51 1 19 F 5 0 99 13 9 1 15 F 8 0 100 0 0 1 1 103 C FFF 0 0 0 5 0 113 13 35 1 8 F 5 0 114 14 35 1 6 F 5 0 115 13 54 1 7 F 5 0 116 14 53 1 9 F 5 0 117 15 53 1 9 F 5 0 118 13 88 1 10 F 10 1 5 36 18 119 120 T 121 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130))
_pageno + m.offset
"Lp."
"Strona:"
ALLTRIM(kursorek.imie1)
ALLTRIM(kursorek.nazwisko)
kursorek.brutto+kursorek.doplata
"99,999,999,999.99"
"Podatek dochodowy"
"Data i podpis pracownika"
kursorek.netto
"99,999,999,999.99"
kursorek.koszt
"99,999,999,999.99"
kursorek.zaliczka
"99,999,999,999.99"
dane_firmy(m.firmnr,'nazwa')
Wiif(len(dane_firmy(m.firmnr,'telefon'))>0,"tel. " + dane_firmy(m.firmnr,'telefon'),' ')
dane_firmy(m.firmnr,'adres') +iif(len(dane_firmy(m.firmnr,'nr_domu'))>0,", " + dane_firmy(m.firmnr,'nr_domu'),' ') +iif(len(dane_firmy(m.firmnr,'nr_lokalu'))>0,"/" + dane_firmy(m.firmnr,'nr_lokalu'),' ')
odane_firmy(m.firmnr,'kod') + iif(len(dane_firmy(m.firmnr,'miasto'))>0," " + dane_firmy(m.firmnr,'miasto'),' ')
=alltrim(get_mies(2,m.miesnr))+" "+alltrim(str(m.roknr))+" r."
"L I S T A P
A C"
i nazwisko"
Aiif(p_paper=1 .and. _pageno>1 and predruk=.f., new_page(.t.)," ")
4Wywo
anie funkcji new_page(.t.)
(kt
ra wtedy wy
wietla komunikat "W
kartk
..itd." oraz wysuwa stron
tylko w sytuacji, gdy:
- drukarka przyjmuje pojedy
cze kartki
- dana strona nie jest stron
pierwsz
aktualnego raportu
- raport nie jest wykonywany w trybie predruk (czyli tylko do pami
"Warto
"brutto"
"Koszty "
"uzyskania"
"przychodu"
"Do wyp
kursorek.imie1
m.beg_num
kursorek
PREDRUK
dmiotyLICZNIK
MODULY
OFFSET
podSKIP
KURSOREK
PRINTER_FEDIALOG
NA_EKRAN
PRINT_ERR
P_PAPER
&P_FF
NEW_PAGE
GETSTOP
P_RESET
pdwzorn
pdwzor
ewreman
ewpprzej
ewprach
ewspvat
ewspnaz
ewzakvat
ewzakdet
katup
ewsrtr
RODZAJ
PTOWAR_1
_PTOWAR1
PINNE_1
_PINNE1
MULTI1_1
WZAKUP_1
_WZAKUP1
WKOSZTY_1
_WKOSZTY1
WREKLAMA_1_WREKLAMA1E9
WWYPLATA_1_WWYPLATA1E10
WINNE_1
_WINNE1
MULTI_1
A1INNE_1
_INNE1
PINNE1
WPODATEK_1_WPODATEK1WPRZEROB_1_WPRZEROB1WNATURA_1
_WNATURA1
WSPRZET_1
_WSPRZET1
WARTOSC_1
ZUS_S_1
FUND_S_1
WYN_S_1
DIF_S_1
ZUS_K_1
FUND_K_1
WYN_K_1
NET22_1
VAT22_1
NET12_1
VAT12_1
NET7_1
VAT7_1
NET0_1
NETZW_1
PODATEK_1
BRUTTO_1
NETINW1_1
NETINW2_1
VATINW2_1
NETINW3_1
VATINW3_1
NETINNE1_1NETINNE2_1VATINNE2_1NETINNE3_1VATINNE3_1PRZYCHOD_1ZAKUPY_1
KOSZTY_1
WYDATKI_1
DOCHOD_1
KWOTAODP11RATAODP11
KWOTAODP21RATAODP21
kursorek
bilans
umowa
dowolny
ESCSTAT
DIALOG
KURSOREK
IOPEN
ALIASB
DOWOLNY
PRINT_ERR
ESCON
TAKNIE
GETSTOP
_mies
ODMIANA
NAZWA
IOPEN
_MIES
SYSPATH
podmioty
podmioty
m.nazwa=podmioty.&pole
KTORY
NAZWA
OTWARTE
PODMIOTY
PODMPATH
SYMBOL
WaitWin
errors
errors
komunikF
ONOFF
CZEKAC
KOMUNIK1
KOMUNIK2
KOMUNIK3
MIOTY
ILOSC
IOPEN
WOLNY
WAITWIN
ERRORS
SYSPATH
ERRCODE
MESSAGE
NA_EKRAN
PYTANIE
NA_EKRAN
WYSUW
DIALOG
TAKNIE
GETSTOP
PRINTER_FE
FAKTURY KORYGUJ
RACHUNKI KORYGUJ
FAKTURY VAT
RACHUNKI UPROSZCZONE
ERMES
ERLIN
ERLINNO
ERDZIEN
ERRHAND
FEGETSTOP
P32P028
P32P033
P32P038
P32P043
P32P046
P32P049
P32P052
FEP32P055
P32P058
P32P063
P32P068
P32P072
P32P077
P32P029
P32P034
P32P039
P32P059
P32P064
P32P069
P32P073
FEP32P078
P32P032
P32P037
P32P042
P32P045
P32P048
P32P051
P32P054
FEP32P057
P32P062
P32P067
P32P071
P32P076
P32P081
P32P086
P32P089
P32P094
P32P099
P32P090
P32P095
P32P100
P32P116
P32P120
P32P122
P32P028
P32P029
P32P033
P32P034
P32P038
P32P039
P32P043
FEP32P046
P32P049
P32P052
P32P055
P32P058
P32P059
P32P063
P32P064
P32P068
P32P069
P32P072
P32P073
P32P077
P32P078
P32P086
P32P089
P32P090
P32P094
P32P095
P32P099
P32P100
FEGETSTOP
ESCOUT
GET_MIES
DANE_FIRMY
DIALOG
PRINTER_FE
WYSUW
NEW_PAGE
PODTYTUL
MY_ERRH
SUM_85
SUM_86
SUM_88
SUM_107
SUM_108
SUM_128
SUM_DOCH
SUM_DZIE
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
errors
komunikF
QUEST
KOMUNIK1
KOMUNIK2
KOMUNIK3
ILOSC
IOPEN
SYSPATH
INFOTOM
FOTOM
ERRORS
ERRCODE
MESSAGE
CZYTAK
Brak dostepu do danych w sieci...
UWAGA !!!
Aby wykonaF
operacj
potrzeba wi
cej pami
ci operacyjnej.
80286
W tym celu naleF
y zmieni
komputer
na 80386 (lub lepszy) z 4 MB pamiF
W tym celu naleF
y dokupi
pamiF
ci RAM lub inaczej skonfigurowa
komupter.
UWAGA !!!
NastapiF
d systemowy.
Uruchom program ADMIN i wykonaj operacjF
PIERWSZA POMOC
li pomimo u
ycia opcji PIERWSZA POMOC
powtarza
to skontaktuj siF
z InsERT'em.
Koniecznie TERAZ ZAPISZ:
- operacje, ktF
re wykonywa
przed wyst
pieniem awarii;
- poniF
sze 6 linii ekranu:
2. FF
4. FF
ERMES
ERLIN
ERLINNO
ERDZIEN
PRINT_ERR
NOTICE
ERRWIN
SYSPATH
ER_LIN
ER_NO
ER_MES
ER_LIN1
PR_NAME
ER_DATE
RACHVER
CLEAR
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
DZIEN
OLDALIAS
RXLOC
SPATH
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
CURSORz
errors
WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ORSECODE2
SAGECODE3
INOLDALIAS
ILOSC
LEARCURSTAT
SYSPATH
ERRWIN
ERRORS
ERRCODE
MESSAGE
LOCALENV7
ksiega.fky2
ksiega
MY_QUIT
MAINMENU
KSIEGA
C:\KSIEGA\DRUK\
..\DRUK\WYDRUK.PRG
C:\KSIEGA\SYSTEM\
..\DRUK\SKIP.PRG
..\DRUK\DRUKUTIL.PRG
..\COMMON\TAKNIE.PRG
..\COMMON\PYTANIE.PRG
..\COMMON\ERRHAND.PRG
..\COMMON\CZYTAK.PRG
..\COMMON\NOTICE.PRG
..\COMMON\CLEAR.PRG
DWLIST.FRX
DWLIST.FRT
NWLIST.FRX
NWLIST.FRT
WYDRUK.FXP
SKIP.FXP
DRUKUTIL.FXP
TAKNIE.FXP
PYTANIE.FXP
ERRHAND.FXP
CZYTAK.FXP
NOTICE.FXP
CLEAR.FXP