home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RA_WZ.DOK < prev    next >
Text File  |  1997-02-22  |  2KB  |  48 lines
  1. *SPOZ,SYSTEM=FXXX
  2. #DEFINICJE
  3. Nr =len10(ltrim(str(M->nr_dok,5)),8)
  4. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  5. Rdk =substr(slownik("S_K","KOD_DOK   "+OBRGL->KOD_DOK),1,30)
  6. dn =dtoc(OBRGL->DATA)
  7. S  =str(M->str,3)
  8. Ok =if(M->_R_LBL,"        ",if(OBRGL->SW,"KOPIA   ","ORYGINA¥"))
  9. Kkn=KONTRAH->KONTRAHENT
  10. Np =len10(KONTRAH->NAZWA_PLAT,80)
  11. Ap =len10(KONTRAH->ADRES_PLAT,80)
  12. Npp=KONTRAH->NIP
  13. No =len10(KONTRAH->NAZWA_KONT,50)
  14. L  =str(Lpd,3)
  15. Naz=substr(INDEKS->NAZ_TOWARU,1,40)
  16. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  17. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 99999.99"),str(M->ilosc_pocz,8))
  18. * W CENACH ZAKUPU
  19. Cn =transform(OBRPOZ->CENA_ZAKUP,"@E 9999,999.99")
  20. Wn =transform(OBRPOZ->CENA_ZAKUP*M->ilosc_pocz,"@E 99,999,999.99")
  21.  
  22. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  23. DozPoZ  =transform(M->kwotaDoZ,'@E 999,999,999.99')
  24. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  25.  
  26. #NAGLOWEK
  27.  WZ Nr:[Nrm   ] do [Rdok                             ] Nr:[Nr    ]  Z dnia: [dn    ] Str:[S]
  28.                          [Ok    ]
  29. --SPRZEDAWCA:--------------------------------------------------------------------- 
  30.   [M->ADR]
  31. --NIP:[M->Nip     ]--------------------------------------------------------------- 
  32. --NABYWCA: [Kkn   ]---------------------------------------------------------------       
  33.   [Np] 
  34.   [Ap] 
  35.   REGON:[KONTRAH->REGON]
  36. [repl("-",97)]
  37. |Lp| Nazwa towaru                            |SWW          |  Iloÿå|j.m  |CENA EWID.|WART.EWID  
  38. [repl("-",97)]
  39. #POZYCJE
  40. [L] [Naz                                    ] [INDEKS->SWW][Ilo    ] [Jm ][Cn       ][Wn        ]
  41. #SUMY                                                      
  42. [Wag                         ]
  43. [repl("-",97)]
  44. Osoba upowa╛niona do wystawienia                Wydaê :        Odebraêem
  45. [Opr                 ] podpis  ..............   podpis......   [No                                          ]
  46. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  47. #KONIEC
  48.