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