--------------- Biz_ApplicationFacade.aspx
Public Function UpdateAnapplication (BYVAL Application As Biz_Application) AS EDATAACcessState
SQL.OpenConnection ()
SQL.BEGINTRANSAction ()
DIM State as edataaccessState
'User Detail Update
State = Application.Updatedata (SQL)
IF State <> edataaccessstate.Normal Then
Sql.rollbacktransaction ()
Else
Log.fk_user_id = Application.create_ID
Log.fk_action_type = 2 'э
Log.fk_resource_type = 1 '╰╰ ノめ
Log.fk_resource_id = Application.pk_Application_code
'INSERT A log
State = log.insertdata (SQL)
IF State <> edataaccessstate.Normal Then
Sql.rollbacktransaction ()
Else
Sql.committransaction ()
END IF
END IF
SQL.CloseConnection ()
Return State
END FUNCTION
Private Sub Page_Load (Byvale AS System.Object, Byval E AS System.Eventargs) Handles MyBase.Load
' 硂 硂 伫ㄏノ 祘 α 绁 绁 ﹍ て
'Make the page expire immediately
Response.cache.setcacheability (httpcacheability.nocache)
IF not ispostback.
DIM Right As ErightType = Authorization.getUserright (Page)
If Authorization.Pass (me) = false kil
'Authorization Faled
Page.Response.Redirect ("../../../ login.aspx")
'
'Elseif Right = ErightType.none Then
'Page.Response.Redirect ("../../../ login.aspx")
Else
ViewState.Add ("Application_Status", "")
RESETALLCONTROL ()
SELECT CASE Page.Request.QueryString ("Mode")
Case "View" '聅 聅 家
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ** ******** '' '' '' '' '' '' '' '' '' '' '' '' 'ViewState.Item ("Application_Status") = "View"
SetPageState (false)
Showdata (Page.Request.QueryString ("Application_ID")))
Case "edit" '絪 絪 家
If Right = ErightType.View Then
ViewState.Item ("Application_Status") = "View"
SetPageState (false)
Showdata (Page.Request.QueryString ("Application_ID")))
Else
ViewState.Item ("Application_Status") = "Edit"
SetPagestate (TRUE)
Showdata (Page.Request.QueryString ("Application_ID")))
END IF
Case "add" '穝糤家
ViewState.Item ("Application_Status") = "add"
SetPagestate (TRUE)
Case "Review" '糵 家
ViewState.Item ("Application_status") = "Review"
Session.add ("Application_isneedchecked", False
Showdata (Page.Request.QueryString ("Application_ID")))
SetPageState (false)
End SELECT
END IF
END IF
End Sub
'Reset All Sub Control
Private sub resetallControl ()
'DIM Userid As String = Session.Item ("UserInfo")
DIM Userid as string = "steven"
'ビ ビ
DataSourceGenerator.setBankDataSourceByUserid (me.ddlbankname.Items, userid)
DataSourceGenerator.SetcreditcardDataSourceBybankidanduserid (me.ddlcreditcardtype.items, me.ddlbankname.selectedValue, UserID)
ME.RBTRMB.CHECKED = True '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '" ******************* "'' '' '' '' '' '' '' '' '
Me.txtHercurrencyName.Text = ""
'' '' '' '' '' '' '' '' '' '' '' '' '' '********* *********** '' '' '' '' '' '' ''
Me.txtgoldencardyearlyfee.text = 0
Me.txtnormalcardyearlyfee.text = 0
Me.txtsubcardyearlyfee.text = 0
'ビ ビ
Me.txtApplicantCname.Text = 0
Me. RBTman.checked = true
Me.txtApplicantCardNumber.Text = 0
DataSourceGenerator.SetcommondataSource (Me.ddlapplicanted Technology.Items, EcodeType.eduCationLevel)
Me.txtApplicant_address_Province.Text = ""
Me.txtApplicant_address_city.text = "" "
Me.txtApplicant_address_zone.text = "" "
Me.txtApplicant_address_other.text = "" "
Me.txtApplicant_addrzipcode.text = ""
Me.txtApplicant_addrtl_zone.text = ""
Me.txtApplicant_addrtel_no.text = ""
Me.txtApplicant_Mobile.Text = ""
Me.txtApplicant_Email.Text = ""
Me.txtApplicant_orgfulllname.text = ""
Me.txtApplicant_Tradtype.Text = "" "
Me.txtApplicant_orgaddress_Province.Text = ""
Me.txtApplicant_orgaddress_city.text = ""
Me.txtApplicant_orgaddress_zone.text = "" "" "me.txtapplicant_orgaddress_other.text =" "
Me.txtApplicant_orgzipcode.text = ""
Me.txtApplicant_orgtel_zone.text = "" "
Me.txtApplicant_orgtel_no.text = ""
DataSourceGenerator.setcommondataSource (me.ddlapplicant_poslevel.items, ecodettype.positionledLevel)
DataSourceGenerator.setCommondataSource (me.ddlapplicant_orgtype.items, ecodettype.orgnizationtype)
Me.txtApplicant_WorkXP_Year.Text = 0
Me.txtApplicant_WorkXP_MONTH.TEXT = 0
Me.txtapplicant_yearlyincome.text = "" "
Me.txtApplicant_HouseAddress_Province.Text = ""
Me.txtApplicant_HouseAddress_city.text = ""
Me.txtApplicant_HouseAddress_zone.text = ""
Me.txtApplicant_HouseAddress_other.text = ""
'玂
Me.tXtrelative_cname.text = ""
Me.txTrelative_addrtl_zone.text = "" "
Me.tXtrelative_addrtl_no.text = "" "
Me.txTreLative_orgname.text = ""
Me.txTrelative_orgtel_zone.text = "" "
Me.tXtrelative_orgtel_no.text = "" "
Me.txTreLative_Mobile.Text = ""
Me.txtContact_cname.text = ""
Me.txtContact_addrtl_zone.text = "" "
Me.txtContact_Addrtel_no.text = "" "
Me.txtContact_orgname.text = ""
Me.txtContact_orgtel_zone.text = "" "
Me.txtContact_orgtel_no.text = "" "
Me.txtContact_Mobile.Text = ""
'ㄤ
'DataSourceGenerator.getPosLevel (Me.DDLActivityCode.Items)
'DataSourceGenerator.setSalechanNeelDataSource (me.ddlsalespipecode.items)
Me.txtbranchcode.text = ""
Me.tXtremark.Text = ""
DataSourceGenerator.setsellerDataSourceByUserid (me.ddlsalescode.Items, userid) '糵
Me.RBtcheckpass.checked = TRUE
Me.Rbtcheckfail.checked = FALSE
Me.txTreason.text = ""
End Sub
'Set Edit Area State, Enabled or Disabled
Private sub setpagestate (Byval Editenabled as Boolean)
'ビ ビ
Me.ddlbankname.enabled = editenabled
Me.ddlbankname.cssclass = convertor.setStatecss (DDLBankname.cssClass, Editenable)
Me.ddlcreditcardtype.enabled = editenabled
Me.ddlcreditcardType.cssClass = Convertor.SetStatecss (DDLCreditcardtype.cssclass, Editenable)
ME.RBTRMB.ENABLED = EditNabled
ME.RBTRMB.CSSCLASS = Convertor.SetStatecss (RBTRMB.CSSCLASS, EDITENABLED)
ME.RBTDOLLAR.Enabled = Editenabled
ME.RBTDOLLAR.CSSCLASS = Convertor.SetStatecss (RBTDOLLAR.CSSCLASS, EDITENABLED)
Me.Rbthkcurrency.enabled = editenabled
ME.RBTHKCURRENCY.CSSCLASS = Convertor.SetStateCSS (RBTHKCURRENCY.CSSCLASS, EDITENABLED)
Me.Rbtothercurrency.enabled = editenabled
Me.Rbtothercurrency.cssclass = convertor.setStatecss (RBTothercurrency.cssclass, editenable)
Me.txtothercurrencyname.readonly = not editenabled
Me.txtothercurrencyname.cssclass = convertor.setStatecss (txtothercurrencyname.cssclass, editenable)
Me.txtgoldencardyearlyfee.readonly = not Editenabled
Me.txtgoldencardyearlyfee.cssclass = convertor.setStatecss (txtgoldencardyearlyfee.cssclass, editenable)
Me.txtnormalcardyearlyfee.readonly = not editenabled
Me.txtnormalcardyearlyfee.cssclass = convertor.setStatecss (txtnormalcardyearlyfee.cssclass, editenable)
Me.txtsubcardyearlyfee.readonly = NOT EditNabled
Me.txtsubcardyearlyfee.cssclass = convertor.SetStatecss (txtSubcardyearlyfee.cssclass, editenable) 'ビ ビ
Me.txtApplicantCname.Readonly = NOT EditNabled
Me.txtapplicantcname.cssclass = convertor.setStatecss (txtapplicantcname.cssclass, editenable)
ME.RBTMAN.Enabled = Editenabled
Me.rtman.cssclass = convertor.setStatecss (RBTMAN.CSSCLASS, EDITENABLED)
ME.RBTWOMAN.Enabled = EditNabled
ME.RBTWOMAN.CSSCLASS = Convertor.SetStatecss (RBTWOMAN.CSSCLASS, EDITENABLED)
Me.txtApplicantCardNumber.Readonly = NOT EditNabled
Me.txtApplicantCardNumber.cssClass = Convertor.SetStatecss (txtapplicantcardnumber.cssclass, editenable)
Me.ucdatbirdhday.enable = editenabled
Me.ddlapplicanteduCation.Enabled = EditNabled
Me.ddlapplicanteduCation.cssClass = Convertor.SetStateCSS (DDLAPPLICANTEDUCATION.CSSCLASS, EDITENABLED)
Me.txtApplicant_address_Province.Readonly = NOT EditNabled
Me.txtApplicant_address_Province.cssClass = Convertor.SetStateCSS (txtapplicant_address_province.cssclass, editenable)
Me.txtApplicant_address_city.readonly = not Editenabled
Me.txtApplicant_address_city.cssclass = convertor.setStatecss (txtapplicant_address_city.cssclass, editenable)
Me.txtApplicant_address_zone.readonly = NOT EditNabled
Me.txtApplicant_address_zone.cssclass = convertor.setStatecss (txtapplicant_address_zone.cssclass, editenable)
Me.txtApplicant_address_other.readonly = not editenabled
Me.txtApplicant_address_other.cssclass = convertor.setStatecss (txtapplicant_address_other.cssclass, editenable)
Me.txtApplicant_addrzipcode.readonly = not editenabled
Me.txtApplicant_addrzipcode.cssclass = convertor.setStatecss (txtapplicant_addrzipcode.cssclass, editenable) me.txtapplicant_addrtel_zone.readonly = not Editenabled
Me.txtApplicant_addrtel_zone.cssclass = convertor.setStatecss (txtapplicant_addrtatecss (txtapplicant_addrtatel_zone.cssclass, editenable)
Me.txtApplicant_addrtl_no.readonly = not editenabled
Me.txtApplicant_addrtl_no.cssclass = convertor.setStatecss (txtapplicant_addrtatel_no.cssclass, editenable)
Me.txtApplicant_Mobile.readOnly = NOT EditNabled
Me.txtApplicant_Mobile.cssClass = Convertor.SetStateCSS (txtapplicant_mobile.cssclass, editenable)
Me.txtApplicant_Email.Readonly = NOT EditNabled
Me.txtApplicant_Email.cssClass = Convertor.SetStatecss (txtapplicant_email.cssclass, editenable)
Me.txtApplicant_orgfullname.readonly = not editenabled
Me.txtApplicant_orgfullname.cssclass = convertor.setStatecss (txtapplicant_orgfullname.cssclass, editenable)
Me.txtApplicant_Tradetype.Readonly = not Editenabled
Me.txtApplicant_Tradtype.cssClass = Convertor.SetStatecss (txtapplicant_tradetype.cssclass, editenable)
Me.txtApplicant_orgaddress_Province.Readonly = NOT EDITENABLED
Me.txtApplicant_orgaddress_Province.cssClass = Convertor.SetStatecss (txtapplicant_orgaddress_Province.cssClass, EditENables)
Me.txtapplicant_orgaddress_city.readonly = not EditNabled
Me.txtApplicant_orgaddress_city.cssclass = convertor.setStatecss (txtapplicant_orgaddress_city.cssclass, editenable)
Me.txtApplicant_orgaddress_zone.readonly = NOT EditNabled
Me.txtApplicant_orgaddress_zone.cssclass = convertor.setStatecss (txtapplicant_orgaddress_zone.cssclass, editenable)
Me.txtApplicant_orgaddress_other.readonly = NOT EditNabled
Me.txtApplicant_orgaddress_other.cssclass = convertor.setStatecss (txtapplicant_orgaddress_other.cssclass, editenable)
Me.txtApplicant_orgzipcode.readonly = not editenabled
Me.txtApplicant_orgzipcode.cssclass = convertor.setStatecss (txtapplicant_orgzipcode.cssclass, editenable)
Me.txtApplicant_orgtel_zone.readonly = not editenabled
Me.txtApplicant_orgtel_zone.cssclass = convertor.setStatecss (txtapplicant_orgtel_zone.cssclass, editenable)
Me.txtApplicant_orgtel_no.readonly = NOT EditNabled
Me.txtApplicant_orgtel_no.cssclass = convertor.setStatecss (txtapplicant_orgtel_no.cssclass, editenable)
Me.ddlapplicant_poslevel.enabled = editenabled
Me.ddlapplicant_poslevel.cssclass = convertor.setStatecss (DDLAPPLICANT_POSLEVEL.CSSCLASS, EDITENABED)
Me.ddlapplicant_orgtype.enabled = editenabled
Me.ddlapplicant_orgtype.cssclass = convertor.setStateCSS (DDLAPPLICANT_ORGTYPE.CSSCLASS, EDITENABLED)
Me.txtApplicant_WorkXP_Year.Readonly = not Editenabled
Me.txtApplicant_WorkXP_Year.cssClass = Convertor.SetStatecss (txtapplicant_workxp_year.cssclass, editenable)
Me.txtApplicant_WorkXP_Month.Readonly = NOT EditNabled
Me.txtApplicant_WorkXP_MONTH.CSSCLASS = Convertor.SetStatecss (txtapplicant_workxp_month.cssclass, editenable)
Me.txtApplicant_YearLyIncome.Readonly = not EditNabled
Me.txtapplicant_yearlyincome.cssclass = convertor.setStatecss (txtapplicant_yearlyincome.cssclass, editenable)
Me.txtApplicant_HouseAddress_Province.Readonly = NOT EDITENABLED
Me.txtApplicant_Houseaddress_Province.cssClass = Convertor.SetStatecss (txtapplicant_houseaddress_province.cssclass, editenable)
Me.txtApplicant_HouseAddress_city.readonly = not Editenabled
Me.txtapplicant_houseaddress_city.cssclass = convertor.setStatecss (txtapplicant_houseaddress_city.cssclass, editenable)
Me.txtApplicant_HouseAddress_zone.readonly = NOT EditNabled
Me.txtApplicant_Houseaddress_zone.cssclass = Convertor.SetStatecss (txtapplicant_houseaddress_zone.cssclass, editenable)
Me.txtApplicant_HouseAddress_other.readonly = NOT EditNabled
Me.txtapplicant_houseaddress_other.cssclass = convertor.setStatecss (txtApplicant_houseaddress_other.cssclass, editenable)
'玂
Me.txTrelative_cname.readonly = not Editenabled
Me.txTreLative_cname.cssclass = Convertor.SetStatecss (txtRelative_cname.cssclass, editenable)
Me.txTrelative_addrtel_zone.readonly = not editenabled
Me.txTreLative_addrtel_zone.cssclass = convertor.setStatecss (txtRelative_addrtel_zone.cssclass, editenable)
Me.txTreLative_Addrtel_no.readonly = not Editenabled
Me.txTrelative_addrtel_no.cssclass = convertor.setStatecss (txtRelative_addrtatel_no.cssclass, editenable)
Me.txTreLative_orgname.readonly = not Editenabled
Me.txTreLative_orgname.cssclass = Convertor.SetStatecss (TXTRELATIVE_Orgname.cssclass, Editenable)
Me.txTreLative_orgtel_zone.readonly = not Editenabled
Me.txTrelative_orgtel_zone.cssclass = convertor.setStatecss (txtRelative_orgtel_zone.cssclass, editenable)
Me.txTreLative_orgtel_no.readonly = not editenabled
Me.txTreLative_orgtel_no.cssclass = convertor.setStatecss (txtRelative_orgtel_no.cssclass, editenable)
Me.txTreLative_Mobile.readOnly = NOT EditNabled
Me.txTreLative_Mobile.cssClass = Convertor.SetStatecss (txtRelative_Mobile.cssclass, EditENables)
Me.txtContact_cname.readonly = not EditNabled
Me.txtContact_cname.cssclass = convertor.SetStatecss (txtContact_cname.cssclass, editenabled) me.txtContact_addrtel_zone.readonly = not EditNabled
Me.txtContact_addrtel_zone.cssclass = convertor.setStatecss (txtContact_addrtel_zone.cssclass, editenable)
Me.txtContact_addrtel_no.readonly = not editenabled
Me.txtContact_addrtel_no.cssclass = convertor.setStatecss (txtContact_addrtel_no.cssclass, editenable)
Me.txtContact_orgname.readonly = not Editenabled
Me.txtContact_orgname.cssclass = Convertor.SetStatecss (txtcontact_orgname.cssclass, editenable)
Me.txtContact_orgtel_zone.readonly = not editenabled
Me.txtContact_orgtel_zone.cssclass = convertor.setStatecss (txtcontact_orgtel_zone.cssclass, editenable)
Me.txtContact_orgtel_no.readonly = not editenabled
Me.txtContact_orgtel_no.cssclass = convertor.setStatecss (txtContact_orgtel_no.cssclass, editenable)
Me.txtContact_Mobile.Readonly = not EditNabled
Me.txtContact_Mobile.cssclass = Convertor.SetStateCSS (txtcontact_mobile.cssclass, editenable)
'ㄤ
Me.ucdatKeyindate.enable = FALSE
Me.ddLActivityCode.Enabled = EditNabled
Me.ddLactivityCode.cssClass = Convertor.SetStateCSS (DDLACTIVITYCODE.CSSCLASS, EDITENABED)
Me.ddlsalespipecode.Enabled = EditNabled
Me.ddlsalespipecode.cssclass = convertor.setStatecss (DdlsaSpipecode.cssclass, editenable)
Me.txtbranchcode.readonly = not editenabled
Me.txtbranchcode.cssclass = convertor.setStatecss (txtbranchcode.cssclass, editenable)
Me.tXtremark.readOnly = not Editenabled
Me.tXtremark.cssclass = convertor.setStatecss (txtreme.cssclass, editenable)
Me.ddlsalescode.enabled = editenabled
Me.ddlsalescode.cssclass = convertor.SetStatecss (ddlscode.cssclass, editenabled) '' '' '' '' '' '' '' '' '' ********** ************************ "'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' '' '' '' '' '' ''
'糵
'Me.rtcheckpass.enabled = editenabled
'Me.rtcheckpass.cssclass = convertor.setStatecss (RBTCHECKPass.cssclass, EditNable)
'Me.rtcheckfail.enabled = editenabled
'Me.rtcheckfail.cssclass = convertor.setStatecss (RBTCHECKFAIL.CSSCLASS, EDITENABLED)
'Me.txtreason.readonly = not EditNabled
'Me.txtreason.cssclass = convertor.setStatecss (txtreason.cssclass, editenable)
' 跋
If ViewState.Item ("Application_Status") = "Review" THEN
Me.btnleft.visible = not editenabled
Me.btnleft.cssclass = convertor.setStatecss (btnleft.cssclass, not editenable)
Me.btnright.visible = not editenabled
Me.btnright.cssclass = convertor.setStatecss (btnright.cssclass, not editenable)
Else
Me.btnleft.visible = editenabled
Me.btnleft.cssclass = convertor.setStatecss (btnleft.cssclass, editenable)
Me.btnright.visible = Editenabled
Me.btnright.cssclass = convertor.setStatecss (btnright.cssclass, editenable)
END IF
If ViewState.Item ("Application_Status") = "View" ORSE ("Application_Status" = "Review" and session.Item ("Application_isneedChecked") <> true)
Me.btnok.visible = falseme.btnok.cssclass = convertor.setStatecss (btnok.cssclass, false)
Else
Me.btnok.visible = true
Me.btnok.cssclass = convertor.setStatecss (btnok.cssclass, true)
END IF
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
If ViewState.Item ("Application_Status") = "Review" and session.Item ("Application_isneedChecked" = true kil
ME.RBTCHECKPASS.ENABED = true
Me.rtcheckpass.cssclass = convertor.setStatecss (RBTCHECKPass.cssclass, true)
Me.rtcheckfail.enabled = true
ME.RBTCHECKFAIL.CSSCLASS = Convertor.SetStatecss (RBTCHECKFAIL.CSSCLASS, TRUE)
Me.txTreason.Readonly = FALSE
Me.txTreason.cssClass = Convertor.SetStateCSS (TXTREASON.CSSCLASS, TRUE)
Else
Me.rtcheckpass.enabled = false
Me.rtcheckpass.cssclass = convertor.setStatecss (RBTCHECKPass.cssclass, false)
Me.RBtcheckfail.Nabled = FALSE
Me.rtcheckfail.cssclass = convertor.setStatecss (RBTCHECKFAIL.CSSCLASS, FALSE)
Me.tXTreason.Readonly = TRUE
Me.tXTreason.cssclass = Convertor.SetStatecss (txtreason.cssclass, false)
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'End If.'
End Sub
Private sub btnok_click (byval sender as system.object, byval e as system.Web.ui.ImageClicKeventargs) Handles btnok.click
DIM Application As Biz_Application
DIM ApplicationAccess As New Biz_ApplicationFacade
DIM SerialNumber As New CMN_SERIALNUMBER
DIM SerialnumberAccess as new cmn_serialnumberfacade
DIM Application_History As New Biz_ApplicationHISTORY
'DIM Application_HistoryAccess As New Biz_ApplicationHistoryFacade
If ViewState.Item ("Application_Status") = "add" then
Application = New Biz_Application
Application.fk_status = 1 '穝 穝
Serialnumber.pk_system_id = "csms"
SerialNumber.pk_serial_id = "Application"
SerialnumberAccess.getaserialNumber (SerialNumber)
Application.pk_application_code = generateApplicationcode (SerialNumber.Serial_Number)
Application.fk_report_code1 = ""
Application.fk_report_code2 = ""
Application.create_id = "steven"
SerialNumber.Serial_Number = Application.pk_Application_code
END IF
'' '' '' '' '' '' '' '' ***************** "'' '' '' '' '' ' '' '' ''
If ViewState.Item ("Application_Status") = "Edit" ThenApplication = session.item ("Application_MT")
Application.fk_status = 1 '穝 穝
Application.UPD_ID = "steven"
END IF
'' '' '' '' '******************************** "" "" '' '' '' ''
'' '' '' '' '**********************' '' '' '' ''
If ViewState.Item ("Application_Status") = "Review" THEN
Application = session.item ("Application_mt")
Application.UPD_ID = "steven"
END IF
'' '' '' '' '' *********************** "'' '' '' '' '' ''
Me.SetApplicationValues (Application)
If ViewState.Item ("Application_Status") = "add" then
If ApplicationAccess.AddaApplication (Application, SerialNumber, Application_History) = edataaccessstate.normal dam
Alertscript.showalert (ME, ", Alertscript.Message.AddsuCcess)
'Page.Response.Redirect ("Application_qd.aspx? Action = addsuccess")
Else
Alertscript.showalert (ME, ", Alertscript.Message.Addfailed)
END IF
END IF
'''''''''''''****************8''''''''''''''
If ViewState.Item ("Application_Status" = "Edit" THEN
If ApplicationAccess.UpdateAnapplication (Application) = edataaccessState.Normal Then
Alertscript.showalert (ME, ", Alertscript.ModifySUCCESS)
'Page.Response.Redirect ("Application_QD.ASPX? Action = Editsuccess") ELSE
Alertscript.showalert (me, ", alertscript.Mestage.Modifyfailed)
END IF
END IF
'' '' '' '' '*********** 888' '' '' '' '' '' ''
'' '' '' '' '**********************' '' '' '' ''
If ViewState.Item ("Application_Status") = "Review" THEN
If me.rtcheckpass.checked = true kil
END IF
END IF
'' '' '' '' '' *********************** "'' '' '' '' '' ''
End Sub
Private function generateApplicationcode (byval str as string)
DIM I as integer
DIM Strappcode As String
Strappcode = STR 1
While Strappcode.Length <> str.length
Strappcode = "0" strappcode
End while
Return Strappcode
END FUNCTION
Private sub setApplicationValues (Byref Application As Biz_Application)
'ビ ビ
Application.fk_bank_id = me.ddlbankname.selectedValue
Application.fk_creditcard_id = me.ddlcreditcardtype.selectedValue
If me.rbtrmb.checked the
Application.fk_currency = 1
Application.othercurrency_name = ""
Elseif Me. RBTDOLlar.Checked Then
Application.fk_currency = 2
Application.othercurrency_name = ""
Elseif me.rbthkcurrency.checked the
Application.fk_currency = 3
Application.othercurrency_name = ""
Else
Application.fk_currency = 0
Application.othercurrency_name = me.txtHercurrencyName.Text
END IF
Application.goldencardyearlyfee = me.txtgoldencardyearlyfee.textapplication.normalcardyearlyfee = me.txtnormalcardyearlyfee.text
Application.subcardyearlyfee = me.txtsubcardyearlyfee.text
'ビ ビ
Application.Applicant_cname = me.txtapplicantcname.text
If me.rtman.checked then
Application.Applicant_gender = 0
Else
Application.Applicant_gender = 1
END IF
Application.Applicant_CardNo = Me.txtApplicantCardNumber.Text
If me.ucdatbirdhday.tbx <> "".
Application.Applicant_birthday = me.ucdatbirthday.tbx
Else
Application.Applicant_Birthday = Nothing
END IF
If me.ddlapplicanteducation.selectedIndex <> 0 THEN
Application.applicant_education = me.ddlapplicanteduCation.selected Value
Else
Application.Applicant_EDucation = Nothing
END IF
Application.applicant_address_province = me.txtapplicant_address_Province.Text
Application.Applicant_address_city = me.txtapplicant_address_city.text
Application.Applicant_address_zone = me.txtapplicant_address_zone.text
Application.Applicant_address_other = me.txtapplicant_address_other.text
Application.Applicant_addrzipcode = me.txtapplicant_addrzipcode.text
Application.Applicant_addrtl_zone = me.txtapplicant_addrtel_zone.text
Application.Applicant_addrtl_no = me.txtapplicant_addrtl_no.text
Application.Applicant_Mobile = me.txtapplicant_mobile.text
Application.Applicant_Email = me.txtapplicant_email.text
Application.Applicant_orgfullname = me.txtapplicant_orgfullname.text
Application.Applicant_Tradtype = me.txtapplicant_tradetype.text
Application.Applicant_orgaddress_Province = Me.txtApplicant_orgaddress_Province.Text
Application.Applicant_orgaddress_city = me.txtapplicant_orgaddress_city.textapplication.applicant_orgaddress_zone = me.txtapplicant_orgaddress_zone.text
Application.Applicant_orgaddress_other = me.txtapplicant_orgaddress_other.text
Application.Applicant_orgzipcode = me.txtapplicant_orgzipcode.text
Application.Applicant_orgtel_zone = me.txtapplicant_orgtel_zone.text
Application.Applicant_orgtel_no = me.txtapplicant_orgtel_no.text
If me.ddlapplicant_poslevel.selectedIndex <> 0 THEN
Application.applicant_poslevel = me.ddlapplicant_poslevel.selectedValue
Else
Application.Applicant_Poslevel = Nothing
END IF
If me.ddlapplicant_orgtype.selectedIndIndex <> 0 THEN
Application.Applicant_orgtype = me.ddlapplicant_orgtype.selectedValue
Else
Application.Applicant_orgType = Nothing
END IF
Application.Applicant_WorkXP_Year = me.txtapplicant_WorkXP_Year.Text
Application.Applicant_WorkXP_MontH = me.txtapplicant_workxp_month.text
Application.applicant_yearlyincome = me.txtapplicant_yearlyIncome.text
Application.applicant_houseaddress_province = me.txtapplicant_houseaddress_Province.Text
Application.Applicant_HouseAddress_city = me.txtapplicant_houseaddress_city.text
Application.applicant_houseaddress_zone = me.txtapplicant_houseaddress_zone.text
Application.Applicant_HouseAddress_other = me.txtapplicant_houseaddress_other.text
'玂
Application.RELATIVE_CNAME = Me.txTreLative_cname.text
Application.relative_addrtl_zone = me.txtrelative_addrtel_zone.text
Application.relative_addrtl_no = me.txtrelative_addrtel_no.text
Application.relative_orgname = me.txtrelative_orgname.text
Application.relative_orgtel_zone = me.txtrelative_orgtel_zone.textapplication.relative_orgtel_no = me.txTreLative_orgtel_no.text
Application.relative_Mobile = me.txtrelative_mobile.text
Application.contact_cname = me.txtcontact_cname.text
Application.contact_addrtl_zone = me.txtcontact_addrtl_zone.text
Application.contact_addrtl_no = me.txtcontact_addrtl_no.text
Application.contact_orgname = me.txtcontact_orgname.text
Application.contact_orgtel_zone = me.txtcontact_orgtel_zone.text
Application.contact_orgtel_no = me.txtcontact_orgtel_no.text
Application.contact_mobile = me.txtContact_Mobile.Text
'ㄤ
'Application.Keyin_Datetime =
Application.Activitycode = me.ddlactivitycode.selectedValue
Application.salespipecode = me.ddlsaSpipecode.selectedValue
Application.branchcode = me.txtbranchcode.text
Application.remark = me.txtremark.text
Application.salescode = me.ddlsalescode.selectedValue
End Sub
Private sub ddlbankname_selectedINDEXCHANGED (Byval e as system.eventargs) handles ddlbankname.selectedIndIndexchanged
DIM Userid as string = "steven"
DataSourceGenerator.SetcreditcardDataSourceBybankidanduserid (me.ddlcreditcardtype.items, me.ddlbankname.selectedValue, UserID)
End Sub
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ******************** 88 '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''PriVate Sub showdata (Byval Application_id As String)
DIM Application As New Biz_Application
DIM ApplicationAccess As New Biz_ApplicationFacade
ApplicationAccess.GetanApplication (Application)
Session.add ("Application_MT", Application)
'ビ ビ
Me.ddlbankname.selectedIndex = me.ddlbankname.items.indexof (me.ddlbankname.Items.FindByValue (application.fk_bank_id))
Me.ddlcreditcardType.selectedIndex = me.ddlcreditcardtype.items.indexof (me.ddlcreditcardtype.Items.FindByvalue (Application.fk_creditcard_id))
IF Application.fk_currency = 0 THEN
Me.Rbtothercurrency.checked = TRUE
Me.txtHercurrencyName.Text = Application.Thercurrency_Name
Elseif Application.fk_currency = 1 THEN
Me.rbtrmb.checked = true
Me.txtHercurrencyName.Text = ""
Elseif Application.fk_currency = 21 THEN
Me.Rbtdollar.Checked = TRUE
Me.txtHercurrencyName.Text = ""
Else
ME.RBTHKCURRENCY.CHECKED = TRUE
Me.txtHercurrencyName.Text = ""
END IF
Me.txtHercurrencyName.Text = Application.Thercurrency_Name
Me.txtgoldencardyearlyfee.text = Application.goldencardyearlyfee
Me.txtnormalcardyearlyfee.text = Application.NormalcardYearlyfee
Me.txtSubcardyearlyfee.text = Application.subcardyearlyfee 'ビ ビ
Me.txtApplicantCname.text = Application.Applicant_cname
If Application.Applicant_Gender = 0 THEN
Me. RBTman.checked = true
Elseif Application.Applicant_gender = 1 THEN
Me.rtwoman.checked = true
END IF
Me.txtApplicantCardNumber.Text = Application.Applicant_CardNo
If Application.Applicant_BirthDay <> Nothing Then
Me.ucdatbirdhday.tbx = application.Applicant_birthday
Else
Me.ucdatbirdhday.tbx = Nothing
END IF
IF Application.Applicant_eduCation <> 0 THEN
Me.ddlapplicanteduCation.selectedIndex = me.ddlapplicanteduCation.items.indexof (me.ddlapplicanteduction.items.FindByvalue (Application.Applicant_education))
Else
Me.ddlapplicanteduCation.selectedIndex = 0
END IF
Me.txtApplicant_address_Province.Text = Application.Applicant_Address_Province
Me.txtApplicant_address_city.text = Application.Applicant_Address_city
Me.txtApplicant_address_zone.text = Application.Applicant_address_zone
Me.txtApplicant_address_other.text = Application.Applicant_Address_other
Me.txtApplicant_addrzipcode.text = Application.Applicant_addrzipcode
Me.txtApplicant_addrtl_zone.text = Application.Applicant_addrtl_zone
Me.txtApplicant_addrtl_no.text = Application.Applicant_Addrtel_no
Me.txtApplicant_Mobile.text = Application.Applicant_Mobile
Me.txtApplicant_Email.Text = Application.Applicant_Email
Me.txtApplicant_orgfullname.text = Application.Applicant_orgfullname
Me.txtApplicant_Tradtype.Text = Application.Applicant_tradetype
Me.txtApplicant_orgaddress_province.text = Application.Applicant_orgaddress_Province
Me.txtApplicant_orgaddress_city.text = Application.Applicant_orgaddress_cityme.txtApplicant_orgaddress_zone.text = Application.Applicant_orgaddress_zone
Me.txtApplicant_orgaddress_other.text = Application.Applicant_orgaddress_other
Me.txtApplicant_orgzipcode.text = Application.Applicant_orgzipcode
Me.txtApplicant_orgtel_zone.text = Application.Applicant_orgtel_zone
Me.txtApplicant_orgtel_no.text = Application.Applicant_orgtel_no
IF Application.Applicant_poslevel <> 0 THEN
Me.ddlapplicant_poslevel.selectedIndex = me.ddlapplicant_poslevel.items.indexof (me.ddlapplicant_poslevel.Items.FindByvalue (Application.Applicant_poslevel))
Else
Me.ddlapplicant_poslevel.selectedIndex = 0
END IF
IF Application.Applicant_orgType <> 0 THEN
Me.ddlapplicant_orgtype.selectedIndex = me.ddlapplicant_orgtype.items.indexof (me.ddlapplicant_orgtype.Items.FindByvalue (Application.Applicant_orgtype))
Else
Me.ddlapplicant_orgtype.selectedIndIndex = 0
END IF
Me.txtApplicant_WorkXP_Year.Text = Application.Applicant_WorkXP_Year
Me.txtApplicant_WorkXP_MONTH.TEXT = Application.Applicant_WorkXP_MONTH
Me.txtapplicant_yearlyincome.text = Application.Applicant_YearLYIncome
Me.txtApplicant_HouseAddress_Province.Text = Application.Applicant_HouseAddress_Province
Me.txtApplicant_HouseAddress_city.text = Application.Applicant_HouseAddress_city
Me.txtApplicant_HouseAddress_zone.text = Application.Applicant_HouseAddress_zone
Me.txtApplicant_HouseAddress_other.text = Application.Applicant_HouseAddRESS_OTHER
'玂
Me.txTreLative_CName.Text = Application.RELATIVE_CNAME
Me.txTreLative_addrtl_zone.text = Application.RELATIVE_ADDRTEL_ZONE
Me.txTreLative_Addrtl_no.text = Application.relative_addrtl_nome.txtrelative_orgname.text = Application.RELATIVE_ORGNAME
Me.txTreLative_orgtel_zone.text = Application.RELATIVE_ORGTEL_ZONE
Me.txTrelative_orgtel_no.text = Application.RELATIVE_ORGTEL_NO
Me.txTreLative_Mobile.Text = Application.RELATIVE_MOBILE
Me.txtContact_cname.text = Application.Contact_cname
Me.txtContact_addrtl_zone.text = Application.Contact_addrtel_zone
Me.txtContact_addrtl_no.text = Application.Contact_addrtel_no
Me.txtContact_orgname.text = Application.Contact_orgname
Me.txtContact_orgtel_zone.text = Application.Contact_orgtel_zone
Me.txtContact_orgtel_no.text = Application.Contact_orgtel_no
Me.txtContact_Mobile.Text = Application.Contact_Mobile
'Application.Keyin_Datetime =
IF Application.ActivityCode <> 0 THEN
Me.ddLActivityCode.selectedIndex = me.ddLactivitycode.items.indexof (me.ddlactivitycode.Items.FindByValue (Application.ActivityCode))
Else
Me.ddLActivityCode.SelectedIndex = 0
END IF
IF Application.salespipecode <> 0 THEN
Me.ddlsaSpipecode.selectedIndex = me.ddlsaSpipecode.items.indexof (me.ddlspipecode.Items.FindByValue (Application.salespipecode))
Else
Me.ddlsalespipecode.selectedIndex = 0
END IF
Me.txtBranchcode.text = Application.branchcode
Me.tXtremark.Text = Application.remark
IF Application.Salescode <> 0 THEN
Me.ddlsalescode.selectedIndex = Me.ddlsaScode.Items.indexof (Me.ddlsalescode.Items.FindByValue (Application.Salescode))
Else
Me.ddlsalescode.selectedIndex = 0
END IF
'' '' '' '' '' '************************* "' '' '' ' '' '' '' '' '' 'CHECK
If Application.fk_Status = 4 THEN
Me.RBtcheckpass.checked = TRUE
Me.txTreason.text = ""
Elseif Application.fk_Status = 5 THEN
Me.Rbtcheckfail.checked = TRUE
Me.txTreason.text = Application.Remark
END IF
If Application.fk_Status = 3 THEN
Session.item ("Application_isneedChecked") = TRUE
Me.RBtcheckpass.checked = TRUE
END IF
'' '' '' '' '' '' ************************** "'' '' '' '' '' '' ''
End Sub
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' **** ****************** "'' '' '' '' '' '' '' ''
Private sub btnback_click (Byval e as system.Web.ui.ImageClickeventargs) Handles btnback.click
DIM strfrom as string = page.request.QueryString ("from")
IF (Request.QueryString ("TopFrom") <> Nothing) THEN
Page.Response.Redirect (strfrom ".aspx? From =" Request.QueryString ("TopFrom"))
Else
Page.Response.Redirect (strfrom ".aspx")
END IF
End Sub
'' '' '' '' '' '' '' '' '' ************************* " '' '' '' '' '' '' '' '' '' End Class
