<![CDATA[Fox4um - Kodlama ve Komutlar]]> 2012-02-08T18:38:31Z PunBB http://www.fox4um.com/ <![CDATA[alter table]]> ALTER TABLE hasta ADD COLUMN not c(20)

" not" değişkenini bulamadım diye hata mesajı veryor

çetin hocam not konusunda uyarmıştı ama şimdi bana bir çözüm gerek


cevaplar için şimdiden teşekkürler

]]> http://www.fox4um.com/user/117/ 2012-02-08T18:38:31Z http://www.fox4um.com/topic/2114/alter-table/new/posts/ <![CDATA[Skin !]]> İnternetten indirdiğim vfp skinlerini vfp ye nasıl monte edebilirim bilgi verebilirmisiniz?

]]> http://www.fox4um.com/user/12/ 2012-01-18T09:42:38Z http://www.fox4um.com/topic/53/skin/new/posts/ <![CDATA[select komutu]]> ilaclar dosyası :
ilaclar
giren
cikan
stok

fatura dosyası (girenler)
ilclar
miktar

kullanılan dosyası(çıkışlar)
ilaclar
miktar

ilaclar dosyasında ilacların listesi var yapmak istediğim ;
fatura dosyasında bu ilaçlaların giriş kayıtları tutuluyor. kullanılan dosyasındada bu ilaçların çıkış kayıtları tutuluyor

yapmak istediğim ilaçlar dosyasında giren kısmına o ilacın fatura kayıtlarındaki toplam mıktarını;
cikan kısmınaysa kullanılan dosyasındaki o ilacın toplam miktarını stok bölümüneyse bu iki toplamın farkını yazdırmak bu işi select komutuyla yapmak mümkünmü ?

cevaplar için teşekkürler şimdiden

]]> http://www.fox4um.com/user/117/ 2012-01-04T19:32:58Z http://www.fox4um.com/topic/2087/select-komutu/new/posts/ <![CDATA[Deneyim paylaşımı: VARTYPE() ve TYPE() aynı sonucu vermiyor]]> formda kullanılan treeview için: bir düğümden sonrası var mı diye kontrol ederken

?VARTYPE(form1.oletreeview.object.nodes[1].child.lastsibling.child.key)
hata mesajı üretiyor

?TYPE("form1.oletreeview.object.nodes[1].child.lastsibling.child.key")
="U" undetermined oluyor

]]> http://www.fox4um.com/user/146/ 2011-11-23T11:00:33Z http://www.fox4um.com/topic/2057/deneyim-paylasimi-vartype-ve-type-ayni-sonucu-vermiyor/new/posts/ <![CDATA[tablo daki fields lerin listesini almak]]> iki tablom var bu iki tablodaki fieldslerin karşılaştırılması veya
listelerini kolay yoldan alabileceğim bir kod yaklaşık 72 tane fields var diğerinde birazdaha farklı

bunu kolay yoldan nasıl hallederim.

]]> http://www.fox4um.com/user/545/ 2011-11-19T21:50:24Z http://www.fox4um.com/topic/2054/tablo-daki-fields-lerin-listesini-almak/new/posts/ <![CDATA[Txt Dosyayı Bölmek]]> Mevcut bir txt dosyasını binary veya satır olarak nasıl 2 ayrı dosya haline getirebilirim?

]]> http://www.fox4um.com/user/7/ 2011-11-19T07:19:59Z http://www.fox4um.com/topic/2055/txt-dosyayi-bolmek/new/posts/ <![CDATA[STD() function]]> Foxpro 9'da std() fonksiyonu ile standart deviation hesaplamak istiyorum
ancak "boyle bir program tanımlı değil" uyarısı veriyor.

avg(),cnt() gibi fonksiyonlarda ise hic bir sorun cıkmadan hesaplıyor..

]]> http://www.fox4um.com/user/71/ 2011-11-17T09:03:58Z http://www.fox4um.com/topic/2052/std-function/new/posts/ <![CDATA[outlooktaki bir mailinin okunup okunmadığını kontrol etme ?]]>
Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

oOutlook = CreateObject("Outlook.Application")

oNameSpace = oOutlook.GetNameSpace("MAPI")

oKlasorler = oNameSpace.Folders.Item[1].Folders 

 

 

FOR EACH lFolder IN oKlasorler

  IF lFolder.DefaultItemType = 0 && mail

      FOR EACH oMail IN lFolder.Items

 

   

        ?oMail.SenderEmailAddress

        

        ? "1 "+oMail.SenderName

        ? "2 "+oMail.SenderName

        ? "3 "+oMail.SentOnBehalfOfName &&hata verebilir

        ? "4 "+oMail.SenderEmailType

        ? "5 "+oMail.Subject

        ? "6 "+oMail.EntryID

        ? "7 "+oMail.Body

 

      ENDFOR 

  endif

 

ENDFOR


fox4um içerisinde dolaşırken bulduğum kodda alanları tespit ettim ve kullanmayı düşünüyorum.
Tek sıkıntım mailin okunup okunmadığını bilmek. Bu bilgiyi tuttuğu alanın adını biliyorsanız yardımızı bekliyorum şimdiden teşekkürler

]]> http://www.fox4um.com/user/633/ 2011-11-14T12:41:59Z http://www.fox4um.com/topic/2043/outlooktaki-bir-mailinin-okunup-okunmadigini-kontrol-etme/new/posts/ <![CDATA[tablodan sadece belli fields değerlerini xls dosyasını atmak]]> progrmında yaklaşık 57  tane fields var bunlardan bazılarını bir dbf dosyasına almak istiyorum.
bunu nasıl yapabilirim.

ama bu alma işleminden sonra bu değerleri sonra kullanmak istiyorum.

örnek aşağıdaki gibi


bordro.dbf fields
ssk
sskmatr_
kod
fbno
calsa_uc
tatsa_uc
prim_v
sosyar
yv
yk
yv_n_u
yv_k_u
calsaat
tatsaat
sskgun
ilavessk



aktarmak istediğim fields
ssk
sskmatr_
kod
fbno
calsa_uc
tatsa_uc
prim_v



bunlar bir ay hesaplandıktan sonra hesaplama işlemini bitirdikten sonra bordro.dbf ten çekeceklerim
bordronun hesaplanması sırasında bu almış olduğum
calsa_uc
tatsa_uc
prim_v
hücrelerindeki değerler bordro.dbf te kullanıcam ve sskmatr_ fields ını hesaplarken kullanıcam .

]]> http://www.fox4um.com/user/545/ 2011-11-12T14:13:17Z http://www.fox4um.com/topic/2044/tablodan-sadece-belli-fields-degerlerini-xls-dosyasini-atmak/new/posts/ <![CDATA[E-okula devamsızlık kaydı]]> E-okula devamsızlık kaydı yaptırmak istiyorum.

Ekteki web sayfası ile ilgili 2 isteğim var.

Tarih ve sınıf seçimini kodla yapabiliyorum.
1-listele butonunu kodla click yapamadım.
   .submit() veya .submit.click() örnekleri çalışmadı.
2-öğrenciyi numarasından bulup istenilen checkboxa işaret koyup kaydetmek istiyorum.

Bu konudan yardımcı olacak arkadaşlara peşinen teşekkür ediyorum.

www.denbil.com/e-okul.html

]]> http://www.fox4um.com/user/7/ 2011-10-31T08:44:47Z http://www.fox4um.com/topic/2032/eokula-devamsizlik-kaydi/new/posts/ <![CDATA[sql mi seek mi?]]> Merhaba değerli foxpro üsdatları.Veri tabanında herhangi bir kayıda Musteri_ID alanından ulaşmak istiyorum.Teknik açıdan Bu işlemi SEEK komutu ile yapmak mı daha hızlıdır, yoksa SQL ile select * from musteri where..  şeklinde yapmak mı?Aynı soru silme içinde geçerlidir tabiiki -:)

]]> http://www.fox4um.com/user/333/ 2011-09-15T11:20:51Z http://www.fox4um.com/topic/799/sql-mi-seek-mi/new/posts/ <![CDATA[Bir Windows 7 sorunu da benden ...]]> Aslında sorun Internet Explorer 9 ile ilgili.

IE8 ve öncesinde sorun yoktu.

Şimdi aşağıdaki kodu çalıştırınca hata alıyorum.

IE9 açmaması gereken IE formunu doğrudan açıyor. Önceden işimi kullanıcının görmeyeceği şekilde rahat rahat çözüyordum. Şimdi uğraş dur ...

Kod aşağıda: Pratik bir önerisi olan var mı?


Visual Fox Pro
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

33

34

35

36

37

38

39

40

41

42

43

? GetInternetTime()

 

Function GetInternetTime

    *!*        Author: Ugur YILMAZ

    Local ldReturnDate, lcHtml, lcUrl, lcLocalFile, loIE

    *!*    lcUrl = "http://free.timeanddate.com/clock/i2467ggw/n136/tluk/tt1/tw0" && London

    lcUrl = "http://free.timeanddate.com/clock/i2465v6w/n19/tluk/tt1/tw0/td2" && Ankara

    lcLocalFile = Forcepath("InternetTime.HTML",Sys(2023))

    If getFileFromURL(m.lcUrl,m.lcLocalFile) = 0

        loIE = Createobject("InternetExplorer.Application")

        loIE.Navigate(m.lcLocalFile)

 

    * Error In IE9 -> Why?

        Strtofile(loIE.Document.body.innertext, Forcepath("InternetTime.TXT",Sys(2023)))

 

        m.lcHtml = FileToStr(Forcepath("InternetTime.TXT",Sys(2023)))

    * Burada TXT dosyası yerine HTML oluşuyor

    

 

        m.ldReturnDate =  "{^";

                        +GetWordNum(m.lcHtml,3);

                        +"-";

                        +ICase(;

                            Upper(GetWordNum(m.lcHtml,2)) = "JANUARY","01", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "FEBRUARY","02", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "MARCH","03", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "APRIL","04", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "MAY","05", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "JUNE","06", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "JULY","07", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "AUGUST","08", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "SEPTEMBER","09", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "OCTOBER","10", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "NOVEMBER","11", ;

                            Upper(GetWordNum(m.lcHtml,2)) = "DECEMBER","12") ;

                        +"-";

                        +GetWordNum(m.lcHtml,1);

                        +"}"

        loIE.Stop 

        Release loIE

        RETURN (m.ldReturnDate)

    Endif

Endfunc
]]> http://www.fox4um.com/user/30/ 2011-04-04T08:04:52Z http://www.fox4um.com/topic/1988/bir-windows-7-sorunu-da-benden/new/posts/ <![CDATA[Insert Into]]> Insert Into  kisiler (....  )  Values ( ...  )

yapısını kullanırken 256 karekter sınırı var mı ?

teşekkürler?

]]> http://www.fox4um.com/user/16/ 2011-03-26T12:26:58Z http://www.fox4um.com/topic/1980/insert-into/new/posts/ <![CDATA[Klavye Devre Dışı]]> Aktif olan bir formda klavyeyi devre dışı nasıl bırakabiliriz? (mouse aktif olacak)

]]> http://www.fox4um.com/user/7/ 2011-03-22T20:08:53Z http://www.fox4um.com/topic/1975/klavye-devre-disi/new/posts/ <![CDATA[Bu işin daha kısa yolu var mı; yoksa belki birilerinin işine yarar.]]> Sevgili Arkadaşlar,
Kitaplarımı düzenlerken bir kitabın arasından eski bir program çıktısının bir sayfası çıktı.
80 li yılların başlarında Atatürk barajının yedek parça işlerinden sorumluydum. O sıralarda yedek parça programı yok. Amerikadan bir program bulduk ama ingilizce; bizim ambarcılar ise türkceyi bile doğru dürüst kıvıramıyorlar. Üstelik de program sonderece karışık. Mecburen iş başa düştü. Oturup önce dBase ile ardından da Clipper ile program yazıp işimizi yürütmeye çalışıyorum. Bende o zamanlarda programcılık bilgisi sıfır. 100.000 nin üzerinde yedek parça. Yüzlerce marka ve model makina var. Ambardakiler birşeyler istiyor; ben de onların isteklerini yerine getirmeğe çalışıyorum. Beni ençok zorlayan konu ise aramalardı. (Bu arada hemen şunu ekleyeyim; o sıralarda nedense index dosyaları sık sık bozulurdu. Index dosyalarını tamir eden bir program bile yazmıştım.) Her allahın günü gelib "şununla şunu bir de şunu aramak istiyoruz olmuyor." diye istekte bulunuyorlardı. Sonunda 11 fieldde rast gele kombinezonlarla arama yapacak birşeyler gerekti. Bu işi yapmak için yazdığım kodlar karışıyor, boyuna eksiklikler ve yanlışlıklar çıkıyordu. Sonunda bu işe çok basit bir çözüm buldum ve çözüm öylesine hoşuma gitmiştiki günlerce ortalıkta horoz gibi kabarıp dolaşmıştım.
   İşte bulduğum kod çıktısı o çözümün sayfasıydı. Oturup test ettim; hala çok güzel çelışıyor. Eger bu çözümün daha kısa yolu varsa lütfen bildirin; yoksa belki böyle alengirli aramalarda işinize yarar.
Sevgilerimle.
Erdal

Not: Benim kod yazışım size garip gelebilir ama kusuruma bakmayın.

Visual Fox Pro
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

Store "" To V_ara, V_filter

If ! Empty(V_Tarih)

    V_ara = dtoc(V_Tarih)

       V_filter = "dtoc(tarih)"

    Endif

If !Empty(V_Gorevli)

    V_ara = V_ara+UPPER(Alltrim(V_Gorevli))

    IF !EMPTY(V_filter)

    V_filter = V_filter+"+substr(UPPER(ALLTRIM(gorevli)),1,L_grvli)"

    ELSE 

    V_filter= V_filter+"substr(UPPER(ALLTRIM(gorevli)),1,L_grvli)"

    ENDIF 

Endif

If !Empty(V_Gorev)

    V_ara = V_ara+UPPER(Alltrim(V_Gorev))

    IF ! EMPTY(V_filter)

    V_filter = V_filter+"+SUBSTR(UPPER(alltrim(gorev)),1,L_grv)"

        ELSE 

    V_filter = V_filter+"SUBSTR(UPPER(alltrim(gorev)),1,L_grv)"

        ENDIF 

ENDIF

Locate For V_ara == &V_filter

 

If ! Eof()

    Set Filter To V_ara == &V_filter

    

        Brow 

    Endif

Set Filter To
]]> http://www.fox4um.com/user/794/ 2011-03-15T14:04:15Z http://www.fox4um.com/topic/1971/bu-isin-daha-kisa-yolu-var-mi-yoksa-belki-birilerinin-isine-yarar/new/posts/