Proses Index

minggu kemarin sy baru saja menyelesaikan program index untuk penjualan, program ini akan dipakai untuk membuat index dari setiap barang yg dijual sehingga nantinya nilai penjulan akan di kalikan dengan index masing2 lalu penilaian performance berdasarkan hasil perkalian tsb. sebenarnya di DAX sudah ada fasilitasnya walaupun perlu sedikit perubahan, tetapi karena harga dasar perhitungan index sangat fleksible akhirnya sy memutuskan untuk membuat aplikasi barunya, tanpa merubah core system aplikasi DAX. Berikut ini hasil capturannya

void clicked()
{
InventDimCombination _InventDimCombination;
amount PriceStd;
amount Price;
str InvDImID;

WHILE SELECT _InventDimCombination WHERE
InventDimCombination.ItemId==IND_CSK_INDEXPENJUALAN.ItemID
&& _InventDimCombination.ConfigId==IND_CSK_INDEXPENJUALAN.ConfigId &&
_InventDimCombination.InventSizeId==IND_CSK_INDEXPENJUALAN.InventSizeID
{
If(_InventDimCombination.InventColorId==IND_CSK_INDEXPENJUALAN.InventColorID)
{
InvDimID=_InventDimCombination.InventDimId;
PriceStd=_InventDimCombination.IND_CSK_PRICE;
}
}

WHILE SELECT ForUpdate _InventDimCombination
{
Price=_InventDimCombination.IND_CSK_PRICE;
ttsbegin;
_InventDimCombination.IND_CSK_INDEXPENJUALAN=Price/PriceStd;
_InventDimCombination.update();
ttscommit;
}
}



void write()
{
SalesLine _salesLine;
InventDimCombination _InventDimCombination; //tambahan deklarasi
inventdim _inventdim;//tambahan deklarasi

//tambahan program agar mengupdate Indexè diletakkan dibawah program standar
if(_statusEdit==true)
{
select _inventdim where _inventdim.inventDimId==salesline.InventDimId;

SELECT _InventDimCombination WHERE _InventDimCombination.ItemId==salesline.ItemId
&& _InventDimCombination.InventColorId==_inventdim.InventColorId
&& _InventDimCombination.InventSizeId==_inventdim.InventSizeId
&& _InventDimCombination.ConfigId==_inventdim.configId;

salesline.IND_CSK_INDEXPENJUALAN=_InventDimCombination.IND_CSK_INDEXPENJUALAN;
salesline.update();
}
_statusEdit=false;
}






public void insert()
{
SalesLine _SalesLine;
super();

SELECT _SalesLine WHERE _SalesLine.InventTransId==this.InventTransId;

this.IND_CSK_INDEXPENJUALAN=_SalesLine.IND_CSK_INDEXPENJUALAN;
this.update();
}