var

MyForm : TclForm;

MyProGrid : TClProGrid;

selectQuery : TclSqlQuery;

vertSB : TCLVertScrollBox;

headerProLabel : TclProLabel;

HeaderProPanel : TclProPanel;

QueryGenelCari : TclSqlQuery;

kontrolProPanel, bakiyeTipiPanel, radioButtonPanel, bakiyeToleransiPanel, maxBakiyeToleransiPanel, bakiyesizlerGosterilmesinPanel, sadeceBak_GosterilsinPanel, cariTipiPanel, parametrelerPanel, raporuGetirPanel : TclProPanel;

Baslik1, Baslik2, bakiyeTipiLabel, bakiyeToleransLabel, maxBakiyeToleransLabel, bakiyesizlerGosterilmesinLabel, sadeceBak_GosterilsinLabel, cariTipiLabel : TclProLabel;

RadioButtonHepsi, RadioButtonAlacak, RadioButtonBorc : TCLRadioButton;

bakiyeToleransEdit, maxBakiyeToleransEdit : TclProEdit;

bakiyesizlerGosterilmesinCheckBox, sadeceBak_GosterilsinCheckBox, alicilarCheckBox, saticilarCheckBox : TCLCheckBox;

raporuGetirButton1, raporuGetirButton2 : TclProButton;

HepsiRBText, alacakRBText, borcRBText, bakiyesizlerGosterilmesinText, sadeceBak_GosterilsinText, alicilarCBText, saticilarCBText : integer; 

bakiyeToleransText, maxBakiyeToleransText : integer;

cari_tipleri_alicilar, cari_tipleri_saticilar : String;

QueryKayitSayisi, i: integer;

//horizantalvsb : TCLHorzScrollBox;

//vsb : TCLHorzScrollBox;

void ColorGrid;

{

   QueryGenelCari = TClSqlQuery.Create(nil);

   QueryGenelCari.Connection = Clomosy.DBSQLServerConnection;

    

    QueryGenelCari.Sql.Text = 'SELECT COUNT(*) AS QueryKayitSayisi

      FROM

      (

      

      SELECT TOP 100 PERCENT TBLCARISB.CARI_KODU AS ''Cari Kodu'',

      TBLCARISB.CARI_ADI AS ''Cari Adı''

      , SUM(BORC) AS ''Toplam Borç'', SUM(ALACAK) AS ''Toplam Alacak''

      , CASE WHEN SUM(BORC-ALACAK) > 0 THEN SUM(BORC-ALACAK) ELSE 0 END  AS ''Borç Bakiye''

      , CASE WHEN SUM(BORC-ALACAK) < 0 THEN ABS(SUM(BORC-ALACAK)) ELSE 0 END AS ''Alacak Bakiye''

      , FORMAT(MAX(TARIH), ''dd.MM.yyyy'') AS ''Son İşlem Tarihi''

      FROM PRG_VIEW_CARIHAREKET,  TBLCARISB WHERE PRG_VIEW_CARIHAREKET.CARI_KODU = TBLCARISB.CARI_KODU 

      

      AND ISNULL(PRG_VIEW_CARIHAREKET.SUBE_KODU,0) IN (ISNULL(PRG_VIEW_CARIHAREKET.SUBE_KODU,0)) /*[PrgMerkezSubeGenelKisit_A]*/

      

      

      

      GROUP BY TBLCARISB.REC_NO, TBLCARISB.CARI_KODU,TBLCARISB.CARI_ADI

      ORDER BY TBLCARISB.CARI_ADI

      ) subquery;'

    

    QueryGenelCari.Open;

    

    

    if(QueryGenelCari.Found)

    {

      QueryKayitSayisi = QueryGenelCari.FieldByName('QueryKayitSayisi').AsInteger; 

     //  ShowMessage(QueryKayitSayisi);

      MyProGrid.HorzAlignments[2, 0] = 2; //indisi verilen sütunlardaki başlıkları sağa yaslar

      MyProGrid.HorzAlignments[3,0] = 2;

      MyProGrid.HorzAlignments[4,0]=2;

      MyProGrid.HorzAlignments[5,0]=2;

      MyProGrid.HorzAlignments[6,0] = 0;

      for (i=1 to QueryKayitSayisi)

      {

        MyProGrid.HorzAlignments[2, i] = 2;

        MyProGrid.HorzAlignments[3, i] = 2; //indisi verilen sütunlardaki tüm hücreleri sağa yaslar ve rengini siyah yapar

        MyProGrid.HorzAlignments[4, i] = 2; 

        MyProGrid.HorzAlignments[5, i] = 2; 

        MyProGrid.HorzAlignments[6, i] = 0; 

        // satır renklendirmeleri

        MyProGrid.FontColors[2,i] = clAlphaColor.clBlack;

        MyProGrid.FontColors[3,i] = clAlphaColor.clBlack;

        MyProGrid.FontColors[4,i] = clAlphaColor.clBlack;

        MyProGrid.FontColors[5,i] = clAlphaColor.clBlack;

        MyProGrid.FontColors[6,i] = clAlphaColor.clBlack;

        //ShowMessage(ProGrid.GetCellValue(4,i));

        if (MyProGrid.GetCellValue(4,i) < 0)

        {

         // ShowMessage(ProGrid.GetCellValue(4,i));

          MyProGrid.FontColors[4,i] = clAlphaColor.clRed;  //eksi içeren ilgili sütunundaki - değerlerin rengini kırmızı yapar

        }

      }

    }

}

void GridScreen;

{

  HeaderProPanel = MyForm.AddNewProPanel(MyForm, 'HeaderProPanel');

  HeaderProPanel.Align = alTop;

  HeaderProPanel.Width = 300;

  HeaderProPanel.Height = 50;

  HeaderProPanel.SetclProSettings(HeaderProPanel.clProSettings);

  

  headerProLabel = MyForm.AddNewProLabel(HeaderProPanel,'headerProLabel','Genel Cari Bakiye Raporu');

  headerProLabel.Align = alLeft;

  headerProLabel.Width = 400;

  headerProLabel.Height = 30;

  headerProLabel.Margins.Left = 5;

  headerProLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  headerProLabel.clProSettings.FontSize = 18;

  headerProLabel.clProSettings.FontVertAlign = palcenter;

  headerProLabel.clProSettings.FontHorzAlign = palLeading;

  headerProLabel.clProSettings.TextSettings.Font.Style = [fsBold];

  headerProLabel.clProSettings.IsFill = True; 

  headerProLabel.clProSettings.IsRound = True;

  headerProLabel.SetclProSettings(headerProLabel.clProSettings);

}

void selectFromData; // kontroller içerisinden genel cari bakiye raporu ekranını getirir.

{

  vertSB = MyForm.AddNewHorzScrollBox(MyForm,'vertSB');

  vertSB.Align = alClient;

  

  

  if(RadioButtonHepsi.isChecked)

  {

    HepsiRBText = 1;

  }

  else

  {

    HepsiRBText = 0;

  }

  

  if(RadioButtonBorc.isChecked)

  {

    borcRBText = 1;

  }

  else

  {

    borcRBText = 0;

  }

  

  if(RadioButtonAlacak.isChecked)

  {

    alacakRBText = 1;

  }

  else

  {

    alacakRBText = 0;

  }

  // bakiye toleransı alma

 bakiyeToleransText = StrToInt(bakiyeToleransEdit.Text);

 maxBakiyeToleransText = StrToInt(maxBakiyeToleransEdit.Text);

 maxBakiyeToleransEdit.Text = StrToInt(maxBakiyeToleransText);

  

  // bakiyesizlerGosterilmesinText

  if(bakiyesizlerGosterilmesinCheckBox.isChecked)

  {

    sadeceBak_GosterilsinCheckBox.isChecked = False;

    sadeceBak_GosterilsinCheckBox = 0;

    bakiyesizlerGosterilmesinCheckBox = 1;

  }

  else

  {

    sadeceBak_GosterilsinCheckBox.isChecked = True;

    sadeceBak_GosterilsinCheckBox = 1;

    bakiyesizlerGosterilmesinCheckBox.isChecked = False;

  }

  

  // cari tipi 

  

  if(alicilarCheckBox.isChecked)

  {

    cari_tipleri_alicilar = 'A';

  }

  else

  {

    cari_tipleri_alicilar = '';

  }

  

  if(saticilarCheckBox.isChecked)

  {

    cari_tipleri_saticilar = 'S';

  }

  else

  {

    cari_tipleri_saticilar = '';

  }

  ShowMessage(HepsiRBText);

  ShowMessage(alicilarCBText);

  ShowMessage(saticilarCBText);

  ShowMessage(IntToStr(bakiyeToleransText));

  ShowMessage(IntToStr(maxBakiyeToleransText));

  ShowMessage(IntToStr(sadeceBak_GosterilsinCheckBox));

  ShowMessage(IntToStr(bakiyesizlerGosterilmesinCheckBox));

// kullanılacak sql

/*

USE STAJ;

DECLARE @Alacak BIT = 1;  -- Alacak seçili

DECLARE @Borç BIT = 0;    -- Borç seçili

DECLARE @Hepsi BIT = 0;    -- Hepsi seçili

DECLARE @BakiyeTolerans INT = 100;  -- Bakiye toleransı

DECLARE @MaxBakiyeTolerans INT = 200;  -- Max bakiye toleransı

DECLARE @BakiyesizlerGosterme BIT = 0;  -- Bakiyesizler gösterilmesin

DECLARE @SadeceBakiyesizler BIT = 0;  -- Sadece bakiyesizler gösterilsin

DECLARE @CariTipleri VARCHAR(10) = 'A,S';  -- Cari tipleri (Alıcı ve Satıcı)

SELECT TOP 100 PERCENT 

    TBLCARISB.REC_NO, 

    TBLCARISB.CARI_KODU, 

    TBLCARISB.CARI_ADI,

    SUM(BORC) AS TOPLAM_BORC, 

    SUM(ALACAK) AS TOPLAM_ALACAK,

    CASE 

        WHEN SUM(BORC - ALACAK) > 0 THEN SUM(BORC - ALACAK) 

        ELSE 0 

    END AS BORC_BAKIYE,

    CASE 

        WHEN SUM(BORC - ALACAK) < 0 THEN ABS(SUM(BORC - ALACAK)) 

        ELSE 0 

    END AS ALACAK_BAKIYE,

    MAX(TARIH) AS SON_ISLEM_TARIH

FROM TBLCARISB 

LEFT JOIN PRG_VIEW_CARIHAREKET ON PRG_VIEW_CARIHAREKET.CARI_KODU = TBLCARISB.CARI_KODU 

WHERE 1 = 1

AND TBLCARISB.CARI_TIPI IN (SELECT value FROM STRING_SPLIT(@CariTipleri, ','))

GROUP BY TBLCARISB.REC_NO, TBLCARISB.CARI_KODU, TBLCARISB.CARI_ADI

HAVING 

    (@Alacak = 1 AND SUM(ALACAK) - SUM(BORC) > @BakiyeTolerans) OR 

    (@Borç = 1 AND SUM(BORC) - SUM(ALACAK) > @BakiyeTolerans) OR 

    (@Hepsi = 1 AND SUM(BORC) - SUM(ALACAK) = 0) AND

    (

        (@BakiyesizlerGosterme = 0 AND (SUM(BORC) + SUM(ALACAK) != 0)) OR 

        (@SadeceBakiyesizler = 1 AND (SUM(BORC) + SUM(ALACAK) = 0))

    )

ORDER BY TBLCARISB.CARI_ADI;

*/

  

  

  

  

  selectQuery.Sql.Text = 'SELECT TOP 100 PERCENT TBLCARISB.CARI_KODU AS ''Cari Kodu'',

TBLCARISB.CARI_ADI AS ''Cari Adı''

, SUM(BORC) AS ''Toplam Borç'', SUM(ALACAK) AS ''Toplam Alacak''

, CASE WHEN SUM(BORC-ALACAK) > 0 THEN SUM(BORC-ALACAK) ELSE 0 END  AS ''Borç Bakiye''

, CASE WHEN SUM(BORC-ALACAK) < 0 THEN ABS(SUM(BORC-ALACAK)) ELSE 0 END AS ''Alacak Bakiye''

, FORMAT(MAX(TARIH), ''dd.MM.yyyy'') AS ''Son İşlem Tarihi''

FROM PRG_VIEW_CARIHAREKET,  TBLCARISB WHERE PRG_VIEW_CARIHAREKET.CARI_KODU = TBLCARISB.CARI_KODU 

 AND ISNULL(PRG_VIEW_CARIHAREKET.SUBE_KODU,0) IN (ISNULL(PRG_VIEW_CARIHAREKET.SUBE_KODU,0)) /*[PrgMerkezSubeGenelKisit_A]*/

GROUP BY TBLCARISB.REC_NO, TBLCARISB.CARI_KODU,TBLCARISB.CARI_ADI

ORDER BY TBLCARISB.CARI_ADI';

  selectQuery.Open;

  if(selectQuery.Found)

  {

    MyProGrid = MyForm.AddNewProGrid(vertSB, 'MyProGrid');

    MyProGrid.Align = alClient;

    MyProGrid.Width = (MyForm.clWidth*100) / 100;

    MyProGrid.Height = (MyForm.clWidth*50) / 100;

    // MyProGrid.Margins.Bottom = 20;

    MyProGrid.Margins.Left = 5;

    MyProGrid.Margins.Right = 5;

    MyProGrid.Options.Selection.Mode = smSingleCell;

    // sağa yaslama

   // MyProGrid.HorzAlignments[3,1] = 2;   //# "Toplam Borç" ve "Toplam Alacak" sütunlarını sağa yasla

   // MyProGrid.HorzAlignments[2,4] = 2;   // # "Borç Bakiye" sütununu sağa yasla

    //MyProGrid.HorzAlignments[2,5] = 2;   // # "Alacak Bakiye" sütununu sağa yasla

   // MyProGrid.HorzAlignments[3,2] = 2;

    MyProGrid.Height = MyForm.clHeight;

    MyProGrid.connectDataSet(selectQuery);

    MyProGrid.AutoSizeColumns(True, 100);

    MyProGrid.Options.ColumnSize.StretchAll = False;

    MyProGrid.Options.Selection.Mode = smSingleRow;

    MyProGrid.Options.ColumnSize.Stretch = True;

    ColorGrid;

  }

  else

  {

    ShowMessage('Kayıt Bulunamadı.');

  }

}

void KontrolPaneli;

{

  kontrolProPanel = MyForm.AddNewProPanel(MyForm, 'kontrolProPanel');

  kontrolProPanel.Align = alClient;

  kontrolProPanel.Width = 600;

  kontrolProPanel.Height = 700;

  kontrolProPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

  kontrolProPanel.SetclProSettings(kontrolProPanel.clProSettings);

  

  // başlık 1

  Baslik1 = MyForm.AddNewProLabel(kontrolProPanel, 'Baslik1', 'Genel Cari Tablo');

  Baslik1.Align = alNone;

  Baslik1.Left = 10;

  Baslik1.Top = 5;

  Baslik1.Width = 580;

  Baslik1.Height = 100;

  Baslik1.clProSettings.FontColor = clAlphaColor.clHexToColor('#a94c4c');

  Baslik1.clProSettings.FontSize = 32;

  Baslik1.clProSettings.FontVertAlign = palcenter;

  Baslik1.clProSettings.FontHorzAlign = palLeading;

  Baslik1.clProSettings.TextSettings.Font.Style = [fsBold];

  Baslik1.clProSettings.IsFill = True;

  Baslik1.clProSettings.IsRound = False;

  Baslik1.SetclProSettings(Baslik1.clProSettings);

  

  Baslik2 = MyForm.AddNewProLabel(kontrolProPanel, 'Baslik2', 'Özel Seçenekler');

  Baslik2.Align = alNone; // Serbest hizalama için None yapıyoruz

  Baslik2.Left = 10;  // Soldan 10 birim boşluk

  Baslik2.Top = 50;   // Üstten 10 birim boşluk

  Baslik2.Width = 580; // Panelin genişliğine yakın

  Baslik2.Height = 100; // Başlık için yeterli yüksekliği veriyoruz

  Baslik2.clProSettings.FontColor = clAlphaColor.clHexToColor('#a94c4c');

  Baslik2.clProSettings.FontSize = 18; // Büyük font

  Baslik2.clProSettings.FontVertAlign = palcenter;

  Baslik2.clProSettings.FontHorzAlign = palLeading;

  Baslik2.clProSettings.TextSettings.Font.Style = [fsBold];

  Baslik2.clProSettings.IsFill = True;

  Baslik2.clProSettings.IsRound = False;

  Baslik2.SetclProSettings(Baslik2.clProSettings);

  

  bakiyeTipiPanel = MyForm.AddNewProPanel(kontrolProPanel, 'bakiyeTipiPanel');

  bakiyeTipiPanel.Align = alNone;

  bakiyeTipiPanel.Left = 10;

  bakiyeTipiPanel.Top = 120;

  bakiyeTipiPanel.Width = 400;

  bakiyeTipiPanel.Height = 50;

  bakiyeTipiPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  bakiyeTipiPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

  bakiyeTipiPanel.SetclProSettings(bakiyeTipiPanel.clProSettings);

  

  // bakşyeTipi Label

  bakiyeTipiLabel = MyForm.AddNewProLabel(bakiyeTipiPanel, 'bakiyeTipiLabel', 'Bakiye Tipi');

  bakiyeTipiLabel.Align = alNone;

  bakiyeTipiLabel.Left = 10;

  bakiyeTipiLabel.Top = 10;

  bakiyeTipiLabel.Width = 200;

  bakiyeTipiLabel.Height = 40;

  bakiyeTipiLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  bakiyeTipiLabel.clProSettings.FontSize = 18;

  bakiyeTipiLabel.SetclProSettings(bakiyeTipiLabel.clProSettings);

  

  

  radioButtonPanel = MyForm.AddNewProPanel(bakiyeTipiPanel, 'radioButtonPanel');

  radioButtonPanel.Align = alRight;

  //radioButtonPanel.Left = 5;

  radioButtonPanel.Width = 200;

  radioButtonPanel.Height = 50;

  radioButtonPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#ff0000');

  radioButtonPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#ffffff');

  radioButtonPanel.SetclProSettings(radioButtonPanel.clProSettings);

  

  // RadioButtonHepsi - Hepsi

  RadioButtonHepsi = MyForm.AddNewRadioButton(radioButtonPanel, 'RadioButtonHepsi', 'Hepsi'); // bakiyeTipiPanel

  RadioButtonHepsi.Width = 150;

  RadioButtonHepsi.Height = 50;

  RadioButtonHepsi.Align = alLeft;

  RadioButtonHepsi.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');

  RadioButtonHepsi.TextSettings.Font.Size = 20;

  RadioButtonHepsi.TextSettings.Font.Style = [fsItalic];

 // RadioButtonHepsi.isChecked = True;

  

  // RadioButtonAlacak - Alacak

  RadioButtonAlacak = MyForm.AddNewRadioButton(radioButtonPanel, 'RadioButtonAlacak', 'Alacak');

  RadioButtonAlacak.Width = 150;

  RadioButtonAlacak.Height = 50;

  RadioButtonAlacak.Align = alCenter;

  RadioButtonAlacak.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');

  RadioButtonAlacak.TextSettings.Font.Size = 20;

  RadioButtonAlacak.TextSettings.Font.Style = [fsItalic];

  //RadioButtonAlacak.isChecked = False;

  

  // RadioButtonBorc - Borç

  RadioButtonBorc = MyForm.AddNewRadioButton(radioButtonPanel, 'RadioButtonBorc', 'Borç');

  RadioButtonBorc.Width = 50;

  RadioButtonBorc.Height = 50;

  RadioButtonBorc.Align = alRight;

  //RadioButtonBorc.Margins.Left = 50;

  //RadioButtonBorc.Margins.Left = 50;

  RadioButtonBorc.TextSettings.FontColor = clAlphaColor.clHexToColor('#8a067c');

  RadioButtonBorc.TextSettings.Font.Size = 20;

  RadioButtonBorc.TextSettings.Font.Style = [fsItalic];

  //RadioButtonBorc.isChecked = False;

  

  // editler

  // bakiye toleransı paneli

  bakiyeToleransiPanel = MyForm.AddNewProPanel(kontrolProPanel, 'bakiyeToleransiPanel');

  bakiyeToleransiPanel.Align = alNone;

  bakiyeToleransiPanel.Left = 10;

  bakiyeToleransiPanel.Top = 170;

  bakiyeToleransiPanel.Width = 400;

  bakiyeToleransiPanel.Height = 50;

  bakiyeToleransiPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  bakiyeToleransiPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  bakiyeToleransiPanel.SetclProSettings(bakiyeToleransiPanel.clProSettings);

  

  bakiyeToleransLabel = MyForm.AddNewProLabel(bakiyeToleransiPanel, 'bakiyeToleransLabel', 'Bakiye Toleransı');

  bakiyeToleransLabel.Align = alNone;

  bakiyeToleransLabel.Left = 10;

  bakiyeToleransLabel.Top = 10;

  bakiyeToleransLabel.Width = 200;

  bakiyeToleransLabel.Height = 40;

  bakiyeToleransLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  bakiyeToleransLabel.clProSettings.FontSize = 18;

  bakiyeToleransLabel.SetclProSettings(bakiyeToleransLabel.clProSettings);

  

  bakiyeToleransEdit = MyForm.AddNewProEdit(bakiyeToleransiPanel, 'bakiyeToleransEdit', 'Bakiye Tolerans');

  bakiyeToleransEdit.Align = alCenter;

  bakiyeToleransEdit.Width = 180;

  bakiyeToleransEdit.Height = 30;

  bakiyeToleransEdit.Margins.Left = 180;

  bakiyeToleransEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  bakiyeToleransEdit.clProSettings.FontSize = 12;

  bakiyeToleransEdit.clProSettings.RoundHeight = 10;

  bakiyeToleransEdit.clProSettings.RoundWidth = 10;

  bakiyeToleransEdit.clProSettings.FontVertAlign = palcenter;

  bakiyeToleransEdit.clProSettings.FontHorzAlign = palcenter;

  bakiyeToleransEdit.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

  bakiyeToleransEdit.clProSettings.IsFill = True;

  bakiyeToleransEdit.clProSettings.IsRound = True;

  bakiyeToleransEdit.SetclProSettings(bakiyeToleransEdit.clProSettings);

  

  // max bakiye toleransı panel

  maxBakiyeToleransiPanel = MyForm.AddNewProPanel(kontrolProPanel, 'maxBakiyeToleransiPanel');

  maxBakiyeToleransiPanel.Align = alNone;

  maxBakiyeToleransiPanel.Left = 10;

  maxBakiyeToleransiPanel.Top = 220;

  maxBakiyeToleransiPanel.Width = 400;

  maxBakiyeToleransiPanel.Height = 50;

  maxBakiyeToleransiPanel.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#1E90FF');

  maxBakiyeToleransiPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  maxBakiyeToleransiPanel.SetclProSettings(maxBakiyeToleransiPanel.clProSettings);

  

  // max bakiye toleransı label

  maxBakiyeToleransLabel = MyForm.AddNewProLabel(maxBakiyeToleransiPanel, 'maxBakiyeToleransLabel', 'Max Bakiye Tolerans');

  maxBakiyeToleransLabel.Align = alNone;

  maxBakiyeToleransLabel.Left = 10;

  maxBakiyeToleransLabel.Top = 10;

  maxBakiyeToleransLabel.Width = 200;

  maxBakiyeToleransLabel.Height = 40;

  maxBakiyeToleransLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#ffffff');

  maxBakiyeToleransLabel.clProSettings.FontSize = 18;

  maxBakiyeToleransLabel.SetclProSettings(maxBakiyeToleransLabel.clProSettings);

  

  // maxbakiye tolerans pro edit

  maxBakiyeToleransEdit = MyForm.AddNewProEdit(maxbakiyeToleransiPanel, 'maxBakiyeToleransEdit', 'Max Bakiye Tolerans');

  maxBakiyeToleransEdit.Align = alCenter;

  maxBakiyeToleransEdit.Width = 180;

  maxBakiyeToleransEdit.Height = 30;

  maxBakiyeToleransEdit.Margins.Left = 180;

  maxBakiyeToleransEdit.clProSettings.FontColor = clAlphaColor.clHexToColor('#000000');

  maxBakiyeToleransEdit.clProSettings.FontSize = 12;

  maxBakiyeToleransEdit.clProSettings.RoundHeight = 10;

  maxBakiyeToleransEdit.clProSettings.RoundWidth = 10;

  maxBakiyeToleransEdit.clProSettings.FontVertAlign = palcenter;

  maxBakiyeToleransEdit.clProSettings.FontHorzAlign = palcenter;

  maxBakiyeToleransEdit.clProSettings.TextSettings.Font.Style = [fsBold, fsItalic];

  maxBakiyeToleransEdit.clProSettings.IsFill = True;

  maxBakiyeToleransEdit.clProSettings.IsRound = True;

  maxBakiyeToleransEdit.SetclProSettings(maxBakiyeToleransEdit.clProSettings);

  

  // bakiyesizler gösterilmesin

  bakiyesizlerGosterilmesinPanel = MyForm.AddNewProPanel(kontrolProPanel, 'bakiyesizlerGosterilmesinPanel');

  bakiyesizlerGosterilmesinPanel.Align = alNone;

  bakiyesizlerGosterilmesinPanel.Left = 10;

  bakiyesizlerGosterilmesinPanel.Top = 270;

  bakiyesizlerGosterilmesinPanel.Width = 400;

  bakiyesizlerGosterilmesinPanel.Height = 50;

  bakiyesizlerGosterilmesinPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  bakiyesizlerGosterilmesinPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  bakiyesizlerGosterilmesinPanel.SetclProSettings(bakiyesizlerGosterilmesinPanel.clProSettings);

  

  // bakiyesizlergösterilmesinLabel

  bakiyesizlerGosterilmesinLabel = MyForm.AddNewProLabel(bakiyesizlerGosterilmesinPanel, 'bakiyesizlerGosterilmesinLabel', 'Bakiyesizler Gösterilmesin');

  bakiyesizlerGosterilmesinLabel.Align = alNone;

  bakiyesizlerGosterilmesinLabel.Left = 10;

  bakiyesizlerGosterilmesinLabel.Top = 10;

  bakiyesizlerGosterilmesinLabel.Width = 220;

  bakiyesizlerGosterilmesinLabel.Height = 40;

  bakiyesizlerGosterilmesinLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  bakiyesizlerGosterilmesinLabel.clProSettings.FontSize = 18;

  bakiyesizlerGosterilmesinLabel.SetclProSettings(bakiyesizlerGosterilmesinLabel.clProSettings);

  

  //bakiyesizler gosterilmesin check box

  bakiyesizlerGosterilmesinCheckBox = MyForm.AddNewCheckBox(bakiyesizlerGosterilmesinPanel,'bakiyesizlerGosterilmesinCheckBox', '');

  bakiyesizlerGosterilmesinCheckBox.Align = alCenter;

  bakiyesizlerGosterilmesinCheckBox.Width = 150;

  bakiyesizlerGosterilmesinCheckBox.Height = 40;

  bakiyesizlerGosterilmesinCheckBox.Margins.Left = 250;

//  bakiyesizlerGosterilmesinCheckBox.isChecked = False;

 // bakiyesizlerGosterilmesinCheckBox.SetclProSettings(bakiyesizlerGosterilmesinCheckBox.clProSettings);

  

  // sadece bakiyesizler gosterilsin.

  sadeceBak_GosterilsinPanel = MyForm.AddNewProPanel(kontrolProPanel, 'sadeceBak_GosterilsinPanel');

  sadeceBak_GosterilsinPanel.Align = alNone;

  sadeceBak_GosterilsinPanel.Left = 10;

  sadeceBak_GosterilsinPanel.Top = 320;

  sadeceBak_GosterilsinPanel.Width = 400;

  sadeceBak_GosterilsinPanel.Height = 50;

  sadeceBak_GosterilsinPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  sadeceBak_GosterilsinPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  sadeceBak_GosterilsinPanel.SetclProSettings(sadeceBak_GosterilsinPanel.clProSettings);

  

  // sadece bakiyesizler gösterilsin  Label

  sadeceBak_GosterilsinLabel = MyForm.AddNewProLabel(sadeceBak_GosterilsinPanel, 'sadeceBak_GosterilsinLabel', 'Sadece Bakiyesizler Gösterilsin');

  sadeceBak_GosterilsinLabel.Align = alNone;

  sadeceBak_GosterilsinLabel.Left = 10;

  sadeceBak_GosterilsinLabel.Top = 10;

  sadeceBak_GosterilsinLabel.Width = 240;

  sadeceBak_GosterilsinLabel.Height = 40;

  sadeceBak_GosterilsinLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  sadeceBak_GosterilsinLabel.clProSettings.FontSize = 18;

  sadeceBak_GosterilsinLabel.SetclProSettings(sadeceBak_GosterilsinLabel.clProSettings);

  

  // sadece bakiyesizler gösterilsin check box

  sadeceBak_GosterilsinCheckBox = MyForm.AddNewCheckBox(sadeceBak_GosterilsinPanel,'sadeceBak_GosterilsinCheckBox', '');

  sadeceBak_GosterilsinCheckBox.Align = alCenter;

  sadeceBak_GosterilsinCheckBox.Width = 150;

  sadeceBak_GosterilsinCheckBox.Height = 40;

  sadeceBak_GosterilsinCheckBox.Margins.Left = 300;

 // sadeceBak_GosterilsinCheckBox.isChecked = False;

  

  // cari tipi paneli

  cariTipiPanel = MyForm.AddNewProPanel(kontrolProPanel, 'cariTipiPanel');

  cariTipiPanel.Align = alNone;

  cariTipiPanel.Left = 10;

  cariTipiPanel.Top = 370;

  cariTipiPanel.Width = 400;

  cariTipiPanel.Height = 120;

  cariTipiPanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  cariTipiPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  cariTipiPanel.SetclProSettings(cariTipiPanel.clProSettings);

  

  // cari tipi label

  cariTipiLabel = MyForm.AddNewProLabel(cariTipiPanel, 'cariTipiLabel', 'Cari Tipi');

  cariTipiLabel.Align = alNone;

  cariTipiLabel.Left = 10;

  cariTipiLabel.Top = 10;

  cariTipiLabel.Width = 200;

  cariTipiLabel.Height = 40;

  cariTipiLabel.clProSettings.FontColor = clAlphaColor.clHexToColor('#FFFFFF');

  cariTipiLabel.clProSettings.FontSize = 18;

  cariTipiLabel.SetclProSettings(cariTipiLabel.clProSettings);

  

  

  // parametreler paneli

  parametrelerPanel = MyForm.AddNewProPanel(cariTipiPanel, 'parametrelerPanel');

  parametrelerPanel.Align = alCenter;

  parametrelerPanel.Margins.Top = 10;

 // parametrelerPanel.Margins.Bottom = 100;

  parametrelerPanel.Margins.Left = 80;

  parametrelerPanel.Width = 300;

  parametrelerPanel.Height = 100;

  parametrelerPanel.clProSettings.backgroundcolor =clAlphaColor.clHexToColor('#BABABA');

  parametrelerPanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  parametrelerPanel.SetclProSettings(parametrelerPanel.clProSettings);

  

  // alıcılar checkbox

  alicilarCheckBox = MyForm.AddNewCheckBox(parametrelerPanel, 'alicilarCheckBox', 'Alıcılar');

  alicilarCheckBox.Align = alTop;

  alicilarCheckBox.Margins.Left = 10;

  alicilarCheckBox.Width = 150;

  alicilarCheckBox.Height = 40;

  //alicilarCheckBox.isChecked = False;

  

  saticilarCheckBox = MyForm.AddNewCheckBox(parametrelerPanel, 'saticilarCheckBox', 'Satıcılar');

  saticilarCheckBox.Align = alTop;

  saticilarCheckBox.Margins.Left = 10;

  saticilarCheckBox.Width = 150;

  saticilarCheckBox.Height = 40;

 // saticilarCheckBox.isChecked = False;

  

  // raporuGetirpanel

  raporuGetirpanel = MyForm.AddNewProPanel(kontrolProPanel, 'raporuGetirpanel');

  raporuGetirpanel.Align = alNone;

  raporuGetirpanel.Left = 10;

  raporuGetirpanel.Top = 500;

  raporuGetirpanel.Width = 400;

  raporuGetirpanel.Height = 50;

  raporuGetirpanel.clProSettings.backgroundcolor = clAlphaColor.clHexToColor('#1E90FF');

  raporuGetirpanel.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  raporuGetirpanel.SetclProSettings(raporuGetirpanel.clProSettings);

  

  // raporu getir button1 

  raporuGetirButton1 = MyForm.AddNewProButton(raporuGetirPanel, 'raporuGetirButton1', 'Raporu Getir');

  raporuGetirButton1.Align = alCenter;

  raporuGetirButton1.Width = 400;

  raporuGetirButton1.Height = 50;

  raporuGetirButton1.clProSettings.BorderColor = clAlphaColor.clHexToColor('#FFFFFF');

  raporuGetirButton1.clProSettings.BackgroundColor = clAlphaColor.clHexToColor('#FFFFFF');

  raporuGetirButton1.clProSettings.FontSize = 18;

  raporuGetirButton1.clProSettings.FontVertAlign = palCenter;

  raporuGetirButton1.clProSettings.FontVertAlign = palCenter;

  raporuGetirButton1.clProSettings.FontColor = clAlphaColor.clHexToColor('#a94c4c');

  raporuGetirButton1.clProSettings.TextSettings.Font.Style = [fsBold];

  raporuGetirButton1.clProSettings.IsFill = True;

  raporuGetirButton1.clProSettings.IsRound = True;

  raporuGetirButton1.SetclProSettings(raporuGetirButton1.clProSettings);

  

 MyForm.AddNewEvent(raporuGetirButton1, tbeOnClick, 'selectFromData');

}

{

  MyForm = TclForm.Create(Self);

  MyForm.SetFormColor('#a94c4c', '#643a3a', clGCross);

  MyForm.SetFormBGImage(' https://iili.io/dmBEjgs.png" rel="nofollow - https://iili.io/dmBEjgs.png ');

  

  

  //GridScreen;

  

  

  

  selectQuery = TclSqlQuery.Create(nil);

  

  Clomosy.DBSQLServerConnect('SQL Server', '172.16.222.37', 'sa', '123456789', 'STAJ', 1433); // ip adresi

  selectQuery.Connection = Clomosy.DBSQLServerConnection;

  

  //selectFromData;

  // selectQuery.Free;

  

  

  KontrolPaneli;

  

}

Hata ile alakalı biraz daha detay verebilir misin ? 

RUNTİME ERROR

File library Anasayfa: Unit genelCariTablo: Syntax error.

Source position: 259,5 when evaluating instruction CallProc

Stack content is:

16039024„.].

Source position: 13,36

Position: 13, 36.

259 kod satırını 

değiştirebilir misin