>LPARAMETERS nKeyCode, nShiftAltCtrl > >if nkeyCode = 27 > thisform.m_close >endif > >WITH Thisform > IF Thisform.m_DataKeyPress(nKeyCode,.T.) > .txt_name_rx.value = Thisform.p_Buffer > ENDIF >ENDWITH > > >IF nKeyCode = 13 OR nkeyCode = 32 && Enter or space bar > IF EMPTY(THISFORM.txt_name_rx.value) > thisform.txt_name_rx.value = ALLTRIM(STR(rx_number)) + CHRTRAN(STR(refill_no,2),' ','0') > ENDIF > IF Thisform.m_seek_bar() > thisform.p_keyboard = .t. > thisform.m_close > ELSE > thisform.grdUnpdrx.SetFocus > ENDIF >ENDIF >>
>LOCAL llreturn > >llreturn = .f. > >*SELECT UNPDRX > >SELECT unpd_pat > >IF ISDIGIT(thisform.txt_name_rx.value) > mRx_Refill = thisform.txt_name_rx.value > IF LEN(ALLTRIM(mRx_Refill)) = 9 OR LEN(ALLTRIM(mRx_Refill)) = 8 > DO CASE > CASE LEN(ALLTRIM(mRx_Refill)) = 9 > mRx = VAL(SUBSTR(mRx_Refill,1,7)) > mRefill = SUBSTR(mRx_Refill,8,2) > mRefill = '0' + mRefill > mRefill = VAL(mRefill) > CASE LEN(ALLTRIM(mRx_Refill)) = 8 > mRx = VAL(SUBSTR(mRx_Refill,1,6)) > mRefill = SUBSTR(mRx_Refill,7,2) > mRefill = '0' + mRefill > mRefill = VAL(mRefill) > ENDCASE >* SET ORDER TO RX_NO >* IF SEEK(CHRTRAN(STR(mRx,7),' ','0') + STR(mRefill,3)) AND PU_DATE = { / / } AND SELECT = .F. > LOCATE FOR RX_NUMBER = mRx AND REFILL_NO = mRefill AND EMPTY(PU_DATE) AND SELECT = .F. > IF FOUND() > llreturn = .t. > thisform.txt_name_rx.Value = "" > thisform.p_buffer = "" > ENDIF > ENDIF > >ENDIF >RETURN llreturn >>