home *** CD-ROM | disk | FTP | other *** search
/ Chip 1998 February / CHIP_2_98.iso / software / testsoft / vatman / vatman.lzh / RD.DOK < prev    next >
Text File  |  1996-12-12  |  3KB  |  69 lines
  1. #DEFINICJE
  2. Rdok=substr(slownik("S_K","KOD_OPER  "+OBRGL->KOD_OPER),1,30)
  3. Kd ="  "+KOD_DOK
  4. Nrm=len10(M->kod_magaz+"/"+ltrim(str(M->nr_dok,5)),8)
  5. dn =dtoc(OBRGL->DATA)
  6. S  =str(M->str,3)
  7. Ok =if(M->_R_LBL,"        ",if(OBRGL->SW,"KOPIA   ","ORYGINA¥"))
  8. Ifg=if(M->_WFO,alltrim(OBRGL->INFO),"")
  9. Ifp=if(M->_WFO,"",alltrim(OBRGL->INFO))
  10. Np =len10(KONTRAH->NAZWA_PLAT,40)
  11. Ap =len10(KONTRAH->ADRES_PLAT,40)
  12.  
  13. L  =str(NR_POZ,3)
  14. Naz=len10(substr(INDEKS->NAZ_TOWARU,1,70),70)
  15. Opn=if(M->_OPAK,"Il:w op. opak.","")
  16. Op1=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(INDEKS->PRZEL2,5,1),"     ")
  17. Op2=if(M->_OPAK.and.INDEKS->PRZEL2>0,str(ILOSC_POCZ/INDEKS->PRZEL2,6,1),"      ")
  18. Jm =substr(slownik("S_K","JM        "+INDEKS->JM),1,5)
  19. Ilo=if(M->_COMA,transform(ILOSC_POCZ,"@E 999999.99"),str(ILOSC_POCZ,9))
  20. Cn =transform(M->cp_op,"@E 9999,999.99")
  21. Wn =transform(M->wcp_op,"@E 999,999,999.99")
  22. V  =if(INDEKS->ZWOL,"Zw",str(VAT_P,2))+" "
  23.  
  24. Cs =transform(CENA,"@E 9999,999.99")
  25. Csv=transform(M->cs_zv,"@E 9999,999.99")
  26. Wce=transform(M->wcs,"@E 999,999,999.99")
  27. Wcv=transform(M->wcs_zv,"@E 999,999,999.99")
  28. Wag=len10(if(M->_WAG,"Waga towaru: "+str(M->waga,6,0)+" kG",""),30)
  29. Rnetto  =transform(M->swcp_op,"@E 999,999,999.99")
  30. Rvat    =transform(M->svat7+M->svat22,"@E 9999,999.99")
  31. Rbrutto =transform(M->swcp_zv,"@E 999,999,999.99")
  32. Rnetto22=transform(M->swcp_op22,"@E 999,999,999.99")
  33. Rvat22  =transform(M->svat22,"@E 9999,999.99")
  34. Rbrutto22=transform(M->swcp_op22+M->svat22,"@E 999,999,999.99")
  35. Rnetto7 =transform(M->swcp_op7,"@E 999,999,999.99")
  36. Rvat7   =transform(M->svat7,"@E 9999,999.99")
  37. Rbrutto7=transform(M->swcp_op7+M->svat7,"@E 999,999,999.99")
  38. Rnetto0 =transform(M->swcp_op0,"@E 999,999,999.99")
  39. Rbrutto0=transform(M->swcp_op0,"@E 999,999,999.99")
  40. RnettoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  41. RbruttoZw=transform(M->swcp_opZw,"@E 999,999,999.99")
  42. RnettoCs=transform(M->swcs,"@E 999,999,999.99")
  43. RbrutoCs=transform(M->swcs_zv,"@E 999,999,999.99")
  44.  
  45. #NAGLOWEK
  46. [M->ADR]
  47. NIP:[M->Nip     ]____________________________________________ Str:[S  ]_________
  48.     [Rdok                        ]   [Kd] Nr:[Nrm   ]         Z dnia: [dn    ]  
  49.                                        [Ok    ]
  50. [Ifg]
  51. W¥AùCICIEL TOWARU: [Np                                    ]
  52.                    [Ap                                    ]
  53. [repl("_",80)]
  54.      Kod towaru   SWW           Nazwa towaru
  55. Poz. Opis                       j.m     Iloÿå       CENA        WARTOùÅ 
  56. [repl("_",80)]
  57. [Ifp]
  58. #POZYCJE
  59. [L] [KOD_TOWARU ] [INDEKS->SWW] [Naz                                            ]
  60.     [OPIS                     ] [Jm ][Ilo    ][Cn       ] [Wn          ]
  61. #SUMY
  62. [repl("_",80)]
  63. [Wag                         ]                    Razem: |[Rnetto      ]
  64. [repl("-",80)]
  65. SporzÑdziê: [M->man]             Wydaê:                    Odebraê:
  66. dn:........  podpis.....         dn:........ podpis.....   dn:........  podpis....
  67. SporzÑdzono w systemie PC VATMAN (C) ZTK BITAM
  68. #KONIEC
  69.