Skip to main content

Membuat Penomoran Otomatis dangan Huruf Di depan Tahun dan Tanggal Php Mysql

Disini saya ingin mendokumentasikan, cara membuat penomoran otomatis di php mysql dengan kombinasi Huruf , angka , tanggal , dan tahun.

sebagai contoh sebagai berikut:
Nomor  yang dilingkarin dibawah ini (PO202201002)
NB : - PO adalah huruf depan 
         - 2022 adalah Tahun ini.
         - 01 adalah tanggal hari ini.
         - 002 adalah nomor urut, jika data 002 sudah disimpan maka dengan otomatis berubah menjadi                003, begitu selanjutnya.


di bawah ini contoh kodingannya :

<?php 
            //TIMEZONE

date_default_timezone_set("Asia/Jakarta");
$date= date("Y-m-d");

// NOMOR URUT ORDER
$query =mysqli_query($GLOBALS["___mysqli_ston"], "SELECT max(no_beli) as maxKode FROM tbl_buy");
$data = mysqli_fetch_array($query);
$noOrder = $data['maxKode'];
$noUrut = (int) substr($noOrder, 9, 3);
$noUrut++;
$char = "PO";
$tahun=substr($date, 0, 4);
$bulan=substr($date, 5, 2);
$no_beli = $char .$tahun .$bulan . sprintf("%03s", $noUrut);


<form>

    <input type="text" name="no_beli" value="<?php echo $no_beli; ?>" >

</form> 

?>


Semoga bermanfaat.


Comments

Popular posts from this blog

cara membuat hapus data di vb.net 2008

public function hapus data () as integer '--------------------------------------------- 'class untuk menghapus data '--------------------------------------------- dim sql as string dim xcmd as sqlcomand dim x sql ="delete from siswa where nis=@nis" xcmd = new sqlcommand (sql ,con) xcmd.paramater.addwithvalue("nis", Fnis) x = xcmd.executenonquery xcmd.dispose () return x end function

membuat perintah ubah di vb.net

public function ubahdata () as integer      dim sql as string      dim xcmd as sqlcomand      dim x as integer      sql ="update siswa set nm_siswa=@nm_siswa,Jenkel=@jenkel,Alamat=@alamat where      nis=@nis"      xcmd = new slqcomand (sql, con)      with parameter            .addwithvalue("nm_siswa", Fnm_siswa)            .addwithvalue("jenkel",Fjenkel)            .addwithvalue ("nis",Fnis)      end with       x = xcmd.excutenonquery      xcmd.dispose ()      return x end function jangan lupa di class ini yang paling atas harus ditulis import system.data.sqlclient karena jika tidak di tulis maka sqlcommand tidak kebaca maka error. selama...

Koneksi VB .Net Menggunakan Menggunakan ODBC

Imports System.Data.ODbC Module Module_koneksi Dim connection As New OdbcConnection( "DSN= NAMADSN ;" ) Private Sub connection_open() Try If connection.State <> ConnectionState.Closed Then connection.Close() connection.Open() Catch ex As Exception End Try End Sub Private Sub connection_close() Try If connection.State <> ConnectionState.Open Then connection.Open() connection.Close() Catch ex As Exception End Try End Sub End Module