Unknown Member Method - DateTime


   75. ve 76. satırda hatalar alıyorum :
  dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart');
  dtEnd   = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd');

Unknown member method: 'AaddNewProDateTimePicker'

//------------------------------------------------------------------
//  uManagerForm – Liste ve Filtre
//------------------------------------------------------------------

var
  FrmMgr          : TclForm;
  lstMeetings     : TclListView;
  dtStart, dtEnd : TclProDateTime;  
  cmbUser         : TclComboBox;
  btnFilter       : TclButton;
  qData           : TclSqlQuery;

/*--------------- personel listesini doldur ----------------------*/

void LoadUsers;
var
  q : TclSqlQuery;          // ← semikolon ZORUNLU
{
  q = Clomosy.DBSQLServerQueryWith(
        'SELECT ID, FullName FROM Users ORDER BY FullName');
  cmbUser.Clear;

    while (not q.EOF) {
    cmbUser.AddItem(q.FieldByName('FullName').AsString,
                    q.FieldByName('ID').AsString);
    q.Next;
  };
}

/*---------------  tarih + personel filtresi  --------------------*/
void ApplyFilter;
var
  sql : String;
  uid : String;
{
  sql =
    'SELECT M.ID as RECORD_GUID,' +
    '       U.FullName + '' - '' + M.CompanyName as MAIN_TEXT,' +
    '       CONVERT(nvarchar, M.MeetingDate, 104) + '' '' +' +
    '       CONVERT(nvarchar, M.MeetingDate,108) as SUB_TEXT ' +
    'FROM Meetings M ' +
    'LEFT JOIN Users U ON U.ID = M.UserID ' +
    'WHERE 1=1';

  /* Tarih aralığı */
  sql =
    sql + ' AND M.MeetingDate BETWEEN ' +
    QuotedStr(FormatDateTime('yyyy-MM-dd', dtStart.DateTime) + ' 00:00') +
    ' AND ' +
    QuotedStr(FormatDateTime('yyyy-MM-dd', dtEnd.DateTime) + ' 23:59');

  /* Personel filtresi */
  uid = cmbUser.GetValueIndex(cmbUser.ItemIndex);
  if uid <> '' {
    sql = sql + ' AND M.UserID = ' + uid;
  }

  try
    qData.SQL.Text = sql;
    qData.Open;
    lstMeetings.clLoadListViewDataFromDataset(qData);
  except
    ShowMessage('Sorgu hatası: ' + LastExceptionMessage);
  }   
} 


/*---------------   formu oluştur   ------------------------------*/
void CreateForm;
{
  FrmMgr = TclForm.Create(Self);
  FrmMgr.clSetCaption('Yönetici Paneli');

  dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart');
  dtEnd   = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd');

  cmbUser = FrmMgr.AddNewComboBox(FrmMgr,'cmbUser');

  btnFilter = FrmMgr.AddNewButton(FrmMgr,'btnFilter','Uygula');
  FrmMgr.AddNewEvent(btnFilter,tbeOnClick,'ApplyFilter');

  lstMeetings = FrmMgr.AddNewListView(FrmMgr,'lstMeetings');
  lstMeetings.Align = alClient;

  /* SQL Server bağlantısı */
  qData = TclSqlQuery.Create(null);
  Clomosy.DBSQLServerConnect(
    'SQL Server',
    'TURGUT-KIR\\ATIKER',
    'sa',
    '1',
    'TURGUT25',
    1433);
  qData.Connection = Clomosy.DBSQLServerConnection;

  /* ilk açılışta bugünün verileri */
  dtStart.DateTime = Date;
  dtEnd.DateTime   = Date;
  LoadUsers;
  ApplyFilter;

  FrmMgr.Run;
}

/*---------------   RunUnit giriş noktası   ----------------------*/
void RunUnit;
{
  if (FrmMgr == null) {
    CreateForm;
  } else {
    FrmMgr.clShow;
  };
}

Yazar	Mesaj Konu Arama Topic Seçenekleri Yanıt Yaz Yeni Konu Oluştur Konuyu Yazdır Çeviri Konu
turgutkir Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Yeni Üye Kayıt Tarihi: 25 Haziran 2025 Konum: ADANA Durum: Aktif Değil Puanlar: 8	Mesaj Seçenekleri Yanıt Yaz Alıntı turgutkir Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Konu: Unknown Member Method - DateTime Gönderim Zamanı: 23 Saat 18 Dakika Önce Saat 14:02
	75. ve 76. satırda hatalar alıyorum : dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart'); dtEnd = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd'); Unknown member method: 'AaddNewProDateTimePicker' //------------------------------------------------------------------ // uManagerForm – Liste ve Filtre //------------------------------------------------------------------ var FrmMgr : TclForm; lstMeetings : TclListView; dtStart, dtEnd : TclProDateTime; cmbUser : TclComboBox; btnFilter : TclButton; qData : TclSqlQuery; /--------------- personel listesini doldur ----------------------/ void LoadUsers; var q : TclSqlQuery; // ← semikolon ZORUNLU { q = Clomosy.DBSQLServerQueryWith( 'SELECT ID, FullName FROM Users ORDER BY FullName'); cmbUser.Clear; while (not q.EOF) { cmbUser.AddItem(q.FieldByName('FullName').AsString, q.FieldByName('ID').AsString); q.Next; }; } /--------------- tarih + personel filtresi --------------------/ void ApplyFilter; var sql : String; uid : String; { sql = 'SELECT M.ID as RECORD_GUID,' + ' U.FullName + '' - '' + M.CompanyName as MAIN_TEXT,' + ' CONVERT(nvarchar, M.MeetingDate, 104) + '' '' +' + ' CONVERT(nvarchar, M.MeetingDate,108) as SUB_TEXT ' + 'FROM Meetings M ' + 'LEFT JOIN Users U ON U.ID = M.UserID ' + 'WHERE 1=1'; /* Tarih aralığı / sql = sql + ' AND M.MeetingDate BETWEEN ' + QuotedStr(FormatDateTime('yyyy-MM-dd', dtStart.DateTime) + ' 00:00') + ' AND ' + QuotedStr(FormatDateTime('yyyy-MM-dd', dtEnd.DateTime) + ' 23:59'); / Personel filtresi / uid = cmbUser.GetValueIndex(cmbUser.ItemIndex); if uid <> '' { sql = sql + ' AND M.UserID = ' + uid; } try qData.SQL.Text = sql; qData.Open; lstMeetings.clLoadListViewDataFromDataset(qData); except ShowMessage('Sorgu hatası: ' + LastExceptionMessage); } } /--------------- formu oluştur ------------------------------/ void CreateForm; { FrmMgr = TclForm.Create(Self); FrmMgr.clSetCaption('Yönetici Paneli'); dtStart = FrmMgr.AddNewProDateTime(FrmMgr,'dtStart'); dtEnd = FrmMgr.AddNewProDateTime(FrmMgr,'dtEnd'); cmbUser = FrmMgr.AddNewComboBox(FrmMgr,'cmbUser'); btnFilter = FrmMgr.AddNewButton(FrmMgr,'btnFilter','Uygula'); FrmMgr.AddNewEvent(btnFilter,tbeOnClick,'ApplyFilter'); lstMeetings = FrmMgr.AddNewListView(FrmMgr,'lstMeetings'); lstMeetings.Align = alClient; / SQL Server bağlantısı / qData = TclSqlQuery.Create(null); Clomosy.DBSQLServerConnect( 'SQL Server', 'TURGUT-KIR\\ATIKER', 'sa', '1', 'TURGUT25', 1433); qData.Connection = Clomosy.DBSQLServerConnection; / ilk açılışta bugünün verileri / dtStart.DateTime = Date; dtEnd.DateTime = Date; LoadUsers; ApplyFilter; FrmMgr.Run; } /--------------- RunUnit giriş noktası ----------------------*/ void RunUnit; { if (FrmMgr == null) { CreateForm; } else { FrmMgr.clShow; }; }

Emr.Erkmn Üye Profili Özel Mesaj Yolla Üye mesajı bul Arkadaş Listeme Ekle Moderatör Kayıt Tarihi: 28 Şubat 2025 Durum: Aktif Değil Puanlar: 105	Mesaj Seçenekleri Yanıt Yaz Alıntı Emr.Erkmn Bu mesaj kurallara aykırıysa buradan yöneticileri bilgilendirebilirsiniz. Teşekkürler(0) Alıntı Cevapla Gönderim Zamanı: 21 Saat 37 Dakika Önce Saat 15:43
	Merhaba Turgut, Clomosy de AddNewProDateTime yok https://www.docs.clomosy.com/index.php?title=Date https://www.docs.clomosy.com/System_Library#Date_and_Time_Functions ; Burada yer alanları kullanabilirsin