procedure RaporLoad;
	Begin
  SetViewCaption('BASLIK', 'PARADOX CARİ KARTLAR LİSTESİ');

// Select Kullanılırsa  
//  AddQueryToSQL('KullaniciQ', 'WHERE KARTNO IN (' + FFilter + ')');

// Filtre Kullanılırsa
  AddQueryToSQL('KullaniciQ', 'WHERE ' + FFilter);
End;

Function RaporFileName: String;
Begin
  Result:= ProgramDir + 'RaporEx\CariListesi.fr3';
End;

Function RaporDefaultSQL: String;
Begin
  Result:= 'SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI, TELEFON1, TELEFON2 FROM TBLCARI';
End;

procedure Start;
Begin
End;

Procedure Finish;
Begin
End;

procedure InputDemo;
Var
  IDS: String;
  I: Integer;
  t1, t2: TDateTime;
Begin
  pxShowMessageBox('13345123', SayiYAziIle(13345123));
  pxShowMessageBox('12100.51', TLYAziIle(12100.51));
  
  pxShowMessageBox('Bağlantı Stringi', ConnectionString);
  
  if InputRadio('1;2;3. Değer;4. Firma;Deneme', 'Değeri Girin', 'İşlemi Tamamlamak İçin Değeri Girin', 'Değer', I) Then
  Begin
    pxShowMessageBox('Seçilen Değer', IntToStr(I));
  End;
  
  if InputCheck('1;2;3. Değer;4. Firma;Deneme', 'Değeri Girin', 'İşlemi Tamamlamak İçin Değeri Girin', 'Değer', I) Then
  Begin
    IDS:= '';
	if I > 0 Then
	Begin
  	  if I And 2  =  2 Then IDS:= IDS + ',1';
	  if I And 4  =  4 Then IDS:= IDS + ',2';
	  if I And 8  =  8 Then IDS:= IDS + ',3';
	  if I And 16 = 16 Then IDS:= IDS + ',4';
	  if I And 32 = 32 Then IDS:= IDS + ',5';
	End;
    pxShowMessageBox('Seçilen Değer', IntToStr(I) + #13#10 + IDS);
  End;
	
  if InputText('Başlangıç Değeri', 'Değeri Girin', 'İşlemi Tamamlamak İçin Değeri Girin', 'Değer', IDS) Then
    pxShowMessageBox('Girilen Değer', IDS);

  if InputMemo('İlk Değer', 'Değeri Girin', 'İşlemi Tamamlamak İçin Değeri Girin', 'Değer', IDS) Then
    pxShowMessageBox('Girilen Değer', IDS);

  if InputDate('Tarihi Girin', t1) Then
    pxShowMessageBox('Girilen Tarih', DateToStr(t1));
	
  if Input2Date('Tarihleri Girin', t1, t2) Then
    pxShowMessageBox('Girilen Tarih', DateToStr(t1) + #13#10 + DateToStr(t2));
End;

procedure SelectDemo;
Var
  IDS: String;
Begin
  IDS:= SelectRecord('SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI FROM TBLCARI', 
     'FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 'Firma Kodu;Firma Adı;Firma Ünvanı', 
	 'KARTNO', 
	 'Firma Kodu / Adı / Ünvanı', 
	 'FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 True);
  if IDS <> '' Then
    CreateReport(IDS, 'SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI FROM TBLCARI WHERE KARTNO IN(' + IDS + ')', 
     'KARTNO:0;FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 'Kart Nosu;Firma Kodu;Firma Adı;Firma Ünvanı', 
	  0);
End;

procedure FilterDemo;
Var
  IDS, S: String;
Begin
  if ReadSQLFilter('TBLCARI', 'Select * from TBLCARI', 'DELETED = 0', 'FIRMAKODU; FIRMAADI; FIRMAUNVANI', 'Firma Kodu;Firma Adı;Ünvanı', 
        'FIRMAKODU; FIRMAADI; FIRMAUNVANI', 'FIRMAKODU;FIRMAADI;FIRMAUNVANI;RISKLIMITI;VERGIDAIRESI;VERGINO;URL;EMAIL;KOD1;KOD2;KOD3;KOD4;KOD5',
		'Firma Kodu; Firma Adı;Ünvanı;Risk Limiti;Vergi Dairesi;Vergi Nosu;WEB Adresi;E-Mail;Özel Kod 1;Özel Kod 2;Özel Kod 3;Özel Kod 4;Özel Kod 5',
        'FIRMAKODU', 'KARTNO', IDS) Then
  if IDS <> '' Then
  Begin
    S:= 'SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI FROM TBLCARI WHERE ' + IDS;	
    CreateReport(IDS, 'SELECT KARTNO, FIRMAKODU, FIRMAADI, FIRMAUNVANI FROM TBLCARI WHERE ' + IDS + , 
     'KARTNO:0;FIRMAKODU;FIRMAADI;FIRMAUNVANI', 
	 'Kart Nosu;Firma Kodu;Firma Adı;Firma Ünvanı', 
	  0);
  End;
End;

procedure Execute;
Var
  IDS: String;
  I: Integer;
  t1, t2: TDateTime;
Begin
  if Input2Date('Tarihleri Girin', t1, t2) Then
    pxShowMessageBox('Girilen Tarih', DateToStr(t1) + #13#10 + DateToStr(t2));

//  InputDemo;  
  Exit;
  
  pxShowMessageBox('Program Dizini', ProgramDir);
  
  FilterDemo;
End;

Begin
End.