Jojo,
Just a formatting clean up of your post. Just put one PRE tag at the start of the code and one /PRE at the end of it, you don't have to mark each line.
>Hi,
>
>Does anybody has created a Form that it will interface to an
MSR or EFTPOS?>
>The reason is, let say for the MSR, When a customer pays and used a
CARD to pay the goods they bought, the user of the system just swipe to a POS Terminal with built-in
CREDIT CARD Reader like
IBM Sureone or POSIFlex Machine and it will get the Information from the Card then send the card info and get autorization from the Bank/card institution if its a valid card and approved.
>
>Or if for the
EFTPOS, just swipe to an
EFTPOS Payment dialog that was interface to the terminal, then the
EFTPOS terminal will get an autorization from the
Financial institution and send back the status of verification if its an approved or declined transaction.
>
>Anyone who have this? Is it possible to share here in UT?
>
>Or maybe you can help me how to make it work this code in VFP.
>This is a dos base code.
>
BOX(08,20,10,60)
@08,25+(30-len(rtrim(cCARD_NAME)))/2 Say rtrim(cCARD_NAME)
@09,22 Say 'Card Number : ' Get cCARD_NBR pict '@K!s1' valid !Empty(cCARD_NBR)
Read
If LastKey() = 27
Restore Screen from wCardScr
SetColor(cCardScr)
Return .T.
Endif
BOX(08,20,11,60)
@08,20+(30-len(rtrim(cCARD_NAME)))/2 Say rtrim(cCARD_NAME)
@09,22 Say 'Card Number : '
@09,37 Say cCARD_NBR Pict '@K!s1'
@10,22 Say 'Card Approval: ' Get cCARD_APROV pict '@!s16'
valid !Empty(cCARD_APROV)
Read
If LastKey() = 27
Restore Screen from wCardScr
SetColor(cCardScr)
Return .T.
endif
>
>What is the equivalent of this format
@K or the whole
@K!sin VFP? I'ved tried to put in the format properties of the textbox but it seems doesn't work! With this function working, it will be a good help to my system as it will lessen mistake in typing the card number or reduce the time in card payment processing which is manual at the moment.
>Any Ideas?
>
>Any help will be appreciated.
>
>Thanks in advance.
>
>
>
>Jojo R. dela Cuesta
>Dalplus Technologies
>http://www.dalplus.com