Konu Araçları | Konu Seçenekleri | Gösterim Stili
Tarih
07/03/2010 20:37
Konu Sahibi
Hayri16
Yorumlar
16
Okunma
4662
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy
Kullanici Avatari

Hayri16

Aktif Üye
 58
 56
 1.010
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Değerli Arkadaşlar ;
SGK eczanelerde kullanılan provizyon sistemini değiştirdiği için eski sistemle ilgili yazdığım bütün program veriler hariç çöpe gitti.
Medula adı verilen sistemle ilgili çalışma yapıyorum. Sistem tamamen webe dayalı. Eski sistem bilgisayarımıza bizim kullanabileceğimiz bazı veriler bırakıyordu ama yeni sistemde yok.
Forumumuzdaki bilgilerden yararlanarak bilgi aktarmayı becerebiliyorum.
Sıkıntım bilgi almak. Normal tek bilgileri alabiliyorum ama sorgu sonucu oluşmuş listeyi programıma aktaramıyorum. Aşağıda sayfanın ilgili kısmının kaynak kodlarını veriyorum.(Tabiki gerçek bilgiler değiştirilerek)
1.Sorum: Veriler her sayfada 7 başlık altında listeleniyor. Reçete no-İşlem Tarihi- Reçete Tarihi- Adı-Soyadı-Kapsam-Karekod buradaki listeyi formumda oluşturduğum liste kutusuna nasıl alabilirim?
2.Sorum: Her sayfada 40 adet veri listeleniyor. Diğer sayfada veri olup olmadığını anlamak için sayfa altında (1-2-3) diye kontrol yok. İleri butonu var ve veri olmasa dahi aktif. Tıkladıktan sonra eğer veri yoksa o zaman "Reçete kaydı bulunamadı" diyor.
Bunu nasıl konrol edebilirim?
Yardımcı olabilecek , ilgilenecek arkadaşlara şimdiden teşekkürler.
(Sitedeki weble ilgil bütün konuları inceledim)

Kod:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
<tr>
								<td>
								<table width="100%" cellpadding="1" cellspacing="1"
										 class="borderTable">
										<tr class="headerRow">
											<td colspan="7">Reçete Listesi</td>
										</tr>
										<tr class="row1">
											<td class="label"><table id="form1:tableExReceteList" class="dataTableEx" width="100%" border="0" cellpadding="2" cellspacing="0" ><thead ><tr><th class="headerClass"><img src="/eczane/.ibmjsfres/img/1x1.gif" ></img></th><th align="middle" class="headerClass" ><span id="form1:tableExReceteList:text1" class="outputText">Reçete No</span></th><th align="middle" class="headerClass" ><span id="form1:tableExReceteList:text11" class="outputText">Son İşl.Tar.</span></th><th align="middle" class="headerClass" ><span id="form1:tableExReceteList:text5" class="outputText">Reçete Tar.</span></th><th class="headerClass"><span id="form1:tableExReceteList:text6" class="outputText">Ad</span></th><th class="headerClass"><span id="form1:tableExReceteList:text7" class="outputText">Soyad</span></th><th align="middle" class="headerClass" ><span id="form1:tableExReceteList:text3" class="outputText">Kapsam</span></th><th align="middle" class="headerClass" ><span id="form1:tableExReceteList:text14" class="outputText">Karekod</span></th></tr>
</thead><tbody>
<tr class="rowClass1" ><td><span id="form1:tableExReceteList:0:rowActionReceteSec">
<input type="hidden" id="form1:tableExReceteList:0:rowActionReceteSec__hidden_action" name="form1:tableExReceteList:0:rowActionReceteSec__hidden_action" value="false" disabled ></span>
</td>
<td align="middle" ><span class="outputText">AAAAAA</span></td>
<td align="middle" ><span class="outputText">01/03/2010</span></td>
<td align="middle" ><span class="outputText">01/03/2010</span></td>
<td ><span id="form1:tableExReceteList:0:text10" class="outputText">JOHNSON           </span></td>
<td ><span id="form1:tableExReceteList:0:text19" class="outputText">DENEMECİ        </span></td>
<td align="middle" ><span id="form1:tableExReceteList:0:text8" class="outputText">4B (BK)</span></td>
<td align="middle" ><span id="form1:tableExReceteList:0:text15" class="outputText">yok</span></td>
</tr>
<tr class="rowClass2" ><td><span id="form1:tableExReceteList:1:rowActionReceteSec">
<input type="hidden" id="form1:tableExReceteList:1:rowActionReceteSec__hidden_action" name="form1:tableExReceteList:1:rowActionReceteSec__hidden_action" value="false" disabled ></span>
</td>
<td align="middle" ><span class="outputText">BBBBBB</span></td>
<td align="middle" ><span class="outputText">01/03/2010</span></td>
<td align="middle" ><span class="outputText">01/03/2010</span></td>
<td ><span id="form1:tableExReceteList:1:text10" class="outputText">LINDA           </span></td>
<td ><span id="form1:tableExReceteList:1:text19" class="outputText">ATMASYON          </span></td>
<td align="middle" ><span id="form1:tableExReceteList:1:text8" class="outputText">4B (BK)</span></td>
<td align="middle" ><span id="form1:tableExReceteList:1:text15" class="outputText">yok</span></td>
</tr>


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.964
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,17:10
Çözüldü 
formun açıldığında olayındaki sayfayı geçerli sayfanızla değiştirip deneyiniz.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

Hayri16

Aktif Üye
 58
 56
 1.010
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Sayın sledgeab ilgin ve emeğin için çok teşekkür ederim. Ben doğru anlatamadım. Şimdi kaynak kodlara baktığımızda ad-soyad-kapsam ve karekod için <span id= " diyerek bilgileri getirdiği alanı tanımlamış.
"form1:tableExReceteList:1:text10" =ad
"form1:tableExReceteList:1:text19"=soyad
"form1:tableExReceteList:1:text8"=kapsam
"form1:tableExReceteList:1:text15"= karekod
Bunlarda değişen sadece satır numaralarının olduğu "list:_:text.." ifadesinde altı çizili yer. Bunun için bu bilgileri aşağıdaki kodla alıyorum.

Kod:
1
2
3
4
5
6
7
8
9
10
Dim a As Integer
Dim ekle, ekle1, ekle2, ekle3 As String
recliste.RowSource = ""
For a = 0 To 39
ekle = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text10").innertext
ekle1 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text19").innertext
ekle2 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text8").innerrext
ekle3 = WebBrowser1.Document.all("form1:tableExReceteList:" & a & ":text15").innertext
recliste.AddItem ekle & ";" & ekle1 & ";" & ekle2 & ";" & ekle3
Next

sorun recetekodu, işlem tarihi ve reçete tarihi alanlarındaki bilgileri getirememem.
Saygılar...


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

Hayri16

Aktif Üye
 58
 56
 1.010
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Değerli Arkadaşlar;
Konuyu sakin kafayla okuyunca meslekle ilgili olmayan kişilerin bu haliyle anlaması için yeterli bilgi vermediğimi düşündüm.Bu nedenle sorularımla ilgili 3 resim ekliyorum.
[Resim: medula1.jpg]
Resimde görüldüğü gibi sorgu sonucu gelen reçete listesi var. Bu listedeki ilk 3 alanı kendi programıma aktaramıyorum. Son 4 alanı önceki mesajda verdiğim kod ile aktarıyorum.

[Resim: medula2.jpg]
Liste sonu olmasına rağmen ileri butonu aktif. Bu da aktarım işlemini sonlandırmayı kontrol edememe yol açıyor. Tıkladığım zaman aynı sayfa çıkıyor üstte ise aşağıdaki resim çıkıyor.
[Resim: medula3.jpg]

Biliyorum zor bir konu. Bilmediğim için bazı bilgileri de veremiyor olabilirim. Bu nedenle sormak istediğiniz ayrıntılar olabilir.
Saygılarımla...


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.

Kullanici Avatari

ozanakkaya

Kurucu
Oz.... Ak....
 39
 479
 11.964
 29/01/2008
 Denizli
 Memur
 Ofis 2010 32 Bit
 Dün,17:10
Çözüldü 
Sn. Hayri16,
Eklediğim örnekteki problem ne? Ayrıca resim veya örnek kod ile çözüm bulamayız, örnek uygulamanızı ve veri alınacak sayfayı Html olarak ekleyin.


"Boş Örnek Eklerim, Yapıp Verirler" demeyin, örneğinizi hazırlayın.
Komplike kod talebiniz var ise İletişim bağlantısından bize ulaşın. 
Cebelleşmezsen Öğrenemezsin. 

Kullanici Avatari

Hayri16

Aktif Üye
 58
 56
 1.010
 12/11/2009
294
 Bursa
 
 Ofis 2007
 10/04/2018,10:30
Çözüldü 
Sayın sledgeab;
Örnek uygulamayı ekleyemem. Çünkü eczanemle ilgili şifreleri içeriyor. Şifreleri sil dersen o zaman da program içerisinden sitenin ilgili bölümlerine ulaşamazsınız. Bu nedenle yapabilirsek bu şekilde yapmaya çalışalım. Ama sitenin listeyi verdiği anki kaynak kodunu verebilirim.(içinden tek tek gerçek verileri ayıklamam zaman alacak).
Sizin önerdiğiniz program aşağıdaki hatayı verdi:[Resim: sledhata.jpg]

hata satırı olarak ta:
Controls("Metin" & s) = .Rows(I).cells(J).innertext
kodunu verdi

Saygılarımla...


Hayri16, 12-11-2009 tarihinden beri AccessTr.neT üyesidir.


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Son Yorum
Çözüldü Rapor Hazırlama Ve Çıktı Almak access acemisi 18 614 23/02/2019, 18:29
Son Yorum: access acemisi
Çözüldü Sorgu Kriterini Formdan Almak Ertugrul Kuzu 5 143 11/02/2019, 17:37
Son Yorum: Ertugrul Kuzu
Çözüldü Formumu Almak İstediğim Sonuca Göre Nasıl Tasarlamalıyım. Oğuz Türkyılmaz 4 245 25/11/2018, 21:21
Son Yorum: Oğuz Türkyılmaz
Çözüldü Toplamları Almak ORHAN ALKAN 5 171 23/11/2018, 23:52
Son Yorum: ORHAN ALKAN
Çözüldü Bir Veri Kutusunun Değerini, Başka Bir Veri Kutusuna Bağımlı Yapabilir Miyim ? A_day 10 332 18/11/2018, 22:24
Son Yorum: A_day

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2019 MyBB Group.