xOn

cipar base from to Expresion Formato Mfn marc Opcion Path inven userid usuario replace(v3000,'\"','"') path_db replace(s(cat(v5015)),'%path_database%',v1)/ select s(v9001) case 'devolver': 'DEVOLVER' case 'buscar_cipres':'BUSCARCIPRES' case 'buscar_libro':'BUSCARLIBROS' case 'modificar_busqueda':'BUSCARLIBROS' case 'presentar_busqueda':'BUSCARLIBROS' case 'libros_prestados':'LIBROSPRESTADOS' case 'ver_prestamos':'LIBROSPRESTADOS' case 'prestamousuario':'PRESTAMOUSUARIO' case 'reservar':'PRESTAMOUSUARIO' case 'ubicausuario':'UBICAUSUARIO' case 'verusuario':'VERUSUARIO' endsel UBICAUSUARIO presta 1 1 v3000 Isis_Current Isis_Total Isis_From Isis_To 3000 v20 3000 '$$USUARIO:'V20/ 1 PRESTAMOUSUARIO BUSCARCIPRES 'users' '1' '' "!C"v3000 Isis_Current Isis_Total Isis_From Isis_To 5001 5015 3030 3000 8000 1091 @busers.pft 3000 if val(v1002)=0 then v3000 '  Usuario no existe'/fi v3000"-P$" 1 LIBROSPRESTADOS 'presta' '1' '' v3000 Isis_Current Isis_Total Isis_From Isis_To 5001 9001 5015 3030 3000 8000 1091 3020 3021 9060 '@'v3030,'libros.pft' 3000 9060 if v9001<>'libros_prestados' and v9001<>'ver_prestamos' and v9001<>'reservar' then @epresta.pft fi if v9001='reservar' then @reserva.pft fi 1 BUSCARLIBROS v5001 '1' v3000 Isis_Current Isis_Total Isis_From Isis_To 5001 5015 3030 3000 8000 1091 9001 2023 '@'v3030,'.pft' 3000 1 DEVOLVER presta v2000 v9060 cat('presta.fst') Isis_Lock Isis_Status Lock 'd1'/'a1~X~''a980~'v9060'^d'date'~' Unlock 1 VERUSUARIO users 1 1 v3000 Isis_Current Isis_Total Isis_From Isis_To '' '' ''/ ''/ ''/ '' @busers.pft Isis_To '' 1