Fungsi Kunci Rekord

* -=-=-=-=-=-=-=-=-=
Function Kunci_Rek
* =-=-=-=-=-=-=-=-=-
* .T. jika record berhasil dikunci, .F. jika tidak
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
Parameters Detik
Private Tunggu, x, Pilih
x= 0
Tunggu= If(PCount()= 0, 5, Detik)

Do While .T.
If RLock()
Return .T.
Else
Pilih= PopMenu(10, 10, "Record tidak berhasil dikunci ! " +;
"Anda ingin mencoba lagi ? ", " Ya ", " Tidak ")
If Pilih= 2
Exit
Else
Inkey(Tunggu)
Endif
Endif
Enddo
Return .F.