Mengatasi Penomoran Nota pada Transaksi Multiuser (LANJUTAN)
Pentingnya manajemen coding
Menanggapi komplain dan masukan di lapangan, terkait dengan penggunaan aplikasi multiuser Kasir. Menindak lanjuti ide ttg auto generate no nota yang “bergerak” secara otomatis pada no nota selanjutnya, apabila ada transaksi yang telah dilakukan.
Skema ide dalam aplikasi adalah, apabila modul kasir dibiarkan, maka no nota akan terus bergerak sepanjang ada transaksi yang telah dilakukan komputer lain. Akan tetapi apabila komputer yang melakukan transaksi, yaitu setelah menekan tombol Simpan, maka timer mesti berhenti untuk “menggerakkan” no nota, agar ketika ditekan tombol cetak, bisa tampil data transaksi yang baru aja dilakukan.
Pada nukilan coding sbb:
strSql2 = "select*from jual where No_Nota='" & txtNoNota & "'"
Set rsData = cN.Execute(strSql2)
If Not rsData.EOF Then
''''UPDATE DGN PANGGIL LAGI NOTA
BuangNota
''''simpan yang baru
simpanTunai
Timer1.Enabled = False
MsgBox "data penjualan tunai dg nota UPDATE " + txtNoNota.Text + " tersimpan"
cmdSave1.Enabled = False '191208
Else
''''simpan yang baru
simpanTunai
Timer1.Enabled = False
MsgBox "data penjualan dg nota " + txtNoNota.Text + " tersimpan"
cmdSave1.Enabled = False '191208
End If
- - - -
Peletakkan Timer1.Enabled = False di bawah kotak pesan yang keluar (MsgBox) akan menyebabkan kejadian yang berbeda di PC yang berbeda. Berdasar pengalaman, kurang mengerti juga krn dgn spec PC yg relatif sama, bisa terjadi kejadian yang berbeda…meski sama-sama stand alone.
Tetapi jka coding seperti di atas, ternyata mempunyai kejadian yang sama dan tidak bermasalah lagi.
Menanggapi komplain dan masukan di lapangan, terkait dengan penggunaan aplikasi multiuser Kasir. Menindak lanjuti ide ttg auto generate no nota yang “bergerak” secara otomatis pada no nota selanjutnya, apabila ada transaksi yang telah dilakukan.
Skema ide dalam aplikasi adalah, apabila modul kasir dibiarkan, maka no nota akan terus bergerak sepanjang ada transaksi yang telah dilakukan komputer lain. Akan tetapi apabila komputer yang melakukan transaksi, yaitu setelah menekan tombol Simpan, maka timer mesti berhenti untuk “menggerakkan” no nota, agar ketika ditekan tombol cetak, bisa tampil data transaksi yang baru aja dilakukan.
Pada nukilan coding sbb:
strSql2 = "select*from jual where No_Nota='" & txtNoNota & "'"
Set rsData = cN.Execute(strSql2)
If Not rsData.EOF Then
''''UPDATE DGN PANGGIL LAGI NOTA
BuangNota
''''simpan yang baru
simpanTunai
Timer1.Enabled = False
MsgBox "data penjualan tunai dg nota UPDATE " + txtNoNota.Text + " tersimpan"
cmdSave1.Enabled = False '191208
Else
''''simpan yang baru
simpanTunai
Timer1.Enabled = False
MsgBox "data penjualan dg nota " + txtNoNota.Text + " tersimpan"
cmdSave1.Enabled = False '191208
End If
- - - -
Peletakkan Timer1.Enabled = False di bawah kotak pesan yang keluar (MsgBox) akan menyebabkan kejadian yang berbeda di PC yang berbeda. Berdasar pengalaman, kurang mengerti juga krn dgn spec PC yg relatif sama, bisa terjadi kejadian yang berbeda…meski sama-sama stand alone.
Tetapi jka coding seperti di atas, ternyata mempunyai kejadian yang sama dan tidak bermasalah lagi.
Komentar