home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RAMALY_.DOK < prev    next >
Text File  |  1997-11-15  |  7KB  |  104 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,40)
  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),50)
  20. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  21. Tpt=dtoc(OBRGL->TERM_PLAT)
  22. A8 =space(85-len(M->Adr))
  23. Ntb=if(_MPODAT,"BRUT.","NETTO")
  24. Brn=if(_MPODAT,"netto","z pod")
  25. V1 =str(S->VATP1,2)
  26. V2 =str(S->VATP2,2)
  27. V3 =str(S->VATP3,2)
  28. V4 =str(S->VATP4,2)
  29.  
  30. L  =str(Lpd,3)
  31. Naz=substr(INDEKS->NAZ_TOWARU,1,27)
  32. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 99999.99"),str(M->ilosc_pocz,8))+'/'+substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  33. Cn =transform(M->cp_op,"@E 9999,999.99")
  34. Wn =transform(M->wcp_op,"@E 99,999,999.99")
  35. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  36. Vw =transform(M->vat,"@E 9999,999.99")
  37. Czv=transform(if(_MPODAT,M->cp_zv/(1+VAT_P/100),M->cp_zv),"@E 9999,999.99")
  38. Wzv=transform(if(_MPODAT,M->wcp_zv/(1+VAT_P/100),M->wcp_zv),"@E 99,999,999.99")
  39.  
  40. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  41. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  42. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  43. Rbrutto =transform(M->swcp_zv-if(_MPODAT,M->svat7+M->svat12+M->svat22,0),"@E 999,999,999.99")
  44. Rnetto22=transform(M->swcp_op22+if(M->_MPODAT,M->svat22,0),"@E 999,999,999.99")
  45. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  46. Rbrutto22=transform(M->swcp_op22+if(M->_MPODAT,0,M->svat22),"@E 999,999,999.99")
  47. Rnetto12=transform(M->swcp_op12+if(M->_MPODAT,M->svat12,0),"@E 999,999,999.99")
  48. Rvat12  =transform(M->svat12,"@E 9999,999.99")
  49. Rbrutto12=transform(M->swcp_op12+if(M->_MPODAT,0,M->svat12),"@E 999,999,999.99")
  50. Rnetto7 =transform(M->swcp_op7+if(M->_MPODAT,M->svat7,0),"@E 999,999,999.99")
  51. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  52. Rbrutto7=transform(M->swcp_op7+if(M->_MPODAT,0,M->svat7),"@E 999,999,999.99")
  53. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  54. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  55. DozPoZ  =transform(M->kwotaDoZ,'@E 999,999,999.99')
  56. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,22)
  57. Rwf=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia wartoÿci netto:","Kwota zmniejszenia wartoÿci netto:"),"")
  58. Rwp=if(kod_dok$"KSKU",if(M->swcp_zv>0,"Kwota zwi⌐kszenia podatku  :","Kwota zmniejszenia podatku :"),"")
  59. Kwf=if(kod_dok$"KSKU",transform(abs(M->swcp_zv)-abs(M->svat7+M->svat12+M->svat22),"@E 9999,999,999.99")+" zê","")
  60. Kwp=if(kod_dok$"KSKU",transform(abs(M->svat7+M->svat12+M->svat22),"@E 9999,999.99")+" zê","")
  61.  
  62. #NAGLOWEK
  63.   [Rdok                             ] Nr:[Nr    ]   Z dnia: [dn    ] Str:[S]
  64.                          [Ok    ]           Data sprzeda╛y: [dns   ] WZ Nr:[Nrm   ]
  65. [Ifg]
  66. ┌ SPRZEDAWCA:──────────────────────────────────────────────────────────────────────────┐
  67. │ [M->ADR                                                                         ][A8]│
  68. │ [len10(M->ADR1,80)                                                             ]     │
  69. └ NIP:[M->Nip     ] ───────────────────────────────────────────────────────────────────┘
  70. ┌ NABYWCA: [Kkn   ] ───────────────────────────────────────────────────────────────────┐
  71. │ [Np                                                                            ]     │
  72. │ [Ap                                                                            ]     │
  73. └ NIP:[Npp        ] ───────────────────────────────────────────────────────────────────┘
  74.   REGON:[KONTRAH->REGON]
  75.   Sposób zapêaty : [Szp                    ]         Termin pêatnoÿci: [Tpt   ]
  76.          Bank    : [Bnk                                      ]  Konto: [Knt                                   ]
  77. ┌──┬───────────────────────────┬─────────────┬─────────────┬──────────┬────────────┬────┬─────────┬──────────────┬──────────┐
  78. │Lp│ Nazwa towaru              │SWW          │  Iloÿå/Jm   │CENA [Ntb]│WART. [Ntb] │VAT%│ Podatek │ Wartoÿå [Brn]│Cena [Brn]│
  79. └──┴───────────────────────────┴─────────────┴─────────────┴──────────┴────────────┴────┴─────────┴──────────────┼──────────┘
  80. [Ifp]
  81. #POZYCJE
  82. [L] [Naz                      ] [INDEKS->SWW][Ilo          ][Cn       ][Wn        ] [V][Vw       ]  [Wzv        ]│[Czv      ]
  83. #SUMY
  84.                                                                                                                  │
  85.                                                                     ┌──────────────┬──┬───────────┬──────────────┤
  86. [Wag                         ]                               RAZEM: │[Rnetto      ]│  │[Rvat     ]│[Rbrutto     ]│
  87.                                                                     ├──────────────┼──┼───────────┼──────────────┤
  88.                                                              W tym: │[Rnetto22    ]│[V3]│[Rvat22   ]│[Rbrutto22   ]│
  89.                                                                     │[Rnetto12    ]│[V4]│[Rvat12   ]│[Rbrutto12   ]│
  90.                                                                     │[Rnetto7     ]│[V2]│[Rvat7    ]│[Rbrutto7    ]│
  91.                                                                     │[Rnetto0     ]│[V1]│           │[Rnetto0     ]│
  92.                                                                     │[RnettoZw    ]│Zw│           │[RnettoZw    ]│
  93.                                                                     └──────────────┴──┴───────────┴──────────────┘
  94.                                                                     Do zapêaty (po zaokrÑgleniu)  :[DozPoZ      ]
  95. [Rwp                       ][Kwp         ] [Rwf                       ][Kwf             ]
  96. ┌──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┐
  97. │[len10(slownie(M->kwotaDoZ),122)                                                                                         ]│
  98. └──────────────────────────────────────────────────────────────────────────────────────────────────────────────────────────┘
  99. Osoba upowa╛niona do wystawienia                 Wydaê :        Odebraêem i akceptuj⌐ powy╛szy dokument(osoba upowa╛niona)
  100. [Rdk]
  101. [Opr                 ] podpis.................   podpis......   [No                                          ]
  102. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  103. #KONIEC
  104.