[ Trtko @ 18.06.2008. 13:55 ] @
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 |