MK.EkDers.v2013 - Hafta Bütünlüğü Destekli Ek Ders Çizelgesi

mkdeveloper · 13 Şubat 2013

Kod:

- Bir önceki versiyona ek olarak hafta bütünlüğüne uygun olarak çizelge oluşturabilirsiniz.
- Devam Takip Defteri oluşturabilirsiniz.
- Yedekleme dosyası oluşturabilirsiniz. (Yedekleme yeri parametreler sayfasından değiştiriliyor.)
- Parametreler sayfasındaki gerekli ayarları yapmayı unutmayınız.
- Programda ticari hiç bir amaç güdülmemektedir. Ücretsiz olarak herkesle paylaşabilirsiniz.
- Yeni versiyonla ilgili karşılaştığınız hataları lütfen bildiriniz.

fanfatih · 13 Şubat 2013

Eline sağlık hocam.

Tenten · 13 Şubat 2013

çok teşekkürler çok emek vermişsiniz.
_MK.KBS.YuklemeDosyasi excel dosyasında makro kopyalanıyor ve sayfada "ana sayfaya dön " butonu var Sanıyorum buton, bu dosyada işe yaramıyor zaten tıklanıncada doğal olarak hata veriyor.
_işlem yapma sırasında yeniden oluştur işleminde benim bilgisayar yaklaşık 2 dk dondu.. 1000 personel sayısını 100 olarak değiştirebilirmisiniz?
:+1:

endorfinnn · 13 Şubat 2013

lazer55 · 13 Şubat 2013

Mustafa KATLANÇ hocam sadece ekders dağılımı ile ücret hesabı yapamazsınız örneğin haftalık ders dağılımı 6-6-6-6-6 olan bir sınıf öğretmenin ücret dağılımı 3-3-3-3-3 tür ama birgün derse girmediğinde alacağı ekders 3 saat değil o günki ders sayı artı planmadan düşen ders yani 7 saat eksilir dolayısı ile kbs ye girilecek olan dağılımda 0-0-2-3-3 olur. 2 gün girmezse 12 saat artı bir planlama 13 saat düşülür dağılım 0-0-0-0-2 olur. Aynı şekilde branşçıların ekdersi hesaplanırkende ogünkü okutması gereken ders saatinin bilinmesi gerekir. Sizin hesaplamaya göre sadece idareci, rehberlikçi ve formatörlerinkini doğru hesaplar.

mkdeveloper · 13 Şubat 2013

tenten' Alıntı:
çok teşekkürler çok emek vermişsiniz.
_MK.KBS.YuklemeDosyasi excel dosyasında makro kopyalanıyor ve sayfada "ana sayfaya dön " butonu var Sanıyorum buton, bu dosyada işe yaramıyor zaten tıklanıncada doğal olarak hata veriyor.
_işlem yapma sırasında yeniden oluştur işleminde benim bilgisayar yaklaşık 2 dk dondu.. 1000 personel sayısını 100 olarak değiştirebilirmisiniz?
:+1:

personel sayısı kaç ise zaten ona göre işlem yapar. Bilgisayarınızın özellikleri nedir gerçekten merak ettim. Çünkü o kadar uzun sürmesi pek normal değil. 15-20 sn. anca sürüyor bende.. Bir de işlemi gerçekleştirmek için butona tıklayınca başka bir işlem için bilgisayarı kullanmamanız lazım.
Program VBA ile 1000 kişinin ekders verilerini siler ama bu silme işlemi çok hızlıdır yani kişiden bağımsızdır. Zaten personel sayısı kaç ise program bunu algılayıp ona göre döngüye girer..

KBS yükleme dosyasındaki butonun işlevi yok evet. Elle KBS yükleme dosyasındakini silebilirsiniz. Buton sadece program içerisindeki MKKBS sayfasında çalışıyor.. Yeniden yazdığı KBS yükleme dosyasında zaten hiç bir işlevi olamaz..

mkdeveloper · 13 Şubat 2013

lazer55' Alıntı:
Mustafa KATLANÇ hocam sadece ekders dağılımı ile ücret hesabı yapamazsınız örneğin haftalık ders dağılımı 6-6-6-6-6 olan bir sınıf öğretmenin ücret dağılımı 3-3-3-3-3 tür ama birgün derse girmediğinde alacağı ekders 3 saat değil o günki ders sayı artı planmadan düşen ders yani 7 saat eksilir dolayısı ile kbs ye girilecek olan dağılımda 0-0-2-3-3 olur. 2 gün girmezse 12 saat artı bir planlama 13 saat düşülür dağılım 0-0-0-0-2 olur. Aynı şekilde branşçıların ekdersi hesaplanırkende ogünkü okutması gereken ders saatinin bilinmesi gerekir. Sizin hesaplamaya göre sadece idareci, rehberlikçi ve formatörlerinkini doğru hesaplar.

merhaba.. programdaki haftalık dağılımı rapor, izin vs. durumlarında manuel olarak ilgili haftaya zaten siz gireceksiniz.. Program böyle bir hesap zaten yapmıyor ki.. Siz sadece kişinin rapor, izin ve tatil durumlarını çizelgeye girereken bir de o haftaki diğer günlerdeki ekderslerini elle değiştireceksiniz.. Programın sonraki versiyonlarında belki böyle bir şeyi yapan bir kodlama yazarım ama şimdilik çözüm böyle..

bizim okulda gayet iyi iş görüyor.. programın VBA kodlarına Alt+F11 tuş kombinasyonu ile girerek bakabilirsiniz. Ücretsizdir.

prentice · 28 Şubat 2013

Hesap numaralarını yazmazsak aktarımda sorun olur mu hocam ?

Fender · 1 Mart 2013

Teşekkürler...

prentice · 1 Mart 2013

kbs aktarım sayfasında hata veriyor. Olası nedenler ortada yok ama başka bir nedeni olabilir mi ?

Metehan · 1 Mart 2013

Office 2013 2010 versiyonlarında çalışmıyor hocam. bugğn 2007 dede hata verdi... Makrolar çalımıyor 2013 ve 2010da 2007de ise kbs dosyası oluşturmadı bende

alpi · 1 Mart 2013

bende de bu hatayı veriyor

Metehan · 1 Mart 2013

Alpi hocam 2013 ve 2010 Officelerde bu hatayı veriyor 2007 officede ise kbs dosyası oluşturuken hata veriyor .

alpi · 1 Mart 2013

mkdeveloper arkadaş bunu halledebilse cok güzel olacak tüm bilgisayarlarda 2010 yüklü

alpi · 1 Mart 2013

mkdeveloper hocam ofis 2010 ve 2007 sürümlerinde çalışacak şekilde ayarlayabilirseniz sevinirim

mkdeveloper · 2 Mart 2013

prentice' Alıntı:
Hesap numaralarını yazmazsak aktarımda sorun olur mu hocam ?

hayır olmaz. TC lerin ve kodların doğru olması lazım..

mkdeveloper · 2 Mart 2013

prentice' Alıntı:
kbs aktarım sayfasında hata veriyor. Olası nedenler ortada yok ama başka bir nedeni olabilir mi ?

tahmin ediyorum ki win8 kullanıyorsunuz.. Win8 de sanırım izinlerle ilgili bir problem var. Dosya yazmaya izin vermiyor.. win7 de ve win vista, win xp sorun yok.. bizzat bu işletim sistemlerinin hepsinde denedim..

mkdeveloper · 2 Mart 2013

alpi' Alıntı:
bende de bu hatayı veriyor

sanırım 64 bit işletim sisteminiz var. Temp klasörünü bulan api çalışmıyor görünüyor.. 64 bitte hiç denemedim açıkçası..

mkdeveloper · 2 Mart 2013

Metehan' Alıntı:
Alpi hocam 2013 ve 2010 Officelerde bu hatayı veriyor 2007 officede ise kbs dosyası oluşturuken hata veriyor .

programı office 2003 te yazdım.. 2003 sonrasında bir hata ile karşılaşmamanız lazım. işletim sistemi olarak win8 mi kullanıyorsunuz?

mkdeveloper · 2 Mart 2013

alpi' Alıntı:
mkdeveloper hocam ofis 2010 ve 2007 sürümlerinde çalışacak şekilde ayarlayabilirseniz sevinirim

program office 2003 te yazıldı. 2010 ve 2007 nin zaten 2003 ü sorunsuz açması lazım. işletim sisteminiz nedir acaba?

bir de sorun yaşayan arkadaşlar işletim sistemi, 32 veya 64 bit işletim sistemi, office sürümü gibi bilgileri de yazarlarsa aşağıdaki örnekte olduğu gibi sanırım daha rahat problem analizi yapabiliriz.

benim programı yazarken kullandığım sistem

Kod:

İşletim Sistemi : Windows Vista Ultimate
İşletim Sistemi Sürümü : 32 Bit
Office Sürümü : Office 2003

Metehan · 3 Mart 2013

Hocam işletim sistemim windows 7 Pro 64 bit Office sürümü 2013 64bit 2003 sürümünde yazdığınız için yeni sürümlerde hata vermesi normal hocam. atıyırum 2007 veya 2010da yazsaydınız 2003te problem çıkmaayabilirdi fakat eskide yapılıp yenide çalıştırılınca bazen hatalar çıkabiliyor. özelliklede 64bit sistemlerde bu hatalar dahada sıklaşıyor.

mkdeveloper · 3 Mart 2013

Metehan' Alıntı:
Hocam işletim sistemim windows 7 Pro 64 bit Office sürümü 2013 64bit 2003 sürümünde yazdığınız için yeni sürümlerde hata vermesi normal hocam. atıyırum 2007 veya 2010da yazsaydınız 2003te problem çıkmaayabilirdi fakat eskide yapılıp yenide çalıştırılınca bazen hatalar çıkabiliyor. özelliklede 64bit sistemlerde bu hatalar dahada sıklaşıyor.

yenide yazıp eskide çalışması olayına kesinlikle katılmıyorum.. Sizin sıkıntınız o zaman 64 bit ile alakalıdır. 32 bit win7 pro bir bilgisayarda denerseniz bunu siz de göreceksiniz çünkü win7 pro da ben programı denedim. sorunsuz çalışıyor..

mkdeveloper · 3 Mart 2013

alpi' Alıntı:
bende de bu hatayı veriyor

hata ile ilgili internetten araştırma yaptım.

sayfa3 vba kodları içerisinde geçen

Kod:

Private Declare Function GetTempPath Lib "kernel32" _
         Alias "GetTempPathA" (ByVal nBufferLength As Long, _
         ByVal lpBuffer As String) As Long

      Private Declare Function GetTempFileName Lib "kernel32" _
         Alias "GetTempFileNameA" (ByVal lpszPath As String, _
         ByVal lpPrefixString As String, ByVal wUnique As Long, _
         ByVal lpTempFileName As String) As Long

bölümünü

Kod:

#If VBA7 Then
Private Declare PtrSafe  Function GetTempPath Lib "kernel32" _
         Alias "GetTempPathA" (ByVal nBufferLength As Long, _
         ByVal lpBuffer As String) As Long

      Private Declare PtrSafe  Function GetTempFileName Lib "kernel32" _
         Alias "GetTempFileNameA" (ByVal lpszPath As String, _
         ByVal lpPrefixString As String, ByVal wUnique As Long, _
         ByVal lpTempFileName As String) As Long
#Else
Private Declare Function GetTempPath Lib "kernel32" _
         Alias "GetTempPathA" (ByVal nBufferLength As Long, _
         ByVal lpBuffer As String) As Long

      Private Declare Function GetTempFileName Lib "kernel32" _
         Alias "GetTempFileNameA" (ByVal lpszPath As String, _
         ByVal lpPrefixString As String, ByVal wUnique As Long, _
         ByVal lpTempFileName As String) As Long
#End If

biçimde güncelleme yaparak deneyiniz.

Kaynak: http://support.microsoft.com/kb/983043

alpi · 3 Mart 2013

mkdeveloper' Alıntı:
alpi' Alıntı:

mkdeveloper hocam ofis 2010 ve 2007 sürümlerinde çalışacak şekilde ayarlayabilirseniz sevinirim

Genişletmek için tıkla ...

program office 2003 te yazıldı. 2010 ve 2007 nin zaten 2003 ü sorunsuz açması lazım. işletim sisteminiz nedir acaba?

bir de sorun yaşayan arkadaşlar işletim sistemi, 32 veya 64 bit işletim sistemi, office sürümü gibi bilgileri de yazarlarsa aşağıdaki örnekte olduğu gibi sanırım daha rahat problem analizi yapabiliriz.

benim programı yazarken kullandığım sistem

Kod:

İşletim Sistemi : Windows Vista Ultimate İşletim Sistemi Sürümü : 32 Bit Office Sürümü : Office 2003

işletim sistemim win 8 ofis 2010 ve 64 bit kullanıyorum ben yaptığınız önceki programı kullanıyorum cok da güzel ama sanırım bu daha kullanışlı olmuş ama hatadan dolayı daha kullanamadım tşkler

alpi · 3 Mart 2013

hocam dediğiniz kodları değiştirdim Private Declare Function PathIsRelative Lib "Shlwapi" _
Alias "PathIsRelativeA" (ByVal Path As String) As Long bı hatayı veriyor şimdide....

alpi · 4 Mart 2013

hocam sanırım bu 64 bit işletim sistemi ile ilgili

mkdeveloper · 5 Mart 2013

alpi' Alıntı:
hocam dediğiniz kodları değiştirdim Private Declare Function PathIsRelative Lib "Shlwapi" _
Alias "PathIsRelativeA" (ByVal Path As String) As Long bı hatayı veriyor şimdide....

alpi hocam gönderdiğim dosyayı bir deneyiniz.. O api tanımlamasını kaldırdım. bakalım çalışacak mı.

alpi · 5 Mart 2013

Private Declare Function PathIsRelative Lib "Shlwapi" _
Alias "PathIsRelativeA" (ByVal Path As String) As Long

modmaskemultistepdrectory sayfasında yukarıdaki hatayı veriyor yine

mkdeveloper · 5 Mart 2013

alpi' Alıntı:
Private Declare Function PathIsRelative Lib "Shlwapi" _
Alias "PathIsRelativeA" (ByVal Path As String) As Long

modmaskemultistepdrectory sayfasında yukarıdaki hatayı veriyor yine

Private Declare Function PathIsRelative Lib "Shlwapi" _
Alias "PathIsRelativeA" (ByVal Path As String) As Long

bölümünü

Kod:

#If VBA7 Then
    Private Declare PtrSafe Function PathIsRelative Lib "Shlwapi" Alias "PathIsRelativeA" (ByVal Path As String) As Long
#Else
    Private Declare Function PathIsRelative Lib "Shlwapi" Alias "PathIsRelativeA" (ByVal Path As String) As Long
#End If

biçiminde değiştirip dene bir de.. Bu arada iç içe klasör oluşturma işlemi için bu API tanımlaması gerekiyor. O yüzden arşivlerken kullanıldığı için silemiyorum.

Office sürümü ile ilgili sanırım bu hata..

alpi · 5 Mart 2013

şimdi hata vermiyor ama arşivleme yapmıyor artık onuda manuel yapacağız tşkler

MK.EkDers.v2013 - Hafta Bütünlüğü Destekli Ek Ders Çizelgesi

Site Gezgini

Ekli dosyalar

Seçkin Üye

Süper Üye

Seçkin Üye

Aktif Üye

Site Gezgini

Site Gezgini

Seçkin Üye

Süper Üye

Seçkin Üye

Ekli dosyalar

Süper Üye

Süper Üye

Ekli dosyalar

Süper Üye

Süper Üye

Süper Üye

Site Gezgini

Site Gezgini

Site Gezgini

Site Gezgini

Site Gezgini

Süper Üye

Site Gezgini

Site Gezgini

Süper Üye

Süper Üye

Süper Üye

Site Gezgini

Ekli dosyalar

Süper Üye

Site Gezgini

Süper Üye