Prikazi cijelu temu 30.05.2016 11:57
nevsad Van mreze
Clan
Registrovan od:01.09.2010
Lokacija:bos.petrovac


Predmet:Re: Problem Petlja
ovo da rezultat
...
...
If Datum <> rst!Datum Then
Print #1, "----------------------------------------"
Print #1, Datum; Tab(41 - Len(Format(siznos, "###0.00"))); Format(siznos, "###0.00")
Print #1, "----------------------------------------"
Suma = 0
siznos = 0
Datum = rst!Datum
End If
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")
siznos = siznos + rst!SumOfiznos
rst.MoveNext
Loop
Print #1, "----------------------------------------"
rst.MoveFirst
Do Until rst.EOF
Suma = Suma + rst!SumOfiznos
rst.MoveNext
Loop
rst.MoveFirst
Print #1, "SVEUKUPNO : "; Tab(41 - Len(Format(Suma, "####0.00"))); Format(Suma, "####0.00"); " KM"
Print #1, "----------------------------------------"
Print #1, Chr(27) & Chr(100) & Chr(8)
Print #1, Chr(27) & Chr(105)
Close #1
...
...

23.05.2016 ne zbroji
nemam ideje
nevsad