Prije svega zahvaljujem Draganecuu na trudu, ali SKIP nije pomogao... bio sam neko vrijeme odustao od ovoga ali ispada da to moram riješiti... Rješio sam petlju, sada sve kvalitetno odradi, ali uvijek uzima prvi slog iz baze i neće dalje...
MOLIM za pomoć. ... POMAGAJTE AKO ZNATE!!!
select MPR
mKolicina:=0
mUkupno :=0
mSif_mat :=MPR->SIF_MAT
mNaz_Mat :=MPR->NAZ_MAT
mCij_Mp :=MPR->CIJ_MP
mCij_VP :=MPR->CIJ_VP
FOR br_racX=val(br_rac1) TO val(br_rac2)
count for val(mpr->br_rac)=br_racX to broj
@PROW()+1,0 say '--------------------------------------'
@PROW()+1,0 say dtoc(DATe())+' - RAČUN BR: '+transform(br_racX,'999')
@PROW()+1,0 SAY broj
MPR->(DBSEek(val(br_rac)==br_racX))
if !found()
for racun=1 to broj
@PROW()+1,0 SAY recno()
@PROW()+1,0 SAY LEFT(mNaz_Mat,35)
@PROW()+1,0 SAY (' ')+TRANSFORM(mKolicina,'999,999.999')+;
(' ')+TRANSFORM(mCij_mP,'99,999.99')+;
(' ')+TRANSFORM(mKolicina*mCij_mP,'99999.99')
mUkupno+=mKolicina*mCij_vp
SKIP
NEXT
ENDIF
SKIP
NEXT
[Ovu poruku je menjao Izgubljeni dana 25.04.2006. u 10:27 GMT+1]