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  |  8KB  |  124 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,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=if(M->_WFO,"",alltrim(OBRGL->INFO))
  13. Bnk=len10(M->_S0,43)
  14. Knt=len10(M->_S1,43)
  15. Kkn=KONTRAH->KONTRAHENT
  16. Np =len10(KONTRAH->NAZWA_PLAT,80)
  17. Ap =len10(KONTRAH->ADRES_PLAT,80)
  18. Npp=KONTRAH->NIP
  19. No =len10(if(empty(KONTRAH->NAZWA_KONT),"Jak nabywca",KONTRAH->NAZWA_KONT),46)
  20. Ao =len10(KONTRAH->ADRES_KONT,46)
  21. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  22. Tpt=dtoc(OBRGL->TERM_PLAT)
  23. Cdp=if(S->HL,"C.detal z p.","            ")
  24. Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.",repl("─",12))
  25. A8 =space(85-len(M->Adr))
  26. Ntb=if(_MPODAT,"BRUTTO","NETTO ")
  27. Brn=if(_MPODAT,"netto","brut.")
  28. V1 =str(S->VATP1,2)
  29. V2 =str(S->VATP2,2)
  30. V3 =str(S->VATP3,2)
  31. V4 =str(S->VATP4,2)
  32.  
  33. L  =str(Lpd,3)
  34. Naz=len10(INDEKS->NAZ_TOWARU,70)
  35. Opim=len10(substr(OPIS,1,27),27)
  36. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  37. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1),"      ")
  38. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  39. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 999999.99"),str(M->ilosc_pocz,9))
  40. Mrp=transform(MARZA_P,"@E 999.9")
  41. Cbm=transform(M->cp_bm,"@E 9999,999.99")
  42. Cn =transform(M->cp_op,"@E 9999,999.99")
  43. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  44. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  45. Vw =transform(M->vat,"@E 9999,999.99")
  46. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 9999,999.99")
  47. Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 999,999,999.99")
  48. Cdv=if(S->HL,transform(cd_dv,"@E 9999,999.99"),"")
  49.  
  50. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  51. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  52. Rbrutto =transform(M->swcp_zv-if(_MPODAT,M->svat7+M->svat12+M->svat22,0),"@E 999,999,999.99")
  53. Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999,999.99")
  54. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  55. Rbrutto22=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999,999.99")
  56. Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999,999.99")
  57. Rvat12  =transform(M->svat12,"@E 9999,999.99")
  58. Rbrutto12=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999,999.99")
  59. Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999,999.99")
  60. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  61. Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,M->svat7),"@E 999,999,999.99")
  62. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  63. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  64. DozPoZ  =transform(M->kwotaDoZ,"@E 999,999,999.99")
  65. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  66. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci :","Kwota zmniejszenia wartoÿci:"),"")
  67. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),"")
  68. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv),"@E 9999,999,999.99")+" zê","")
  69. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê","")
  70. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,7,2)+" kG",""),30)
  71. Sil=len10("Razem iloÿå:"+str(M->Silosc,8,2),30)
  72. Sp2=len10(if(M->_OPAK,"Razem opak.:"+str(M->Sprzel2,8,2),''),30)
  73. * Znaki sterujace drukarek do wykorzystania we wzorcu *
  74. * chr(15)+        " Druk zageszczony          "+chr(18)
  75. * chr(14)+        " Podwojna szerokosc znakow "+chr(20)
  76. * chr(27)+chr(91)+" Podwojna wysokosc znakow  "+chr(27)+chr(51)
  77. * chr(27)+chr(92)+" Podw. szerokosc i wysokosc"+chr(27)+chr(51)
  78. * chr(27)+chr(69)+" Grube pismo               "+chr(27)+chr(70)
  79. #NAGLOWEK
  80.       [Rdok                             ] Nr:[Nr    ]            Z dnia: [dn    ]                                            Str:[S]
  81.                               [Ok       ]                Data sprzeda╛y: [dns   ]                                     WZ Nr:[Nrm   ]
  82. [Ifg]
  83. ┌ SPRZEDAWCA:──────────────────────────────────────────────────────────────────────────┬ BANK: ────────────────────────────────────┐
  84. │ [M->ADR                                                                         ][A8]│[Bnk                                      ]│
  85. │ [len10(M->ADR1,80)                                                             ]     │[Knt                                      ]│
  86. └ NIP:[M->Nip     ] ───────────────────────────────────────────────────────────────────┴───────────────────────────────────────────┘
  87.  
  88. ┌ NABYWCA: [Kkn   ] ──────────────────────────────────────────────────────────────┬ ODBIORCA: ─────────────────────────────────────┐
  89. │ [Np                                                                            ]│ [No                                          ] │
  90. │ [Ap                                                                            ]│ [Ao                                          ] │
  91. └ NIP:[Npp        ] ──────────────────────────────────────────────────────────────┴────────────────────────────────────────────────┘
  92.   REGON:[KONTRAH->REGON]
  93.   Sposób zapêaty : [Szp                    ]                                        Termin pêatnoÿci: [Tpt   ]
  94. ┌──┬─────────────┬─────────────┬───────────────────────────────────────────────────────────────────────────┬──────────┬────────────┐
  95. │Lp│Kod towaru   │SWW          │Nazwa towaru                                                               │Il.w opak.│Il.opak.    │
  96. │  ├─────────────┴─────────────┼─────┬───────┬─────┬────────────┬────────────┬────┬─────────┬──────────────┼──────────┼────────────┤
  97. │  │Opis/Nr seryjny            │j.m  │  Iloÿå│Mar╛a│CENA [Ntb ] │WART.[Ntb ] │VAT%│ Podatek │ Wartoÿå [Brn]│Cena [Brn]│[Cdp       ]│
  98. └──┴───────────────────────────┴─────┴───────┴─────┴[Ups       ]┴────────────┴────┴─────────┴──────────────┼──────────┴────────────┘
  99. [Ifp]
  100. #POZYCJE
  101. [L] [KOD_TOWARU ] [INDEKS->SWW] [Naz                                                                 ]     │   [Op1 ]     [Op2 ]
  102.     [Opim                     ] [Jm ][Ilo    ][Mrp][Cn       ] [Wn          ] [V][Vw       ] [Wzv         ]│[Czv      ][Cdv      ]
  103. #SUMY
  104.                                                                                                            │
  105.                                                               ┌──────────────┬──┬───────────┬──────────────┤
  106. [Wag                         ]                         RAZEM: │[Rnetto      ]│  │[Rvat     ]│[Rbrutto     ]│
  107. [Sil                         ]                                ├──────────────┼──┼───────────┼──────────────┤
  108. [Sp2                         ]                         W tym: │[Rnetto22    ]│[V3]│[Rvat22   ]│[Rbrutto22   ]│
  109.                                                               │[Rnetto12    ]│[V4]│[Rvat12   ]│[Rbrutto12   ]│
  110.                                                               │[Rnetto7     ]│[V2]│[Rvat7    ]│[Rbrutto7    ]│
  111.                                                               │[Rnetto0     ]│[V1]│           │[Rnetto0     ]│
  112.                                                               │[RnettoZw    ]│Zw│           │[RnettoZw    ]│
  113.                                                               └──────────────┴──┴───────────┴──────────────┘
  114.                                                               Do zapêaty (po zaokrÑgleniu)  :[DozPoZ      ]
  115. [Rwp                       ][Kwp         ] [Rwf                       ][Kwf             ]
  116. ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
  117. │[len10(slownie(M->kwotaDoZ),130)                                                                                                 ]│
  118. └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
  119. Osoba upowa╛niona do wystawienia                   Wydaê :        Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
  120. [Rdk]
  121. [Opr                 ] podpis.................     podpis......   [No                                          ]
  122. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  123. #KONIEC
  124.