home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
FDH_KP.DOK
< prev
next >
Wrap
Text File
|
1997-06-23
|
2KB
|
49 lines
*SYSTEM=Nxxx
#DEFINICJE
X =if(KONTO_WN='10','KP ','KW ')
Ww =if(KONTO_WN='10','WP¥ATY ','WYP¥ATY')
Nrd=str(FDH->NR_DOK,5)
dat=dtoc(DATA)
Od =if(KONTO_WN='10',' Od ','Dla ')
Np =substr(slownik('KONTRAH',KONTRAHENT),1,40)
Ap =substr(KONTRAH->ADRES_PLAT,1,40)
WnM=if(KONTO_WN='10','Winien',' Ma ')
MaW=if(KONTO_WN='10',' Ma ','Winien')
Za1=FDH->NRS
Za2=len10(substr(FDH->INFO,1,34),34)
Kwo=transform(KWOTA,"@E 9999,999,999.99")
Sl1=substr(slownie(KWOTA),1 ,69)
Sl2=substr(slownie(KWOTA),70,69)
Odg=if(KONTO_WN='10','Kasjera ','Odbiorcy')
L =str(REJ_LP,3)
P =str(REJ_LZ,3)
#NAGLOWEK
[M->ADR]
[M->NIP]
DOWαD ┌───┐
[Ww ] │[X]│ Nr:[Nrd ] Data :[dat ]
└───┘
┌[Od]kogo:───────────────────────────────┬─────────────────┬─────────┐
│[Np ]│ [WnM ] │ [MaW ] │
│[Ap ]│ Kasa │ Konto │
├────────────────────────────────────────┼─────────────────┼─────────┤
│za co │ zê │ Numer │
├────────────────────────────────────────┼─────────────────┼─────────┤
│[Za1 ] │[Kwo ] │ │
│[Za2 ] │ │ │
├────────────────────────────────────────┼─────────────────┼─────────┘
│ Razem:│[Kwo ] │
│ └─────────────────┘
│[Sl1 ]
│[Sl2 ]
├────────┬─────────┬───────────┬───────────┬─────────────────────────┐
│Wystawiê│Sprawdziê│Zatwierdziê│Rap.kasowy │ Kwot⌐ powy╛. otrzymaêem │
│ │ │ │Nr [L] │ ...................... │
│ │ │ │poz [P] │ podpis [Odg ] │
└────────┴─────────┴───────────┴───────────┴─────────────────────────┘
SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
#POZYCJE
#SUMY
[M->NIP ]
#KONIEC