home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RAD.DOK < prev    next >
Text File  |  1997-11-15  |  7KB  |  110 lines
  1. *SPOZ,SYSTEM=....,SORT=[INDEKS->NAZ_TOWARU]
  2. #DEFINICJE 
  3. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  4. Rdk=substr(slownik("S_K","KOD_DOK   "+OBRGL->KOD_DOK),1,20)
  5. dn =dtoc(OBRGL->DATA)
  6. dns=rtrim(slownik("S_K","MIESIACE  "+str(month(OBRGL->DATA_SPRZ),2)))+' '+substr(dtos(OBRGL->DATA_SPRZ),1,4)
  7. *dns=dtoc(OBRGL->DATA_SPRZ)
  8. S  =str(M->str,3)
  9. Ok =if(M->_R_LBL,"        ",if(OBRGL->SW,"KOPIA   ","ORYGINA¥"))
  10. Ifg=if(M->_WFO,alltrim(OBRGL->INFO),"")
  11. Ifp=len10(if(M->_WFO,"",OBRGL->INFO),117)
  12. Bnk=len10(M->_S0,43)
  13. Knt=len10(M->_S1,40)
  14. Kkn=KONTRAH->KONTRAHENT
  15. Np =len10(KONTRAH->NAZWA_PLAT,66)
  16. Ap =len10(KONTRAH->ADRES_PLAT,66)
  17. Npp=KONTRAH->NIP
  18. No =len10(if(empty(KONTRAH->NAZWA_KONT),"Jak nabywca",KONTRAH->NAZWA_KONT),50)
  19. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  20. Tpt=dtoc(OBRGL->TERM_PLAT)
  21. Tof=if(OBRGL->FORMA_PLAT="G",""," ")
  22. Ntb=if(_MPODAT,"Brut.","Netto")
  23. Brn=if(_MPODAT,"netto","brut.")
  24. X  =if(_MPODAT,"= |","+ |")
  25. Ups=if(OBRGL->MARZA_D<>0,"z "+str(OBRGL->MARZA_D,4,1)+"%up.",repl("-",9)+'+')
  26. V1 =str(S->VATP1,2)
  27. V2 =str(S->VATP2,2)
  28. V3 =str(S->VATP3,2)
  29. V4 =str(S->VATP4,2)
  30.  
  31. L  =str(Lpd,3)
  32. Naz=len10(substr(rtrim(INDEKS->NAZ_TOWARU)+' '+rtrim(OPIS),1,50),50)
  33. Swk=if(VAT_P=22,KOD_TOWARU,INDEKS->SWW)
  34. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 9999.999"),str(M->ilosc_pocz,8))+' '+substr(slownik("S_K","JM        "+INDEKS->JM),1,4)
  35. Cn =transform(M->cp_op,"@E 99999.99")
  36. Wn =transform(M->wcp_op,"@E 9999999.99")
  37. V  =" "+if(INDEKS->ZWOL,"Zw",str(VAT_P,2))
  38. Vw =transform(M->vat,"@E 999999.99")
  39. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 9999.99")
  40. Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 99999999.99")
  41. Mrp=if(MARZA_P=0,'',transform(MARZA_P,"@E 999.9"))
  42.  
  43. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  44. Rnetto  =transform(M->swcp_op,"@E 999,999.99")
  45. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 999999.99")
  46. Rbrutto =transform(M->swcp_zv-if(_MPODAT,M->svat7+M->svat12+M->svat22,0),"@E 999,999.99")
  47. Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999.99")
  48. Rvat22  =transform(M->svat22,"@E 999999.99")
  49. Rbrutto2=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999.99")
  50. Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999.99")
  51. Rvat12  =transform(M->svat12,"@E 999999.99")
  52. Rbrutto1=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999.99")
  53. Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999.99")
  54. Rvat7   =transform(M->svat7,"@E 999999.99")
  55. Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,M->svat7),"@E 999,999.99")
  56. Rnetto0 =transform(M->swcp_op0,"@E 999,999.99")
  57. RnettoZw=transform(M->swcp_opZw,"@E 999,999.99")
  58. DozPoZ  =transform(M->kwotaDoZ,'@E 999,999,999.99')
  59. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  60. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci netto :","Kwota zmniejszenia wartoÿci netto:"),space(34))
  61. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),space(28))
  62. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv)-abs(M->svat7+M->svat12+M->svat22),"@E 9999,999,999.99")+" zê",space(15))
  63. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê",space(11))
  64. Kop=if(OBRGL->MARZA_D<>0 .or. M->smarza<>0,"Opusty razem :"+transform(M->swcp_bm-M->swcp_op,"@E 99,999.99"),space(23))
  65. Sil=len10("Suma iloÿci  : "+str(M->Silosc,9,3),30)
  66. Sp2=len10("Suma opakowaΣ: "+str(M->Sprzel2,9,3),30)
  67. mes="PodstawÑ nalicz.podatku sÑ ceny "+if(_MPODAT,"brutto","netto")+". Zgodnie z rozporz. Min.Fin. ceny i wartoÿci "+if(.not._MPODAT,"brutto","netto")+" oraz podatek na pozycjach faktury, majÑ tylko znaczenie informacyjne."
  68.  
  69. #NAGLOWEK
  70. SPRZEDAWCA:
  71. [chr(14)][M->ADR][chr(20)]
  72. [chr(14)][M->ADR1][chr(20)]
  73. NIP:[M->NIP     ]
  74. [repl("-",134)]
  75. [chr(14)][Rdok                             ] Nr:[Nrm   ][chr(20)]   Z dnia:[dn    ] Data sprzeda╛y:[dns   ] Str:[S]
  76.                                         [Ok       ]
  77.  NABYWCA : [Np                                                              ]      Identyfikator :[Kkn   ] NIP:[Npp        ]
  78.            [Ap                                                              ]                              REGON:[KONTRAH->REGON]
  79.            [Ifg]
  80.  Sposób zapêaty : [Szp                    ]                    Termin pêatnoÿci: [Tpt   ]
  81.         Bank    : [Bnk                                      ]  Konto: [Knt                                   ]
  82.  Za termin zaplaty przyjmuje si⌐ dat⌐ wpêywu nale╛noÿci na konto sprzedawcy. Za ka╛dy dzieΣ zwêoki zostanÑ naliczone odsetki
  83.  w wysokoÿci [str(S->ODSETKI_KN,4,2)]% za ka╛dy dzieΣ zwêoki. 
  84. +--+--------------------------------------------------+------------+-----------+--------+---------+---+--------+----------+------+----+
  85. |  |                                                  |            |           |  Cena  | Wartoÿå |VAT| Kwota  |  Wartoÿå | Cena | %  |
  86. |Lp|Nazwa towaru i opis                               |SWW/Kod tow.|Iloÿå/Jm   | [Ntb]  |   [Ntb] | % | podatku|    [Brn] | [Brn]|Mar.|
  87. +--+--------------------------------------------------+------------+-----------[Ups     ]---------+---+--------+----------+------+----+
  88. [Ifp                                                                                                                ]     |
  89. #POZYCJE
  90. [L] [Naz                                             ][Swk        ][Ilo        ][Cn    ][Wn      ] [V][Vw     ][Wzv      ]|[Czv  ][Mrp]
  91. #SUMY
  92.                                                                                        +----------+--+---------+----------|
  93.                                                                    Razem wg stawki:    |[Rnetto22]|[V3]|[Rvat22 ]|[Rbrutto2]|
  94.                                                                                        |[Rnetto12]|[V4]|[Rvat12 ]|[Rbrutto1]|
  95.                                                                                        |[Rnetto7 ]|[V2]|[Rvat7  ]|[Rbrutto7]|
  96.                                                                                        |[Rnetto0 ]|[V1]|         |[Rnetto0 ]|
  97.                                                                                        |[RnettoZw]|Zw|         |[RnettoZw]|
  98. [Kop                  ]                                                                +----------+--+---------+----------+
  99. [Wag                         ]                                                   RAZEM:|[Rnetto  ]|[X][Rvat   ]|[Rbrutto ]|
  100. [Sil                         ]                                                         +----------+--+---------+----------+
  101. [Sp2                         ]
  102. [Rwp                       ][Kwp      ] [Rwf                             ][Kwf          ] [chr(14)]Do zapêaty:[DozPoZ      ][chr(20)]
  103. [len10(slownie(M->kwotaDoZ),122)]
  104. [repl("-",122)]
  105. Osoba upowa╛niona do wystawienia              Wydaê :        Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
  106. [Rdk]
  107. [Opr                 ] podpis..............   podpis......   [No                                          ]
  108. SporzÑdzono w systemie PC VATMAN (C)ZTK BITAM
  109. #KONIEC
  110.