PARAMETERS c_ean, m.hladajcprev
PRIVATE zostatok, old_sel, m.boladb
old_sel = SELECT()
m.boladb=.f.
DO open_database
IF m.issql
	SELECT 0
	USE (m.sqlprefix+"rprep1_alk") ALIAS vprep_alk
ELSE 
	SELECT obr_alk
	SELECT 0
	USE  vprep1_alk ALIAS vprep_alk
ENDIF 
=CURSORSETPROP("Buffering",5,"vprep_alk")
m.zostatok=0
SCAN ALL 
	DO CASE
		CASE vprep_alk.operace = "ZZ"                    
			IF vprep_alk.pocet<>(vprep_alk.zostatok-m.zostatok)
				REPLACE vprep_alk.pocet WITH vprep_alk.zostatok - m.zostatok
			ENDIF 
			SCATTER FIELDS zostatok MEMVAR
		CASE vprep_alk.operace = "AA"
			IF vprep_alk.pocet<>vprep_alk.zostatok
				REPLACE vprep_alk.zostatok WITH vprep_alk.pocet
			ENDIF 
			SCATTER FIELDS zostatok MEMVAR
		OTHERWISE
			m.zostatok = m.zostatok + vprep_alk.pocet
			IF vprep_alk.zostatok<>m.zostatok
				REPLACE vprep_alk.zostatok WITH m.zostatok
			ENDIF 
	ENDCASE
ENDSCAN
=tux(.t.,.t.,"vprep_alk")
USE IN vprep_alk
SELECT (m.old_sel)
RELEASE zostatok, old_sel, m.boladb
