home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / STANY_C.DOK < prev    next >
Text File  |  1996-12-12  |  1KB  |  25 lines
  1. #DEFINICJE
  2. Naz=len10(substr(slownik("INDEKS",KOD_TOWARU),1,38),38)
  3. Cn =transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA),"@E 999,999.99")
  4. SCn=transform(if(_MPODAT,INDEKS->CENA/(1+INDEKS->PODAT/100),INDEKS->CENA)*10000,"@E 99,999,999")
  5. V  =if(INDEKS->ZWOL,"Zw ",str(INDEKS->PODAT,3))
  6. Czv=transform(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100)),"@E 9999,999.99")
  7. SCv=transform(ROUND(if(_MPODAT,INDEKS->CENA,INDEKS->CENA*(1+INDEKS->PODAT/100))*10000,-2),"@E 999,999,999")
  8. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  9. Opn=if(M->_OPAK,"Il.op","─────")
  10. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  11. * ew. [INDEKS->OPIS_TOWAR]
  12.  
  13. #NAGLOWEK
  14. [M->ADR]
  15. #POZYCJE
  16. ┌[KOD_TOWARU ]────────────[M->NIP     ]┐
  17. │[Naz                                 ]│
  18. ├Cena netto─┬──Vat┬─Cena brutto──┬[Opn]┤
  19. │[Cn      ] │     │ [Czv      ]  │[Op1]│
  20. ├Cena st.zê─┤ [V]%├─Cena br.st.zê┤     │
  21. │[Scn     ] │     │ [Scv      ]  │     │
  22. └───────────┴─────┴──────────────┴─────┘
  23. #SUMY
  24. #KONIEC
  25.