PROCEDURE MY_ERROR PARAMETERS gnError, gcMess, gcProg, gnLineNo LOCAL cMESS, mNilai cMESS='Kode: ' + LTRIM(STR(gnError))+CHR(13)+; 'Jenis: ' + gcMess+CHR(13)+; 'Prosedur: ' + gcProg+CHR(13)+; 'Nomor Baris: '+ LTRIM(STR(gnLineNo))+CHR(13) DO CASE case gnError=152 and occurs('KALKULATOR',cMess)>0 MESSAGEBOX('ISIAN BELUM LENGKAP',0+48,'GASY') RETURN CASE gnError=1705 IF MESSAGEBOX(cMess,5,'File tidak bisa dibuka bersama-sama!!')=4 RETRY ENDIF RETURN CASE gnError=1771 IF MESSAGEBOX(cMess,5,'Pilihan obyek ini sudah diaktifkan')=4 RETRY ENDIF RETURN CASE gnError=1 IF MESSAGEBOX(cMess,5+48,'File tidak ditemukan')=4 RETRY ENDIF RETURN OTHERWISE mNilai=MESSAGEBOX(cMess,2,'Gagal Proses') DO CASE CASE mNilai=4 RETRY CASE mNilai=3 RETURN TO MASTER CASE mNilai=5 RETURN ENDCASE ENDCASE ENDPROC