home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / WZ_DETAL.DOK < prev    next >
Text File  |  1996-12-12  |  5KB  |  91 lines
  1. *WZ typu M-,N-,Rw *
  2. #DEFINICJE
  3. Rdok=substr(slownik("S_K","KOD_OPER  "+OBRGL->KOD_OPER),1,30)
  4. Rdk =substr(slownik("S_K","KOD_DOK   "+OBRGL->KOD_DOK),1,30)
  5. Kd ="  "+KOD_DOK
  6. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  7. dn =dtoc(OBRGL->DATA)
  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. Np =if(KOD_DOK="M-","DO MAGAZYNU:"+slownik("S_K","KOD_MAGAZ "+OBRGL->KONTRAHENT),OBRGL->KONTRAHENT)
  13. V1 =str(S->VATP1,2)
  14. V2 =str(S->VATP2,2)
  15. V3 =str(S->VATP3,2)
  16. V4 =str(S->VATP4,2)
  17.  
  18. L  =str(Lpd,3)
  19. Naz=len10(substr(INDEKS->NAZ_TOWARU,1,70),70)
  20. Opim=len10(substr(OPIS,1,27),27)
  21. Opn=if(M->_OPAK,"Il:w op. opak.","")
  22. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  23. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(M->ilosc_pocz/INDEKS->PRZEL2,6,1),"      ")
  24. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  25. Ilo=if(.not.M->_COMA,str(M->ilosc_pocz,9),transform(if(KOD_DOK='NE'.and.ILOSC_POCZ<0,ILOSC_POCZ,M->ilosc_pocz),"@E 999999.99"))
  26. Cn =transform(M->cp_op,"@E 9999,999.99")
  27. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  28. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  29. Vw =transform(M->vat,"@E 9999,999.99")
  30. Wzv=transform(M->wcp_zv,"@E 999,999,999.99")
  31.  
  32. Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
  33. Csv=transform(M->cs_zv,"@E 9999,999.99")
  34. Wce=transform(M->wcs,"@E 999,999,999.99")
  35. Wcv=transform(M->wcs_zv,"@E 999,999,999.99")
  36. Cdv=transform(M->cd_dv,"@E 9999,999.99")
  37. Wdv=transform(cd_dv*M->ilosc_pocz,"@E 9999,999.99")
  38. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  39. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  40. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  41. Rbrutto =transform(M->swcp_zv,"@E 999,999,999.99")
  42. Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
  43. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  44. Rbrutto22=transform(M->swcp_op22+M->svat22,"@E 999,999,999.99")
  45. Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
  46. Rvat12  =transform(M->svat12,"@E 9999,999.99")
  47. Rbrutto12=transform(M->swcp_op12+M->svat12,"@E 999,999,999.99")
  48. Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
  49. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  50. Rbrutto7=transform(M->swcp_op7+M->svat7,"@E 999,999,999.99")
  51. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  52. Rbrutto0=transform(M->swcp_op0,"@E 999,999,999.99")
  53. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  54. RbruttoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  55. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
  56. *W c.sprzeda╛y
  57. RnettoCs=transform(M->swcs,"@E 999,999,999.99")
  58. RbrutoCs=transform(M->swcs_zv,"@E 999,999,999.99")
  59. Wcd   ="Wartoÿå dokumentu w cenach detaliczych z VAT"+transform(M->swcd_dv,"@E 9999,999.99")
  60.  
  61. #NAGLOWEK
  62. [M->ADR]
  63. NIP:[M->Nip     ]____________________________________________ Str:[S  ]_________________________________________________
  64.     [Rdok                        ]   [Kd] Nr:[Nrm   ]         Z dnia: [dn    ]   
  65.     [Rdk                         ]   [Ok    ]
  66. [Ifg]
  67. [Np]
  68. [repl("_",159)]
  69.      Kod towaru   SWW           Nazwa towaru                                                           [Opn         ]   Rozliczenie w cenach sprzeda╛y
  70. Poz. Opis                       j.m     Iloÿå      Cena          Wartoÿå VAT%   Podatek Wart.z podat.  Cena netto Cena z VAT    Wart. netto   Wart.brutto  C.det.z VAT Wart.
  71. [repl("_",159)]
  72. [Ifp]
  73. #POZYCJE
  74. [L] [KOD_TOWARU ] [INDEKS->SWW] [Naz                                                                 ] [Op1 ]  [Op2 ]
  75.     [OPIm                     ] [Jm ][Ilo    ][Cn       ] [Wn          ] [V][Vw       ] [Wzv         ] [Cs       ] [Csv      ][Wce         ][Wcv         ] [Cdv      ] [Wdv]
  76. #SUMY
  77. [repl("_",159)]
  78. [Wag                         ]         Wyliczono  Razem: |[Rnetto      ]|  |[Rvat     ]|[Rbrutto     ]|                       [RnettoCs    ][RbrutoCs    ]
  79.                                                   W tym: |[Rnetto22    ]|[V3]|[Rvat22   ]|[Rbrutto22   ]|
  80.                                                          |[Rnetto12    ]|[V4]|[Rvat12   ]|[Rbrutto12   ]|
  81.                                                          |[Rnetto7     ]|[V2]|[Rvat7    ]|[Rbrutto7    ]|
  82.                                                          |[Rnetto0     ]|[V1]|           |[Rbrutto0    ]|
  83. Wartoÿå dokumentu: [Rnetto      ]                        |[RnettoZw    ]|Zw|           |[RbruttoZw   ]|   [Wcd                                       ]
  84. [repl("-",120)]
  85. [len10(slownie(M->swcp_op),120)]
  86. [repl("-",120)]
  87. SporzÑdziê: [Opr               ]  Wydaê:                    Odebraê(os.uprawniona):
  88. dn:........  podpis.....          dn:........ podpis.....   dn:........  podpis.....
  89. SporzÑdzono w systemie PC VATMAN  (C) ZTK BITAM
  90. #KONIEC
  91.