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
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