base cipar Opcion archivo Formato Expresion Mfn to borrar fullinv path_db replace(s(cat(v5015)),'%path_database%',v1)/ cat('STW') if p(v5066) then 'STW' fi cat('isisac.tab') cat('isisuc.tab') 200000 select s(v9001) case 'buscar': if a(v9002) then 'BUSCAR' else 'BUSCARISO' fi case 'rango': if a(v9002) then 'RANGO' else 'RANGOISO' fi case 'importar': 'IMPORTAR' endsel 1 BUSCAR v5001 '1' v3000 3030 v3030 1 BUSCARISO v5001 '1' v3000 v9002 f(mfn,1,0)/ this 1 RANGO v5001 v2001 v2010 3030 5001 v3030 1 RANGOISO v5001 v2001 v2010 v9002 this 1 IMPORTAR if v4000<>'true' then 'CONTINUAR' fi v5001 '[initok]'v5001''/## CONTINUAR v9002 5001 v5001 base fullinv v5001 if v4010='true' then cat(v5001".fst") fi GetNew Isis_Status Unlock v5001 '[importado]'f(val(v1091^n)-1,1,0)/ v5001 if p(v1091^n) then '

MAXMFN:',f(val(v1091^n) - 1,1,0) fi/ v1092/ 1