Clomosy | Forum : kod hatası https://forum.clomosy.com.tr/ Copyright (c) 2006-2013 Web Wiz Forums - All Rights Reserved. Wed, 29 Jul 2026 20:24:08 +0000 Wed, 29 Jul 2026 18:23:36 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.07 30 https://forum.clomosy.com.tr/RSS_post_feed.asp?TID=1640 <![CDATA[Clomosy | Forum]]> https://forum.clomosy.com.tr/forum_images/logo.png https://forum.clomosy.com.tr/ <![CDATA[kod hatası : var OdemeForm: TclForm; AnaPnl,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1640&PID=3799#3799 Yazar: seyma
Konu: 1640
Gönderim Zamanı: 29 Temmuz 2026 Saat 18:23

var
  OdemeForm: TclForm;

  AnaPnl,
  HeaderPnl,
  FormPnl: TclProPanel;

  BaslikLbl,
  AltBaslikLbl: TclProLabel;

  UyeEdt,
  TutarEdt,
  TarihEdt,
  YontemEdt,
  AciklamaEdt: TclProEdit;

  KaydetBtn,
  GeriBtn: TclProButton;

  Rest: TclRest;

  SupabaseUrl,
  SupabaseKey,
  RequestBody: String;
  SecilenUyeID: String;
  UyeRest: TclRest;

void PanelStili(APanel: TclProPanel; ArkaPlan: String; Kenar: String; Kose: Integer);
{
  APanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor(ArkaPlan);
  APanel.clProSettings.BorderColor = clAlphaColor.clHexToColor(Kenar);
  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.RoundWidth = Kose;
  APanel.clProSettings.RoundHeight = Kose;
  APanel.SetclProSettings(APanel.clProSettings);
}

void LabelStili(ALbl: TclProLabel; Renk: String; Boyut: Integer; Kalin: Boolean);
{
  ALbl.clProSettings.FontColor = clAlphaColor.clHexToColor(Renk);
  ALbl.clProSettings.FontSize = Boyut;

  if (Kalin)
  {
    ALbl.clProSettings.TextSettings.Font.Style = [fsBold];
  }
  else
  {
    ALbl.clProSettings.TextSettings.Font.Style = [];
  }

  ALbl.SetclProSettings(ALbl.clProSettings);
}

void EditStili(AEdit: TclProEdit);
{
  AEdit.Height = 42;
  AEdit.clProSettings.RoundWidth = 10;
  AEdit.clProSettings.RoundHeight = 10;
  AEdit.clProSettings.BorderColor = clAlphaColor.clHexToColor('#CBD5E1');
  AEdit.SetclProSettings(AEdit.clProSettings);
}

void GeriDon;
{
  OdemeForm.clHide;
  Clomosy.RunUnit('uDashboard');
}

void OdemeKaydet;
{
  SecilenUyeID = Trim(UyeEdt.Text);

  if (SecilenUyeID == '')
  {
    ShowMessage('Üye seçiniz.');
    Exit;
  }
  if (UyeEdt.Text == '')
  {
    ShowMessage('Üye adı giriniz.');
    Exit;
  }
  if (TutarEdt.Text == '')
  {
    ShowMessage('Tutar giriniz.');
    Exit;
  }

  RequestBody = '{' +
    '"uye_id":' + SecilenUyeID + ',' +
    '"tutar":' + TutarEdt.Text + ',' +
    '"odeme_tarihi":"' + TarihEdt.Text + '",' +
    '"odeme_turu":"' + YontemEdt.Text + '",' +
    '"aciklama":"' + AciklamaEdt.Text + '"' +
    '}';

  Rest = TclRest.Create;
  Rest.Accept = 'application/json';
  Rest.Method = rmPOST;
  Rest.BaseURL = SupabaseUrl + '/rest/v1/odemeler';

  Rest.AddHeader('apikey', SupabaseKey);
  Rest.AddHeader('Authorization', 'Bearer ' + SupabaseKey);
  Rest.AddHeader('Prefer', 'return=representation');
  Rest.AddBody(RequestBody, 'application/json');

  Rest.Execute;

  if (Rest.StatusCode >= 200)
  {
    if (Rest.StatusCode < 300)
    {
      ShowMessage('Ödeme başarıyla kaydedildi.');

      UyeEdt.Text = '';
      TutarEdt.Text = '';
      TarihEdt.Text = '';
      YontemEdt.Text = '';
      AciklamaEdt.Text = '';
      Exit;
    }
  }

  ShowMessage('HTTP: ' + IntToStr(Rest.StatusCode) + #13#10 + Rest.Response);
}

// ==============================================================
// ANA FORM ÇALIŞMA BLOĞU
// ==============================================================
{
  SupabaseUrl = 'https://zttjqagkqzcgrlnxqarg.supabase.co';
  SupabaseKey = 'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6Inp0dGpxYWdrcXpjZ3JsbnhxYXJnIiwicm9sZSI6ImFub24iLCJpYXQiOjE3ODQxMTg4MjYsImV4cCI6MjA5OTY5NDgyNn0.mpDYGhrn6F0-1do8QtJUAXh6DK6Zo25SSI7S4-OQmFs';

  OdemeForm = TclForm.Create(Self);
  OdemeForm.SetFormColor('#F8FAFC', '#F8FAFC', clGVertical);

  OdemeForm.FormWaiting.Visible = False;
  OdemeForm.BtnFormMenu.Visible = False;
  OdemeForm.BtnGoBack.Visible = False;

  AnaPnl = OdemeForm.AddNewProPanel(OdemeForm, 'AnaPnl');
  AnaPnl.Align = alClient;
  PanelStili(AnaPnl, '#F8FAFC', '#F8FAFC', 0);

  HeaderPnl = OdemeForm.AddNewProPanel(AnaPnl, 'HeaderPnl');
  HeaderPnl.Align = alTop;
  HeaderPnl.Height = 90;
  PanelStili(HeaderPnl, '#FFFFFF', '#E2E8F0', 0);

  BaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'BaslikLbl', 'Ödeme Al');
  BaslikLbl.Align = alTop;
  BaslikLbl.Height = 38;
  BaslikLbl.Margins.Left = 20;
  BaslikLbl.Margins.Top = 16;
  LabelStili(BaslikLbl, '#0F172A', 20, True);

  AltBaslikLbl = OdemeForm.AddNewProLabel(HeaderPnl, 'AltBaslikLbl', 'Üye ödeme bilgilerini giriniz.');
  AltBaslikLbl.Align = alTop;
  AltBaslikLbl.Height = 24;
  AltBaslikLbl.Margins.Left = 20;
  LabelStili(AltBaslikLbl, '#64748B', 10, False);

  FormPnl = OdemeForm.AddNewProPanel(AnaPnl, 'FormPnl');
  FormPnl.Align = alTop;
  FormPnl.Height = 360;
  FormPnl.Margins.Left = 40;
  FormPnl.Margins.Right = 40;
  FormPnl.Margins.Top = 20;
  PanelStili(FormPnl, '#FFFFFF', '#E2E8F0', 12);

  // DÜZELTİLEN SATIR (Bileşen adı 'UyeSecEdt' yapıldı):
  UyeEdt = OdemeForm.AddNewProEdit(FormPnl, 'UyeSecEdt', 'Üye Adı');
  UyeEdt.Align = alTop;
  EditStili(UyeEdt);

  TutarEdt = OdemeForm.AddNewProEdit(FormPnl, 'TutarEdt', 'Tutar');
  TutarEdt.Align = alTop;
  EditStili(TutarEdt);

  TarihEdt = OdemeForm.AddNewProEdit(FormPnl, 'TarihEdt', 'Ödeme Tarihi');
  TarihEdt.Align = alTop;
  EditStili(TarihEdt);

  YontemEdt = OdemeForm.AddNewProEdit(FormPnl, 'YontemEdt', 'Ödeme Yöntemi');
  YontemEdt.Align = alTop;
  EditStili(YontemEdt);

  AciklamaEdt = OdemeForm.AddNewProEdit(FormPnl, 'AciklamaEdt', 'Açıklama');
  AciklamaEdt.Align = alTop;
  EditStili(AciklamaEdt);

  KaydetBtn = OdemeForm.AddNewProButton(FormPnl, 'KaydetBtn', 'Ödemeyi Kaydet');
  KaydetBtn.Align = alTop;
  KaydetBtn.Height = 46;
  KaydetBtn.Margins.Top = 18;
  KaydetBtn.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#2563EB');
  KaydetBtn.clProSettings.FontColor = clAlphaColor.clWhite;
  KaydetBtn.clProSettings.RoundWidth = 10;
  KaydetBtn.clProSettings.RoundHeight = 10;
  KaydetBtn.SetclProSettings(KaydetBtn.clProSettings);

  GeriBtn = OdemeForm.AddNewProButton(FormPnl, 'GeriBtn', 'Geri Dön');
  GeriBtn.Align = alTop;
  GeriBtn.Height = 42;

  OdemeForm.AddNewEvent(KaydetBtn, tbeOnClick, 'OdemeKaydet');
  OdemeForm.AddNewEvent(GeriBtn, tbeOnClick, 'GeriDon');

  OdemeForm.Run;
}
https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">]]> Wed, 29 Jul 2026 18:23:36 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1640&PID=3799#3799 <![CDATA[kod hatası : var OdemeForm: TclForm; AnaPnl,...]]> https://forum.clomosy.com.tr/forum_posts.asp?TID=1640&PID=3798#3798 Yazar: smeye
Konu: 1640
Gönderim Zamanı: 29 Temmuz 2026 Saat 18:00

var
  OdemeForm: TclForm;

  AnaPnl,
  HeaderPnl,
  FormPnl: TclProPanel;

  BaslikLbl,
  AltBaslikLbl: TclProLabel;

  UyeEdt,
  TutarEdt,
  TarihEdt,
  YontemEdt,
  AciklamaEdt: TclProEdit;

  KaydetBtn,
  GeriBtn: TclProButton;

  Rest: TclRest;

  SupabaseUrl,
  SupabaseKey,
  RequestBody: String;
  SecilenUyeID: String;

UyeRest: TclRest;



void PanelStili(
  APanel: TclProPanel;
  ArkaPlan: String;
  Kenar: String;
  Kose: Integer
);
{
  APanel.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor(ArkaPlan);

  APanel.clProSettings.BorderColor =
    clAlphaColor.clHexToColor(Kenar);

  APanel.clProSettings.BorderWidth = 1;
  APanel.clProSettings.RoundWidth = Kose;
  APanel.clProSettings.RoundHeight = Kose;

  APanel.SetclProSettings(
    APanel.clProSettings
  );
}



void LabelStili(
  ALbl: TclProLabel;
  Renk: String;
  Boyut: Integer;
  Kalin: Boolean
);
{
  ALbl.clProSettings.FontColor =
    clAlphaColor.clHexToColor(Renk);

  ALbl.clProSettings.FontSize =
    Boyut;

  if (Kalin)
  {
    ALbl.clProSettings.TextSettings.Font.Style =
      [fsBold];
  }
  else
  {
    ALbl.clProSettings.TextSettings.Font.Style =
      [];
  }

  ALbl.SetclProSettings(
    ALbl.clProSettings
  );
}



void EditStili(
  AEdit: TclProEdit
);
{
  AEdit.Height = 42;

  AEdit.clProSettings.RoundWidth = 10;
  AEdit.clProSettings.RoundHeight = 10;

  AEdit.clProSettings.BorderColor =
    clAlphaColor.clHexToColor('#CBD5E1');

  AEdit.SetclProSettings(
    AEdit.clProSettings
  );
}



void GeriDon;
{
  OdemeForm.clHide;

  Clomosy.RunUnit(
    'uDashboard'
  );
}
{
  SupabaseUrl =
    'https://zttjqagkqzcgrlnxqarg.supabase.co';

SupabaseKey = 'eyJhbGciOiJIUzI1NiIsInR5cCI6IkpXVCJ9.eyJpc3MiOiJzdXBhYmFzZSIsInJlZiI6Inp0dGpxYWdrcXpjZ3JsbnhxYXJnIiwicm9sZSI6ImFub24iLCJpYXQiOjE3ODQxMTg4MjYsImV4cCI6MjA5OTY5NDgyNn0.mpDYGhrn6F0-1do8QtJUAXh6DK6Zo25SSI7S4-OQmFs';

  OdemeForm =
    TclForm.Create(Self);

  OdemeForm.SetFormColor(
    '#F8FAFC',
    '#F8FAFC',
    clGVertical
  );

  OdemeForm.FormWaiting.Visible = False;
  OdemeForm.BtnFormMenu.Visible = False;
  OdemeForm.BtnGoBack.Visible = False;

  AnaPnl =
    OdemeForm.AddNewProPanel(
      OdemeForm,
      'AnaPnl'
    );

  AnaPnl.Align = alClient;

  PanelStili(
    AnaPnl,
    '#F8FAFC',
    '#F8FAFC',
    0
  );

  HeaderPnl =
    OdemeForm.AddNewProPanel(
      AnaPnl,
      'HeaderPnl'
    );

  HeaderPnl.Align = alTop;
  HeaderPnl.Height = 90;

  PanelStili(
    HeaderPnl,
    '#FFFFFF',
    '#E2E8F0',
    0
  );

  BaslikLbl =
    OdemeForm.AddNewProLabel(
      HeaderPnl,
      'BaslikLbl',
      'Ödeme Al'
    );

  BaslikLbl.Align = alTop;
  BaslikLbl.Height = 38;
  BaslikLbl.Margins.Left = 20;
  BaslikLbl.Margins.Top = 16;

  LabelStili(
    BaslikLbl,
    '#0F172A',
    20,
    True
  );

  AltBaslikLbl =
    OdemeForm.AddNewProLabel(
      HeaderPnl,
      'AltBaslikLbl',
      'Üye ödeme bilgilerini giriniz.'
    );

  AltBaslikLbl.Align = alTop;
  AltBaslikLbl.Height = 24;
  AltBaslikLbl.Margins.Left = 20;

  LabelStili(
    AltBaslikLbl,
    '#64748B',
    10,
    False
  );

  FormPnl =
    OdemeForm.AddNewProPanel(
      AnaPnl,
      'FormPnl'
    );

  FormPnl.Align = alTop;
  FormPnl.Height = 360;
  FormPnl.Margins.Left = 40;
  FormPnl.Margins.Right = 40;
  FormPnl.Margins.Top = 20;

  PanelStili(
    FormPnl,
    '#FFFFFF',
    '#E2E8F0',
    12
  );

  UyeEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'Uye Seç (ID)',
      'Üye Adı'
    );

  UyeEdt.Align = alTop;
  EditStili(UyeEdt);

  TutarEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'TutarEdt',
      'Tutar'
    );

  TutarEdt.Align = alTop;
  EditStili(TutarEdt);

  TarihEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'TarihEdt',
      'Ödeme Tarihi'
    );

  TarihEdt.Align = alTop;
  EditStili(TarihEdt);

  YontemEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'YontemEdt',
      'Ödeme Yöntemi'
    );

  YontemEdt.Align = alTop;
  EditStili(YontemEdt);

  AciklamaEdt =
    OdemeForm.AddNewProEdit(
      FormPnl,
      'AciklamaEdt',
      'Açıklama'
    );

  AciklamaEdt.Align = alTop;
  EditStili(AciklamaEdt);

  KaydetBtn =
    OdemeForm.AddNewProButton(
      FormPnl,
      'KaydetBtn',
      'Ödemeyi Kaydet'
    );

  KaydetBtn.Align = alTop;
  KaydetBtn.Height = 46;
  KaydetBtn.Margins.Top = 18;

  KaydetBtn.clProSettings.BackgroundColor =
    clAlphaColor.clHexToColor('#2563EB');

  KaydetBtn.clProSettings.FontColor =
    clAlphaColor.clWhite;

  KaydetBtn.clProSettings.RoundWidth = 10;
  KaydetBtn.clProSettings.RoundHeight = 10;

  KaydetBtn.SetclProSettings(
    KaydetBtn.clProSettings
  );

  GeriBtn =
    OdemeForm.AddNewProButton(
      FormPnl,
      'GeriBtn',
      'Geri Dön'
    );

  GeriBtn.Align = alTop;
  GeriBtn.Height = 42;
  void OdemeKaydet;
{
SecilenUyeID =
Trim(UyeEdt.Text);

if (SecilenUyeID = '')
{
  ShowMessage(
    'Üye seçiniz.'
  );

  Exit;
}
  if (UyeEdt.Text == '')
  {
    ShowMessage(
      'Üye adı giriniz.'
    );

    Exit;
  }

  if (TutarEdt.Text == '')
  {
    ShowMessage(
      'Tutar giriniz.'
    );

    Exit;
  }

RequestBody =
'{' +

'"uye_id":' +
SecilenUyeID +
',' +

'"tutar":' +
TutarEdt.Text +
',' +

'"odeme_tarihi":"' +
TarihEdt.Text +
'",' +

'"odeme_turu":"' +
YontemEdt.Text +
'",' +

'"aciklama":"' +
AciklamaEdt.Text +
'"' +

'}';
  Rest = TclRest.Create;

  Rest.Accept = 'application/json';
  Rest.ContentType = 'application/json';
  Rest.Method = rmPOST;
  Rest.ConnectTimeOut = 30000;

  Rest.BaseURL =
    SupabaseUrl +
    '/rest/v1/odemeler';

  Rest.AddHeader(
    'apikey',
    SupabaseKey
  );

  Rest.AddHeader(
    'Authorization',
    'Bearer ' + SupabaseKey
  );

  Rest.AddHeader(
    'Prefer',
    'return=representation'
  );

  Rest.Body = RequestBody;

  Rest.Execute;

  if (Rest.StatusCode >= 200)
  {
    if (Rest.StatusCode < 300)
    {
      ShowMessage(
        'Ödeme başarıyla kaydedildi.'
      );

      UyeEdt.Text = '';
      TutarEdt.Text = '';
      TarihEdt.Text = '';
      YontemEdt.Text = '';
      AciklamaEdt.Text = '';

      Exit;
    }
  }

  ShowMessage(
    'HTTP: ' +
    IntToStr(Rest.StatusCode) +
    #13#10 +
    Rest.Response
  );
}



OdemeForm.AddNewEvent(
  KaydetBtn,
  tbeOnClick,
  'OdemeKaydet'
);

OdemeForm.AddNewEvent(
  GeriBtn,
  tbeOnClick,
  'GeriDon'
);

OdemeForm.Run;
}
kod hatası 
RUNTIME ERROR
File library Main: Unit uodemeler: Syntax error.
Source position: 302,7 when evaluating instruction CallProc ($FFFFFFFF,$1,$123A270,$0,"RunUnit").
Stack content is: [Null,Null,Null,Null...].
Source position: 673,33
Position: 673, 33
yardımcı olursanız sevinirim

https://static.cloudflareinsights.com/beacon.min.js/v4513226cdae34746b4dedf0b4dfa099e1781791509496" integrity="sha512-ZE9pZaUXND66v380QUtch/5sE9tPFh2zg45pR2PB0CVkCtOREv2AJKkSidISWkysEuQ0EH8faUU5du78bx87UQ==" data-cf-beacon="{"version":"2024.11.0","token":"439455f3e46c40b98dbd42a2f1a954d8","r":1}" crossorigin="anonymous">]]> Wed, 29 Jul 2026 18:00:30 +0000 https://forum.clomosy.com.tr/forum_posts.asp?TID=1640&PID=3798#3798