Namo WebEditor 3/Namo WebEditor 3.iso/Comm/Chollian/data1.cab/ImageOn_Files/NEWREG.SCR

Text File | 1999-02-23 | 22.0 KB | 765 lines

Public giSvrType        '╝¡║±╜║ └»╟ⁿ
Public gfMember        '└╠┐δ▒╟/╚╕┐°▒╟ ╗τ┐δ└╬░í?
Public gsMemberCode    '└╠┐δ▒╟/╚╕┐°▒╟ ─┌╡σ
Public gsMemberPW    '└╠┐δ▒╟/╚╕┐°▒╟ ║±╣╨╣°╚ú
Public gsRealUserName    '╜╟╗τ┐δ└┌ └╠╕º
Public gsRealUserPID    '╜╟╗τ┐δ└┌ ┴╓╣╬╣°╚ú
Public gsRealUserZipCode    '╜╟╗τ┐δ└┌ ┐∞╞φ╣°╚ú (╞≈╕╦ : xxx-xxx)
Public gsRealUserAddr1    '╜╟╗τ┐δ└┌ ┴╓╝╥ 1
Public gsRealUserAddr2    '╜╟╗τ┐δ└┌ ┴╓╝╥ 2
Public gsRealUserPhone    '╜╟╗τ┐δ└┌ └ⁿ╚¡╣°╚ú (╞≈╕╦ : ┴÷┐¬╣°╚ú-▒╣╣°-└ⁿ╚¡╣°╚ú)
Public gsRealUserPager    '╜╟╗τ┐δ└┌ ╚▐┤δ╞∙/╚ú├Γ▒Γ
Public gsFeeUserName    '┐Σ▒▌││║╬└┌ └╠╕º
Public gsFeeUserPID    '┐Σ▒▌││║╬└┌ ┴╓╣╬╣°╚ú
Public gsFeeUserZipCode    '┐Σ▒▌││║╬└┌ ┐∞╞φ╣°╚ú
Public gsFeeUserAddr1    '┐Σ▒▌││║╬└┌ ┴╓╝╥ 1
Public gsFeeUserAddr2    '┐Σ▒▌││║╬└┌ ┴╓╝╥ 2
Public gsFeeUserPhone    '┐Σ▒▌││║╬└┌ └ⁿ╚¡╣°╚ú
Public gsFeeUserPager    '┐Σ▒▌││║╬└┌ ╚▐┤δ╞∙/╚ú├Γ▒Γ
Public gsCoUserName    '┐Σ▒▌││║╬└┌ └╠╕º
Public gsCoUserPID    '┐Σ▒▌││║╬└┌ ┴╓╣╬╣°╚ú
Public gsCoUserOffice    '┐Σ▒▌││║╬└┌ ╗≤╚ú╕φ
Public gsCoUserOID    '┐Σ▒▌││║╬└┌ ╗τ╛≈└┌╣°╚ú (╞≈╕╦ : xxx-xx-xxxxx)
Public gsCoUserZipCode    '┐Σ▒▌││║╬└┌ ┐∞╞φ╣°╚ú
Public gsCoUserAddr1    '┐Σ▒▌││║╬└┌ ┴╓╝╥ 1
Public gsCoUserAddr2    '┐Σ▒▌││║╬└┌ ┴╓╝╥ 2
Public gsCoUserPhone    '┐Σ▒▌││║╬└┌ └ⁿ╚¡╣°╚ú
Public gsCoUserPager    '┐Σ▒▌││║╬└┌ ╚▐┤δ╞∙/╚ú├Γ▒Γ

Public giFeeManType    '┐Σ▒▌││║╬└┌ └»╟ⁿ
Public giFeeType        '┐Σ▒▌││║╬╣µ╣²

' ║╗└╬ ─½╡σ ┴ñ║╕
Public gsRealCardName    '╜┼┐δ─½╡σ╕φ
Public gsRealCardID    '╜┼┐δ─½╡σ ╣°╚ú
Public gsRealPeriod    '╜┼┐δ─½╡σ └»╚┐▒Γ░ú (╞≈╕╦ : │Γ(4└┌╕«)-┐∙(2└┌╕«)
Public gsRealCardPW    '╜┼┐δ─½╡σ ║±╣╨╣°╚ú

' ┼╕└╬ ─½╡σ ┴ñ║╕
Public gsFeeCardName    '╜┼┐δ─½╡σ╕φ
Public gsFeeCardID    '╜┼┐δ─½╡σ ╣°╚ú
Public gsFeePeriod        '╜┼┐δ─½╡σ └»╚┐▒Γ░ú (╞≈╕╦ : │Γ(4└┌╕«)-┐∙(2└┌╕«)
Public gsFeeCardPW    '╜┼┐δ─½╡σ ║±╣╨╣°╚ú

Public gsRealBankName    '└║╟α╕φ
Public gsRealAccount    '└║╟α ░Φ┴┬╣°╚ú
Public gsRealBankPW    '└║╟α ║±╣╨╣°╚ú

Public gsFeeBankName    '└║╟α╕φ
Public gsFeeAccount    '└║╟α ░Φ┴┬╣°╚ú
Public gsFeeBankPW    '└║╟α ║±╣╨╣°╚ú

Public gsCoBankName    '└║╟α╕φ
Public gsCoAccount        '└║╟α ░Φ┴┬╣°╚ú
Public gsCoBankPW    '└║╟α ║±╣╨╣°╚ú

Public gsUserID        '╗τ┐δ└┌ ID
Public gsUserPW        '╗τ┐δ└┌ ║±╣╨╣°╚ú
Public gfMembership    '╕Γ╣÷╜▒┼░╞« ╜┼├╗ ┐⌐║╬
Public gsUsingID        '└ⁿ╗τ┐δ ID

Public gsEndMsg

' 1 - 10╜├░ú ▒Γ║╗╟ⁿ
' 2 - 30╜├░ú ▒Γ║╗╟ⁿ
' 3 - ╛ε╕░└╠ ├╡╕«╛╚
' 4 - └╬┼═│▌ ┴ñ╛╫╟ⁿ
giSvrType = 1

' 1 - ║╗└╬
' 2 - ┼╕└╬
' 3 - ╣²└╬
giFeeManType = 1

' 1 - ╜┼┐δ─½╡σ
' 2 - └┌╡┐└╠├╝
' 3 - ┴÷╖╬
giFeeType = 1

gfMembership = 1

Private Sub ViewList(sList)
    this.GetObject(sList).IsVisible = 1
    this.SetFocus(sList)
    this.SetCapture(sList)
End Sub

' ┼Σ┼½ ║╨╝« ╟╘╝÷
'     ╞─╢≤╣╠┼═
'        sStr         ╣«└┌┐¡
'        iLen        ╣«└┌┐¡ ▒µ└╠
'        Delimeter        ▒╕║╨└┌
'        iIndex        ┼Σ┼½ ╣°╚ú
Function GetToken(sStr, iLen, Delimeter, iIndex)
    if sStr = "" OR iLen = 0 then
       Exit Function
    End if

    iInc = 0
    iLoop = 1

    Do While iLoop <= iLen
       if iInc = iIndex then
           Do While Mid(sStr, iLoop, 1) <> Delimeter AND iLoop <= iLen
                 GetToken = GetToken & Mid(sStr, iLoop, 1)
                 iLoop = iLoop + 1
           Loop
           Exit Do
       End If

       if Mid(sStr, iLoop, 1) = Delimeter then
          iInc = iInc + 1
       End If
       iLoop = iLoop + 1
    Loop
End Function

Private ssNotifyData
Private siNotifyDataLen

Sub OnOpNotify(sData, iLen, bEndData)
    If iLen > 0 AND sData <> "" Then
        ssNotifyData = ssNotifyData & Mid(sData, 1, iLen)
        siNotifyDataLen = siNotifyDataLen + iLen
    End if

    if bEndData = 1 then
        sOp = GetToken(ssNotifyData, siNotifyDataLen, "|", 0)

        Select Case sOp
            Case "INFO_WOWINFO"
                InfoWowInfoProc ssNotifyData, siNotifyDataLen

            Case "INFO_ADDRLIST"
                InfoAddrListProc ssNotifyData, siNotifyDataLen

            Case "INFO_USERID"
                InfoUserIDProc ssNotifyData, siNotifyDataLen

            Case "INFO_CARDLIST"
                InfoCardListProc ssNotifyData, siNotifyDataLen

            Case "INFO_BANKLIST"
                InfoBankListProc ssNotifyData, siNotifyDataLen

            Case "INFO_CONFINFO"
                InfoConfInfoProc ssNotifyData, siNotifyDataLen

            Case "INFO_CARDINFO"
                InfoCardInfoProc ssNotifyData, siNotifyDataLen

            Case "INFO_BANKINFO"
                InfoBankInfoProc ssNotifyData, siNotifyDataLen

            Case "INFO_USERINFO"
                InfoUserInfoProc ssNotifyData, siNotifyDataLen
        End Select

       ssNotifyData = ""
       siNotifyDataLen = 0
    End if
End Sub

Private ssWowInfoData
Private ssWowData

Sub SndWowInfo(sMemberCode, sMemberPW)
    ssWowData = sMemberCode & "|" & sMemberPW & "|"
    If ssWowData <> ssWowInfoData Then
        SetWait 1

        gsMemberCode = sMemberCode
        gsMemberPW = sMemberPW

        sCommand = "VBOP SND_WOWINFO|" & ssWowData
        OnSendBrowser sCommand
    Else
        OnNextPage
    End if
End Sub

Private Sub InfoWowInfoProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "NO" Then
        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnMsgBox sMsg , "└╠┐δ▒╟/╚╕┐°▒╟ └╬┴⌡ ┐└╖∙", vbCritical

        this.GetObject("MEMBERCODE").SetText ""
        this.GetObject("MEMBERPW").SetText ""

        ssWowInfoData = ""

        this.SetFocus "MEMBERCODE"
    Else
        ssWowInfoData = ssWowData

        giSvrType = CInt(GetToken(sNotifyData, iNotifyDataLen, "|", 2))
        OnNextPage
    End if
End Sub

Private ssAddrList

Sub ReqAddrList(sAddr)
    ssAddrList = ""

    SetWait 1

    sCommand = "VBOP REQ_ADDRLIST|" & sAddr & "|"
    OnSendBrowser sCommand
End Sub

Private Sub InfoAddrListProc(sNotifyData, iNotifyDataLen)
    ssAddrList = ssAddrList & Mid(sNotifyData, 17, iNotifyDataLen)
    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "E" Then
        SetWait 0

        iNum = CInt(GetToken(ssAddrList, Len(ssAddrList), "|", 0))
        if iNum = 0 then
            sErrMsg = GetToken(ssAddrList, Len(ssAddrList), "|", 1)
            OnMsgBox  sErrMsg, "┴╓╝╥╕±╖╧ ┐└╖∙", vbCritical
            this.GetObject("INPUTADDR").SetText ""
            this.SetFocus("INPUTADDR")
            Exit Sub
        End If

        if iNum = 1 then
            sZipCode = GetToken(ssAddrList, Len(ssAddrList), "|", 1)
            sAddress = GetToken(ssAddrList, Len(ssAddrList), "|", 2)

            this.GetCurrentBack.GetModule.AddrNotify sZipCode, sAddress, "", "", "", 1, 0
            this.SetFocus("ADDR2")
        Else
            Set obj = frame.GetObject("ADDRLIST")

            obj.ResetContent

            For iInc = 1 to iNum Step 1
                sZipCode = GetToken(ssAddrList, Len(ssAddrList), "|", (iInc - 1) * 2 + 1)
                sAddress = GetToken(ssAddrList, Len(ssAddrList), "|", (iInc - 1) * 2 + 2)

                sAddr = sZipCode & vbTab & sAddress
                obj.AddItem sAddr
            Next

            ViewList "ADDRLIST"
        End if
    End If

    this.GetObject("INPUTADDR").SetText ""
End Sub

Private ssUserID

Sub SndUserID(sUserID, sUserPW)
    gsUserPW = sUserPW

    If gsUserID <> sUserID Then
        SetWait 1

        ssUserID = sUserID

        sCommand = "VBOP SND_USERID|" & sUserID
        OnSendBrowser sCommand
    Else
        OnNextPage
    End If
End Sub

Private Sub InfoUserIDProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "NO" Then
        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnMsgBox sMsg , "╚╕┐° ID └╬┴⌡ ┐└╖∙", vbCritical

        gsUserID = ""

        this.GetObject("USERID").SetText ""
        this.SetFocus "USERID"
    Else
        gsUserID = ssUserID

        OnNextPage
    End if
End Sub

Private sfCardList

Sub ReqCardList
    If sfCardList = 0 Then
        SetWait 1

        OnSendBrowser "VBOP REQ_CARDLIST|"
    Else
        ViewList "CARDLIST"
    End If
End Sub

Private Sub InfoCardListProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    iNum = CInt(GetToken(sNotifyData, iNotifyDataLen, "|", 1))
    if iNum = 0 then
        Exit Sub
    End If

    Set obj = frame.GetObject("CARDLIST")

    obj.ResetContent

    For iInc = 1 to iNum
        sCardName = GetToken(sNotifyData, iNotifyDataLen, "|", 1+ iInc)
        obj.AddItem sCardName
    Next

    sfCardList = 1
    ViewList "CARDLIST"
End Sub


Private sfBankList

Sub ReqBankList
    If sfBankList = 0 Then
        SetWait 1

        OnSendBrowser "VBOP REQ_BANKLIST|"
    Else
        ViewList "BANKLIST"
    End If
End Sub

Private Sub InfoBankListProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    iNum = CInt(GetToken(sNotifyData, iNotifyDataLen, "|", 1))
    if iNum = 0 then
        Exit Sub
    End If

    Set obj = frame.GetObject("BANKLIST")

    obj.ResetContent

    For iInc = 1 to iNum
        sBankName = GetToken(sNotifyData, iNotifyDataLen, "|", 1+ iInc)
        obj.AddItem sBankName
    Next

    sfBankList = 1
    ViewList "BANKLIST"
End Sub










Public giConfErrCode

' siConfCode is 1 - ╜╟╗τ┐δ└┌ └╬┴⌡
' siConfCode is 2 - ┼╕└╬
' siConfCode is 3 - ╣²└╬
Private siConfCode

Private ssRealUserConfData
Private ssFeeUserConfData
Private ssCoUserConfData
Private siConfErrCount
Private ssConfData

Sub SndConfInfo(iConfCode, fDirectRegist, sName, sPID, sOfficeName, sOID)
    siConfCode = iConfCode

    sCommand = "VBOP SND_CONFINFO|" & fDirectRegist & "|"
    Select Case iConfCode
        Case 1
            sRealUserConf = "1|" & sName & "|" & sPID & "|" & sOfficeName & "|" & sOID & "|"
            If sRealUserConf = ssRealUserConfData Then
                this.GetCurrentPage.GetModule.NextPage_Proc
                Exit Sub
            End If
            ssConfData = sRealUserConf
            sCommand = sCommand & sRealUserConf
        Case 2
            sFeeUserConf = "2|" & sName & "|" & sPID & "|" & sOfficeName & "|" & sOID & "|"
            If sFeeUserConf = ssFeeUserConfData Then
                this.GetCurrentPage.GetModule.NextPage_Proc
                Exit Sub
            End If
            ssConfData = sFeeUserConf
            sCommand = sCommand & sFeeUserConf
        Case 3
            sCoUserConf = "2|" & sName & "|" & sPID & "|" & sOfficeName & "|" & sOID & "|"
            If sCoUserConf = ssCoUserConfData Then
                this.GetCurrentPage.GetModule.NextPage_Proc
                Exit Sub
            End If
            ssConfData = sCoUserConf
            sCommand = sCommand & sCoUserConf
    End Select

    SetWait 1

    OnSendBrowser sCommand
End Sub

Private Sub InfoConfInfoProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "YES" Then
        giConfErrCode = 10
        frame.GetCurrentPage.GetModule.NextPage_Proc

        Select Case siConfCode
            Case 1
                ssRealUserConfData = ssConfData
            Case 2
                ssFeeUserConfData = ssConfData
            Case 3
                ssCoUserConfData = ssConfData
         End Select
    Else
        iErrCode = CInt(GetToken(sNotifyData, iNotifyDataLen, "|", 2))
        if siConfCode = 1 Then
            giConfErrCode = iErrCode
        End If

        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 3)
        OnMsgBox sMsg, "╜┼┐δ└╬┴⌡ ┐└╖∙", vbCritical
        If iErrCode = 0 Then
            Select Case siConfCode
                Case 1
                    ssRealUserConfData = ""
                Case 2
                    ssFeeUserConfData = ""
                Case 3
                    ssCoUserConfData = ""
                    this.GetObject("OFFICE").SetText ""
                    this.GetObject("OID1").SetText ""
                    this.GetObject("OID2").SetText ""
                    this.GetObject("OID3").SetText ""
             End Select

             this.GetObject("NAME").SetText ""
             this.GetObject("PID1").SetText ""
             this.GetObject("PID2").SetText ""

             this.SetFocus("NAME")

             siConfErrCount = siConfErrCount + 1
             if siConfErrCount = 3 Then
                 OnMsgBox "╟÷ ╝¡║±╜║╕ª ┴╛╖ß╟╒┤╧┤┘.", "╜┼┐δ └╬┴⌡ ┐└╖∙", vbCritical
                 OnSystemExit
             End If
        Else
            Select Case siConfCode
                Case 1
                    ssRealUserConfData = ssConfData
                Case 2
                    ssFeeUserConfData = ssConfData
                Case 3
                    ssCoUserConfData = ssConfData
             End Select

             frame.GetCurrentPage.GetModule.NextPage_Proc
        End If
    End if
End Sub











Private ssRealCardInfo
Private ssFeeCardInfo
Private ssaCardInfoField(4)
Private ssCardInfo

ssaCardInfoField(1) = "CARDID"
ssaCardInfoField(2) = "PERIOD1"
ssaCardInfoField(3) = "PERIOD2"
ssaCardInfoField(4) = "PW"

Sub SndCardInfo(sCardName, sCardID, sPW, sPID1, sPID2)
    ssCardInfo = sCardName & "|" & sCardID & "|" & sPW & "|" & sPID1 & "-" & sPID2 & "|"
    If giFeeManType = 1 Then
        sOrgCardInfo = ssRealCardInfo
    Else
        sOrgCardInfo = ssFeeCardInfo
    End If

    If sOrgCardInfo <> sCardInfo Then
        sCommand = "VBOP SND_CARDINFO|" & ssCardInfo

        SetWait 1

        OnSendBrowser sCommand
    Else
        OnMsgBox "└╬┴⌡╡╚ ╜┼┐δ─½╡σ└╘┤╧┤┘.", "╜┼┐δ└╬┴⌡", vbInformation
    End If
    frame.GetObject("NEXT").GetModule.Enable
End Sub

Private Sub InfoCardInfoProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "NO" Then
        Set pgmd = this.GetCurrentPage.GetModule
        Select Case giFeeManType
            Case 1
                pgmd.gfRealDirectRegist = 0
            Case 2
                pgmd.gfFeeDirectRegist = 0
         End Select

        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnMsgBox sMsg, "╜┼┐δ─½╡σ └╬┴⌡ ┐└╖∙", vbCritical

        frame.GetObject("CARDNAME").Data = ""
        For i = 1 to 4
            frame.GetObject(ssaCardInfoField(i)).SetText ""
        Next
        frame.SetFocus "REQ_CARDLIST"

        If giFeeManType = 1 Then
            ssRealCardInfo = ""
        Else
            ssFeeCardInfo = ""
        End If
    Else

        If giFeeManType = 1 Then
            ssRealCardInfo = ssCardInfo
        Else
            ssFeeCardInfo = ssCardInfo
        End If

'        sName = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
'        sUID = GetToken(sNotifyData, iNotifyDataLen, "|", 3)
'        sZipCode = GetToken(sNotifyData, iNotifyDataLen, "|", 4)
'        sAddr1 = GetToken(sNotifyData, iNotifyDataLen, "|", 5)
'        sAddr2 = GetToken(sNotifyData, iNotifyDataLen, "|", 6)
'        sPhone = GetToken(sNotifyData, iNotifyDataLen, "|", 7)

'        frame.GetCurrentBack.GetModule.UserNotify sName, sUID, "NEXT", 0

        If giFeeManType = 1 Then
'            frame.GetCurrentBack.GetModule.AddrNotify sZipCode, sAddr1, sAddr2, sPhone, "", 0, 0
            frame.GetCurrentPage.GetModule.gfRealDirectRegist = 3
        Else
'            frame.GetCurrentBack.GetModule.AddrNotify sZipCode, sAddr1, sAddr2, sPhone, "", 1, 0
            frame.GetCurrentPage.GetModule.gfFeeDirectRegist = 3
        End If

        this.GetObject("INPUTADDR").SetText ""
        this.GetObject("INPUTADDR").IsEnable = 1

        frame.GetObject("CONFIRM").GetModule.Enable
        frame.GetObject("NEXT").GetModule.Enable
    End if
End Sub



Private ssRealBankInfo
Private ssFeeBankInfo
Private ssCoBankInfo
Private ssaBankInfoField(2)
Private ssBankInfo

ssaBankInfoField(1) = "ACCOUNT"
ssaBankInfoField(2) = "PW"

Sub SndBankInfo(sBankName, sAccount, sPW, sPID1, sPID2)
    ssBankInfo = sBankName & "|" & sAccount & "|" & sPW & "|" & sPID1 & "-" & sPID2 & "|"
    Select Case giFeeManType
        Case 1
            sOrgBankInfo = ssRealBankInfo
        Case 2
            sOrgBankInfo = ssFeeBankInfo
        Case 2
            sOrgBankInfo = ssCoBankInfo
    End Select

    If sOrgCardInfo <> sBankInfo Then
        sCommand = "VBOP SND_BANKINFO|" & ssBankInfo

        SetWait 1

        OnSendBrowser sCommand
    Else
        OnMsgBox "└╬┴⌡╡╚ ░Φ┴┬└╘┤╧┤┘.", "░Φ┴┬└╬┴⌡", vbInformation
    End If
    frame.GetObject("NEXT").GetModule.Enable
End Sub

Private Sub InfoBankInfoProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "NO" Then
        Set pgmd = this.GetCurrentPage.GetModule
        Select Case giFeeManType
            Case 1
                pgmd.gfRealDirectRegist = 0
            Case 2
                pgmd.gfFeeDirectRegist = 0
            Case 3
                pgmd.gfCoDirectRegist = 0
         End Select

        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnMsgBox sMsg, "└║╟α░Φ┴┬ └╬┴⌡ ┐└╖∙", vbCritical

        frame.GetObject("BANKNAME").Data = ""
        For i = 1 to 2
            frame.GetObject(ssaBankInfoField(i)).SetText ""
        Next
        frame.SetFocus "REQ_BANKLIST"

        Select Case giFeeManType
            Case 1
                ssRealBankInfo = ""
            Case 2
                ssFeeBankInfo = ""
            Case 3
                ssCoBankInfo = ""
        End Select
    Else

        Select Case giFeeManType
            Case 1
                 ssRealBankInfo = ssBankInfo
             Case 2
                 ssFeeBankInfo = ssBankInfo
             Case 2
                 ssCoBankInfo = ssBankInfo
        End Select

'        sName = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
'        sUID = GetToken(sNotifyData, iNotifyDataLen, "|", 3)
'        sZipCode = GetToken(sNotifyData, iNotifyDataLen, "|", 4)
'        sAddr1 = GetToken(sNotifyData, iNotifyDataLen, "|", 5)
'        sAddr2 = GetToken(sNotifyData, iNotifyDataLen, "|", 6)
'        sPhone = GetToken(sNotifyData, iNotifyDataLen, "|", 7)

'        frame.GetCurrentBack.GetModule.UserNotify sName, sUID, "NEXT", 0

'        If giFeeManType = 1 Then
'            frame.GetCurrentBack.GetModule.AddrNotify sZipCode, sAddr1, sAddr2, sPhone, "", 0, 0
'        Else
'            frame.GetCurrentBack.GetModule.AddrNotify sZipCode, sAddr1, sAddr2, sPhone, "", 1, 0
'        End If

        Select Case giFeeManType
            Case 1
                frame.GetCurrentPage.GetModule.gfRealDirectRegist = 3
            Case 2
                frame.GetCurrentPage.GetModule.gfFeeDirectRegist = 3
            Case 3
                frame.GetCurrentPage.GetModule.gfCoDirectRegist = 3
        End Select

        this.GetObject("INPUTADDR").SetText ""
        this.GetObject("INPUTADDR").IsEnable = 1

        frame.GetObject("CONFIRM").GetModule.Enable
        frame.GetObject("NEXT").GetModule.Enable
    End if
End Sub


Sub SndUserInfo
    sSvrData = giSvrType & "|" & gsUserID & "|" & gsUserPW & "|" & gfMemebership & "|" & gsUsingID & "|" & gsMemberCode & "|" & gsMemberPW & "|"

    if gfMember = 1 Then
        sFeeData = "||"
    Else
        sFeeData = giFeeManType & "|" & giFeeType & "|"
    End If

    if gfMember = 1 Then
        sFeeManData = "|||||||||||||"
    Else
        Select Case giFeeManType
            Case 1
                sUserInfo = gsRealUserName & "|" & gsRealUserPID & "|"
                sOfficeInfo = "||"
                sAddrInfo = gsRealUserZipCode & "|" & gsRealUserAddr1 & "|" & gsRealUserAddr2 & "|" & gsRealUserPhone & "|" & gsRealUserPager & "|"

                If giFeeType = 1 Then
                    sFeeInfo = gsRealCardName & "|" & gsRealCardID & "|" & gsRealPeriod & "|" & gsRealCardPW & "|"
                ElseIf giFeeType = 2 Then
                    sFeeInfo = gsRealBankName & "|" & gsRealAccount & "|" & "|" & gsRealBankPW & "|"
                Else
                    sFeeInfo = "||||"
                End If

            Case 2
                sUserInfo = gsFeeUserName & "|" & gsFeeUserPID & "|"
                sOfficeInfo = "||"
                sAddrInfo = gsFeeUserZipCode & "|" & gsFeeUserAddr1 & "|" & gsFeeUserAddr2 & "|" & gsFeeUserPhone & "|" & gsFeeUserPager & "|"

                If giFeeType = 1 Then
                    sFeeInfo = gsFeeCardName & "|" & gsFeeCardID & "|" & gsFeePeriod & "|" & gsFeeCardPW & "|"
                ElseIf giFeeType = 2 Then
                    sFeeInfo = gsFeeBankName & "|" & gsFeeAccount & "|" & "|" & gsFeeBankPW & "|"
                Else
                    sFeeInfo = "||||"
                End If

            Case 3
                sUserInfo = gsCoUserName & "|" & gsCoUserPID & "|"
                sOfficeInfo = gsCoUserOffice & "|" & gsCoUserOID & "|"
                sAddrInfo = gsCoUserZipCode & "|" & gsCoUserAddr1 & "|" & gsCoUserAddr2 & "|" & gsCoUserPhone & "|" & gsCoUserPager & "|"

                If giFeeType = 1 Then
                    sFeeInfo = gsCoCardName & "|" & gsCoCardID & "|" & gsCoPeriod & "|" & gsCoCardPW & "|"
                ElseIf giFeeType = 2 Then
                    sFeeInfo = gsCoBankName & "|" & gsCoAccount & "|" & "|" & gsCoBankPW & "|"
                Else
                    sFeeInfo = "||||"
                End If

        End Select

        sFeeManData = sUserInfo & sOfficeInfo & sAddrInfo & sFeeInfo
    End If

    sRealManUserInfo = gsRealUserName & "|" & gsRealUserPID & "|"
    sRealManAddrInfo = gsRealUserZipCode & "|" & gsRealUserAddr1 & "|" & gsRealUserAddr2 & "|" & gsRealUserPhone & "|" & gsRealUserPager & "|"
    sRealManInfo = sRealManUserInfo & sRealManAddrInfo

    sUserInfoData = sSvrData & sFeeData & sFeeManData & sRealManInfo
    sCommand = "VBOP SND_USERINFO|" & sUserInfoData

    SetWait 1

    OnSendBrowser sCommand
End Sub

Private Sub InfoUserInfoProc(sNotifyData, iNotifyDataLen)
    SetWait 0

    If GetToken(sNotifyData, iNotifyDataLen, "|", 1) = "NO" Then
        sMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnMsgBox sMsg, "╗τ┐δ└┌┴ñ║╕ └╬┴⌡ ┐└╖∙", vbCritical
    Else
        gsEndMsg = GetToken(sNotifyData, iNotifyDataLen, "|", 2)
        OnNextPage
    End if
End Sub