Programda ayarlar ile KAYIT modülündeki Döviz Kuru penceresinde döviz güncelleme işlemi yapılmaktadır.
Aşağıdaki kod bloğu ise program ayarına alternatif olarak kullanılabilir.
Günlük döviz kuru, kullanıcının sisteme ilk girişi ile güncellenir.
1. Aşağıdaki bölümdeki kod kopyalanır. Kod bölümünü açmak için tıklayınız.
var timer = null;
function Loaded(){
timer = TTimer.Create(null);
timer.Interval = 5000;
timer.Enabled = true;
Scripter.SetEvent(timer, 'OnTimer', 'myfunc');
}
function myfunc(sender){
timer.Enabled = false;
kurGuncelle();
}
function kurGuncelle(){
var query,sql,lForm;
sql = 'SELECT COUNT(*) FROM DOVIZKUR WHERE TARIH BETWEEN CURRENT_DATE AND CURRENT_DATE';
query = GetNSCDS(sql);
if (query.FieldByName('COUNT').AsInteger == 0){
lForm = TFormSYDovizKuruEdit.Create(null);
var lNSCDSDovizler = lForm.NSCDSDovizler;
var lNSCDSKurTipi = lForm.NSCDSKurTipi;
var lNSCDSSaatlikKur = lForm.NSCDSSaatlikKur;
lNSCDSDovizler.Open;
lNSCDSKurTipi.Open;
lNSCDSSaatlikKur.Open;
lForm.Show;
lForm.btnButunKurlariGuncelle.Click;
lForm.Close;
lForm.Free;
MessageDlg('Kur güncelleme işlemi tamamlandı.', mtInformation, 0, 0);
}
}
function GetNSCDS(SQL){
var ds = TNSClientDataset.Create(null);
ds.NSDataBaseName = "INETSIM";
ds.SQL.Text = SQL;
ds.Open;
return ds;
}
|
|
2.Netsim Sistem Yöneticisi açılır.
3.Tanımlar menüsündeki Sistem Kütüphanesi'ne tıklanır. İşlem yapılabilmesi için sistem kullanıcısı SYSDBA ile giriş yapılması gerekmektedir.
4.Orta alana kod yapıştırılır (1) ve Kaydet (2) butonuna tıklanır. Bu ayardan sonra Netsim sistem exe çalıştırıldığı zaman döviz güncellemesi yapılır ve İşlem tamamlandı şeklinde uyarı mesajı alınır.
