home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PA_BLAD.DOK < prev    next >
Text File  |  1996-12-12  |  6KB  |  113 lines
  1. #DEFINICJE
  2. Rzak=slownik("S_K","ST        "+OBRGL->ST)
  3. Kd ="  "+KOD_DOK
  4. Nr =len10(ltrim(str(M->nr_dok,5)),8)
  5. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  6. dn =dtoc(OBRGL->DATA)
  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=if(M->_WFO,"",alltrim(OBRGL->INFO))
  12. Kkn=KONTRAH->KONTRAHENT
  13. Np =len10(KONTRAH->NAZWA_PLAT,40)
  14. Ap =len10(KONTRAH->ADRES_PLAT,40)
  15. Npp=KONTRAH->NIP
  16. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  17. Tpt=dtoc(OBRGL->TERM_PLAT)
  18. V1 =str(S->VATP1,2)
  19. V2 =str(S->VATP2,2)
  20. V3 =str(S->VATP3,2)
  21. V4 =str(S->VATP4,2)
  22.  
  23. Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.",repl("_",12))
  24. Pzv=if(OBRGL->ST="V","Podatek Wart.z podat.",space(22))
  25.  
  26. L  =str(Lpd,3)
  27. Naz=substr(INDEKS->NAZ_TOWARU,1,40)
  28. Opim=len10(substr(OPIS,1,27),27)
  29. Opn=if(M->_OPAK,"Il:w op. opak.","              ")
  30. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  31. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1),"      ")
  32. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  33. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 999999.99"),str(M->ilosc_pocz,9))
  34. Cn =transform(M->cp_op,"@E 9999,999.99")
  35. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  36. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  37. Vw =if(OBRGL->ST="V",transform(M->vat,"@E 9999,999.99"),space(11))
  38. Wzv=if(OBRGL->ST="V",transform(M->wcp_zv,"@E 999,999,999.99"),space(14))
  39. Mrp=transform(MARZA_P,"@E 999.9")
  40.  
  41. Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
  42. Csv=transform(cs_zv,"@E 9999,999.99")
  43. Wce=transform(M->wcs,"@E 999,999,999.99")
  44. Wcv=transform(M->wcs_zv,"@E 999,999,999.99")
  45.  
  46. RnettoFv=transform(OBRGL->VAT0+OBRGL->VAT1+OBRGL->VAT2+OBRGL->VAT3+OBRGL->VAT4,"@E 999,999,999.99") 
  47. Rvat    =if(OBRGL->ST="V",transform(OBRGL->PODAT,"@E 9999,999.99"),space(11))
  48. Rbrutto =if(OBRGL->ST="V",transform(OBRGL->VAT0+OBRGL->VAT1+OBRGL->VAT2+OBRGL->VAT3+OBRGL->VAT4+ OBRGL->PODAT,"@E 999,999,999.99"),space(14))
  49. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  50. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  51. RvatObl =if(OBRGL->ST="V",transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99"),space(11))
  52. RbrObl  =if(OBRGL->ST="V",transform(M->swcp_zv,"@E 999,999,999.99"),space(14))
  53. Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
  54. Rvat22  =if(OBRGL->ST="V",transform(M->svat22,"@E 9999,999.99"),space(11))
  55. Rbrutto22=if(OBRGL->ST="V",transform(M->swcp_op22+M->svat22,"@E 999,999,999.99"),space(14))
  56. Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
  57. Rvat12  =if(OBRGL->ST="V",transform(M->svat12,"@E 9999,999.99"),space(11))
  58. Rbrutto12=if(OBRGL->ST="V",transform(M->swcp_op12+M->svat12,"@E 999,999,999.99"),space(14))
  59. Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
  60. Rvat7   =if(OBRGL->ST="V",transform(M->svat7,"@E 9999,999.99"),space(11))
  61. Rbrutto7=if(OBRGL->ST="V",transform(M->swcp_op7+M->svat7,"@E 999,999,999.99"),space(14))
  62. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  63. Rbrutto0=if(OBRGL->ST="V",transform(M->swcp_op0,"@E 999,999,999.99"),space(14))
  64. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  65. RbruttoZw=if(OBRGL->ST="V",transform(M->swcp_opZw,"@E 999,999,999.99"),space(14))
  66. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
  67.  
  68. RnettoCs=transform(M->swcs,"@E 999,999,999.99")
  69. RbrutoCs=transform(M->swcs_zv,"@E 999,999,999.99")
  70.  
  71. #NAGLOWEK
  72. [chr(14)][M->ADR][chr(20)]
  73. [chr(14)][M->ADR1][chr(20)]
  74. [chr(14)]NIP:[M->NIP]
  75. [repl("─",100)]
  76.                                      SPRZEDAWCA:[Np                                    ]
  77.                                                 [Ap                                    ]
  78.                                                 fax:[KONTRAH->FX]
  79.                                                 NIP:[Npp]
  80.  
  81. W PaΣstwa fakturze wyst⌐puje bêÑd rachunkowy. Dokument powinien byå wyliczony wedêug poni╛szego wzoru
  82. ╜Ñdamy natychmiastowego dostarczenia prawidêowej faktury. Informujemy jednoczeÿnie, ╛e pêatnoÿci
  83. realizujemy wyêÑcznie za poprawne dokumenty. Jeÿli majÑ PaΣstwo kêopoty z oprogramowaniem zapraszamy
  84. do zakupu systemu VATMAN. Oprogramowanie firmy BITAM ¥ód½ tel.(0-42)37-07-80 speênia wymogi przepisów.
  85. [repl("─",100)]
  86.     [Rzak                        ][Ifp]
  87.     Data zakupu: [dns   ]          Otrzymano dnia: [dn    ]
  88. [repl("─",100)]
  89. Poz. Nazwa towaru                            j.m      Iloÿå       Cena  VAT% [Pzv                   ] 
  90. [repl("─",100)]
  91. #POZYCJE
  92. [L] [Naz                                   ] [Jm ][Ilo    ][Cn       ] [V] [Vw       ][Wzv         ] 
  93. #SUMY
  94. [repl("─",100)]
  95. [Wag                         ]      Wyliczono   Razem: |[Rnetto      ]|  |[RvatObl  ]|[RbrObl      ]
  96.                                                 W tym: |[Rnetto22    ]|[V3]|[Rvat22   ]|[Rbrutto22   ]
  97.                                                        |[Rnetto12    ]|[V4]|[Rvat12   ]|[Rbrutto12   ]
  98.                                                        |[Rnetto7     ]|[V2]|[Rvat7    ]|[Rbrutto7    ]
  99.                                                        |[Rnetto0     ]|[V1]|           |[Rbrutto0    ]
  100.                                                        |[RnettoZw    ]|Zw|           |[RbruttoZw   ]
  101.                                                        ---------------------------------------------
  102.                                      Wedêug sprzedawcy: [RnettoFv    ] +  [Rvat     ]=[Rbrutto     ]
  103. [repl("-",100)]
  104. SporzÑdziê: [Opr               ] 
  105.  
  106. dn:........ podpis.....         
  107.  
  108. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  109. #KONIEC
  110.  
  111.  
  112.  
  113.