home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
INDEKS_N.DOK
< prev
next >
Wrap
Text File
|
1997-02-02
|
2KB
|
84 lines
* HP LASER - kody sterujace *
* Obrot
* standard (portial)
* [chr(27)]&l0O
* lewy dolny rog (landscape)
* [chr(27)]&l1O
* Symbol set
* Roman-8 (standard)
* [chr(27)](8U
* PC-8(USA) (semigraf)
* [chr(27)](10U
* Spacing
* Fixed
* [chr(27)](s0P
* Proporcjonalne (tylko tu mozliwosc skalowania)
* [chr(27)](s1P
* Pitch (tylko dla Fixed)
* 10 cpi
* [chr(27)](s10H
* 16.66 cpi
* [chr(27)](s16.66H
* Wielkosc (dla proporcjonalnych)
* [chr(27)](s{7,8,.....72}V
* Styl
* italic off
* [chr(27)](s0S
* italic on
* [chr(27)](s1S
* condensed
* [chr(27)](s4S
* Outline
* [chr(27)](s32S
* Pogrubienie
* [chr(27)](s{-7,-6,.....,7}B
* Typefaces
* Line printer
* [chr(27)](s0T
* Elite
* [chr(27)](s2T
* Courier
* [chr(27)](s3T
* Gothic
* [chr(27)](s6T
* Uniwers
* [chr(27)](s52T
* Kody kreskowe
* [chr(27)](98Y[chr(27)]/b10W<tekst np:1234567890>
#DEFINICJE
Kod=KOD_TOWARU
Naz=len10(substr(INDEKS->NAZ_TOWARU,1,39),39)
Cnn=transform(CENA,"@E 9,999.99")
Cnb=transform(CENA*(1+PODAT/100),"@E 9,999.99")
Prz=str(INDEKS->PRZEL2,5,1)
V =str(PODAT,3)
Csn=transform(CENA*10000,"@E 99,999,999")
Csb=transform(CENA*(1+PODAT/100)*10000,"@E 99,999,999")
#NAGLOWEK
[chr(27)](10U[chr(27)](s10H[chr(27)](s0P
[M->ADR][M->NIP]
#POZYCJE
Kod:[chr(27)](s1P[chr(27)](s24V[Kod][chr(27)]&a40C[chr(27)](s0PKod:[chr(27)](s1P[chr(27)](s24V[Kod][chr(27)](s0P
[chr(27)](s5B[Naz ] [Naz ][chr(27)](s0B
─Cena netto───Vat──Cena brutto──Il.op─ ─Cena netto───Vat──Cena brutto──Il.op─
[chr(27)](s1P[chr(27)](s20V[Cnn ][chr(27)](s0P[chr(27)]&a22C[Cnb ] [Prz] [chr(27)]&a42C[chr(27)](s1P[chr(27)](s20V[Cnn ][chr(27)](s0P [Cnb ] [Prz]
#SUMY
#KONIEC