home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / PZ_MAGAZ.DOK < prev    next >
Text File  |  1996-12-12  |  4KB  |  75 lines
  1. *PZ typu M+,N+,Ni
  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+","Z MAGAZYNU:"+slownik("S_K","KOD_MAGAZ "+OBRGL->KONTRAHENT),"KONTRAHENT:"+len10(KONTRAH->NAZWA_PLAT,40))
  13. Ap =if(KOD_DOK="M+","","ADRES     :"+len10(KONTRAH->ADRES_PLAT,40))
  14.  
  15. L  =str(NR_POZ,3)
  16. Naz=substr(INDEKS->NAZ_TOWARU,1,70)
  17. Opim=len10(substr(OPIS,1,27),27)
  18. Opn=if(M->_OPAK,"Il:w op. opak.","")
  19. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  20. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(ILOSC_POCZ/INDEKS->PRZEL2,6,1),"      ")
  21. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  22. Ilo=if(M->_COMA,transform(ILOSC_POCZ,"@E 999999.99"),str(ILOSC_POCZ,9))
  23. Cn =transform(M->cp_op,"@E 9999,999.99")
  24. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  25. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  26. Cs =transform(if(M->_MPODAT,CENA/(1+VAT_P/100),CENA),"@E 9999,999.99")
  27. Csv=transform(M->cs_zv,"@E 9999,999.99")
  28. Wce=transform(M->wcs,"@E 999,999,999.99")
  29. Wcv=transform(M->wcs_zv,"@E 999,999,999.99")
  30.  
  31. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  32. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  33. Rvat    =transform(M->svat7+M->svat12+M->svat22,"@E 9999,999.99")
  34. Rbrutto =transform(M->swcp_zv,"@E 999,999,999.99")
  35. Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
  36. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  37. Rbrutto22=transform(M->swcp_op22+M->svat22,"@E 999,999,999.99")
  38. Rnetto12=transform(M->swcp_op12,"@E 999,999,999.99")
  39. Rvat12  =transform(M->svat12,"@E 9999,999.99")
  40. Rbrutto12=transform(M->swcp_op12+M->svat12,"@E 999,999,999.99")
  41. Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
  42. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  43. Rbrutto7=transform(M->swcp_op7+M->svat7,"@E 999,999,999.99")
  44. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  45. Rbrutto0=transform(M->swcp_op0,"@E 999,999,999.99")
  46. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  47. RbruttoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  48. RnettoCs=transform(M->swcs,"@E 999,999,999.99")
  49. RbrutoCs=transform(M->swcs_zv,"@E 999,999,999.99")
  50. Opr     =substr(slownik("S_K",'SYMB_OPER '+OBRGL->SYMB_OPER),1,20)
  51.  
  52. #NAGLOWEK
  53. [M->ADR]
  54. NIP:[M->Nip     ]____________________________________________ Str:[S  ]_________________________________________________
  55.     [Rdok                        ]   [Kd] Nr:[Nrm   ]         Z dnia: [dn    ]   
  56.     [Rdk                         ]   [Ok    ]
  57. [Ifg]
  58. [Np]
  59. [Ap]
  60. [repl("_",120)]
  61.      Kod towaru   SWW           Nazwa towaru          Rozliczenie w cenach sprzeda╛y                    [Opn         ]
  62. Poz. Opis                       j.m      Iloÿå  VAT%  Cena netto   Cena z VAT   Wart. netto   Wart.brutto
  63. [repl("_",120)]
  64. [Ifp]
  65. #POZYCJE
  66. [L] [KOD_TOWARU ] [INDEKS->SWW] [Naz                                                                 ]  [Op1 ]  [Op2 ]
  67.     [OPIm                     ] [Jm ][Ilo    ] [V]    [Cs       ] [Csv      ] [Wce         ][Wcv         ]
  68. #SUMY
  69. [repl("_",120)]
  70. [Wag                         ]                 Razem w cenach sprzedazy:      [RnettoCs    ][RbrutoCs    ]
  71. [repl("-",120)]
  72. SporzÑdziê: [Opr               ]  Wydaê:                    Odebraê:
  73. dn:........  podpis.....          dn:........ podpis.....   dn:........  podpis.....
  74. #KONIEC
  75.