home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
druk.arj
/
PEWREMAN.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
45KB
|
568 lines
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
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 20 9 4 2 9 7 7 8 0 16 21 1 1 88 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 60 1 11 F 5 0 20 25 49 1 22 F 5 0 21 27 65 1 6 F 5 0 22 9 57 1 8 F 8 0 23 9 65 1 3 24 N FFF 0 0 0 8 0 25 20 7 1 30 C FFF 0 0 0 8 0 26 20 54 1 17 28 27 N FFF 0 0 0 8 0 29 20 72 1 17 32 31 N FFF 0 0 0 5 0 33 14 2 1 3 F 8 0 34 25 72 1 17 37 36 N FFF 0 0 0 8 0 38 7 50 1 30 C FFF 0 0 0 5 0 41 14 19 1 5 F 8 0 42 20 38 1 4 C FFF 0 0 0 5 0 43 14 39 1 2 F 8 0 44 20 43 1 10 46 45 N FFF 0 0 0 5 0 47 14 45 1 5 F 5 0 48 14 60 1 4 F 5 0 49 17 20 1 1 F 5 0 50 17 39 1 1 F 5 0 51 17 47 1 1 F 5 0 52 17 62 1 1 F 5 0 53 17 80 1 1 F 5 0 54 15 72 1 6 F 5 0 55 15 79 1 9 F 7 7 13 0 1 90 =
F 7 7 16 0 1 89 =
F 7 7 18 0 1 89 =
F 7 7 22 0 1 89 =
F 7 7 24 42 1 48 =
F 7 7 26 42 1 48 =
F 7 7 28 42 1 48 =
F 7 7 14 0 9 1 |
F 7 7 14 42 14 1 |
F 7 7 14 71 14 1 |
F 7 7 14 89 14 1 |
F 5 0 56 7 48 1 1 F 8 0 57 20 1 1 5 58 N FFF 0 0 0 5 0 59 5 56 1 15 F 5 0 60 6 47 1 34 F 5 0 62 14 77 1 7 F 7 7 14 6 9 1 |
F 7 7 14 37 9 1 |
F 7 7 14 53 9 1 |
F 8 0 63 23 72 1 17 65 64 N FFF 0 0 0 8 0 66 27 72 1 17 68 67 N FFF 0 0 0 8 0 69 0 0 1 1 72 C FFF 0 0 0 8 0 82 0 1 1 80 C FFF 0 0 0 8 0 84 3 1 1 25 C FFF 0 0 0 8 0 87 1 1 1 50 C FFF 0 0 0 8 0 94 2 1 1 40 C FFF 0 0 0 18 98 99 T 101 2 1 18 102 103 F 105 2 0 18 106 107 T 108 1 0
7iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),88))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
ALLTRIM(kursorek.nazwa)
kursorek.cena
"99,999,999,999.99"
kursorek.ilosc * kursorek.cena
"99,999,999,999.99"
"Lp."
wartosc_1 - wartosc_0 + e1
"99,999,999,999.99"
>alltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r."
"Nazwa"
ALLTRIM(kursorek.jm)
kursorek.ilosc
"999,999.99"
"Cena"
"(kol.4"
"x kol. 5)"
"R E M A N E N T"
$"dla cel
w prowadzonej dzia
"Warto
wartosc_0
"99,999,999,999.99"
wartosc_1 + e1
"99,999,999,999.99"
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'),' ')
WARTOSC_0
kursorek.ilosc * kursorek.cena
WARTOSC_1
kursorek.ilosc * kursorek.cena
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 20 9 4 2 9 7 7 8 0 16 21 1 1 88 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 60 1 11 F 5 0 20 25 49 1 22 F 5 0 21 27 65 1 6 F 5 0 22 9 57 1 8 F 8 0 23 9 65 1 3 24 N FFF 0 0 0 7 4 13 0 10 7
F 7 4 13 6 10 32
F 7 4 13 37 10 6
F 7 4 13 42 10 12
F 7 4 13 53 10 19
F 7 4 22 42 7 48
F 7 4 24 42 3 48
F 7 4 13 71 16 19
F 7 4 16 0 3 90
F 5 0 25 16 71 1 1 F 5 0 26 16 89 1 1 F 5 0 27 18 71 1 1 F 5 0 28 18 89 1 1 F 5 0 29 16 53 1 1 F 5 0 30 18 53 1 1 F 5 0 31 16 42 1 1 F 5 0 32 18 42 1 1 F 5 0 33 16 37 1 1 F 5 0 34 18 37 1 1 F 5 0 35 16 6 1 1 F 5 0 36 18 6 1 1 F 5 0 37 16 0 1 1 F 5 0 38 18 0 1 1 F 5 0 39 24 71 1 1 F 5 0 40 26 71 1 1 F 5 0 41 24 89 1 1 F 5 0 42 26 89 1 1 F 5 0 43 22 71 1 1 F 5 0 44 28 71 1 1 F 5 0 45 22 89 1 1 F 5 0 46 13 71 1 1 F 5 0 47 24 42 1 1 F 5 0 48 26 42 1 1 F 5 0 49 22 53 1 1 F 5 0 50 22 42 1 1 F 5 0 51 13 53 1 1 F 5 0 52 13 42 1 1 F 5 0 53 13 37 1 1 F 5 0 54 22 37 1 1 F 5 0 55 13 6 1 1 F 5 0 56 22 6 1 1 F 5 0 57 14 2 1 3 F 8 0 58 7 50 1 30 C FFF 0 0 0 5 0 61 14 19 1 5 F 5 0 62 14 39 1 2 F 5 0 63 14 45 1 5 F 5 0 64 14 60 1 4 F 5 0 65 17 20 1 1 F 5 0 66 17 39 1 1 F 5 0 67 17 47 1 1 F 5 0 68 17 62 1 1 F 5 0 69 17 78 1 1 F 5 0 70 15 72 1 6 F 5 0 71 15 79 1 9 F 5 0 72 7 48 1 1 F 8 0 73 20 7 1 30 C FFF 0 0 0 8 0 74 20 38 1 4 C FFF 0 0 0 8 0 75 20 43 1 10 77 76 N FFF 0 0 0 8 0 78 20 54 1 17 80 79 N FFF 0 0 0 8 0 81 20 72 1 17 84 83 N FFF 0 0 0 8 0 85 25 72 1 17 88 87 N FFF 0 0 0 8 0 89 20 1 1 5 90 N FFF 0 0 0 5 0 91 5 57 1 15 F 5 0 92 14 77 1 7 F 5 0 93 6 47 1 34 F 8 0 95 23 72 1 17 97 96 N FFF 0 0 0 8 0 98 27 72 1 17 100 99 N FFF 0 0 0 8 0 101 0 0 1 1 104 C FFF 0 0 0 8 0 114 0 1 1 80 C FFF 0 0 0 8 0 116 3 1 1 25 C FFF 0 0 0 8 0 119 1 1 1 50 C FFF 0 0 0 8 0 126 2 1 1 40 C FFF 0 0 0 10 1 8 41 18 130 131 T 133 2 1 18 134 135 F 137 2 0 18 138 139 T 140 1 0
7iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),88))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
"Lp."
>alltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r."
"Nazwa"
"Cena"
"(kol.4"
"x kol. 5)"
ALLTRIM(kursorek.nazwa)
ALLTRIM(kursorek.jm)
kursorek.ilosc
"999,999.99"
kursorek.cena
"99,999,999,999.99"
kursorek.ilosc * kursorek.cena
"99,999,999,999.99"
wartosc_1 - wartosc_0 + e1
"99,999,999,999.99"
"R E M A N E N T"
"Warto
$"dla cel
w prowadzonej dzia
wartosc_0
"99,999,999,999.99"
wartosc_1 + e1
"99,999,999,999.99"
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'),' ')
WARTOSC_0
kursorek.ilosc * kursorek.cena
WARTOSC_1
kursorek.ilosc * kursorek.cena
kursorek.nazwa
m.beg_num
m.xloc = m.xloc
errors
\<Nie
\<Tak
ECODE1
DEFAULTANSY0
OLDALIAS
BXLOC
5SYSPATH
SERRWIN
ERRCODE
ERRORS
eMESSAGE
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
RNMESSAGE
LOCALENV7
ksiega.fky2
ksiega
MY_QUIT
MAINMENU
KSIEGA
errors
komunikF
QUEST
KOMUNIK1
SKOMUNIK2
NKOMUNIK3
ER_DATZNAK
ACHVEAREA
ILOSC
IOPEN
RWINODP
SYSPATH
INFOTOM
FOTOM
ERRORS
ERRCODE
MESSAGE
CZYTAK
kursorek
PREDRUK
LICZNIK
MODULY
OFFSET
KURSOREK
PRINTER_FEDIALOG
NA_EKRAN
PRINT_ERR
P_PAPER
NEW_PAGE
EGETSTOP
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
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
..\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
DRUKUTIL.FXP
DWREMAN.FRX
DWREMAN.FRT
NWREMAN.FRX
NWREMAN.FRT
TAKNIE.FXP
ERRHAND.FXP
NOTICE.FXP
CLEAR.FXP
PYTANIE.FXP
WYDRUK.FXP
SKIP.FXP
CZYTAK.FXP