home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RA.DOK < prev    next >
Text File  |  1997-11-15  |  6KB  |  98 lines
  1. *SPOZ
  2. #DEFINICJE
  3. Bon=chr(27)+chr(69)
  4. Bof=chr(27)+chr(70)
  5. Nr =len10(ltrim(str(M->nr_dok,5)),8)
  6. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  7. Rdk =substr(slownik("S_K","KOD_DOK   "+OBRGL->KOD_DOK),1,30)
  8. dn =dtoc(OBRGL->DATA)
  9. *dns=dtoc(OBRGL->DATA_SPRZ)
  10. dns=rtrim(slownik("S_K","MIESIACE  "+str(month(OBRGL->DATA_SPRZ),2)))+' '+substr(dtos(OBRGL->DATA_SPRZ),1,4)
  11. S  =str(M->str,3)
  12. Ok =if(M->_R_LBL,"        ",if(OBRGL->SW,"KOPIA   ","ORYGINA¥"))
  13. Ifg=if(M->_WFO,alltrim(OBRGL->INFO),"")
  14. Ifp=if(M->_WFO,"",alltrim(OBRGL->INFO))
  15. Bnk=len10(M->_S0,43)
  16. Knt=len10(M->_S1,40)
  17. No =len10(if(empty(KONTRAH->NAZWA_KONT),".........",KONTRAH->NAZWA_KONT),46)
  18. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  19. Tpt=dtoc(OBRGL->TERM_PLAT)
  20. Ntb=if(_MPODAT,"BRUTTO","NETTO ")
  21. Brn=if(_MPODAT,"netto","z pod")
  22. V1 =str(S->VATP1,2)
  23. V2 =str(S->VATP2,2)
  24. V3 =str(S->VATP3,2)
  25. V4 =str(S->VATP4,2)
  26.  
  27. L  =str(Lpd,3)
  28. Naz=substr(INDEKS->NAZ_TOWARU,1,27)
  29. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  30. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 9999.999"),str(M->ilosc_pocz,8))
  31. Cn =transform(M->cp_op,"@E 999,999.99")
  32. Wn =transform(M->wcp_op,"@E 9,999,999.99")
  33. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  34. Vw =transform(M->vat,"@E 999,999.99")
  35. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 999,999.99")
  36. Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 999,999,999.99")
  37.  
  38. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  39. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  40. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 999,999.99")
  41. Rbrutto =transform(M->swcp_zv-if(_MPODAT,M->svat7+M->svat12+M->svat22,0),"@E 999,999,999.99")
  42. Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999,999.99")
  43. Rvat22  =transform(M->svat22,"@E 999,999.99")
  44. Rbrutto22=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999,999.99")
  45. Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999,999.99")
  46. Rvat12  =transform(M->svat12,"@E 999,999.99")
  47. Rbrutto12=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999,999.99")
  48. Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999,999.99")
  49. Rvat7   =transform(M->svat7,"@E 999,999.99")
  50. Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,M->svat7),"@E 999,999,999.99")
  51. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  52. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  53. DozPoZ  =transform(M->kwotaDoZ,'@E 999,999,999.99')
  54. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  55. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci netto:","Kwota zmniejszenia wartoÿci netto:"),space(34))
  56. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),space(28))
  57. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv)-abs(M->svat7+M->svat12+M->svat22),"@E 9999,999,999.99")+" zê",space(18))
  58. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê",space(14))
  59. Kop=if(OBRGL->MARZA_D<>0,"Opust  :"+transform(M->swcp-M->swcp_op,"@E 999,999,999.99"),space(22))
  60.  
  61. #NAGLOWEK
  62. [Bon]SPRZEDAWCA:
  63. [M->ADR]
  64. [M->ADR1]
  65. NIP:[M->Nip][Bof]
  66. Bank:[Bnk                                      ] Konto:[Knt                                   ]
  67.  
  68. [Bon][Rdok                             ] Nr:[Nr    ][Bof]  Z dnia: [dn    ] Data sprzeda╛y: [dns   ] Str:[S]
  69.                                     [Bon][Ok    ][Bof]
  70. [Ifg]
  71. NABYWCA:
  72.       [KONTRAH->NAZWA_PLAT]NIP:[KONTRAH->NIP] REGON:[KONTRAH->REGON]
  73.       [KONTRAH->ADRES_PLAT][Bof]
  74.       Sposób zapêaty : [Szp                    ]        Termin pêatnoÿci: [Tpt   ]                                       WZ Nr:[Nrm   ]
  75. +--+----------------------------------------+-------------+-------------+----------------------+----+--------+--------------+----------+
  76. |Lp|Kod towaru    Nazwa towaru              |SWW          |  Iloÿå j.m  |CENA [Ntb ] WAR.[Ntb ]|VAT%| Podatek| Wart. [Brn]  |Cena [Brn]|
  77. +--+----------------------------------------+-------------+-------------+----------------------+----+--------+--------------+----------+
  78. [Ifp]
  79. #POZYCJE
  80. [L] [KOD_TOWARU ] [Naz                      ] [INDEKS->SWW][Ilo    ] [Jm ][Cn      ][Wn       ] [V][Vw      ] [Wzv         ]|[Czv     ]
  81. #SUMY                                                      
  82.                                                                                 +--------------+--+----------+--------------+
  83. [Wag                         ]                                           RAZEM: |[Rnetto      ]|  |[Rvat    ]|[Rbrutto     ]|
  84. [Kop                 ]                                                   W tym: |[Rnetto22    ]|[V3]|[Rvat22  ]|[Rbrutto22   ]|
  85.                                                                                 |[Rnetto12    ]|[V4]|[Rvat12  ]|[Rbrutto12   ]|
  86. [Rwp                       ][Kwp         ]                                      |[Rnetto7     ]|[V2]|[Rvat7   ]|[Rbrutto7    ]|
  87. [Rwf                             ][Kwf             ]                            |[Rnetto0     ]|[V1]|          |[Rnetto0     ]|
  88.                                                                                 |[RnettoZw    ]|Zw|          |[RnettoZw    ]|
  89.                                                                                 +--------------+-------------+--------------+
  90.                                                                                 Do zapêaty (po zaokrÑgleniu) :[DozPoZ      ]
  91. [len10(slownie(M->kwotaDoZ),128)]
  92. [repl("-",128)]
  93. Osoba upowa╛niona do wystawienia                Wydaê :        Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
  94. [Rdk]
  95. [Opr                 ] podpis..............     podpis......   [No                                          ]
  96. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  97. #KONIEC
  98.