penomoran otomatis pada foxpro

Oleh
contoh untuk penomoran otomatis

sele 4
go bottom
no=ltrim(str(val(right(transaksi.nofak,4))+1))
do case
case val(no)<10
no="000"+no
case val(no)<100
no="00"+no
case val(no)<1000
no="0"+no
endcase


tgl=date()
tanggal=left(DTOC(tgl),2)
bulan=substr(dtoc(tgl),4,2)
tahun=right(dtoc(tgl),2)
no_p="XYZ"+tahun+bulan+tanggal+no

thisform.txtNOfak.value=no_p

Komentar

  1. Evan2 Juli 2011 pukul 11.00

    thx gan.....

    BalasHapus
  2. Irudnotesite16 Juli 2011 pukul 14.26

    klo agar formatnya PES010101 gimana ya??? jadinya tuh PES (tahun) (bulan) (tanggal)

    BalasHapus
    Balasan
    1. Fattya13 Februari 2012 pukul 05.45

      PES010101 gimana ya??? jadinya tuh PES (tahun) (bulan) (tanggal)
      tinggal ubah aja
      no_p="PES"+tahun+bulan+tanggal

      Hapus
  3. Rita Tri Megawati23 Juni 2013 pukul 08.06

    kalau ingin menampilkan huruf dan nomor otomatis gimana ya?
    misal D01,D02,...dst.....??

    BalasHapus
  4. Aanpup29 September 2018 pukul 10.32

    Kalau ingin menampilkan. Nomor 0304tgl sekarang gimana

    BalasHapus
  5. Anonim9 September 2019 pukul 01.46

    penjelasan
    sele 4
    dan transaksi.nofak itu darimana ya gan

    apakah membuat cursor
    dan apakah transaksi.nofak dari tabel transaksi dan field nofak

    BalasHapus

Posting Komentar