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

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

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...