[es] - Problemi sa petljom u clipperu

Izgubljeni
Ogulin

Član broj: 88556
Poruke: 26
*.adsl.net.t-com.hr.

Profil

^{01.04.2006. u 08:46 - pre 219 meseci}

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]}

Odgovor na temu

dragancesu
subotica

Član broj: 38340
Poruke: 2189
*.voban.co.yu.

+73 Profil

Re: Problemi sa petljom u clipperu

^{13.04.2006. u 13:01 - pre 219 meseci}

Pretpostavljam da si vec resio, mislim da ti nedostaje jedan SKIP

Code:
FOR br_racX=val(br_rac1) TO val(br_rac2)
count for val(mpr->br_rac)=br_racX to broj
@PROW()+1,0 SAY br_racX
@PROW()+1,0 SAY VAL(br_rac2)
@PROW()+1,0 SAY broj
DO WHILE br_racX=val(mpr->br_rac).AND.!EOF()
for racun=1 to broj
@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
next

SKIP <<< mozda ovo fali

enddo
NEXT

_{[Ovu poruku je menjao dragancesu dana 13.04.2006. u 14:02 GMT+1]}

Pomozite Micro$oftu u borbi protiv piraterije, poklonite prijatelju Linux

Odgovor na temu