xOn base ciparv1[2] v5001 V1[1] V1[2] Isis_Lock Isis_Status Lock base ciparMfn 2000 1101 5001 5015 9060 if val(v1102) > 0 then '

Error - ' | (|v1102|) |,'El registro no se puede editar en este momento

' else ,@mm.pft,/ fi
cipar base Desplegar Opcion permiso Nuevo Mfn Expresion ValorCapturado Secuencia Identificacion login password Formato Capturado v9010 cttype path_db if p(v9088) then 'Content-type: text/html'/# fi replace(s(cat(v5015)),'%path_database%',v1)/ cat('STW') if p(v5066) then 'STW' fi cat('isisac.tab') cat('isisuc.tab') if v9001='Identificacion' then 'LOGIN' else if v9001='crear' or v9001='nuevoregistro' or v9001='nuevoregistrousuario' then 'CREAR' else if v9001='eliminar' then 'ELIMINAR' else if v9001='iniciacaptura' then 'INICIACAPTURA' else if v9001='capturar' then 'CAPTURAR' else if v9001='iniciacapturademo' then 'INICIACAPTURADEMO' else if v9001='iniciacapturamanual' then 'INICIACAPTURAMANUAL' else if v9001='leer' then 'LEERREGISTRO' else if v9001='editar' then 'EDITAR' else if v9001='actualizar' or v9001='actualizarregistrousuario' then 'ACTUALIZAR' else if v9001='buscar' then 'BUSCAR' else if v9001='cancelar' then 'CANCELAR' else if v9001='presentar' then 'LEER' fi fi fi fi fi fi fi fi fi fi fi fi fi 1 Isis_Total 'acces' '1' v1002 9060 9061 9001 5001 5015 8000 8001 (if v20=v9060 and v30=v9061 then proc('a999~'v30,'~'), fi,/) if a(v999) then 'CONTINUAR_LOGIN' fi '##LLAVE='v30'|',f(mfn,1,0)'|'v40,'|'v10'##'/ ALL 1 @errorid.pft 1 v5001 v2000 v2000 200000 200000 Isis_Total Isis_Status Isis_RecordStatus 5001 ALL 1 'Content-type:text/html',/# @capturaregistro.pft 1 from v5001 v2000 cat(v5001'.fst') v9060 Isis_Lock Isis_Status ALL Delete mfn(0)'

El registro ha sido eliminado!!!'/ 0 v5001 v2000 v9060 cat(v5001'.fst') 200000 200000 Isis_Lock Isis_Status Isis_RecordStatus @prologoact.pft base cipar 9090 5001 5015 9060 'd980'/ (if p(v9090) then 'd'v9090.3/fi)/, (if p(v9090) then if v9090*3<>'' then 'a'v9090.3'²',replace(v9090*3,'\"','"'),'²'/ fi fi)/, 'a980²'v9060,'^d'date'²' 'd9090'/'d5001'/'d5015'/'d9060' Unlock 5001 9001 3030 if v3030='ALL' or v3030='' then 'ALL' else '@../../bases/'v5001'/www/'v3030 '.pft' fi / if v9001='actualizarregistrousuario' then '

Cerrar' else /''/ fi 1 from v5001 v2000 v9060 Isis_Lock Isis_Status Unlock @actualizado.pft 1 v5001 v2000 v2000 Isis_Current Isis_Total Isis_From Isis_To Isis_Status 1102 5001 5015 3030 9002 2000 3030 9060 9001 if v3030='ALL' then v3030 else '@'v3030'.pft' fi