home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / KASA.DOK < prev    next >
Text File  |  1996-07-29  |  625b  |  12 lines
  1. *SPOZ
  2. #DEFINICJE
  3. nag='P'+stosck('0;2$h'+'Rejestracja w kasie dok. '+OBRGL->KOD_DOK+":"+M->kod_magaz+"/"+ltrim(str(M->nr_dok,5))+chr(13)+'Data sprzedazy:'+dtoc(OBRGL->DATA_SPRZ)+chr(13))
  4. poz='P'+stosck(str(Lpd,3)+'$l'+latmaz(substr(INDEKS->NAZ_TOWARU,1,40),&_RLM,maz)+chr(13)+str(M->ilosc_pocz,7,2)+chr(13)+if(INDEKS->ZWOL,"Z",if(VAT_P=0,"D",if(VAT_P=22,"A",if(VAT_P=7,"B","C"))))+'/'+str(M->cpzv,9,2)+'/'+str(M->wcpzv,9,2)+'/')
  5. sum='P'+stosck('1;'+str(OBRGL->MARZA_D,3)+'$e'+OBRGL->SYMB_OPER+'.'+chr(13)+str(M->cenatow,9,2)+'/'+str(M->swcp,9,2)+'/')
  6. #NAGLOWEK
  7. [nag]
  8. #POZYCJE DOKUMENTU
  9. [poz]
  10. #SUMY
  11. [sum]
  12. #KONIEC