Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Clipper i obrada greški

[es] :: Baze podataka :: Clipper i obrada greški

[ Pregleda: 2216 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

Trtko
Koprivnica

Član broj: 69494
Poruke: 695
*.bilokalnik.hr.



+8 Profil

icon Clipper i obrada greški18.06.2008. u 13:55 - pre 161 meseci
Ako još netko koristi clipper

Negdje na forumu pročitah da cliper nije imao obradu greške
imao je i te kako
Pola dana sam izgubio da najdem program

Code:
      begin sequence
         .......
        vaš kod programa
.......
      recover using greska
      end


  function greska(Err)

   local izbor
   if (err:subsystem=="TERM")
      zanas:={"Ponovo","Prekini"}
      izbor=alert("[tampa~ nije uklju~en ili nema papira",zanas)
      break err
      return nill
   ENDIF

   if (err:subsystem=="DBFNTX" .OR. err:subsystem=="DBFNDX")
      save screen to grmsk
      bojap=setcolor()
      set color to "W+/BG"
      broj=str(err:subcode,4)
      do case 
      case broj="1001"
        PORUGR="Do{lo je do gre{ke u otvaranju baza"
      case broj="1002"
        PORUGR="Do{lo je do gre{ke u otvaranju memo polja .DBT"
      case broj="1003"
        PORUGR="Do{lo je do gre{ke u otvaranju klju~eva"
      endcase
   ENDIF       

   if (err:subsystem=="DBCMD")
      save screen to grmsk
      bojap=setcolor()
      set color to "W+/BG"
      broj=str(err:subcode,4)
      do case 
      case broj="2001"
        PORUGR="Neko drugi koristi bazu   "+chr(13)+;
           "i nemo`e te je osvje`avati"
      endcase
   ENDIF       


   set printer on
   set print to greska.txt
   set console off
   aa:=1
   ? "Program je pao  "+dtoc(date())+"  u   "+time()
   ?
   do while !(procname(aa)=="")

      ? "Gre{ka u programu -> "+procname(aa)+"  u liniji -> "+alltrim(str(procline(aa)))
         
     aa++
   enddo

   set console on
   set printer off
   zanas:={"Pritisni <ENTER>"}
   alert(PORUgr,zanas)    
   break err
   return nill

Edit: Dodati su code tagovi
 
Odgovor na temu

[es] :: Baze podataka :: Clipper i obrada greški

[ Pregleda: 2216 | Odgovora: 0 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.