home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PAMALY.DOK < prev    next >
Text File  |  1996-12-12  |  5KB  |  97 lines
  1. #DEFINICJE
  2. Rdok=substr(slownik("S_K","KOD_OPER  "+OBRGL->KOD_OPER),1,30)
  3. Rzak=slownik("S_K","ST        "+OBRGL->ST)
  4. Kd ="  "+KOD_DOK
  5. Nr =len10(ltrim(str(M->nr_dok,5)),8)
  6. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  7. dn =dtoc(OBRGL->DATA)
  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. Kkn=KONTRAH->KONTRAHENT
  14. Np =len10(KONTRAH->NAZWA_PLAT,40)
  15. Ap =len10(KONTRAH->ADRES_PLAT,40)
  16. Npp=KONTRAH->NIP
  17. Szp=substr(slownik("S_K","FORMA_PLAT"+OBRGL->FORMA_PLAT),1,25)
  18. Tpt=dtoc(OBRGL->TERM_PLAT)
  19. V1 =str(S->VATP1,2)
  20. V2 =str(S->VATP2,2)
  21. V3 =str(S->VATP3,2)
  22. V4 =str(S->VATP4,2)
  23.  
  24. Ups=if(OBRGL->MARZA_D<>0,"z"+str(OBRGL->MARZA_D,5,1)+"%upus.",repl("_",12))
  25. Pzv=if(OBRGL->ST="V","Podatek Wart.z podat.",space(22))
  26.  
  27. L  =str(Lpd,3)
  28. Naz=substr(INDEKS->NAZ_TOWARU,1,70)
  29. Opim=len10(substr(OPIS,1,27),27)
  30. Opn=if(M->_OPAK,"Il:w op. opak.","")
  31. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  32. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1),"      ")
  33. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  34. Ilo=if(M->_COMA,transform(M->ilosc_pocz,"@E 999999.99"),str(M->ilosc_pocz,9))
  35. Cn =transform(M->cp_op,"@E 9999,999.99")
  36. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  37. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  38. Vw =if(OBRGL->ST="V",transform(M->vat,"@E 9999,999.99"),space(11))
  39. Wzv=if(OBRGL->ST="V",transform(M->wcp_zv,"@E 999,999,999.99"),space(14))
  40. Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
  41.  
  42. RnettoFv=transform(OBRGL->VAT0+OBRGL->VAT1+OBRGL->VAT2+OBRGL->VAT3+OBRGL->VAT4,"@E 999,999,999.99") 
  43. Rvat    =if(OBRGL->ST="V",transform(OBRGL->PODAT,"@E 9999,999.99"),space(11))
  44. 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))
  45. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  46. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  47. RvatObl =if(OBRGL->ST="V",transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99"),space(11))
  48. RbrObl  =if(OBRGL->ST="V",transform(M->swcp_zv,"@E 999,999,999.99"),space(14))
  49. Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
  50. Rvat22  =if(OBRGL->ST="V",transform(M->svat22,"@E 9999,999.99"),space(11))
  51. Rbrutto22=if(OBRGL->ST="V",transform(M->swcp_op22+M->svat22,"@E 999,999,999.99"),space(14))
  52. Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
  53. Rvat12  =if(OBRGL->ST="V",transform(M->svat12,"@E 9999,999.99"),space(11))
  54. Rbrutto12=if(OBRGL->ST="V",transform(M->swcp_op12+M->svat12,"@E 999,999,999.99"),space(14))
  55. Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
  56. Rvat7   =if(OBRGL->ST="V",transform(M->svat7,"@E 9999,999.99"),space(11))
  57. Rbrutto7=if(OBRGL->ST="V",transform(M->swcp_op7+M->svat7,"@E 999,999,999.99"),space(14))
  58. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  59. Rbrutto0=if(OBRGL->ST="V",transform(M->swcp_op0,"@E 999,999,999.99"),space(14))
  60. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  61. RbruttoZw=if(OBRGL->ST="V",transform(M->swcp_opZw,"@E 999,999,999.99"),space(14))
  62. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
  63.  
  64. #NAGLOWEK
  65. [M->ADR]
  66. NIP:[M->Nip     ]____________________________________________ Str:[S  ]_________________________________________________
  67.     [Rdok                        ]   [Kd] Nr:[Nrm   ]         Z dnia: [dn    ]    Data zakupu: [dns   ]
  68. Dot:[Rzak]   [Ok    ]
  69. [Ifg]
  70. DOSTAWCA: [Np                                    ]            Identyfikator : [Kkn   ]   NIP :[Npp        ]
  71.           [Ap                                    ]
  72. Sposób zapêaty : [Szp                    ]                    Termin pêatnoÿci: [Tpt   ]
  73. [repl("_",120)]
  74.      Kod towaru   SWW           Nazwa towaru                                                           [Opn         ]
  75. Poz. Opis                       j.m     Iloÿå        Cena        Wartoÿå VAT%   [Pzv                 ] Cena sprz.netto
  76. _______________________________________________[Ups       ]_____________________________________________________________
  77. [Ifp]
  78. #POZYCJE
  79. [L] [KOD_TOWARU ] [INDEKS->SWW] [Naz                                                                 ] [Op1 ]  [Op2 ]
  80.     [OPIm                     ] [Jm ][Ilo    ][Cn       ] [Wn          ] [V][Vw       ] [Wzv         ] [Cs       ]
  81. #SUMY
  82. [repl("_",120)]
  83. [Wag                         ]         Wyliczono  Razem: |[Rnetto      ]|  |[RvatObl  ]|[RbrObl      ]|
  84.                                                   W tym: |[Rnetto22    ]|[V3]|[Rvat22   ]|[Rbrutto22   ]|
  85.                                                          |[Rnetto12    ]|[V4]|[Rvat12   ]|[Rbrutto12   ]|
  86.                                                          |[Rnetto7     ]|[V2]|[Rvat7    ]|[Rbrutto7    ]|
  87.                                                          |[Rnetto0     ]|[V1]|           |[Rbrutto0    ]|
  88.                                                          |[RnettoZw    ]|Zw|           |[RbruttoZw   ]|
  89.                                                          ----------------------------------------------
  90.                                              DO ZAP¥ATY:  [RnettoFv    ]  + [Rvat     ]=[Rbrutto     ]
  91. [repl("-",120)]
  92. [len10(slownie(M->swcp_op + OBRGL->PODAT),120)]
  93. [repl("-",120)]
  94. SporzÑdziê: [Opr               ]  PrzyjÑê:
  95. dn:........  podpis.....          dn:........  podpis.....
  96. #KONIEC
  97.