I use this code snippet below for a while without any problem but a few days ago I changed it and now Ive got a wierd behaviour.
I added the last "scan" command but it doesnt do the job. If I repeat the "scan" code in the snippet, it works. I mean it is repeated twice. I copied it all here as it is in my vfp.
What did I do wrong?

LOCAL lvReturned, lcUtv

lnSess = ASESSIONS(laSess)
FOR lnCnt = 1 TO lnSess
	SET DATASESSION TO (laSess[lnCnt])
		IF TXNLEVEL() > 0
		   DO WHILE TXNLEVEL() > 0
		     ROLLBACK
		   ENDDO
		ENDIF
	lnCntUsed = AUSED(laUsed)
	FOR lnSessCnt = 1 TO lnCntUsed
		SELECT(laUsed[lnsessCnt,2])
			IF CURSORGETPROP('Buffering')>1
				TABLEREVERT(.T.)
			ENDIF
			USE
	NEXT
NEXT

SET PATH TO 'D:\ElszOdosz\prg' ADDITIVE

lcUtv = "D:\ElszOdosz\data\bp_eng.dbf"
IF FILE("D:\ElszOdosz\data\bp_eng.cdx")
		IF USED("bp_eng")
    		USE
    	ENDIF
    lvReturned = rem_cdx(lcUtv)
    WAIT 'Bp_eng >> '+lvReturned WINDOW NOWAIT 	
    SELECT 0
    DELETE FILE D:\ElszOdosz\data\bp_eng.cdx
	USE D:\ElszOdosz\data\bp_eng IN 1 EXCLUSIVE
  ELSE
    USE D:\ElszOdosz\data\bp_eng IN 1 EXCLUSIVE 
ENDIF 
SELECT 1

lcUtv = "D:\ElszOdosz\data\bp_tetel.dbf"
IF FILE("D:\ElszOdosz\data\bp_tetel.cdx")
		IF USED("bp_tetel")
    		USE
    	ENDIF
    lvReturned = rem_cdx(lcUtv)
    WAIT 'Bp_tetel >> '+lvReturned WINDOW NOWAIT 	
    SELECT 0
    DELETE FILE D:\ElszOdosz\data\bp_tetel.cdx
	USE D:\ElszOdosz\data\bp_tetel IN 2 EXCLUSIVE
  ELSE
    USE D:\ElszOdosz\data\bp_tetel IN 2 EXCLUSIVE 
ENDIF 
SELECT 2

lcUtv = "D:\ElszOdosz\data\bp_fej.dbf"
IF FILE("D:\ElszOdosz\data\bp_fej.cdx")
		IF USED("bp_fej")
    		USE
    	ENDIF
    lvReturned = rem_cdx(lcUtv)
    WAIT 'Bp_fej >> '+lvReturned WINDOW NOWAIT 	
    SELECT 0
    DELETE FILE D:\ElszOdosz\data\bp_fej.cdx
	USE D:\ElszOdosz\data\bp_fej IN 3 EXCLUSIVE
  ELSE
    USE D:\ElszOdosz\data\bp_fej IN 3 EXCLUSIVE 
ENDIF 
SELECT 3


lcUtv = "D:\ElszOdosz\data\helyseg.dbf"
IF FILE("D:\ElszOdosz\data\helyseg.cdx")
		IF USED("helyseg")
    		USE
    	ENDIF
    lvReturned = rem_cdx(lcUtv)
    WAIT 'Bp_engus >> '+lvReturned WINDOW NOWAIT 	
    SELECT 0
    DELETE FILE D:\ElszOdosz\data\helyseg.cdx
	USE D:\ElszOdosz\data\helyseg IN 8 EXCLUSIVE
	SELECT 8
	INDEX ON helyseg.irszam TO D:\ElszOdosz\data\helyseg.cdx
  ELSE
    USE D:\ElszOdosz\data\helyseg.dbf
    INDEX ON helyseg.irszam TO D:\ElszOdosz\data\helyseg.cdx 
ENDIF 
SELECT 8


SET DECIMALS TO 2

SELECT bp_tetel.tetel_id, bp_tetel.fejkod, bp_tetel.engedely, bp_tetel.netto_ar,bp_tetel.brutto_ar,;
bp_fej.teljesites, bp_fej.kelte, bp_fej.stornozva as szla_stor,; 
bp_tetel.aru_nev, VAL(SUBSTR(ALLTRIM(bp_tetel.engedely),9,2)) as sort1,;
VAL(SUBSTR(ALLTRIM(bp_tetel.engedely),3,6)) as sort2; 
FROM bp_tetel; 
LEFT JOIN bp_fej; 
ON bp_tetel.fejkod == bp_fej.fejkod; 
WHERE SUBSTR(ALLTRIM(bp_tetel.aru_nev),1,10) == "Túlsúlydíj"; 
AND bp_fej.teljesites >= {2010.11.01}; 
AND bp_fej.teljesites < {2010.12.01}; 
ORDER BY sort1, sort2; 
INTO cursor tetel readwrite 

************************************
ALTER TABLE tetel;
 ADD COLUMN statusz c(20)

SELECT tetel.engedely, tetel.fejkod as szlasz, DTOC(TTOD(bp_eng.iktatva)) as eng_ikt,;
DTOC(TTOD(bp_eng.kiadva)) as eng_kiad, DTOC(tetel.teljesites) as telj,;
DTOC(TTOD(bp_eng.stornozva)) as eng_stor,;
DTOC(TTOD(tetel.szla_stor)) as szla_st,; 
bp_eng.fordulo, bp_eng.tavolsag,; 
bp_eng.ind_varos, bp_eng.bel_vnev, bp_eng.ind_irsz,; 
bp_eng.cel_varos, bp_eng.kil_vnev, bp_eng.cel_irsz,; 
bp_eng.tomeg_dij as tom_dij, bp_eng.ten_dij,;
(tetel.netto_ar/bp_eng.tavolsag) as k_bdij,; 
ts_dij as kalk_dij,; 
tetel.netto_ar,;
cast(IIF(tetel.netto_ar==tetel.brutto_ar,tetel.netto_ar,0) as B(2)) as nettoar0,;
cast(IIF(tetel.netto_ar==tetel.brutto_ar,0,tetel.netto_ar) as B(2)) as nettoar25,; 
tetel.brutto_ar,; 
(bp_eng.tavolsag-(bp_eng.aka + bp_eng.aap + bp_eng.bp+bp_eng.dak)) as mak,;  
bp_eng.aap, bp_eng.aka, bp_eng.dak, bp_eng.bp,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*(bp_eng.tavolsag-(bp_eng.aka+bp_eng.aap+bp_eng.bp+bp_eng.dak))),0) as B(2)) as ft_mak_n0,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,0,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*(bp_eng.tavolsag-(bp_eng.aka+bp_eng.aap+bp_eng.bp+bp_eng.dak)))) as B(2)) as ft_mak_n25,;
CAST((((tetel.brutto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*(bp_eng.tavolsag-(bp_eng.aka+bp_eng.aap+bp_eng.bp+bp_eng.dak))) as B(2)) as ft_mak_b,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aap),0) as B(2)) as ft_aap_n0,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,0,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aap)) as B(2)) as ft_aap_n25,;
CAST((((tetel.brutto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aap) as B(2)) as ft_aap_b,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aka),0) as B(2)) as ft_aka_n0,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,0,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aka)) as B(2)) as ft_aka_n25,;
CAST((((tetel.brutto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.aka) as B(2)) as ft_aka_b,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.dak),0) as B(2)) as ft_dak_n0,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,0,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.dak)) as B(2)) as ft_dak_n25,;
CAST((((tetel.brutto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.dak) as B(2)) as ft_dak_b,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.bp),0) as B(2)) as ft_bp_n0,;
CAST(IIF(tetel.netto_ar==tetel.brutto_ar,0,(((tetel.netto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.bp)) as B(2)) as ft_bp_n25,;
CAST((((tetel.brutto_ar/bp_eng.tavolsag)*bp_eng.fordulo)*bp_eng.bp) as B(2)) as ft_bp_b,; 
tetel.statusz, bp_eng.utvonal; 
FROM tetel; 
LEFT JOIN bp_eng; 
ON ALLTRIM(tetel.engedely) == ALLTRIM(bp_eng.engkod); 
WHERE SUBSTR(ALLTRIM(bp_eng.engkod),1,2) = "UE"; 
AND bp_eng.tipus = "1"; 
INTO CURSOR tetel2 READWRITE

ALTER TABLE tetel2;
	ALTER COLUMN utvonal M;
	ALTER COLUMN ind_varos c(30);
	ALTER COLUMN cel_varos c(30);	
	DROP COLUMN ind_irsz;
	DROP COLUMN bel_vnev;	
	DROP COLUMN cel_irsz;	
	DROP COLUMN kil_vnev

SCAN
          IF tetel2.kalk_dij <> tetel2.netto_ar
		IF 	(tetel2.kalk_dij)*(-1) == tetel2.netto_ar
			REPLACE tetel2.ft_mak_n0 WITH ((tetel2.ft_mak_n0)*(-1)), tetel2.ft_mak_n25 WITH ((tetel2.ft_mak_n25)*(-1)), tetel2.ft_mak_b WITH ((tetel2.ft_mak_b)*(-1)),;
			tetel2.ft_aap_n0 WITH ((tetel2.ft_aap_n0)*(-1)), tetel2.ft_aap_n25 WITH ((tetel2.ft_aap_n25)*(-1)), tetel2.ft_aap_b WITH ((tetel2.ft_aap_b)*(-1)),;
			tetel2.ft_aka_n0 WITH ((tetel2.ft_aka_n0)*(-1)), tetel2.ft_aka_n25 WITH ((tetel2.ft_aka_n25)*(-1)), tetel2.ft_aka_b WITH ((tetel2.ft_aka_b)*(-1)),;
			tetel2.ft_dak_n0 WITH ((tetel2.ft_dak_n0)*(-1)), tetel2.ft_dak_n25 WITH ((tetel2.ft_dak_n25)*(-1)), tetel2.ft_dak_b WITH ((tetel2.ft_dak_b)*(-1)),;    			
			tetel2.ft_bp_n0 WITH ((tetel2.ft_bp_n0)*(-1)), tetel2.ft_bp_n25 WITH ((tetel2.ft_bp_n25)*(-1)), tetel2.ft_bp_b WITH ((tetel2.ft_bp_b)*(-1)),;
			tetel2.statusz WITH "Min.szla."
			ELSE
			REPLACE tetel2.statusz WITH "NEM ok"		
		ENDIF
	ENDIF 			
ENDSCAN