home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RAS.DOK < prev    next >
Text File  |  1997-11-15  |  6KB  |  106 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,20)
  8. dn =dtoc(OBRGL->DATA)
  9. dns=rtrim(slownik("S_K","MIESIACE  "+str(month(OBRGL->DATA_SPRZ),2)))+' '+substr(dtos(OBRGL->DATA_SPRZ),1,4)
  10. *dns=dtoc(OBRGL->DATA_SPRZ)
  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.or.empty(OBRGL->INFO),"   |                           |                                                           |    |           |",alltrim(OBRGL->INFO))
  15. Bnk=len10(M->_S0,43)
  16. Knt=len10(M->_S1,40)
  17. Kkn=KONTRAH->KONTRAHENT
  18. Np =len10(KONTRAH->NAZWA_PLAT,50)
  19. Ap =len10(KONTRAH->ADRES_PLAT,50)
  20. Npp=KONTRAH->NIP
  21. No =len10(KONTRAH->NAZWA_KONT,50)
  22. Ao =len10(KONTRAH->ADRES_KONT,46)
  23. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  24. Tpt=dtoc(OBRGL->TERM_PLAT)
  25. Cdp=if(S->HL,"C.det.z VAT","")
  26. Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.","------------")
  27. Ntb=if(_MPODAT,"BRUTTO","NETTO ")
  28. Brn=if(_MPODAT,"netto","z pod.")
  29. Y  =if(_MPODAT," - "," + ")
  30. V1 =str(S->VATP1,2)
  31. V2 =str(S->VATP2,2)
  32. V3 =str(S->VATP3,2)
  33. V4 =str(S->VATP4,2)
  34.  
  35. L  =str(Lpd,3)
  36. Naz=len10(substr(INDEKS->NAZ_TOWARU,1,59),59)
  37. Opn=if(M->_OPAK,"Il:w op. opak.","  Uwagi")
  38. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  39. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1),"")
  40. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  41. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 999999.99"),str(M->ilosc_pocz,9))
  42. Mrp=transform(MARZA_P,"@E 999.9")
  43. Cbm=transform(M->cp_bm,"@E 9999,999.99")
  44. Cn =transform(M->cp_op,"@E 9999,999.99")
  45. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  46. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  47. Vw =transform(M->vat,"@E 9999,999.99")
  48. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 999,999.99")
  49. Wzv=transform(M->wcp_zv,"@E 99,999,999.99")
  50.  
  51. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  52. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  53. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  54. Rbrutto =transform(M->swcp_zv,"@E 999,999,999.99")
  55. Rnetto22=transform(M->swcp_op22,"@E 99,999,999.99")
  56. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  57. Rbrutto22=transform(M->swcp_op22+M->svat22,"@E 99,999,999.99")
  58. Rnetto7 =transform(M->swcp_op7,"@E 99,999,999.99")
  59. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  60. Rbrutto7=transform(M->swcp_op7+M->svat7,"@E 99,999,999.99")
  61. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  62. RnettoZw=transform(M->swcp_opZw,"@E 9999,999.99")
  63. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  64. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci :","Kwota zmniejszenia wartoÿci:"),"")
  65. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),"")
  66. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv),"@E 9999,999,999.99")+" zê","")
  67. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê","")
  68. Kop=if(OBRGL->MARZA_D<>0,"Opust  :"+transform(M->swcp-M->swcp_op,"@E 999,999,999.99"),"")
  69. #NAGLOWEK
  70. SPRZEDAWCA:__________________________________________________ NIP:[M->Nip     ]_____________________________________________[Bon]
  71. [M->ADR]
  72. [M->ADR1]
  73. [Bof]____________________________________________________________ Str:[S  ]_________________________________________________
  74. [Bon][Rdok                             ]Nr:[Nrm   ][Bof]   Z dnia: [dn    ] Data sprzeda╛y: [dns   ]
  75.                               [Ok    ]
  76. [Ifg]
  77. NABYWCA : [Np                                              ]  Identyfikator : [Kkn   ]   NIP  :[Npp        ]
  78.           [Ap                                              ]                             REGON:[KONTRAH->REGON]
  79. ODBIORCA: [No                                              ]  [Ao                                          ]
  80. Sposób zapêaty : [Szp                    ]                    Termin pêatnoÿci: [Tpt   ]
  81.        Bank    : [Bnk                                      ]  Konto: [Knt                                   ]
  82. [repl("_",125)]
  83.    |Kod towaru    SWW          |Nazwa towaru                                                                |[Opn         ]
  84. Poz|Opis                       |j.m     Iloÿå      Cena    Rab.% CENA [Ntb ]    WART.[Ntb ]|VAT%|  Podatek  |Cena [Brn] 
  85. ---|---------------------------|--------------------------------[Ups       ]---------------|----|-----------|---------------
  86. [Ifp]
  87. #POZYCJE
  88. [L]|[KOD_TOWARU ] [INDEKS->SWW]|[Naz                                                      ]|    |           |[Op1 ]  [Op2 ]
  89.    |[len10(OPIS,27)           ]|[Jm ][Ilo    ] [Cbm      ] [Mrp] [Cn       ] [Wn          ]| [V]|[Vw       ]|[Czv      ]
  90. #SUMY
  91. ___|___________________________|___________________________________________________________|____|___________|
  92.    |________[V3]%__|________[V2]%__|_________[V1]%__|______Zw.__|           Razem :[Rnetto      ]|
  93. Net|[Rnetto22   ]|[Rnetto7    ]|[Rnetto0     ]|[RnettoZw ]|          [y]VAT :   [Rvat     ]|
  94. VAT|  [Rvat22   ]|  [Rvat7    ]|              |           |________________________________|
  95. Bru|[Rbrutto22  ]|[Rbrutto7   ]|[Rnetto0     ]|[RnettoZw ]|      Do zapêaty :[Bon][Rbrutto     ][Bof]   [Kop                 ]
  96.    |_____________|_____________|______________|___________|
  97. [Wag                         ] [Rwp                       ][Kwp         ] [Rwf                       ][Kwf             ]
  98. [repl("-",120)]
  99. [len10(slownie(M->swcp_zv),132)]
  100. [repl("-",120)]
  101. Osoba upowa╛niona do wystawienia                   Wydaê :        Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
  102. [Rdk]
  103. [Opr                 ] podpis.................     podpis......   [No                                          ]
  104. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  105. #KONIEC
  106.