home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
druk.arj
/
PEWWYPOS.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-02-14
|
49KB
|
623 lines
kursorek
bilans
umowa
dowolny
ga.fkyESCSTAT
@DIALOG
egaKURSOREK
IOPEN
GALIASB
MY_TAG1
MAINDOWOLNY
EGPRINT_ERR
ESCON
.fkyTAKNIE
@GETSTOP
_mies
ODMIANA
@AREA
gaNAZWA
IOPEN
G_MIES
SYSPATH
podmioty
podmioty
m.nazwa=podmioty.&pole
KTORY
kyPOLE
@AREA
gaNAZWA
OTWARTE
PODMIOTY
GPODMPATH
SYMBOL
WaitWin
errors
errors
komunikF
ONOFF
kyCZEKAC
@KOMUNIK1
aKOMUNIK2
KOMUNIK3
MIOTY
GZNAK
ILOSC
Y_IOPEN
MAINI
WOLNY
EGWAITWIN
ERRORS
SYSPATH
ERRCODE
1MESSAGE
NA_EKRAN
yPYTANIE
NA_EKRAN
yP_FF
WYSUW
@DIALOG
aTAKNIE
GETSTOP
GPRINTER_FE
FAKTURY KORYGUJ
RACHUNKI KORYGUJ
FAKTURY VAT
RACHUNKI UPROSZCZONE
yERMES
@ERLIN
aERPR
ERLINNO
ERDZIEN
GERRHAND
FEGETSTOP
P32P028
yP32P033
@P32P038
aP32P043
P32P046
P32P049
GP32P052
FEP32P055
P32P058
Y_P32P063
INP32P068
EGP32P072
P32P077
P32P029
yP32P034
@P32P039
aP32P059
P32P064
P32P069
GP32P073
FEP32P078
P32P032
yP32P037
@P32P042
aP32P045
P32P048
P32P051
GP32P054
FEP32P057
P32P062
Y_P32P067
INP32P071
EGP32P076
P32P081
P32P086
yP32P089
@P32P094
aP32P099
P32P090
yP32P095
@P32P100
P32P116
yP32P120
@P32P122
P32P028
yP32P029
@P32P033
aP32P034
P32P038
P32P039
GP32P043
FEP32P046
P32P049
Y_P32P052
INP32P055
EGP32P058
P32P059
P32P063
P32P064
1P32P068
P32P069
GAP32P072
C:P32P073
OMP32P077
.PP32P078
P32P086
yP32P089
@P32P090
aP32P094
P32P095
P32P099
GP32P100
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
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 F FFFFT 0 0 0 21 9 1 23 9 4 2 9 7 2 8 0 16 24 1 1130 C FFF 0 0 0 5 0 18 11 1 1 3 F 5 0 19 20 2 1 1 F 5 0 20 20 23 1 1 F 5 0 21 20 49 1 1 F 5 0 22 20 58 1 1 F 5 0 23 20 68 1 1 F 5 0 24 20 79 1 1 F 5 0 25 7 55 1 8 F 8 0 26 7 64 1 3 27 N FFF 0 0 0 5 0 28 11 62 1 12 F 5 0 29 13 62 1 9 F 5 0 30 14 62 1 11 F 5 0 31 20 107 1 1 F 8 0 32 23 5 1 40 C FFF 0 0 0 8 0 33 23 46 1 8 D FFF 0 0 0 8 0 34 23 57 1 4 38 37 N FFF 0 0 0 8 0 39 23 62 1 13 41 40 N FFF 0 0 0 8 0 42 23 76 1 8 D FFF 0 0 0 8 0 43 23 85 1 46 C FFF 0 0 0 5 0 45 11 76 1 4 F 5 0 46 12 76 1 8 F 5 0 47 13 76 1 7 F 5 0 48 15 76 1 3 F 5 0 49 11 55 1 6 F 5 0 50 12 55 1 5 F 5 0 51 13 55 1 5 F 5 0 52 14 55 1 6 F 5 0 53 15 55 1 6 F 5 0 54 17 55 1 3 F 5 0 55 18 55 1 6 F 5 0 56 11 46 1 8 F 5 0 57 12 46 1 5 F 5 0 58 13 46 1 7 F 5 0 59 14 46 1 7 F 5 0 60 15 46 1 7 F 5 0 61 17 46 1 3 F 7 7 10 0 1132 =
F 7 7 19 0 1132 =
F 7 7 21 0 1132 =
F 7 7 25 0 1132 =
F 8 0 62 23 1 1 3 63 N FFF 0 0 0 5 0 64 5 35 1 53 F 5 0 66 11 16 1 17 F 5 0 67 16 46 1 7 F 5 0 68 16 55 1 5 F 5 0 69 12 62 1 11 F 5 0 70 14 76 1 7 F 5 0 71 11 92 1 31 F 5 0 73 12 90 1 35 F 7 7 11 4 15 1 |
F 7 7 11 45 15 1 |
F 7 7 11 54 15 1 |
F 7 7 11 61 15 1 |
F 7 7 11 75 15 1 |
F 7 7 11 84 15 1 |
F 7 7 11 131 15 1 |
F 7 7 11 0 15 1 |
F 8 0 75 0 0 1 1 78 C FFF 0 0 0 8 0 88 0 1 1 80 C FFF 0 0 0 8 0 90 3 1 1 25 C FFF 0 0 0 8 0 93 1 1 1 50 C FFF 0 0 0 8 0 100 2 1 1 40 C FFF 0 0 0 18 104 105 T 106 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130))
"Lp."
"Strona: "
_pageno + m.offset
"Cena nabycia"
"lub koszt"
"wytworzenia"
ALLTRIM(kursorek.nazwa)
kursorek.datanab
@findnum(kursorek.idksiegi, kursorek.pozksiegi, kursorek.datanab)
kursorek.cenazak
"99,999,999.99"
kursorek.datalikw
ALLTRIM(kursorek.przylikw)
"Data"
"likwida-"
"cji wy-"
"nia"
"Nr po-"
"zycji"
"wpisu"
"w poda"
"tkowej"
"dze"
"p.i r."
"Data na-"
"bycia"
"lub wy-"
"tworze-"
"nia wy-"
"nia"
7"K A R T A E W I D E N C J I W Y P O S A
E N I A"
"Nazwa wyposa
enia"
"posa
"wyposa
enia"
"posa
!"Przyczyna likwidacji (sprzeda
%"darowizna, zniszczenie) wyposa
enia"
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
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'),' ')
kursorek.nazwa
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 F FFFFT 0 0 0 21 9 1 23 9 4 2 9 7 2 8 0 16 24 1 1130 C FFF 0 0 0 5 0 18 11 1 1 3 F 5 0 19 20 2 1 1 F 5 0 20 20 23 1 1 F 5 0 21 20 49 1 1 F 5 0 22 20 58 1 1 F 5 0 23 20 68 1 1 F 5 0 24 20 79 1 1 F 5 0 25 7 55 1 8 F 8 0 26 7 63 1 3 27 N FFF 0 0 0 7 4 10 0 16 5
F 7 4 10 61 16 15
F 7 4 10 75 16 10
F 7 4 10 54 16 8
F 7 4 10 45 16 10
F 7 4 10 84 16 48
F 7 4 10 4 16 42
F 7 4 19 0 3132
F 5 0 28 19 4 1 1 F 5 0 29 19 45 1 1 F 5 0 30 21 4 1 1 F 5 0 31 21 45 1 1 F 5 0 32 19 84 1 1 F 5 0 33 19 131 1 1 F 5 0 34 21 84 1 1 F 5 0 35 21 131 1 1 F 5 0 36 19 54 1 1 F 5 0 37 21 54 1 1 F 5 0 38 19 61 1 1 F 5 0 39 21 61 1 1 F 5 0 40 19 75 1 1 F 5 0 41 21 75 1 1 F 5 0 42 19 0 1 1 F 5 0 43 21 0 1 1 F 5 0 44 10 45 1 1 F 5 0 45 25 45 1 1 F 5 0 46 10 4 1 1 F 5 0 47 25 4 1 1 F 5 0 48 10 84 1 1 F 5 0 49 25 84 1 1 F 5 0 50 10 54 1 1 F 5 0 51 25 54 1 1 F 5 0 52 10 61 1 1 F 5 0 53 25 61 1 1 F 5 0 54 10 75 1 1 F 5 0 55 25 75 1 1 F 5 0 56 11 62 1 12 F 5 0 57 13 62 1 9 F 5 0 58 14 62 1 11 F 5 0 59 20 107 1 1 F 8 0 60 23 5 1 40 C FFF 0 0 0 8 0 61 23 46 1 8 D FFF 0 0 0 8 0 62 23 62 1 13 64 63 N FFF 0 0 0 8 0 65 23 76 1 8 D FFF 0 0 0 8 0 66 23 85 1 46 C FFF 0 0 0 5 0 68 11 76 1 4 F 5 0 69 12 76 1 8 F 5 0 70 13 76 1 7 F 5 0 71 15 76 1 3 F 5 0 72 11 55 1 6 F 5 0 73 12 55 1 5 F 5 0 74 13 55 1 5 F 5 0 75 14 55 1 6 F 5 0 76 15 55 1 6 F 5 0 77 17 55 1 3 F 5 0 78 18 55 1 6 F 5 0 79 11 46 1 8 F 5 0 80 12 46 1 5 F 5 0 81 13 46 1 7 F 5 0 82 14 46 1 7 F 5 0 83 15 46 1 7 F 5 0 84 17 46 1 3 F 8 0 85 23 1 1 3 86 N FFF 0 0 0 5 0 87 5 35 1 53 F 5 0 89 11 16 1 17 F 5 0 90 11 92 1 31 F 5 0 92 12 90 1 35 F 5 0 94 16 46 1 7 F 5 0 95 16 55 1 5 F 5 0 96 12 62 1 11 F 5 0 97 14 76 1 7 F 8 0 98 0 0 1 1 101 C FFF 0 0 0 8 0 111 23 57 1 4 115 114 N FFF 0 0 0 8 0 116 0 1 1 80 C FFF 0 0 0 8 0 118 3 1 1 25 C FFF 0 0 0 8 0 121 1 1 1 50 C FFF 0 0 0 8 0 128 2 1 1 40 C FFF 0 0 0 10 1 11 36 18 132 133 T 134 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),130))
"Lp."
"Strona: "
_pageno + m.offset
"Cena nabycia"
"lub koszt"
"wytworzenia"
ALLTRIM(kursorek.nazwa)
kursorek.datanab
kursorek.cenazak
"99,999,999.99"
kursorek.datalikw
ALLTRIM(kursorek.przylikw)
"Data"
"likwida-"
"cji wy-"
"nia"
"Nr po-"
"zycji"
"wpisu"
"w poda"
"tkowej"
"dze"
"p.i r."
"Data na-"
"bycia"
"lub wy-"
"tworze-"
"nia wy-"
"nia"
7"K A R T A E W I D E N C J I W Y P O S A
E N I A"
"Nazwa wyposa
enia"
!"Przyczyna likwidacji (sprzeda
%"darowizna, zniszczenie) wyposa
enia"
"posa
"wyposa
enia"
"posa
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
@findnum(kursorek.idksiegi, kursorek.pozksiegi, kursorek.datanab)
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'),' ')
kursorek.nazwa
m.beg_num
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
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
CURSORz
errors
WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
SYSPATH
ERRWIN
ERRORS
ERRCODE
MESSAGE
LOCALENV7
ksiega.fky2
ksiega
MY_QUIT
TMAINMENU
NKSIEGA
errors
komunikF
QUEST
KOMUNIK1
KOMUNIK2
KOMUNIK3
ILOSC
IOPEN
6SYSPATH
INFOTOM
FOTOM
AIERRORS
KSIERRCODE
MESSAGE
CZYTAK
kursorek
PREDRUK
LICZNIK
MODULY
OFFSET
KURSOREK
PRINTER_FEDIALOG
NA_EKRAN
PRINT_ERR
P_PAPER
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
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
WAR_1
OWAR1
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
bi_work
bi_work
IDKSIEGI
POZKSIEGI
DATANAB
RETVAL
SCIEZ
NUMPOCZ
ISFILE
GETNUMP
ROKNR
MIESNR
MAINPATH
TWODIG
BI_WORK
SIEGI
EWWYPOS
@L 99c
POZKq
miesiace
IOPEN
RETVAL
MIESIACE
MAINPATH
MIESIAC
tFULLYEAR
NUMCIAG
MNUMPOCZ
..\DRUK\DRUKUTIL.PRG
C:\KSIEGA\SYSTEM\
C:\KSIEGA\DRUK\
..\COMMON\TAKNIE.PRG
..\COMMON\ERRHAND.PRG
..\COMMON\NOTICE.PRG
..\COMMON\CLEAR.PRG
..\COMMON\PYTANIE.PRG
..\DRUK\WYDRUK.PRG
..\DRUK\SKIP.PRG
..\COMMON\CZYTAK.PRG
..\COMMON\FINDNUM.PRG
..\COMMON\TWODIG.PRG
..\COMMON\GETNUMP.PRG
..\COMMON\FULLYEAR.PRG
DRUKUTIL.FXP
DWWYPOS.FRX
DWWYPOS.FRT
NWWYPOS.FRX
NWWYPOS.FRT
TAKNIE.FXP
ERRHAND.FXP
NOTICE.FXP
CLEAR.FXP
PYTANIE.FXP
WYDRUK.FXP
SKIP.FXP
CZYTAK.FXP
FINDNUM.FXP
TWODIG.FXP
GETNUMP.FXP
FULLYEAR.FXP