home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 1998 February
/
CHIP_2_98.iso
/
software
/
testsoft
/
vatman
/
vatman.lzh
/
RA_PRZEL.DOK
< prev
next >
Wrap
Text File
|
1996-12-12
|
8KB
|
80 lines
#DEFINICJE
Np1=substr(slownik('KONTRAH',OBRGL->KONTRAHENT),1,28)
Np2=len10(substr(KONTRAH->NAZWA_PLAT,29,28),28)
Ad1=substr(KONTRAH->ADRES_PLAT,1,28)
Ad2=substr(KONTRAH->ADRES_PLAT,29)
Bn1=substr(KONTRAH->BANK,1,17)
Bn2=len10(substr(KONTRAH->BANK,18,28),28)
Kn1=substr(KONTRAH->KONTO_PLAT,1,19)
Kn2=len10(substr(KONTRAH->KONTO_PLAT,20,28),28)
Nk1=substr(_S1,1,19)
Nk2=len10(substr(_S1,20,28),28)
Nb1=substr(_S0,1,17)
Nb2=len10(substr(_S0,18,28),28)
Doz=transform(OBRGL->KWOTA_DO_Z,"@E 999,999,999.99")
dat=dtoc(OBRGL->TERM_PLAT)
Txt=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),34)
#NAGLOWEK
+--+ +--+
|2 | POLECENIE PRZELEWU/POBRANIA A |2 | POLECENIE PRZELEWU/POBRANIA B
|--+------------------------------------------------------+ +--+------------------------------------------------------+
|W ciezar rachunku |Na dobro rachunku | |W ciezar rachunku |Na dobro rachunku |
|----------------------------+----------------------------| |----------------------------+----------------------------|
|Nazwa dluznika: |Nazwa wierzyciela: | |Nazwa dluznika: |Nazwa wierzyciela: |
|[Np1 ]|[substr(M->ADR,1,28) ]| |[Np1 ]|[substr(M->ADR,1,28) ]|
|[Np2 ]|[len10(substr(M->ADR,29,28),28)]| |[Np2 ]|[len10(substr(M->ADR,29,28),28)]|
|[Ad1 ]|[len10(substr(M->ADR,57),28)]| |[Ad1 ]|[len10(substr(M->ADR,57),28)]|
|[Ad2 ] |[len10(substr(M->ADR1,1,28),28)]| |[Ad2 ] |[len10(substr(M->ADR1,1,28),28)]|
|----------------------------+----------------------------| |----------------------------+----------------------------|
|w (Banku): [Bn1 ]|w (Banku): [Nb1 ]| |w (Banku): [Bn1 ]|w (Banku): [Nb1 ]|
|[Bn2 ]|[Nb2 ]| |[Bn2 ]|[Nb2 ]|
|----------------------------+----------------------------| |----------------------------+----------------------------|
|Nr r-ku: [Kn1 ]|Nr r-ku: [Nk1 ]| |Nr r-ku: [Kn1 ]|Nr r-ku: [Nk1 ]|
|[Kn2 ]|[Nk2 ]| |[Kn2 ]|[Nk2 ]|
|---------------------------------------------------------| |---------------------------------------------------------|
|Pl.Kas: |Kwota zl:[Doz ] | |Pl.Kas: |Kwota zl:[Doz ] |
|--------------+------------------------------------------| |--------------+------------------------------------------|
|Data:[dat ] |Tytulem:[Txt ]| |Data:[dat ] |Tytulem:[Txt ]|
|---------------------------------------------------------| |---------------------------------------------------------|
| | Stempel Banku | | | Stempel Banku |
| | | | | |
| | | | | |
| | | | | |
| | | | | |
|pieczec zelceniodawcy i podpisy | | |pieczec zelceniodawcy i podpisy | |
+---------------------------------------------------------+ +---------------------------------------------------------+
[M->Nip ] Sporzadzono w systemie PC VATMAN (C)ZTK BITAM [M->Nip ] Sporzadzono w systemie PC VATMAN (C)ZTK BITAM
------------------------------------*)niepotrzebne skreslic-------------------------------------------------------------
+--+ +--+
|2 | POLECENIE PRZELEWU/POBRANIA C |2 | POLECENIE PRZELEWU/POBRANIA D
|---------------------------------------------------------+ |---------------------------------------------------------+
|W ciezar rachunku |Na dobro rachunku | |W ciezar rachunku |Na dobro rachunku |
|----------------------------+----------------------------| |----------------------------+----------------------------|
|Nazwa dluznika: |Nazwa wierzyciela: | |Nazwa dluznika: |Nazwa wierzyciela: |
|[Np1 ]|[substr(M->ADR,1,28) ]| |[Np1 ]|[substr(M->ADR,1,28) ]|
|[Np2 ]|[len10(substr(M->ADR,29,28),28)]| |[Np2 ]|[len10(substr(M->ADR,29,28),28)]|
|[Ad1 ]|[len10(substr(M->ADR,57),28)]| |[Ad1 ]|[len10(substr(M->ADR,57),28)]|
|[Ad2 ] |[len10(substr(M->ADR1,1,28),28)]| |[Ad2 ] |[len10(substr(M->ADR1,1,28),28)]|
|----------------------------+----------------------------| |----------------------------+----------------------------|
|w (Banku): [Bn1 ]|w (Banku): [Nb1 ]| |w (Banku): [Bn1 ]|w (Banku): [Nb1 ]|
|[Bn2 ]|[Nb2 ]| |[Bn2 ]|[Nb2 ]|
|----------------------------+----------------------------| |----------------------------+----------------------------|
|Nr r-ku: [Kn1 ]|Nr r-ku: [Nk1 ]| |Nr r-ku: [Kn1 ]|Nr r-ku: [Nk1 ]|
|[Kn2 ]|[Nk2 ]| |[Kn2 ]|[Nk2 ]|
|---------------------------------------------------------| |---------------------------------------------------------|
|Pl.Kas: |Kwota zl:[Doz ] | |Pl.Kas: |Kwota zl:[Doz ] |
|--------------+------------------------------------------| |--------------+------------------------------------------|
|Data:[dat ] |Tytulem:[Txt ]| |Data:[dat ] |Tytulem:[Txt ]|
|---------------------------------------------------------| |---------------------------------------------------------|
| | Stempel Banku | | | Stempel Banku |
| | | | | |
| | | | | |
| | | | | |
| | | | | |
|pieczec zelceniodawcy i podpisy | | |pieczec zelceniodawcy i podpisy | |
+---------------------------------------------------------+ +---------------------------------------------------------+
#POZYCJE
#SUMY
[M->Nip ] Sporzadzono w systemie PC VATMAN (C)ZTK BITAM [M->Nip ] Sporzadzono w systemie PC VATMAN (C)ZTK BITAM
#KONIEC