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