MTPayment

SUBROUTINE MTPayment(ChargeType,PayMethod,EmailTo)

********************************************************

* MTPayment

********************************************************

* Program that builds to payment info request.

* Uses the MT.Template for default templates and

* MTPayment.html for the specific/user defined templates

********************************************************

$options ext

include wbp w3include

include wbp w3ccinclude

CRT "MTPayment"

call w3HtmlInit("MTDemo","")

call w3HTMLHeader("", "")

CHID="MT"

ATSID="TEST0"

Price=1200

call w3HtmlInsertSection("MTPayment.html", "", "HEAD")

**************** eFORM BEGIN ************************

FormName="Payment"

CALL w3HTMLeComBeg(CHID,ATSID,"MT.Template",FormName,"")

*************** ONE TIME OR RECURRING ******************

subs=""

subs<-1>="#Amount#":@vm:Price"R2#8"

IF ChargeType="OneTime" THEN

   call w3HtmlInsertSection("MTPayment.html", subs, "OneTime")

END ELSE

   n=(Price*5/100)+Price

   Price=n/12

   subs<-1>="#RecurCharge#":@vm:Price"r2#8"

   call w3HtmlInsertSection("MTPayment.html", subs, "Recurring")

   CALL w3HTMLeComRecurring(CHID,ATSID,"MT.Template",Cycle,BillMax,Start,Price)

END

*************** PAYMENT METHOD *****************

Email=""

IF PayMethod="CC" THEN

   CCInfo=""

   CCInfo<CCInfo.Name> = "Test data"

   CCInfo<CCInfo.Num>  =  5454545454545454

   CCInfo<CCInfo.Year> =  2001

*  Month & cc type must be specified by the user in this example

      Call                                w3HTMLeComCCInfo(CHID,ATSID,"MTPayment.html",Email,CCInfo,Price,FormName)

END ELSE

   CKInfo=""

   CKInfo<CkInfo.Name> = "test data"

   CKInfo<CkInfo.Acct> = "7601231234"

   CkInfo<CkInfo.ABA>  = "12-1"

   Call w3HTMLeComCKInfo(CHID,ATSID,"MTPayment.html",Email,CKInfo,Price)

END

***************** EMAIL ****************

IF TRIM(EmailTo)#"" THEN

   subs="#EmailTo#":@vm:EmailTo

   call w3HtmlInsertSection("MTPayment.html",subs, "Email")

   Call w3HTMLeComEmailInfo("MT.Template",Email,EmailTo)

END

**************** EXTRA INFO *****************

subs="#ChargeType#":@vm:ChargeType

call w3HtmlInsertSection("MTPayment.html",subs, "ExtraInfo1")

IF ChargeType#"OneTime" THEN

   subs=""

   subs<-1>="#RecurAmount#":@vm:Price

   subs<-1>="#RecurStart#":@vm:Start

   subs<-1>="#RecurLength#":@vm:"12"

   call w3HtmlInsertSection("MTPayment.html",subs, "ExtraInfo2")

END

****************** SUBMIT ******************

IF PayMethod ="CC" and CCInfo<CCInfo.PreCheck>="1" THEN

   call w3HtmlInsertSection("MTPayment.html", "", "TAIL2")

END ELSE

   call w3HtmlInsertSection("MTPayment.html", "", "TAIL")

END

***************** eFORM END ****************

CALL w3HTMLeComEnd

call w3HTMLFormBeg(w3_NP,"")

call w3HtmlInsertSection("MTPayment.html", "", "CANCEL")

CALL w3HTMLFormEnd

Call w3HTMLFooter("","")

RETURN