all gw da masalah lagi nih ma faktur..ni adalah revisi
dari pertanyaan gw kmrn ttng faktur...
nih script nya
dd = tanggal
gg = variable tanggal nya yg udah di trim dari label
tanggal
Dim fakper
If rsmh.RecordCount = 0 Then
tfper.Text = "FP-" & Val(Left(TTANGGAL, 2)) &
"0001"
Else
rsmh.MoveLast
gg = Left(TTANGGAL, 2)
fakper = Left(rsmh!no_fp, 3) & gg &
Right(rsmh!no_fp + "0000", 4) + 1
tfper.Text = Format(fakper) ', "FP-000000")
End If
masalah nya....klo faktur kosong di DBnya jadi=
FP-dd0001
gtu masuk ke digit 2 dst format nya jadi
FP-dd12--> ini pas di faktur ke 12
FP-dd1 --> waktu faktur pertama sampe sebilan
yg binun "0000" ni wat apa ya..??
target faktur =
FP-dd0001 tuk dijit 1-9
Fp-dd0010 untuk dijit 10-99
please help
____________________________________________________________________________________
Be a better friend, newshound, and
know-it-all with Yahoo! Mobile. Try it now.
http://mobile.yahoo.com/;_ylt=Ahu06i62sR8HDtDypao8Wcj9tAcJ
