home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
druk.arj
/
PEWPPRZE.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
49KB
|
578 lines
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
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
Dodaj
Skok SYSPATH
SERRWIN
pERRCODE
..ERRORS
...MESSAGE
errors
komunikF
QUEST
KOMUNIK1
KOMUNIK2
TKOMUNIK3
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
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
LOCALENV7
ksiega.fky2
ksiega
MY_QUIT
MAINMENU
KSIEGA
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 97130 F F FFFFT 0 0 0 21 9 1 20 9 4 3 9 7 7 8 0 16 22 1 1107 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 24 79 1 11 F 5 0 20 26 68 1 22 F 5 0 21 28 84 1 6 F 5 0 22 11 57 1 8 F 8 0 23 11 65 1 3 24 N FFF 0 0 0 8 0 25 20 18 1 20 C FFF 0 0 0 5 0 27 14 2 1 3 F 8 0 28 26 91 1 17 31 30 N FFF 0 0 0 8 0 32 9 65 1 30 C FFF 0 0 0 5 0 35 17 11 1 1 F 7 7 13 0 1109 =
F 7 7 16 0 1109 =
F 7 7 18 0 1109 =
F 7 7 23 0 1109 =
F 7 7 25 60 1 48 =
F 7 7 27 60 1 48 =
F 7 7 29 60 1 49 =
F 7 7 14 0 10 1 |
F 7 7 14 73 10 1 |
F 7 7 14 90 15 1 |
F 7 7 14 108 15 1 |
F 5 0 36 9 63 1 1 F 8 0 37 20 1 1 5 38 N FFF 0 0 0 7 7 14 6 10 1 |
F 8 0 39 24 91 1 17 41 40 N FFF 0 0 0 8 0 42 28 91 1 17 44 43 N FFF 0 0 0 8 0 45 0 0 1 1 48 C FFF 0 0 0 8 0 58 0 1 1 80 C FFF 0 0 0 8 0 60 3 1 1 25 C FFF 0 0 0 8 0 63 1 1 1 50 C FFF 0 0 0 8 0 70 2 1 1 40 C FFF 0 0 0 5 0 74 4 46 1 39 F 5 0 76 6 48 1 16 F 5 0 77 7 45 1 19 F 5 0 78 8 54 1 10 F 8 0 79 6 65 1 40 C FFF 0 0 0 8 0 80 8 65 1 40 C FFF 0 0 0 8 0 82 7 65 1 20 C FFF 0 0 0 5 0 84 14 9 1 4 F 8 0 85 20 7 1 10 C FFF 0 0 0 7 7 14 17 10 1 |
F 5 0 86 14 25 1 3 F 7 7 14 38 10 1 |
F 5 0 87 17 26 1 1 F 8 0 88 21 18 1 20 C FFF 0 0 0 8 0 90 20 39 1 20 C FFF 0 0 0 8 0 92 21 39 1 20 C FFF 0 0 0 5 0 94 14 46 1 5 F 5 0 95 17 48 1 1 F 7 7 14 59 16 1 |
F 5 0 96 14 62 1 8 F 5 0 97 17 66 1 1 F 8 0 98 20 60 1 13 99 N FFF 0 0 0 5 0 100 14 77 1 9 F 8 0 101 20 74 1 16 102 N FFF 0 0 0 5 0 103 14 96 1 7 F 8 0 104 20 91 1 17 106 N FFF 0 0 0 5 0 107 17 81 1 1 F 5 0 108 17 99 1 1 F 18 109 110 T 112 2 1 18 113 114 F 116 2 0 18 117 118 T 119 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),107))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
!LEFT( ALLTRIM(kursorek.cel), 20 )
"Lp."
wartosc_1 - wartosc_0 + e1
"99,999,999,999.99"
>alltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r."
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'),' ')
)"E W I D E N C J A P R Z E J A Z D
"samochodem marki"
"numer rejestracyjny"
ciciel"
ALLTRIM( kursorek.marka )
ALLTRIM( kursorek.wlasciciel )
ALLTRIM( kursorek.nr_rej )
"Data"
kursorek.data
"Cel"
#SUBSTR( ALLTRIM(kursorek.cel), 21 )
#LEFT( ALLTRIM(kursorek.trasa), 20 )
%SUBSTR( ALLTRIM(kursorek.trasa), 21 )
"Trasa"
kursorek.km
"9,999,999,999"
"Cena 1 km"
kursorek.cena
"9,999,999,999.99"
"Warto
kursorek.cena * kursorek.km
"99,999,999,999.99"
WARTOSC_0
kursorek.km * kursorek.cena
WARTOSC_1
kursorek.km * kursorek.cena
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 97130 F F FFFFT 0 0 0 21 9 1 20 9 4 3 9 7 7 8 0 16 22 1 1107 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 24 79 1 11 F 5 0 20 26 68 1 22 F 5 0 21 28 84 1 6 F 5 0 22 11 57 1 8 F 8 0 23 11 65 1 3 24 N FFF 0 0 0 8 0 25 20 18 1 20 C FFF 0 0 0 5 0 27 14 2 1 3 F 8 0 28 26 91 1 17 31 30 N FFF 0 0 0 8 0 32 9 65 1 30 C FFF 0 0 0 5 0 35 17 11 1 1 F 5 0 36 9 63 1 1 F 8 0 37 20 1 1 5 38 N FFF 0 0 0 8 0 39 24 91 1 17 41 40 N FFF 0 0 0 8 0 42 28 91 1 17 44 43 N FFF 0 0 0 8 0 45 0 0 1 1 48 C FFF 0 0 0 8 0 58 0 1 1 80 C FFF 0 0 0 8 0 60 3 1 1 25 C FFF 0 0 0 8 0 63 1 1 1 50 C FFF 0 0 0 8 0 70 2 1 1 40 C FFF 0 0 0 5 0 74 4 46 1 39 F 5 0 76 6 48 1 16 F 5 0 77 7 45 1 19 F 5 0 78 8 54 1 10 F 8 0 79 6 65 1 40 C FFF 0 0 0 8 0 80 8 65 1 40 C FFF 0 0 0 8 0 82 7 65 1 20 C FFF 0 0 0 5 0 84 14 9 1 4 F 8 0 85 20 7 1 10 C FFF 0 0 0 5 0 86 14 25 1 3 F 5 0 87 17 26 1 1 F 8 0 88 21 18 1 20 C FFF 0 0 0 8 0 90 20 39 1 20 C FFF 0 0 0 8 0 92 21 39 1 20 C FFF 0 0 0 5 0 94 14 46 1 5 F 5 0 95 17 48 1 1 F 5 0 96 14 62 1 8 F 5 0 97 17 66 1 1 F 8 0 98 20 60 1 13 99 N FFF 0 0 0 5 0 100 14 77 1 9 F 8 0 101 20 74 1 16 102 N FFF 0 0 0 5 0 103 14 96 1 7 F 8 0 104 20 91 1 17 106 N FFF 0 0 0 5 0 107 17 81 1 1 F 5 0 108 17 99 1 1 F 7 4 13 0 11 7
F 7 4 13 6 11 12
F 7 4 13 17 11 22
F 7 4 13 38 11 22
F 7 4 13 59 11 15
F 7 4 13 73 11 18
F 7 4 13 90 17 19
F 7 4 23 59 7 50
F 7 4 25 59 3 50
F 7 4 16 0 3109
F 5 0 109 16 90 1 1 F 5 0 110 16 108 1 1 F 5 0 111 18 90 1 1 F 5 0 112 18 108 1 1 F 5 0 113 16 73 1 1 F 5 0 114 18 73 1 1 F 5 0 115 16 59 1 1 F 5 0 116 18 59 1 1 F 5 0 117 16 38 1 1 F 5 0 118 18 38 1 1 F 5 0 119 16 17 1 1 F 5 0 120 18 17 1 1 F 5 0 121 16 6 1 1 F 5 0 122 18 6 1 1 F 5 0 123 16 0 1 1 F 5 0 124 18 0 1 1 F 5 0 125 25 59 1 1 F 5 0 126 25 108 1 1 F 5 0 127 27 59 1 1 F 5 0 128 27 108 1 1 F 5 0 129 25 90 1 1 F 5 0 130 27 90 1 1 F 5 0 131 23 90 1 1 F 5 0 132 23 108 1 1 F 5 0 133 29 90 1 1 F 5 0 134 23 73 1 1 F 5 0 135 23 59 1 1 F 5 0 136 13 90 1 1 F 5 0 137 13 73 1 1 F 5 0 138 13 59 1 1 F 5 0 139 13 38 1 1 F 5 0 140 23 38 1 1 F 5 0 141 13 17 1 1 F 5 0 142 23 17 1 1 F 5 0 143 13 6 1 1 F 5 0 144 23 6 1 1 F 10 1 47 46 18 145 146 T 148 2 1 18 149 150 F 152 2 0 18 153 154 T 155 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),107))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
!LEFT( ALLTRIM(kursorek.cel), 20 )
"Lp."
wartosc_1 - wartosc_0 + e1
"99,999,999,999.99"
>alltrim(get_mies(2,m.miesnr))+" "+ alltrim(str(m.roknr))+" r."
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'),' ')
)"E W I D E N C J A P R Z E J A Z D
"samochodem marki"
"numer rejestracyjny"
ciciel"
ALLTRIM( kursorek.marka )
ALLTRIM( kursorek.wlasciciel )
ALLTRIM( kursorek.nr_rej )
"Data"
kursorek.data
"Cel"
#SUBSTR( ALLTRIM(kursorek.cel), 21 )
#LEFT( ALLTRIM(kursorek.trasa), 20 )
%SUBSTR( ALLTRIM(kursorek.trasa), 21 )
"Trasa"
kursorek.km
"9,999,999,999"
"Cena 1 km"
kursorek.cena
"9,999,999,999.99"
"Warto
kursorek.cena * kursorek.km
"99,999,999,999.99"
WARTOSC_0
kursorek.km * kursorek.cena
WARTOSC_1
kursorek.km * kursorek.cena
m.beg_num..\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
C:\KSIEGA\DRUKPOJ\
WYDRUK.FXP
SKIP.FXP
DRUKUTIL.FXP
TAKNIE.FXP
PYTANIE.FXP
ERRHAND.FXP
CZYTAK.FXP
NOTICE.FXP
CLEAR.FXP
DWPPRZEJ.FRX
DWPPRZEJ.FRT
NWPPRZEJ.FRX
NWPPRZEJ.FRT
(.txt)
(.txt)