Imports System.IO
Imports System.Net
Imports System.Web.Services
Imports Microsoft.VisualBasic
Imports Newtonsoft.Json
Imports Newtonsoft.Json.Serialization
Imports param
Imports [return]

Namespace [class]
    Public Class clsGeneralDb
        Public Shared Function GetPropertyList(ByVal categoryType As String, ByVal keyword As String, ByVal minPrice As String, _
                                               ByVal maxPrice As String, ByVal isPublic As String, ByVal propertyInvest As String, ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As PropertyListParam = New PropertyListParam()

            model.category = categoryType
            model.isPublic = isPublic
            model.keyword = keyword
            model.maxPrice = maxPrice
            model.minPrice = minPrice
            model.propertyInvest = propertyInvest
            model.userRef = userRef

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.GetListPropertySVC(jsonData)
            result = temp


            Return result
        End Function

        Public Shared Function GetPropertyName(ByVal propertyRef As String) As String
            Dim result As String = ""
            Dim model As PropertyInfoParam = New PropertyInfoParam()

            model.propertyRef = propertyRef
            model.userRef = ""
            model.isMobile = ""

            'Dim ws As New NaproServices.WebService
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)
            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices


            Dim temp = ws.GetPropertyNameSVC(jsonData)
            result = temp


            Return result
        End Function

        Public Shared Function GetFilterCategory() As String
            Dim result As String = ""

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices


            Dim temp = ws.GetFilterWebsiteSVC()
            result = temp


            Return result
        End Function
        Public Shared Function ResendRegistrationCode(ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As RegistrationCodeParam = New RegistrationCodeParam()

            model.userRef = userRef

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.PostResendingRegistrationCodeSVC(jsonData)
            result = temp


            Return result
        End Function
        Public Shared Function LoginUser(ByVal email As String, ByVal password As String, ByVal idFacebook As String) As String
            Dim result As String = ""

            Dim model As LoginParam = New LoginParam()

            model.email = email
            model.password = password
            model.idFacebook = idFacebook
            model.loginSource = "1"

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.PostLoginSVC(jsonData)
            result = temp


            Return result
        End Function
        Public Shared Function RegisterCodeUser(ByVal userRef As String, ByVal registrationCode As String) As String
            Dim result As String = ""

            Dim model As RegistrationCodeParam = New RegistrationCodeParam()

            model.userRef = userRef
            model.registrationCode = registrationCode

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.PostRegistrationCodeSVC(jsonData)
            result = temp


            Return result
        End Function
        Public Shared Function RegisterUser(ByVal name As String, ByVal email As String, ByVal hp As String, ByVal password As String, ByVal idFacebook As String) As String
            Dim result As String = ""

            Dim model As RegisterUserParam = New RegisterUserParam()

            model.email = email
            model.fullname = name
            model.hp = hp
            model.password = password
            model.idFacebook = idFacebook
            model.isWebsite = "1"

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.PostRegisterUserSVC(jsonData)
            result = temp


            Return result
        End Function

        Public Shared Function GetPropertyInfo(ByVal propertyRef As String, ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As PropertyInfoParam = New PropertyInfoParam()

            model.propertyRef = propertyRef
            model.userRef = userRef
            model.isMobile = ""

            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.GetInfoPropertySVC(jsonData)
            result = temp


            Return result
        End Function



        Public Shared Function GetListSharePrice(ByVal propertyRef As String) As String
            Dim result As String = ""

            Dim model As PropertyInfoParam = New PropertyInfoParam()

            model.propertyRef = propertyRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetListPropertySharePriceSVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function GetListInvestor(ByVal propertyRef As String) As String
            Dim result As String = ""

            Dim model As PropertyInfoParam = New PropertyInfoParam()

            model.propertyRef = propertyRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetListPropertyInvestorSVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function GetPaymentInfo(ByVal paymentRef As String, ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As PaymentInfoParam = New PaymentInfoParam()

            model.paymentRef = paymentRef
            model.userRef = userRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetPaymentInfoSVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function PostPropertyShare(ByVal propertyRef As String, ByVal userRef As String, ByVal useSaldo As String, ByVal sharePrice As String, _
                                                 ByVal investmentPrice As String, ByVal shareQty As String, ByVal currentSharePrice As String) As String
            Dim result As String = ""

            Dim model As InvestPropertyPaymentParam = New InvestPropertyPaymentParam()

            model.propertyRef = propertyRef
            model.userRef = userRef
            model.useSaldo = useSaldo
            model.sharePrice = currentSharePrice
            model.investmentPrice = investmentPrice
            model.shareQty = shareQty
            model.paymentPrice = sharePrice

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.PostInvestPropertySVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function GetListPropertyNew(ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As PropertyListNewParam = New PropertyListNewParam()

            model.userRef = userRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetListPropertyNewSVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function GetListPropertyMain(ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As PropertyMainParam = New PropertyMainParam()

            model.userRef = userRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetListPropertyMainSVC(jsonData)

            result = temp

            Return result
        End Function

        Public Shared Function getListNews(ByVal keyword As String, ByVal pageNo As String) As String
            Dim result As String = ""

            'Dim model As PropertyMainParam = New PropertyMainParam()

            'model.userRef = userRef

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            'Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.getListNewsPagingSvc(keyword, pageNo)

            result = temp

            Return result
        End Function
#Region "Dashboard"

        Public Shared Function GetDashboardInvest(ByVal userRef As String) As String
            Dim result As String = ""
            Dim model As DashboardInvestmentInfoParam = New DashboardInvestmentInfoParam()

            model.userRef = userRef
            model.isMobile = ""

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetDashboardInvestmentInfoSVC(jsonData)
            result = temp

            Return result
        End Function

        Public Shared Function GetDashboardReportGrafikV1(ByVal userRef As String) As String
            Dim result As String = ""
            Dim model As DashboardInvestmentInfoParam = New DashboardInvestmentInfoParam()

            model.userRef = userRef
            model.isMobile = ""

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetDashboardReportGrafikV1SVC(jsonData)
            result = temp

            Return result
        End Function


        Public Shared Function GetInvestProperty(ByVal userRef As String) As String
            Dim result As String = ""
            Dim model As PropertyInvestParam = New PropertyInvestParam()

            model.userRef = userRef
            model.isMobile = ""

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetListPropertyInvestSVC(jsonData)
            result = temp

            Return result
        End Function


        Public Shared Function GetDashboardUserInfo(ByVal userRef As String) As String
            Dim result As String = ""
            Dim model As UserInfoParam = New UserInfoParam()

            model.userRef = userRef
            model.isMobile = ""

            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)

            Dim temp = ws.GetDashboardUserInfoSVC(jsonData)
            result = temp

            Return result
        End Function

#End Region

#Region "Taufik"
        Public Shared Function GetPropertyUserWishlist(ByVal userRef As String) As String
            Dim result As String = ""

            Dim model As ListWishlistParam = New ListWishlistParam()

            model.userRef = userRef


            'Dim ws As New NaproServices.WebService
            Dim ws As New NaproServices.NaproServices
            Dim jsonserializersettings = New JsonSerializerSettings()
            jsonserializersettings.ContractResolver = New CamelCasePropertyNamesContractResolver()
            Dim jsonData As String = JsonConvert.SerializeObject(model, Formatting.Indented, jsonserializersettings)


            Dim temp = ws.GetDashboardWishlistSVC(jsonData)
            result = temp


            Return result
        End Function
#End Region

    End Class
End Namespace