<![CDATA[Fox4um - Kodlama ve Komutlar]]> http://www.fox4um.com/ Wed, 08 Feb 2012 18:38:31 +0000 PunBB <![CDATA[alter table]]> http://www.fox4um.com/topic/2114/alter-table/new/posts/ 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

]]> Wed, 08 Feb 2012 18:38:31 +0000 http://www.fox4um.com/topic/2114/alter-table/new/posts/ <![CDATA[Skin !]]> http://www.fox4um.com/topic/53/skin/new/posts/ İnternetten indirdiğim vfp skinlerini vfp ye nasıl monte edebilirim bilgi verebilirmisiniz?

]]> Wed, 18 Jan 2012 09:42:38 +0000 http://www.fox4um.com/topic/53/skin/new/posts/ <![CDATA[select komutu]]> http://www.fox4um.com/topic/2087/select-komutu/new/posts/ 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

]]> Wed, 04 Jan 2012 19:32:58 +0000 http://www.fox4um.com/topic/2087/select-komutu/new/posts/ <![CDATA[Deneyim paylaşımı: VARTYPE() ve TYPE() aynı sonucu vermiyor]]> http://www.fox4um.com/topic/2057/deneyim-paylasimi-vartype-ve-type-ayni-sonucu-vermiyor/new/posts/ 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

]]> Wed, 23 Nov 2011 11:00:33 +0000 http://www.fox4um.com/topic/2057/deneyim-paylasimi-vartype-ve-type-ayni-sonucu-vermiyor/new/posts/ <![CDATA[tablo daki fields lerin listesini almak]]> http://www.fox4um.com/topic/2054/tablo-daki-fields-lerin-listesini-almak/new/posts/ 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.

]]> Sat, 19 Nov 2011 21:50:24 +0000 http://www.fox4um.com/topic/2054/tablo-daki-fields-lerin-listesini-almak/new/posts/ <![CDATA[Txt Dosyayı Bölmek]]> http://www.fox4um.com/topic/2055/txt-dosyayi-bolmek/new/posts/ Mevcut bir txt dosyasını binary veya satır olarak nasıl 2 ayrı dosya haline getirebilirim?

]]> Sat, 19 Nov 2011 07:19:59 +0000 http://www.fox4um.com/topic/2055/txt-dosyayi-bolmek/new/posts/ <![CDATA[STD() function]]> http://www.fox4um.com/topic/2052/std-function/new/posts/ 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..

]]> Thu, 17 Nov 2011 09:03:58 +0000 http://www.fox4um.com/topic/2052/std-function/new/posts/ <![CDATA[outlooktaki bir mailinin okunup okunmadığını kontrol etme ?]]> http://www.fox4um.com/topic/2043/outlooktaki-bir-mailinin-okunup-okunmadigini-kontrol-etme/new/posts/
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

]]> Mon, 14 Nov 2011 12:41:59 +0000 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]]> http://www.fox4um.com/topic/2044/tablodan-sadece-belli-fields-degerlerini-xls-dosyasini-atmak/new/posts/ 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 .

]]> Sat, 12 Nov 2011 14:13:17 +0000 http://www.fox4um.com/topic/2044/tablodan-sadece-belli-fields-degerlerini-xls-dosyasini-atmak/new/posts/ <![CDATA[E-okula devamsızlık kaydı]]> http://www.fox4um.com/topic/2032/eokula-devamsizlik-kaydi/new/posts/ 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

]]> Mon, 31 Oct 2011 08:44:47 +0000 http://www.fox4um.com/topic/2032/eokula-devamsizlik-kaydi/new/posts/ <![CDATA[sql mi seek mi?]]> http://www.fox4um.com/topic/799/sql-mi-seek-mi/new/posts/ 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 -:)

]]> Thu, 15 Sep 2011 11:20:51 +0000 http://www.fox4um.com/topic/799/sql-mi-seek-mi/new/posts/ <![CDATA[Bir Windows 7 sorunu da benden ...]]> http://www.fox4um.com/topic/1988/bir-windows-7-sorunu-da-benden/new/posts/ 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
]]> Mon, 04 Apr 2011 08:04:52 +0000 http://www.fox4um.com/topic/1988/bir-windows-7-sorunu-da-benden/new/posts/ <![CDATA[Insert Into]]> http://www.fox4um.com/topic/1980/insert-into/new/posts/ Insert Into  kisiler (....  )  Values ( ...  )

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

teşekkürler?

]]> Sat, 26 Mar 2011 12:26:58 +0000 http://www.fox4um.com/topic/1980/insert-into/new/posts/ <![CDATA[Klavye Devre Dışı]]> http://www.fox4um.com/topic/1975/klavye-devre-disi/new/posts/ Aktif olan bir formda klavyeyi devre dışı nasıl bırakabiliriz? (mouse aktif olacak)

]]> Tue, 22 Mar 2011 20:08:53 +0000 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.]]> http://www.fox4um.com/topic/1971/bu-isin-daha-kisa-yolu-var-mi-yoksa-belki-birilerinin-isine-yarar/new/posts/ 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
]]> Tue, 15 Mar 2011 14:04:15 +0000 http://www.fox4um.com/topic/1971/bu-isin-daha-kisa-yolu-var-mi-yoksa-belki-birilerinin-isine-yarar/new/posts/