Restore_cursor

Internφ programovacφ jazyk

function Restore_cursor(var curs : tcursnum) : Boolean;

Parametry

curs otev°en² subkurzor vytvo°en² funkcφ Restrict_cursor

Popis

Procedura Restore_cursor uzav°e subkurzor curs a nahradφ ho p∙vodnφm kurzorem. Po provedenφ tΘto procedury oznaΦuje identifikßtor kurzoru p∙vodnφ kurzor, tak jak byl definovßn p°ed provedenφm prvnφ funkce Restrict_cursor. Procedura Restore_cursor tedy odstranφ efekt vÜech funkcφ Restrict_cursor proveden²ch nad kurzorem curs.

Pokud po provedenφ funkce Restrict_cursor ukonΦφte program bez prob∞hnutφ Restore_cursor, z∙stane otev°en jeden prom∞nn² kurzor a program oznßmφ Nejsou uzav°eny vÜechny kurzory.

Hodnota funkce

Funkce vracφ hodnotu FALSE, pokud se akci poda°ilo ·sp∞Ün∞ provΘst. V opaΦnΘm p°φpad∞ vracφ TRUE a povahu chyby lze zjistit volßnφm funkce Signalize.

P°φklad

var
  id_p : window_id;
cursor
  SEZN_5000;

begin
   ... 
   Open_cursor(SEZN_5000);
{ otev°enφ kurzoru, kter² mß v Φßsti WHERE podmφnku PLAT>5000 }
   if not Restrict_cursor(SEZN_5000,"PLAT>7000") then 
  { z·₧enφ kurzoru podmφnkou PLAT>7000 }
     Open_view("*ZAM╠ST4",SEZN_5000,0,0,0,id_p);  
  { otev°enφ pohledu s p°esm∞rovßnφm na z·₧en² kurzor }
     ... 

    Restore_cursor(SEZN_5000);
 { nßvrat k p∙vodnφmu kurzoru } 
    Open_view("*ZAM╠ST4",sezn_5000,0,0,0,id_p);
 { otev°enφ pohledu do p∙vodnφho kurzoru }
end

Viz