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.

Komentar

Postingan populer dari blog ini

Monitoring Progress Proses dalam Digital Printing Advertising – Multi User (Sistem Titip)

Surat Perintah Kerja dalam Usaha Digital Printing

Manajemen Informasi Bengkel 02 – Otomatisasi penggajian komisi penjualan