Prikazi cijelu temu 26.05.2016 15:02
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: Problem Petlja
Sad vidim da si ti to i pokusao rijesiti kodom.
PreuzmiIzvorni kôd (Visual Basic):
  1. Public Function taxaOddo()
  2. Dim rst As DAO.Recordset
  3. IzborPrintera
  4. br = 1
  5. izn = 0
  6. siznos = 0
  7. Suma = 0
  8. Close #1
  9. Set rst = CurrentDb.OpenRecordset("KORISNIK")
  10. 'Open rst!Port For Output As #1
  11. Open "C:\Temp\taxa.txt" For Output As #1
  12. Print #1, strParPrint
  13. Print #1, strIzbTrake
  14. Print #1, strObSlova
  15. Print #1, Tab(21 - Len(rst!korisnik)); rst!korisnik
  16. Print #1, Tab(21 - Len(rst!adresa) - Len(rst!grad)); Nz(rst!adresa, ""); ","; Nz(rst!grad)
  17. Print #1, "Izvjestaj o prodatim artiklima za period"
  18. Print #1, Tab(7); "od"; Tab(10); Format(Pocetni, "dd.mm.yyyy"); Tab(22); "do"; Tab(25); Format(Krajnji, "dd.mm.yyyy")
  19. Print #1, "========================================"
  20. Print #1, "    Datum                         Taxa                       Iznos"
  21. Print #1, "========================================"
  22. rst.Close
  23. Set rst = CurrentDb.OpenRecordset("select * from Qzaperiod1  WHERE datum BETWEEN DATEVALUE('" & Pocetni & "') AND DATEVALUE('" & Krajnji & "')")
  24. rst.MoveFirst
  25. Datum = rst!Datum
  26. Do Until rst.EOF
  27.    sif = rst!proizvod
  28.    im = rst!ime
  29.    izn = rst!SumOfiznos
  30.  If Datum <> rst!Datum Then
  31.  Print #1, "----------------------------------------"
  32.  Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
  33.  Print #1, "----------------------------------------"
  34.  siznos = 0
  35.  Datum = rst!Datum
  36.  End If
  37.         Print #1, Format(rst!Datum, "dd.mm.yyyy"); "  "; sif; Tab(16); right(im, 24); Tab(41 - Len(Format(izn, "###0.00"))); Format(izn, "###0.00")
  38. siznos = siznos + rst!SumOfiznos
  39. rst.MoveNext
  40. Loop
  41.  
  42. Set rst = CurrentDb.OpenRecordset("select * from Qzaperiod2  WHERE datum BETWEEN DATEVALUE('" & Pocetni & "') AND DATEVALUE('" & Krajnji & "')")
  43. izn = 0
  44. Suma = 0
  45. rst.MoveFirst
  46. Datum = rst!Datum
  47. Print #1, "----------------------------------------"
  48. rst.MoveFirst
  49. Do Until rst.EOF
  50.    Suma = Suma + rst!SumOfiznos
  51.    rst.MoveNext
  52. Loop
  53. rst.MoveFirst
  54.       Print #1, "SVEUKUPNO :            "; Tab(41 - Len(Format(Suma, "####0.00"))); Format(Suma, "####0.00"); " KM"
  55.       Print #1, "----------------------------------------"
  56. Print #1, Chr(27) & Chr(100) & Chr(8)
  57. Print #1, Chr(27) & Chr(105)
  58. Close #1
  59.  End Function
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.