xOn

base cipar count Mfn Operador (v2028/) LastKey campo Seleccion Diccio prefijo tagfst id Expresion Formato prologo epilogo Diferido Accion Opcion reverse Desplegar login if a(v3030) then 'ad'v5001 fi cttype path_db if p(v9088) then 'Content-type: text/html'/# fi replace(s(cat(v5015)),'%path_database%',v1)/ cat('isisac.tab') cat('isisuc.tab') 200000 select s(v9001) case 'diccionario': 'PRESENTAR_DICCIONARIO' case 'buscar_en_este': 'BUSCAR' case 'buscar': 'BUSCAR' case 'busquedalibre': 'BUSCAR' case 'ubicar': 'UBICAR' case 'login': 'LOGIN' case 'leerregistro': 'LEERREGISTRO' case 'ver': 'VER' case 'presentar_captura': 'VER' endsel VER if v3030<>'ALL' then '@prologoact.pft' fi v5001 v2000 v2000 Isis_Current Isis_Total Isis_Status Isis_RecordStatus 3030 5001 if val(v1091)=1 then '$$DELETED' fi if val(v1091)<>1 then if v3030='ALL' then v3030 else '@'v3030'.pft' fi fi if val(v1091)<>1 then if v3030<>'ALL' and v9001<>'presentar_captura' then '@epilogoact.pft' fi FI 1 LEERREGISTRO v5001 v2000 v2000 Isis_Total Isis_Status Isis_RecordStatus 3030 5001 if val(v1102)=1 then 'Registro Eliminado' fi if v3030= 'ALL' then v3030 else '@'v3030,'.pft' fi 1 LOGIN v5001 v2000 v2000 @login.pft 1 PRESENTAR_DICCIONARIO v5001 if p(v2050) then v2050 else v2020 fi if p(v2050) then v2050.2'ZZZZZ' else v2020.2'zzzz' fi 200 Isis_Key Isis_Postings @ifpro.pft @ifp.pft 2010 @ifepil.pft 1 BUSCAR v5001 v2000 if a(v2001) then '25' else v2001 fi V9015 (v3005[1],v3000,v4012[1] if iocc Isis_Current Isis_Total Isis_From Isis_To Isis_Status (v3005[1],v3000,v4012[1] if iocc if a(v3040) then '@prologoact.pft' else if size(v3040)>2 then '@'v3040'.pft' else if p(v3040) then '@'v3040,v5001'.pft' else '@prologo.pft' fi fi fi 5001 5015 3030 3000 if v3030='ALL' then 'ALL' else '@'v3030'.pft' fi 3000 @epilogoact.pft 1 UBICAR v5001 v4001 '1' v3000 Isis_Current Isis_Total Isis_From Isis_To f(mfn,1,0)/ if v1002='0' then 'NO EXISTE' /fi 1