smentes yazdı:www.denbil.com/e-okul.html
sayfasında Kaydet butonu var.
foxpro ile kodla bu botunu click yaptıramadım.
Halbuki aynı yerde bulunan Listele butonunda işlem gerçekleşiyor.
Bu konuda bilgisi olanlardan yardım bekliyorum.
Forumda geçmişte bu konu ile ilgilenen Antepli var. Mesaj attım ama dönüş yapmadı. Antepli'nin iletişim bilgilerini bilen arkadaşlar varsa smentes at denbil.com a yazarlarsa memnun olurum.
abi selam formu takip etmekte biraz sıkıntım var yogunluktan ben e okul devamsızlıklarını attırıyorum ama sınıf seçmeli degilde ögrenci bazlı hareket ederek yaptım örnek olarak kodu buraya yazıyorum sınıf bazında degil öğrenci bazında attırıyorum daha rahat oluyor hiç problemsiz çalışıyor şuanda aşagıda kodları veriyorum anlaşıla bilsindiye biraz açıklamalı yazdım
****normal devamsızlık ların girildigi adres
lnTimeOut =60
lnOldSecond = Seconds()
THISFORM._Web.Navigate("http://e-okul.meb.gov.tr/OrtaOgretim/ogr/OOG02012.aspx")
THISFORM._Web.Refresh()
DO While THISFORM._Web.Busy && bağlanana kadar bekle
If Seconds() - lnOldSecond > lnTimeOut
Exit
EndIf
Inkey(0.5)
ENDDO
THISFORM._Web.Refresh()
M_ARANO=ALLTRIM(STR(OGRNO)) &&&& NUNU ÖGRENCİ KARTI VEYA DEVAMSIZLIKLARIN TUTULDUGU YERDEN ALDIRIYORUM
With THISFORM._Web.Document.Forms("form1")
.OGRMenu1_txtTC.value=M_ARANO
.OGRMenu1_btnAra.click()
ENDWITH
GUN=ALLTRIM(STR(DAY(TARIH)))
AY=ALLTRIM(STR(MONTH(TARIH)))
YIL=ALLTRIM(STR(YEAR(TARIH)))
M_TARIH=GUN+"/"+AY+"/"+YIL
M_NEDEN=ALLTRIM(TURU)
***** TAM GÜN GELMEDİ *******
* M_NEDEN="D"
* M_NEDEN="SY"
* M_NEDEN="ÖY"
With THISFORM._Web.Document.Forms("form1")
.Us_tarih1_txtTarihGiris.value=M_TARIH
.ddlNedeni.value=M_NEDEN
.hiddenKaydet.value= "Kaydet"
.submit()
ENDWITH
*********************** ÖZÜRLÜ DEVAMSIZLIK **************
******THISFORM._Web.Navigate("http://e-okul.meb.gov.tr/OrtaOgretim/ogr/OOG02013.aspx")
***bu adresten aynı şekilde yaptırıyorum
Bilgi Paylaşıldıkça Artar...!