Breaking News
Home / Source / Source Code function SMS pada software pulsa
@000FUNCTIONSMS

Source Code function SMS pada software pulsa

Jika anda memiliki source code software pulsa ini,dan ingin merubah atau menambahkan feature sms pada source code yang anda miliki tersebut caranya atau langkahnya sangat mudah ,cari function IsConfiguration pada Project Remote Center yang tersedia pada packet source code software pulsa anda, adapun sample source nya seperti yang tertera dibawah ini:

 

Public Function IsConfiguration(Ismember As Boolean, menu As String, pesan As String, _
destination As String, kodereseller As String, GropRS As String) As Boolean
On Error Resume Next
Dim itujuan As String
Dim IProduk As String
Dim IPin As String
Dim kata As String
Dim xstok As Integer
Dim InitProduk As String
Dim NoHeater As String
Dim nopembeli() As String
Dim tujuan As String
Dim aNominal As String
Dim skode As String
Dim sProvider As String
Dim kodeproduk As String
Dim sim_opr As String
Dim Kata_Keyword
Dim TeksKeyword
Dim i As Long
IsPinError = False
IsProdukError = False
IsConfiguration = False
Istock = False

SMS_PemisahParsing = SMS_FORMAT(“PemisahFormatTransaksi”)
a = Split(pesan, SMS_PemisahParsing)

IProduk = a(0)
vProduk = a(0)
itujuan = a(1)
vTujuan = a(1)
IPin = a(2)
vPin = a(2)
NoHeater = Left(vTujuan, 4)
If vProvider = “” Then vProvider = GetNamaOprator(vTujuan, GropRS)

Select Case UCase(menu)
Case UCase(“VoucherSMS”): menu = “VoucherSMS”
Case UCase(“MultiTransaksi”): menu = “MultiTransaksi”
Case UCase(“SeriTransaksi”): menu = “SeriTransaksi”
Case UCase(“Beli Stok”): menu = “Beli Stok”
Case UCase(“PPOB”): menu = “PPOB”
Case UCase(“FormatTRX”): menu = “FormatTRX”
Case UCase(“MengulangTRX”): menu = “MengulangTRX”
End Select

If Ismember = True Then
sql = “select * from configuration where kode='” & menu & “‘”
Set rsdata = New Recordset
rsdata.Open sql, DB
If rsdata.RecordCount > 0 Then
vParser = rsdata!Parsing
b = Split(rsdata!Parsing, SMS_PemisahParsing)

If UBound(a()) = UBound(b()) Then

For n = 0 To UBound(b())

Select Case b(n)

Case “<kodevoucher>”
vProduk = GetKodeVoucher(UCase(a(n)))
If vProduk = “” Then
IsConfiguration = False
Else
vKodeVoucher = a(n)
IsConfiguration = True
End If

Case “<produk>”

sql = “select * from produk where kode_produk='” & a(n) & “‘and counter='” & GropRS & “‘”
Set rsdata = New Recordset
rsdata.Open sql, DB
If rsdata.RecordCount > 0 Then
xstok = rsdata!status
If xstok > 0 Then
Istock = True
Else
Istock = False
End If

kodeproduk = a(n)
vProvider = GetProvider(vTujuan, kodeproduk, GropRS)
If vProvider = “” Then vProvider = GetNamaProvider(kodeproduk, GropRS)
sProvider = vProvider
If vProvider = “” Then
Call BalasanGangguan(destination, kodereseller, kodeproduk, itujuan, CURRENT_MESSAGE)
IsConfiguration = False
IsProdukError = True
GoTo jumping
End If
Else

sql = “select * From produk where nama_produk='” & a(n) & “000” & “‘and kode_opr='” & vProvider & “‘and counter='” & GropRS & “‘and stok=’0′”
Set rsdata = New Recordset
rsdata.Open sql, DB
If rsdata.RecordCount > 0 Then
rsdata.MoveFirst
While Not rsdata.EOF

vProvider = GetProvider(vTujuan, rsdata!kode_produk, GropRS)
‘If vProvider = “” Then vProvider = GetNamaProvider(rsdata!kode_produk, GropRS)
‘If vProvider = “” Then vProvider = GetNamaOprator(vTujuan)
kodeproduk = rsdata!kode_produk
sProvider = vProvider

If vProvider = “” Then
Call BalasanGangguan(destination, kodereseller, kodeproduk, itujuan, CURRENT_MESSAGE)
IsConfiguration = False
IsProdukError = True
GoTo jumping
End If

If isOK = True Then GoTo Loncat
rsdata.MoveNext
Wend
End If

Loncat:

kodeproduk = GetKodeProduk(a(n) & “000”, sProvider, GropRS)
If kodeproduk = “” Then
Call ProdukKosong(destination, kodereseller, a(n))
IsConfiguration = False
IsProdukError = True
GoTo jumping
Else
If sProvider = “” Then
sProvider = vProvider
End If
End If
End If

sql = “select * from produk where kode_produk='” & kodeproduk & “‘and kode_opr='” & sProvider & “‘and counter='” & CInt(GropRS) & “‘”
Set rsdata = New Recordset
rsdata.Open sql, DB
If rsdata.RecordCount > 0 Then
InitProduk = rsdata!kode_produk
vProduk = InitProduk
IsConfiguration = True
If GetProduk(InitProduk, GropRS) = False Then
Call ProdukKosong(destination, kodereseller, InitProduk)
IsConfiguration = False
IsProdukError = True
GoTo jumping
Else
If GetTerminalProduk(InitProduk, GropRS) = False Then
Call BalasanGangguan(destination, kodereseller, InitProduk, itujuan, CURRENT_MESSAGE)
IsConfiguration = False
IsProdukError = True
GoTo jumping
Else
If Istock = False Then
vHarga = Cekharga(InitProduk, kodereseller, GropRS, CInt(RESELLER_STATUS))
Else
vStok = CekStok(kodereseller, InitProduk)
End If

If vProvider = “” Then
Call BalasanGangguan(destination, kodereseller, InitProduk, itujuan, CURRENT_MESSAGE)
IsConfiguration = False
IsProdukError = True
GoTo jumping
Else
If Istock = False Then
If vHarga = “” Then
Call ProdukKosong(destination, kodereseller, InitProduk)
IsConfiguration = False
IsProdukError = True
GoTo jumping
Else
vProduk = InitProduk
IsConfiguration = True
End If
End If
End If
End If
End If
Else
Call ProdukKosong(destination, kodereseller, a(n))
IsConfiguration = False
IsProdukError = True
GoTo jumping
End If

Case “<ke>”
vUlang = a(n)
If vUlang = “” Then
menu = “ISI PULSA”
Call FormatParsingAdminSalah(destination, menu)
IsConfiguration = False
GoTo jumping
Else
vUlang = a(n)
IsConfiguration = True
End If
Case “<tujuan>”
nopembeli = Split(a(n), “-“)
If UBound(nopembeli()) = 0 Then
tujuan = a(n)
nohape = a(n)
hape = a(n)
errhape = get_Character.get_Character(hape)
If Len(errhape) > 0 Then
Call NoTujuanSalah(nohape, kodereseller, destination)
IsConfiguration = False
GoTo jumping
Else
vTujuan = a(n)
IsConfiguration = True
End If
hape = a(n)
vTujuan = a(n)
If Get_Cek_Nomer(hape, IProduk) = False Then
Call NoTujuanSalah(nohape, kodereseller, destination)
IsConfiguration = False
GoTo jumping
Else
vTujuan = a(n)
IsConfiguration = True
End If
Else
vBuyer = nopembeli(1)
vTujuan = nopembeli(0)
IsConfiguration = True
End If

Case “<pin>”
If Not a(n) = mxPinReseller Then
Call PinSalah(mxKodeReseller, destination)
IsPinError = True
IsConfiguration = False
GoTo jumping
Else
vPin = a(n)
IsConfiguration = True
End If

End Select

Next n
End If
End If

End If

jumping:
End Function

About noppi

matrixpulsa Developer & CEO

Leave a Reply

Your email address will not be published. Required fields are marked *