Aplikasi Retail Multi Cabang/toko (Data base Tranfer Sistem) DTS, Simple dan mudah
Secara garis besar,fitur DTS (Data base Tranfer Sistem) berguna untuk mengambil data transaksi dari cabang, dan data induk baru dari pusat. Fitur ini, sekaligus dapat membuat file yang terbentuk otomatis di folder tertentu untuk dimasukkan ke dalam database yang terpisah.
Folder berada di drive D, agar histori kiriman data masih aman, jika terpaksa suatu saat, komputer mesti diformat ulang.
Menu Utama
Data yang telah dikirim baik dari atau ke pusat/cabang, tidak akan terkirim 2 kali. Hal ini sudah ada mekanisme penandaan dalam tiap data record nya. Validasi yang lebih rumit, yaitu saat ada transaksi yang memerlukan updating. Misalkan jika ada penjualan di cabang 1, di kode barang tertentu, mesti sama persis data base nya saat dikirim ke pusat.
Sedikit membuka rahasia, teknik validasinya, yaitu dengan membuat tabel temporary untuk menampung data kiriman. Dari tabel temporary, kemudian dibandingkan dengan tabel sebenarnya, misal kode barangnya.
Dim Vkode_barang As String, Vkode_toko As String
Dim Vjml As Single
strS1 = "select*from detailDeviasiTemp"
Set rsData1 = cN.Execute(strS1)
Do While Not rsData1.EOF
Vkode_barang = rsData1!kode_barang
Vjml = rsData1!JML
Vkode_toko = rsData1!kode_toko
strS2 = "select*from stok where kode_barang='" & Vkode_barang & "' and kode_toko='" & Vkode_toko & "'"
Set rsData2 = cN.Execute(strS2)
If Not rsData2.EOF Then
cN.Execute ("update stok set stok='" & rsData2!stok + Vjml & "' where kode_barang='" & Vkode_barang & "' and kode_toko='" & Vkode_toko & "'")
End If
rsData1.MoveNext
Loop
Modul Tranfer Data ke cabang
Modul ini berguna untuk mengirim:
- data induk baru
- data mutasi antar pusat ke cabang
- data setingan lainnya
Langkah operasionalnya:
1. pilih kode toko yang akan dikirim
2. atur tanggal pengiriman
3. tekan tombol Kirim
hasilnya suatu file TXT yang berada di folder D:\ FileDariPusat
Komentar