home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
PC World Komputer 1996 May
/
PCW596.iso
/
polskie
/
insert
/
rachmist
/
druk.arj
/
PEWPRACH.APP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1996-01-21
|
44KB
|
561 lines
kursorek
PREDRUK
LICZNIK
MODULY
OFFSET
KURSOREK
PRINTER_FEDIALOG
NA_EKRAN
PRINT_ERR
P_PAPER
EP_FF
01\EWNEW_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
OLDALIAS
SYSPATH
SERRWIN
ERRCODE
ERRORS
MESSAGE
CURSORz
errors
WciF
nij dowolny klawisz ...
ECodeF
SET CURSOR &curstat
ECODE1
ECODE2
ECODE3
OLDALIAS
ILOSC
CURSTAT
DSYSPATH
YERRWIN
OERRORS
XERRCODE
AMESSAGE
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 2 9 7 7 8 0 16 21 1 1126 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 98 1 11 F 5 0 20 25 87 1 22 F 5 0 21 27 103 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 26 14 2 1 3 F 8 0 27 25 110 1 17 30 29 N FFF 0 0 0 8 0 31 9 65 1 30 C FFF 0 0 0 5 0 34 17 11 1 1 F 7 7 13 0 1128 =
F 7 7 16 0 1127 =
F 7 7 18 0 1127 =
F 7 7 22 0 1127 =
F 7 7 24 79 1 48 =
F 7 7 26 79 1 48 =
F 7 7 28 79 1 49 =
F 7 7 14 0 9 1 |
F 7 7 14 109 14 1 |
F 7 7 14 127 15 1 |
F 5 0 35 9 63 1 1 F 8 0 36 20 1 1 5 37 N FFF 0 0 0 7 7 14 6 9 1 |
F 8 0 38 23 110 1 17 40 39 N FFF 0 0 0 8 0 41 27 110 1 17 43 42 N FFF 0 0 0 8 0 44 0 0 1 1 47 C FFF 0 0 0 8 0 57 0 1 1 80 C FFF 0 0 0 8 0 59 3 1 1 25 C FFF 0 0 0 8 0 62 1 1 1 50 C FFF 0 0 0 8 0 69 2 1 1 40 C FFF 0 0 0 5 0 73 7 45 1 19 F 5 0 74 8 54 1 10 F 8 0 75 6 65 1 40 C FFF 0 0 0 8 0 76 8 65 1 40 C FFF 0 0 0 8 0 78 7 65 1 20 C FFF 0 0 0 5 0 80 14 9 1 4 F 8 0 81 20 7 1 10 C FFF 0 0 0 7 7 14 17 9 1 |
F 7 7 14 38 9 1 |
F 5 0 82 17 27 1 1 F 7 7 23 78 6 1 |
F 8 0 83 20 39 1 70 N FFF 0 0 0 5 0 84 14 115 1 7 F 8 0 85 20 110 1 17 86 N FFF 0 0 0 5 0 87 14 25 1 5 F 5 0 88 14 70 1 4 F 5 0 89 17 72 1 1 F 5 0 90 17 119 1 1 F 5 0 91 4 46 1 37 F 5 0 93 6 45 1 19 F 18 94 95 T 96 2 1 18 97 98 F 99 2 0 18 100 101 T 102 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),126))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
ALLTRIM(kursorek.nr)
"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'),' ')
"numer rejestracyjny"
ciciel"
ALLTRIM( kursorek.marka )
ALLTRIM( kursorek.wlasciciel )
ALLTRIM( kursorek.nr_rej )
"Data"
kursorek.data
ALLTRIM( kursorek.opis )
"Warto
kursorek.wartosc
"99,999,999,999.99"
"Numer"
"Opis"
'"E W I D E N C J A R A C H U N K
"dla samochodu marki"
WARTOSC_0
kursorek.wartosc
WARTOSC_1
kursorek.wartosc
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 2 9 7 7 8 0 16 21 1 1126 C FFF 0 0 0 5 0 18 17 3 1 1 F 5 0 19 23 98 1 11 F 5 0 20 25 87 1 22 F 5 0 21 27 103 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 26 14 2 1 3 F 8 0 27 25 110 1 17 30 29 N FFF 0 0 0 8 0 31 9 65 1 30 C FFF 0 0 0 5 0 34 17 11 1 1 F 5 0 35 9 63 1 1 F 8 0 36 20 1 1 5 37 N FFF 0 0 0 8 0 38 23 110 1 17 40 39 N FFF 0 0 0 8 0 41 27 110 1 17 43 42 N FFF 0 0 0 8 0 44 0 0 1 1 47 C FFF 0 0 0 8 0 57 0 1 1 80 C FFF 0 0 0 8 0 59 3 1 1 25 C FFF 0 0 0 8 0 62 1 1 1 50 C FFF 0 0 0 8 0 69 2 1 1 40 C FFF 0 0 0 5 0 73 7 45 1 19 F 5 0 74 8 54 1 10 F 8 0 75 6 65 1 40 C FFF 0 0 0 8 0 76 8 65 1 40 C FFF 0 0 0 8 0 78 7 65 1 20 C FFF 0 0 0 5 0 80 14 9 1 4 F 8 0 81 20 7 1 10 C FFF 0 0 0 5 0 82 17 27 1 1 F 8 0 83 20 39 1 70 N FFF 0 0 0 5 0 84 14 115 1 7 F 8 0 85 20 110 1 17 86 N FFF 0 0 0 5 0 87 14 25 1 5 F 5 0 88 14 70 1 4 F 5 0 89 17 72 1 1 F 5 0 90 17 119 1 1 F 7 4 13 0 10 7
F 7 4 13 6 10 12
F 7 4 13 17 10 22
F 7 4 13 38 10 72
F 7 4 13 109 16 19
F 7 4 22 80 7 48
F 7 4 24 80 3 48
F 7 4 16 0 3128
F 5 0 91 16 109 1 1 F 5 0 92 16 127 1 1 F 5 0 93 18 109 1 1 F 5 0 94 18 127 1 1 F 5 0 95 16 38 1 1 F 5 0 96 18 38 1 1 F 5 0 97 16 17 1 1 F 5 0 98 18 17 1 1 F 5 0 99 16 6 1 1 F 5 0 100 18 6 1 1 F 5 0 101 16 0 1 1 F 5 0 102 18 0 1 1 F 5 0 103 24 80 1 1 F 5 0 104 24 127 1 1 F 5 0 105 26 80 1 1 F 5 0 106 26 127 1 1 F 5 0 107 24 109 1 1 F 5 0 108 26 109 1 1 F 5 0 109 22 109 1 1 F 5 0 110 22 127 1 1 F 5 0 111 28 109 1 1 F 5 0 112 22 80 1 1 F 5 0 113 13 109 1 1 F 5 0 114 13 38 1 1 F 5 0 115 22 38 1 1 F 5 0 116 13 17 1 1 F 5 0 117 22 17 1 1 F 5 0 118 13 6 1 1 F 5 0 119 22 6 1 1 F 5 0 120 4 46 1 37 F 5 0 122 6 45 1 19 F 10 1 37 37 18 123 124 T 125 2 1 18 126 127 F 128 2 0 18 129 130 T 131 1 0
8iif(licz<m.counter," ",REPLICATE(chr(m.total_sign),126))
"Suma folio:"
"Przeniesienie z folio:"
"Razem:"
"Strona: "
_pageno + m.offset
ALLTRIM(kursorek.nr)
"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'),' ')
"numer rejestracyjny"
ciciel"
ALLTRIM( kursorek.marka )
ALLTRIM( kursorek.wlasciciel )
ALLTRIM( kursorek.nr_rej )
"Data"
kursorek.data
ALLTRIM( kursorek.opis )
"Warto
kursorek.wartosc
"99,999,999,999.99"
"Numer"
"Opis"
'"E W I D E N C J A R A C H U N K
"dla samochodu marki"
WARTOSC_0
kursorek.wartosc
WARTOSC_1
kursorek.wartosc
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
DWPRACH.FRX
DWPRACH.FRT
NWPRACH.FRX
NWPRACH.FRT