Problemi sa petljom u clipperu

Odgovori Nova tema

1 odgovor
2.503 pregleda

Problemi sa petljom u clipperu 01.04.2006. u 09:46 · pre 250 meseci #1

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

Re: Problemi sa petljom u clipperu 13.04.2006. u 14:01 · pre 250 meseci #2

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

Potpis

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

Prijavite se da biste odgovorili u ovoj temi.Prijava Registracija

Forum kao aplikacija na telefonu

Srodne teme