Ticari İşlemler Soru Cevap > Alış Satış > Hazır kod bloğu kullanılarak nasıl döviz güncellenir?

Günlük döviz kurlarının sistem üzerinde otomatik olarak alınabilmesi için aşağıdaki hazır kod bloğu kullanılmaktadır.

Aşağıdaki işlem adımları takip edilerek işlem yapılması gerekir.

Bu sayede kullanıcı ilk oturumu sağladığında otomatik olarak döviz bilgilerini sistem çekmiş olacaktır.

Döviz Kuru Kodu

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;

}

1. 000buton_netsimsistem Netsim Sistem Yöneticisi açılır.

2.Tanımlar (1) menüsündeki Sistem Kütüphanesi'ne (2) tıklanır. İşlem yapılabilmesi için sistem kullanıcısı SYSDBA ile giriş yapılması gerekmektedir.

3.Orta alana kod (3) yapıştırılır ve Kaydet (4) butonuna tıklanır.

4.Bu ayardan sonra Netsim sistem exe çalıştırıldığı zaman döviz güncellemesi yapılır. İşlem tamamlandı şeklinde uyarı mesajı alınır.