xOn

cipar base Opcion Mfn ValorCapturado login Formato 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') select s(v9001) case 'crear': 'CREAR' case 'actualizar': 'ACTUALIZAR' case 'addocc': 'ACTUALIZAR' case 'eliminar': 'ELIMINAR' case 'cancelar': 'CANCELAR' case 'leer': 'LEER' endsel 1 CREAR v5001 cat(v5001'.fst') New Isis_Status 8080 9090 (if p(v9090) then 'd'v9090.4/fi),(if p(v9090) then if v9090*4<>'' then 'a'v9090.4'²',replace(v9090*4,'\"','"'),'²'/ fi fi) 'd9090'/'d5001'/'d5015'/ Unlock 5001 5015 9001 #'MFN:'F(MFN,1,0)/ 1 ELIMINAR from v5001 v2000 cat(v5001'.fst') v9060 Isis_Lock Isis_Status Delete if v1102='0' then 'DELETED' else 'NOT DELETED' FI/ 1 ACTUALIZAR v5001 v2000 v9060 cat(v5001'.fst') 200000 200000 Isis_Lock Isis_Status base cipar 9090 9060 9001 if v9001<>'addocc' then (if p(v9090) then 'd'v9090.4/fi), fi (if p(v9090) then if v9090*4<>'' then 'a'v9090.4'²',v9090*4,'²'/ fi fi)/ 'd9090'/'d5001'/'d5015'/'d9060'/'d9001' Unlock5001 5015 9001 #'MFN:'F(MFN,1,0)/ 1 CANCELAR from v5001 v2000 v9060 200000 200000 Isis_Lock Isis_Status Unlock @actualizado.pft 1 LEER v5001 v5001 200000 200000 Isis_Total Isis_Status Isis_RecordStatus 'MAXMFN:'f(val(v1091^n)-1,1,0)' ## ' if val(v2000) >val(v1091^n) then f(val(v1091^n)-1,1,0) else v2000 fi if val(v2000) >val(v1091^n) then f(val(v1091^n)-1,1,0) else v2000 fi 5001 ALL ELIMINADO 1