AKINSOFT WOLVOX Pascal Script rehberi: yapı, yazım kuralları ve basit örnekler.

Genel Script ve Event Script birlikte

Prosedür Genel Script'te tanımlanır, bir olayın içinden adıyla çağrılır. Genel Script'teki bir prosedür, yalnız kendisinden yukarıda tanımlı prosedürleri çağırabilir.

// Genel Script: önce TEK var bloğu, sonra prosedürler
var
  Mesaj : String;

procedure BilgiGoster;
begin
  Mesaj := 'Script çalışıyor.';
  ShowMessage(Mesaj);
end;

// Event Script → Script → OnStart → İşlem Öncesi
begin
  BilgiGoster;

Yazım kuralları

Script motoru Delphi'ye benzer ama birebir aynı değildir. Derleme hatalarının çoğu şu kurallardan gelir:

• Genel Script'te tek bir var bloğu olur ve en üstte durur.
• Genel Script'in başına begin, sonuna end. yazılmaz.
• Event Script'te begin yazılır, kapanan end; yazılmaz; program ekler.
• Varsayılan parametre yoktur; metodun tüm parametreleri yazılır.
• AKINSOFT'un hazır metotları AsGenel1. önekiyle çağrılır.
• Kullanılacak sınıf, Class List'te aranarak doğrulanır.

Sayı alanında alt sınır

Vade günü sıfır ya da negatifse satır kaydedilmez. Aynı kalıp fiyat, miktar veya iskonto sınırı için kullanılır.

// Event Script → SipHr_Ds → BeforePost → İşlem Öncesi
begin
  if DataSet.FieldByName('VADE_GUNU').AsInteger <= 0 then
  begin
    ShowMessage('Vade Günü sıfırdan büyük olmalıdır!');
    Abort;
  end;

Boş liste koruması

Sipariş ve faturada başlık, satırlardan önce kaydedilir. Satırları denetleyen koda bu koruma konmazsa kullanıcı yeni belge açamaz.

// Başlık kaydedilirken satır listesi henüz boştur
begin
  if not SipHr_Ds.Active then Exit;
  if SipHr_Ds.IsEmpty then Exit;

Veritabanından tek değer okumak

Son döviz kuru gibi tek bir değer SQL ile okunur.

var
  SQL : String;
  Kur : Extended;
begin
  SQL := 'SELECT TOP 1 SATIS_FIYATI FROM DOVIZ_HAREKET ' +
         'WHERE DOVIZ_BIRIMI = ''$'' ORDER BY TARIHI DESC';
  // Beş parametrenin hepsi yazılır; script motorunda varsayılan parametre yoktur
  Kur := AsGenel1.SQLCalistir1(Uretim_Q.Connection, SQL, 0, False, False);

Ekrana bilgi etiketi eklemek

Mevcut bir bileşenin altına açıklama yazısı eklenir. Konum o bileşene göre hesaplanır; form yeniden açıldığında etiket ikinci kez eklenmez.

// Genel Script
var
  NotLabel : TsLabel;

procedure NotEtiketiEkle;
begin
  if CheckBLOKE.Parent.FindComponent('NotLabel') <> nil then Exit;

  NotLabel := TsLabel.Create(CheckBLOKE.Parent);
  NotLabel.Name    := 'NotLabel';
  NotLabel.Parent  := CheckBLOKE.Parent;
  NotLabel.Caption := 'Fiyatlar USD kuruyla hesaplanır';
  NotLabel.Left    := CheckBLOKE.Left;
  NotLabel.Top     := CheckBLOKE.Top + CheckBLOKE.Height + 14;
end;

// Event Script → Script → OnStart → İşlem Öncesi
begin
  NotEtiketiEkle;

Ana menüye kendi başlığınız

Menüye yeni başlık eklenir; tıklanınca Tasarım sekmesinde hazırlanan form açılır.

// Genel Script
var
  YeniMenu, YeniAlt : TMenuItem;

procedure OzelFormAc(Sender: TObject);
begin
  AsFormCreate('OZEL_RAPOR');      // Tasarım sekmesindeki form adı
end;

procedure MenuEkle;
begin
  YeniMenu := TMenuItem.Create(Self);
  YeniMenu.Caption := 'Özel İşlemler';
  MainMenu1.Items.Add(YeniMenu);

  YeniAlt := AsGenel1.AddMenuItem(YeniMenu, 'Özel Rapor', -1);
  SetEventMethod(YeniAlt, 'OnClick', 'OzelFormAc');
end;

// Event Script → Script → OnStart → İşlem Öncesi
begin
  MenuEkle;