Tks Mas Aksan...,
Itu saya copy langsung dari PHP. Belum sempat utak-atik di VBA. Di PHP varibel tidak perlu deklarasi terlebih dahulu. Simbol $ sudah menunjukkan bahwa itu variabel.
Fungsi cek_harga, meminta 2 variabel. $n dan $jn. Dalam hal ini:
$n = id urut unik (inputan awal dimulai dari 1 terus hingga tak terhingga)
$jn = kode jenis barang.
Awalnya, saya melihat pilihan user terhadap metode HPP yang datanya saya letakkan di tabel persediaan_mode. Record tabelnya:
id_met metode Pil
0 LIFO 1
1 FIFO 0
2 Average 0
Dari tabel diatas, user memilih metode LIFO.
Varibel jn minus 10, maksudnya, saya buat yang terekam di tabel dikurangi 10.
if($meto==0){
$pa = "order by id_p desc"; //bila metode LIFO
}else if($meto==1){
$pa = "order by id_p asc"; //bila metode FIFO
}
====================
if($meto<2){ //bila metode FIFO/LIFO
$bo = mysql_query("SELECT * FROM
persediaan where jen='$jen' and
id_p<='$n' $pa"); //melihat semua record untuk id <= umpan variabel yang diberikan user
$jjm = 0; //default variabel $jjm = 0
while($bos = mysql_fetch_array($bo)){
$jjm = $jjm + $bos['jml']; //penjumlahan jml barang
if($bbb<$jjm){ //jika $bbb < $jjm
//nilai $bbb ada di atas script ini
//ambil harga dan berhenti
$harga = $bos['h_sat'];
break;
}
}
}else{ //memakai average
///ambil harga rata-rata untuk jenis barang dan <= id sesuai umpan user
$bo = mysql_query("SELECT AVG(h_sat) FROM
persediaan
where jen='$jen' and
id_p<='$n' group by jen");
$bos = mysql_fetch_array($bo);
$harga = $bos[0];
}
return $harga; //kembalikan hasil ke user
--------------------------------------------
On Wed, 4/6/14, Aksan Kurdin aksan.kurdin@gmail.com [belajar-access] <belajar-access@yahoogroups.com> wrote:
Subject: Re: Bls: [belajar-access] Re: Cara buat kartu stok dan hpp stok avarage
To: belajar-access@yahoogroups.com
Date: Wednesday, 4 June, 2014, 7:46 AM
mari kita bantu cak har menerjemahkan ke vba :)
tetapi sebelumnya fungsi cek_harga menerima dua
parameter,
$n : ?
$jn : ?
dari tabel persediaan_mode, ada pil = '1'.
apa isi persediaan_mode ?
aksan kurdin
On 6/3/2014 8:05 PM,
hari yanto
har_i20002000@yahoo.com
[belajar-access] wrote:
Yang menentukan HPP berdasarkan FIFO, LIFO,
atau Average
adalah pengakuan harga barang saat keluar.
Saya pernah
membuatnya dalam bentuk VBA, kalau nggak salah
di
postingan sebelum ini.
Saya mengambil dari fungsi harga di PHP yang
pernah saya
design:
function cek_harga($n,$jn){
$ry = "Select * From persediaan_metode
where pil='1'";
$il = mysql_query($ry);
$ta = mysql_fetch_array($il);
$meto = $ta[0];
$jen = $jn-10;
$br = mysql_query("SELECT Sum(jml) FROM
persediaan
where jen='$jn' and
id_p<='$n'");
$bb = mysql_fetch_array($br);
$bbb = $bb[0];
if($meto==0){
$pa = "order by id_p desc";
}else if($meto==1){
$pa = "order by id_p asc";
}
if($meto<2){
$bo = mysql_query("SELECT * FROM
persediaan
where jen='$jen' and
id_p<='$n' $pa");
$jjm = 0;
while($bos = mysql_fetch_array($bo)){
$jjm = $jjm + $bos['jml'];
if($bbb<$jjm){
$harga = $bos['h_sat'];
break;
}
}
}else{
$bo = mysql_query("SELECT AVG(h_sat) FROM
persediaan
where jen='$jen' and
id_p<='$n' group by jen");
$bos = mysql_fetch_array($bo);
$harga = $bos[0];
}
return $harga;
}
Yang dalam bentuk VBA, akan saya cari arsipnya
ya..
Hariyanto (Surabaya)
Posted by: hari yanto <har_i20002000@yahoo.com>
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (15) |
Tidak ada komentar:
Posting Komentar