I would like to input a credit card number and expiration date using the number pad in this xdialog.
I cnt get the numbers to go into the expiration date.
anyhelp would be appreciated.
Charlie Crimmel
'---------------------------
'Date Created: 13-Dec-2010 05:24:53 PM
'Last Updated: 13-Dec-2010 06:34:03 PM
'Created By : charlie
'Updated By : charlie
trace.clear()
t1=table.current()
dim global base as C
dim global base1 as C
base=""
base1=""
dim global vccnumber as C
vtable = "1"
spin="2"
dim global vop as n
vop = 1
heading_string1 = "Please Enter Credit Card Number and Expiration Date"
ui_modeless_dlg_box("vn",<<%dlg%
{xmargin=4}
{ymargin=.1}
{nocaption}
{region}
{font=a,12,b}
{text=60,4:heading_string1};
{font=a,8}
{endregion};
{region0}
{font=a,12,b}
{region1}{font=a,14,b}{ypad=2}{lf=2};[.60,2 base]{endregion1};
;
{region2}{font=a,14,b}{ypad=2}{lf=2};[.10,2 base1]{endregion2};
{endregion0};
{font=a,30,b}<12,2 1!x1> {sp} <12,2 2!x2> {sp} <12,2 3!x3>;
;
{font=a,30,b}<12,2 4!x4> {sp} <12,2 5!x5> {sp} <12,2 6!x6>;
;
{font=a,30,b}<12,2 7!x7> {sp} <12,2 8!x8> {sp} <12,2 9!x9>;
;
{font=a,30,b}<12,2 0!x0> {sp} <7,2/!x/> {font=a,8};
;
;
{font=a}<25,2 Clear!clear><25,2 Reset!reset>;{font=a};
;
<25,2 OK!OK><25,2Cancel!Cancel>;
; ;
%dlg%,<<%code%
select
case left(a_dlg_button,1)="x"
base=base+right(a_dlg_button,1)
case a_dlg_button="clear"
base = left(base,len(base)-1)
case a_dlg_button="Reset"
vccnumber = trim(base)
base=""
case a_dlg_button="OK"
vccnumber = trim(base)
trace.WriteLn("OK CCNumber = " + vccnumber)
t1.change_begin()
t1.CCNUMBER = vccnumber
t1.change_end()
topparent.commit()
CCNUMBER.refresh()
CCExpire.refresh()
ui_modeless_dlg_close("vn")
case a_dlg_button="cancel"
ui_modeless_dlg_close("vn")
end select
%code%)
I cnt get the numbers to go into the expiration date.
anyhelp would be appreciated.
Charlie Crimmel
'---------------------------
'Date Created: 13-Dec-2010 05:24:53 PM
'Last Updated: 13-Dec-2010 06:34:03 PM
'Created By : charlie
'Updated By : charlie
trace.clear()
t1=table.current()
dim global base as C
dim global base1 as C
base=""
base1=""
dim global vccnumber as C
vtable = "1"
spin="2"
dim global vop as n
vop = 1
heading_string1 = "Please Enter Credit Card Number and Expiration Date"
ui_modeless_dlg_box("vn",<<%dlg%
{xmargin=4}
{ymargin=.1}
{nocaption}
{region}
{font=a,12,b}
{text=60,4:heading_string1};
{font=a,8}
{endregion};
{region0}
{font=a,12,b}
{region1}{font=a,14,b}{ypad=2}{lf=2};[.60,2 base]{endregion1};
;
{region2}{font=a,14,b}{ypad=2}{lf=2};[.10,2 base1]{endregion2};
{endregion0};
{font=a,30,b}<12,2 1!x1> {sp} <12,2 2!x2> {sp} <12,2 3!x3>;
;
{font=a,30,b}<12,2 4!x4> {sp} <12,2 5!x5> {sp} <12,2 6!x6>;
;
{font=a,30,b}<12,2 7!x7> {sp} <12,2 8!x8> {sp} <12,2 9!x9>;
;
{font=a,30,b}<12,2 0!x0> {sp} <7,2/!x/> {font=a,8};
;
;
{font=a}<25,2 Clear!clear><25,2 Reset!reset>;{font=a};
;
<25,2 OK!OK><25,2Cancel!Cancel>;
; ;
%dlg%,<<%code%
select
case left(a_dlg_button,1)="x"
base=base+right(a_dlg_button,1)
case a_dlg_button="clear"
base = left(base,len(base)-1)
case a_dlg_button="Reset"
vccnumber = trim(base)
base=""
case a_dlg_button="OK"
vccnumber = trim(base)
trace.WriteLn("OK CCNumber = " + vccnumber)
t1.change_begin()
t1.CCNUMBER = vccnumber
t1.change_end()
topparent.commit()
CCNUMBER.refresh()
CCExpire.refresh()
ui_modeless_dlg_close("vn")
case a_dlg_button="cancel"
ui_modeless_dlg_close("vn")
end select
%code%)
Comment