home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RCNETTO.DOK < prev    next >
Text File  |  1997-10-14  |  5KB  |  81 lines
  1. *SPOZ
  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. dns=dtoc(OBRGL->DATA_SPRZ)
  8. S  =str(M->str,3)
  9. Ok =if(M->_R_LBL,"        ",if(OBRGL->SW,"KOPIA   ","ORYGINA¥"))
  10. Bnk=len10(M->_S0,43)
  11. Knt=len10(M->_S1,40)
  12. Kkn=KONTRAH->KONTRAHENT
  13. Ntb=if(_MPODAT,"BRUTTO","NETTO ")
  14. Brn=if(_MPODAT,"  netto","z podat")
  15. V1 =str(S->VATP1,2)
  16. V2 =str(S->VATP2,2)
  17. V3 =str(S->VATP3,2)
  18. V4 =str(S->VATP4,2)
  19.  
  20. L  =str(Lpd,3)
  21. Naz=substr(INDEKS->NAZ_TOWARU,1,27)
  22. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  23. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 99999.99"),str(M->ilosc_pocz,8))
  24. Cn =transform(M->cp_op,"@E 9999,999.99")
  25. Wn =transform(M->wcp_op,"@E 99,999,999.99")
  26. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  27. Vw =transform(M->vat,"@E 9999,999.99")
  28. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 9999,999.99")
  29. Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 999,999,999.99")
  30.  
  31. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  32. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  33. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  34. Rbrutto =if(_MPODAT,space(14),transform(M->swcp_zv,"@E 999,999,999.99"))
  35. Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999,999.99")
  36. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  37. Rbrutto22=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999,999.99")
  38. Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999,999.99")
  39. Rvat12  =transform(M->svat12,"@E 9999,999.99")
  40. Rbrutto12=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999,999.99")
  41. Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999,999.99")
  42. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  43. Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,M->svat7),"@E 999,999,999.99")
  44. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  45. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  46. DozPoZ  =transform(M->kwotaDoZ,'@E 999,999,999.99')
  47. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  48. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci netto:","Kwota zmniejszenia wartoÿci netto:"),"")
  49. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),"")
  50. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv)-abs(M->svat7+M->svat12+M->svat22),"@E 9999,999,999.99")+" zê","")
  51. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê","")
  52.  
  53. #NAGLOWEK
  54.   [Rdok                             ] Nr:[Nr    ]   Z dnia: [dn    ]
  55. --SPRZEDAWCA:------------------------------------------------------------------------- NIP:[M->Nip     ] --------- Str:[S] 
  56.   [M->ADR]
  57.   [len10(M->ADR1,80)]
  58. [repl("-",125)]
  59. |Lp| Nazwa towaru              |SWW          |  Iloÿå|j.m  |CENA [Ntb ] WAR.[Ntb ] |VAT%| Podatek | Wart. [Brn  ]|Cena [Brn ]
  60. [repl("-",125)]
  61. #POZYCJE
  62. [L] [Naz                      ] [INDEKS->SWW][Ilo    ] [Jm ][Cn       ][Wn        ] [V][Vw       ] [Wzv         ]|[Czv      ]
  63. #SUMY                                                      
  64.                                                                     _____________________________________________|
  65. [Wag                         ]                               RAZEM: |[Rnetto      ]|  |[Rvat     ]|[Rbrutto     ]|
  66.                                                              W tym: |[Rnetto22    ]|[V3]|[Rvat22   ]|[Rbrutto22   ]|
  67.                                                                     |[Rnetto12    ]|[V4]|[Rvat12   ]|[Rbrutto12   ]|
  68.                                                                     |[Rnetto7     ]|[V2]|[Rvat7    ]|[Rbrutto7    ]|
  69.                                                                     |[Rnetto0     ]|[V1]|           |[Rnetto0     ]|
  70.                                                                     |[RnettoZw    ]|Zw|           |[RnettoZw    ]|
  71.                                                                     ----------------------------------------------
  72.                                                                     Do zapêaty (po zaokrÑgleniu)  :[DozPoZ      ]
  73. [Rwp                       ][Kwp         ] [Rwf                       ][Kwf             ]
  74. [len10(slownie(M->kwotaDoZ),120)]
  75. [repl("-",125)]
  76. Osoba upowa╛niona do wystawienia                  Wydaê :        
  77. [Rdk]
  78. [Opr                 ] podpis  ..............     podpis......   
  79. SporzÑdzono w systemie PCVATMAN (C) ZTK BITAM
  80. #KONIEC
  81.