<![CDATA[Fox4um - Gridler ve Diğer Kontroller]]> 2012-02-02T10:42:43Z PunBB http://www.fox4um.com/ <![CDATA[foxyclasses moverlist]]> Çetin bey
moverlist te sorceSQL i formun initinde nasıl oluştururuz ?
şu şekilde denedim olmadı

Visual Fox Pro
1

2

3

WITH thisform.moverlistx1

.sourceSQL = "crsckod.ckod,firma.firma FROM crsckod,firma WHERE crsckod.ckod==firma.ckod  INTO CURSOR crsSF"

ENDWITH
]]> http://www.fox4um.com/user/8/ 2012-02-02T10:42:43Z http://www.fox4um.com/topic/2109/foxyclasses-moverlist/new/posts/ <![CDATA[grid kullanımı]]> Index lenmiş bir dosyayı, aynı sayfadaki 2 farklı gridde gösterebilirmiyiz ?

1. GRID dosyadaki "TUR" koşuluna göre "A" olan kayıtları listeleyecek.
2. GRID dosyadaki "TUR" koşuluna göre "B" olan kayıtları listeleyecek.

]]> http://www.fox4um.com/user/31/ 2011-12-29T11:45:01Z http://www.fox4um.com/topic/2083/grid-kullanimi/new/posts/ <![CDATA[Gridde değişiklik]]> Gridde rakamlar tutuyorum ve boş olan hücrelere yeni rakamların girilebilmesini ama var olan bir hücredeki rakam değiştirilirse messagebox ile ikaz verilmesini istiyorum bunu nasıl yapabilirim acaba. Emin misiniz diye sorup Evet tıklanırsa değişikliğin geçerli olmasını, Hayır denirse eski rakamın kalmasını sağlamam lazım.
Teşekkürler.

]]> http://www.fox4um.com/user/94/ 2011-12-15T15:27:37Z http://www.fox4um.com/topic/2074/gridde-degisiklik/new/posts/ <![CDATA[Grid SetALL hk.]]> Kodun üzerinde oynadım ama bir noktadan sonra kolayına kaçıp kodun sahibine sormaya karar verdim smile

Yapmak istediğim ise şu; Gridin sadece belirli sürunlarına göre renklendirme yapmak istiyorum.

Üstat, şimdiden çok teşekkür ediyorum smile

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

* Author : Cetin BASOZ

* url : http://www.fox4um.com/topic/1746/grid-satirlarini-renklendirmek-ve-grid-initini-calistirmak/

 

Public oForm

oForm = Createobject('myForm')

oForm.Show

 

Define Class myForm As Form

  DataSession = 2

  Height=400

  Width=400

 

  Add Object myGrid As Grid With ;

    RecordSource='Orders',  Height=400,  Width=400,Anchor=15, ReadOnly=.T.

 

  Procedure Load

    Use (_samples+'data\orders')

  Endproc

 

  Procedure Init

    This.myGrid.SetAll('DynamicBackColor', '(thisform.ColorMe(Orders.Emp_id, .F.))')

    This.myGrid.SetAll('DynamicForeColor', '(thisform.ColorMe(Orders.Emp_id, .T.))')

  Endproc

 

  Procedure ColorMe(tcValue, tlForeColor)

    Local lnBackColor, lnForeColor

    lnBackColor = Bitand( Val(Sys(2007,m.tcValue,1,1)), 0x00FFFFFF )

    If !m.tlForeColor

      Return m.lnBackColor

    Endif

 

    Local lnRed, lnGreen, lnBlue,lnAlpha

    lnRed = Bitand(Bitrshift(m.lnBackColor,0),0xFF)

    lnGreen = Bitand(Bitrshift(m.lnBackColor,8),0xFF)

    lnBlue = Bitand(Bitrshift(m.lnBackColor,16),0xFF)

    lnAlpha = (Max(m.lnRed,m.lnGreen,m.lnBlue)+Min(m.lnRed,m.lnGreen,m.lnBlue))/2

 

    Return Iif(m.lnAlpha < 0x80, 0xFFFFFF, 0)

  Endproc

Enddefine

Aşağıdaki satırı denedim ama sonuç yok ! Sadece o hücreye ait renklendirme yapmak istiyorum!

Visual Fox Pro
1

2

.Columns(9).SetAll('DynamicBackColor','(ThisForm.MakeColorForGrid(ALLTRIM(STR(CrsTablo.FieldbyNumber)), .F.))')

.Columns(9).SetAll('DynamicForeColor','(ThisForm.MakeColorForGrid(ALLTRIM(STR(CrsTablo.FieldbyNumber)), .T.))')
]]> http://www.fox4um.com/user/30/ 2011-10-04T13:11:14Z http://www.fox4um.com/topic/2020/grid-setall-hk/new/posts/ <![CDATA[listbox]]> thisform.List1.AddItem("1")
thisform.List1.AddItem("2")
thisform.List1.AddItem("3")

şeklinde 3 tane listbox a değer eklesem sonra "2" yi "21" nasıl yaparım?

teşekkürler

]]> http://www.fox4um.com/user/16/ 2011-04-02T15:09:39Z http://www.fox4um.com/topic/1989/listbox/new/posts/ <![CDATA[Grid Satırlarında InputMask]]> Selamlar,
Gridde tek ve çift satırdaki InputMask ları farklı yapmak
istiyorum mümkümü?

InputMask='9,999,999' tek satırlar
InputMask='9.999' çift satırlar

]]> http://www.fox4um.com/user/23/ 2011-04-01T05:06:08Z http://www.fox4um.com/topic/1986/grid-satirlarinda-inputmask/new/posts/ <![CDATA[text de iki rakam arası sayı]]> text de sadece 1 ile 9 arası sayıların girilmesini nasıl sağlarız,
"1-9 arası giriniz" mesajı verdirebiliriz.

]]> http://www.fox4um.com/user/1952/ 2011-03-31T10:05:00Z http://www.fox4um.com/topic/1985/text-de-iki-rakam-arasi-sayi/new/posts/ <![CDATA[LocatorGrid te 1 den fazla tablo kullanma cOrgSource,FollowTable...]]> LocatorGgrid kullananlar bilir sonuc gostermek disinda kayıtlarda gezinirken asil tablo ilede canlı olarak aynı kayit uzerinde olabilmek icin
cOrgSource , FollowTable,FollowTag propertyleri vardir bunlari belirtince locatorGrid uzerinde gezinirken RecordPointer aynı zamanda cOrgSource tablosunda belirtilen kaydada gider buraya OK çünkü tek tablo ile calisiyoruz.

Benim yapmak istedigim su ornegin ;
FtBaslik tablosunda tarih,islemno,fiskod,FISTIPI.TANIM,ckodu,CARI.UNVAN,tutar gibi alanlarımız olsun
buyuk harflerle belirttigim TANIM,UNVAN gibi alanlarida LocatorGrid te gostermek istiyorum ancak baska tablodan join ile alamiyorum cunku cOrgSource sadece 1 tabloya izin veriyor.

bu durumda öneriniz ne olur ?

Tesekkurler.

ornek datalar

fatparent tablosu

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

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

CreateCursor_FatParent()

 

 Procedure CreateCursor_FatParent

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 3,01.01.2008,"001","M.DEPO","03","","","2007 Yılından Devir...",F,F,F,"G",T,F,F,F,T,F,"_2HL0VA9WE","",0,00,01.01.2008,"123456","",01.01.2008,.  .,0,01.01.2008,"","","200801010010000003","admin",0,0,0,00,0,00,"","",.  .,0,00,***************,128244,00,0,00,0,00,128244,00,0,00,128244,00,"","","","","",.  .,"",.  .,"","","","","","{E174CBA6-8297-423A-A1B9-A19E294EFA1D}","ESERVER",07.01.2008 13:19:08,F

6,01.01.2008,"001","M.DEPO","06","","","2007 Yılından Devir...",F,F,F,"G",T,F,F,F,F,F,"_2HL0VA9WF","",0,00,01.01.2008,"","",01.01.2008,.  .,0,.  .,"","","","admin",0,0,0,00,0,00,"","",.  .,0,00,***************,120263,67,0,00,0,00,120263,67,0,00,120263,67,"","","","","",.  .,"",.  .,"","","","","","{68D64923-5F9B-4586-836B-3840DD562DAE}","ESERVER",07.01.2008 13:19:08,F

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR FatParent ;

 ( ;

  ISLEMNO I(4,0)  NOT  NULL  ;

  ,TARIH D(8,0)  NOT  NULL  ;

  ,FISKODU C(3,0)  NULL  ;

  ,CKODU C(16,0)  NULL  ;

  ,DEPOKODU C(3,0)  NULL  ;

  ,TDEPOKODU C(3,0)  NULL  ;

  ,OZELKOD C(15,0)  NULL  ;

  ,ACIKLAMA C(50,0)  NULL  ;

  ,FACKKAPALI L(1,0)  NULL  ;

  ,FATURALI L(1,0)  NULL  ;

  ,IPTAL L(1,0)  NOT  NULL  ;

  ,GC C(1,0)  NOT  NULL  ;

  ,KDVDAHIL L(1,0)  NOT  NULL  ;

  ,FATKESILDI L(1,0)  NOT  NULL  ;

  ,STOKDUSME L(1,0)  NOT  NULL  ;

  ,OTVFAT L(1,0)  NOT  NULL  ;

  ,ISCILIK L(1,0)  NOT  NULL  ;

  ,TRNEDILDI L(1,0)  NOT  NULL  ;

  ,TRNREF C(38,0)  NOT  NULL  ;

  ,ISCIPERS C(16,0)  NULL  ;

  ,ISCITUTAR N(15,2)  NULL  ;

  ,BELTARIHI D(8,0)  NULL  ;

  ,BELNO C(20,0)  NULL  ;

  ,IRSNO C(20,0)  NULL  ;

  ,IRSTARIHI D(8,0)  NULL  ;

  ,IRSFSTAR D(8,0)  NULL  ;

  ,VADE N(3,0)  NULL  ;

  ,ODTARIHI D(8,0)  NULL  ;

  ,SIPSEKLI C(10,0)  NULL  ;

  ,ODSEKLI C(10,0)  NULL  ;

  ,BARKOD C(20,0)  NULL  ;

  ,ISLYAPAN C(25,0)  NULL  ;

  ,BASKM N(6,0)  NULL  ;

  ,BITKM N(6,0)  NULL  ;

  ,KAGITP N(10,2)  NULL  ;

  ,MADENIP N(10,2)  NULL  ;

  ,PLSKODU C(16,0)  NULL  ;

  ,DOVTIPI C(10,0)  NULL  ;

  ,DOVTAR D(8,0)  NULL  ;

  ,DOVFIYAT N(15,2)  NULL  ;

  ,DOVTUTAR N(15,2)  NULL  ;

  ,ALTTUTAR N(15,2)  NULL  ;

  ,ALTISK N(15,2)  NULL  ;

  ,ALTOTV N(15,2)  NULL  ;

  ,ALTTOPLAM N(15,2)  NULL  ;

  ,ALTKDV N(15,2)  NULL  ;

  ,ALTGTOPLAM N(15,2)  NULL  ;

  ,OTVRENK C(10,0)  NULL  ;

  ,OTVMOTOR C(25,0)  NULL  ;

  ,OTVSASI C(25,0)  NULL  ;

  ,OTVMODEL C(10,0)  NULL  ;

  ,OTVKG C(10,0)  NULL  ;

  ,OTVIZTAR D(8,0)  NULL  ;

  ,OTVIZINNO C(10,0)  NULL  ;

  ,OTVVEZTAR D(8,0)  NULL  ;

  ,OTVMAKNO C(10,0)  NULL  ;

  ,OTVGUMMUD C(15,0)  NULL  ;

  ,FOTO C(25,0)  NULL  ;

  ,EXPREF C(38,0)  NULL  ;

  ,TRMHDRID C(11,0)  NULL  ;

  ,MYGUID C(38,0)  NOT  NULL  ;

  ,LAPID C(15,0)  NOT  NULL  ;

  ,RECID T(8,0)  NOT  NULL  ;

  ,UPLOAD L(1,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

fistipi tablosu

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

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

73

74

75

76

77

78

79

80

81

82

83

84

85

86

87

88

89

90

91

92

93

94

95

96

97

98

99

100

101

102

103

104

105

106

107

108

109

110

111

112

113

114

115

116

117

118

119

120

121

122

123

124

125

126

127

128

129

130

131

132

133

134

135

136

137

138

139

140

141

142

143

144

145

146

147

148

149

150

151

152

153

154

CreateCursor_QUERY()

 

 

 Procedure CreateCursor_QUERY

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "001","ALIŞ FATURASI-TOPTAN(+)","G","BORC","STOK-FAT"

"002","SATIŞ FATURASI-TOPTAN(-)","C","ALACAK","STOK-FAT"

"003","P.ALIŞ FATURASI(+)","G","BORC","STOK-FAT"

"004","P.SATIŞ FATURASI(-)","C","ALACAK","STOK-FAT"

"005","ALIŞ F.FARKI FATURASI(+)","G","BORC","STOK-FAT"

"006","SATIŞ F.FARKI FATURASI(-)","C","ALACAK","STOK-FAT"

"007","ALIŞ İADE FATURASI-TOPTAN(-)","C","ALACAK","STOK-FAT"

"008","ALIŞ İADE FATURASI(-)","C","ALACAK","STOK-FAT"

"009","P.SATIŞ İADE FATURASI-TOPTAN(+)","G","BORC","STOK-FAT"

"010","P.SATIŞ İADE FATURASI(+)","G","BORC","STOK-FAT"

"011","ALINAN HİZMET FATURASI(+)","G","BORC","STOK-FAT"

"012","VERİLEN HİZMET FATURASI(-)","C","ALACAK","STOK-FAT"

"013","ALINAN PROFORMA FATURASI(+)","G","BORC","STOK-FAT"

"014","VERİLEN PROFORMA FATURASI(-)","C","ALACAK","STOK-FAT"

"015","ALINAN FASON FATURASI(+)","G","BORC","STOK-FAT"

"016","VERİLEN FASON FATURASI(-)","C","ALACAK","STOK-FAT"

"017","TOPTAN ALIŞ İRSALİYESİ(+)","G","BORC","STOK-FAT"

"018","PERAKENDE ALIŞ İRSALİYESİ(+)","G","BORC","STOK-FAT"

"019","TOPTAN SATIŞ İRSALİYESİ(-)","C","ALACAK","STOK-FAT"

"020","PERAKENDE SATIŞ İRSALİYESİ(-)","C","ALACAK","STOK-FAT"

"021","TOPTAN SATIŞ İADE İRSALİYESİ(+)","G","BORC","STOK-FAT"

"022","PERAKENDE SATIŞ İADE İRSALİYESİ(+)","G","BORC","STOK-FAT"

"023","TOPTAN ALIŞ İADE İRSALİYESİ(-)","C","ALACAK","STOK-FAT"

"024","PERAKENDE ALIŞ İADE İRSALİYESİ(-)","C","ALACAK","STOK-FAT"

"025","SAİR GİRİŞ(+)","G","BORC","STOK-FAT"

"026","SAİR ÇIKIŞ(-)","C","ALACAK","STOK-FAT"

"027","ÖZEL FİŞ (GİRİŞ+)","G","BORC","STOK-FAT"

"028","ÖZEL FİŞ (ÇIKIŞ-)","C","ALACAK","STOK-FAT"

"029","ÜRETİMDEN GİRİŞ(+)","G","BORC","STOK-FAT"

"030","DEVİR(+)","G","BORC","STOK-FAT"

"031","SARF FİŞİ(-)","C","ALACAK","STOK-FAT"

"032","FİRE FİŞİ(-)","C","ALACAK","STOK-FAT"

"033","SAYIM FİŞİ(+)","G","BORC","STOK-FAT"

"034","DEPO TRANSFERİ(-)","C","","STOK-FAT"

"035","MÜSTAHSİL MAKBUZU"," ","","STOK-FAT"

"036","ALINAN SERBEST MESLEK MAKBUZU(+)","G","BORC","STOK-FAT"

"037","VERILEN SERBEST MESLEK MAKBUZU(-)","C","ALACAK","STOK-FAT"

"038","KONSİNYE GİRİŞ(+)","G","BORC","STOK-FAT"

"039","KONSİNYE ÇIKIŞ(-)","C","ALACAK","STOK-FAT"

"040","KONSİNYE GİRİŞ İADE(-)","C","ALACAK","STOK-FAT"

"041","KONSİNYE ÇIKIŞ İADE(+)","G","BORC","STOK-FAT"

"042","SATIŞ FATURASI*(-)","C","ALACAK","STOK-FAT"

"043","ALIŞ FATURASI*(+)","G","BORC","STOK-FAT"

"044","SATIŞ FATURASI - SERVİS(-)","C","ALACAK","STOK-FAT"

"045","ALIŞ FATURASI - SERVİS(+)","G","BORC","STOK-FAT"

"046","SATIS FATURASI**(-)","C","ALACAK","STOK-FAT"

"047","ALIS FATURASI**(+)","G","BORC","STOK-FAT"

"101","BORÇ DEKONTU(-)","C","BORC","CH"

"102","ALACAK DEKONTU(+)","G","BORC","CH"

"103","NAKİT ÖDEME(-)","C","ALACAK","CH"

"104","NAKİT TAHSİLAT(+)","G","BORC","CH"

"105","SENET GİRİŞİ(+)","G","BORC","CH"

"106","SENET ÇIKIŞI(-)","C","BORC","CH"

"108","ÇEK GİRİŞİ(+)","G","BORC","CH"

"109","ÇEK ÇIKIŞI(-)","C","BORC","CH"

"110","VİRMAN"," ","","CH"

"111","MUTABAKAT"," ","","CH"

"112","ÖZEL FİŞ (BORÇ+)","G","BORÇ","CH"

"113","ÖZEL FİŞ (ALACAK-)","C","ALACAK","CH"

"114","AÇILIŞ FİŞİ (BORÇ+)","G","BORC","CH"

"115","AÇILIŞ FİŞİ (ALACAK-)","C","ALACAK","CH"

"116","BANKAYA GELEN (+)","G","ALACAK","CH"

"117","BANKADAN ÖDEME(-)","C","BORÇ","CH"

"118","KREDİ KARTI İLE TAHSİLAT(+)","G","BORÇ","CH"

"119","KREDİ KARTI İLE ÖDEME(-)","C","ALACAK","CH"

"120","MAIL ORDER İLE TAHSİLAT(+)","G","BORÇ","CH"

"121","MAIL ORDER İLE ÖDEME(-)","C","ALACAK","CH"

"201","GELEN HAVALE(+)","G","","BANKA"

"202","GİDEN HAVALE(-)","C","","BANKA"

"203","VİRMAN"," ","","BANKA"

"204","ÖZEL FİŞ"," ","","BANKA"

"205","BANKA İŞLEM FİŞİ"," ","","BANKA"

"206","BANKA AÇILIŞ İŞLEMİ (BORÇ+)","G","","BANKA"

"207","BANKA AÇILIŞ İŞLEMİ (ALACAK-)","C","","BANKA"

"208","BANKAYA YATAN(-)","C","ALACAK","BANKA"

"209","BANKADAN ÇEKİLEN(+)","G","BORC","BANKA"

"301","ÇEK GİRİŞ(+)","G","BORC","CEK-SENET"

"302","SENET GİRİŞ(+)","G","BORC","CEK-SENET"

"303","ÇEK ÇIKIŞ CARİ HESAP(-)","C","BORC","CEK-SENET"

"304","ÇEK ÇIKIŞ BANKA TAHSİLAT(-)","C","BORC","CEK-SENET"

"305","ÇEK ÇIKIŞ BANKA TEMİNAT(-)","C","BORC","CEK-SENET"

"306","SENET ÇIKIŞ CARİ HESAP(-)","C","BORC","CEK-SENET"

"307","SENET ÇIKIŞ BANKA TAHSİLAT(-)","C","BORC","CEK-SENET"

"308","SENET ÇIKIŞ BANKA TEMİNAT(-)","C","BORC","CEK-SENET"

"309","MÜŞTERİ ÇEKİ İADE(-)","C","ALACAK","CEK-SENET"

"310","MÜŞTERİ SENEDİ İADE(-)","C","ALACAK","CEK-SENET"

"311","KENDİ ÇEKİMİZ İADE(+)","G","BORC","CEK-SENET"

"312","KENDİ SENEDİMİZ İADE(+)","G","BORC","CEK-SENET"

"401","PORTFÖYDE(+)","G","BORC","CEK DURUM"

"402","CİRO EDİLDİ(+)","C","ALACAK","CEK DURUM"

"403","KENDİ ÇEKİMİZ(-)","C","ALACAK","CEK DURUM"

"404","BORÇ SENEDİMİZ(-)","C","ALACAK","CEK DURUM"

"405","TEMİNATA VERİLDİ(-)","C","ALACAK","CEK DURUM"

"406","TAHSİLE VERİLDİ(-)","C","ALACAK","CEK DURUM"

"407","TAHSİLE VERİLDİ-PROTESTOLU(-)","C","ALACAK","CEK DURUM"

"408","TAHSİL EDİLDİ-ÖDENDİ(+)","G","BORC","CEK DURUM"

"409","İADE EDİLDİ-GERİ ALINDI(-)","C","ALACAK","CEK DURUM"

"410","PROTESTOLU(+)","G","BORC","CEK DURUM"

"411","KARŞILIKSIZ(+)","G","BORC","CEK DURUM"

"412","TAHSİL EDİLEMİYOR(+)","G","BORC","CEK DURUM"

"413","KISMI TAHSİL(+)","G","BORC","CEK DURUM"

"414","AVUKATTA(+)","G","BORC","CEK DURUM"

"501","NAKİT TAHSİLAT(+)","G","BORC","KASA"

"502","BANKADAN ÇEKİLEN(+)","G","BORC","KASA"

"503","ÇEK TAHSİLATI(+)","G","BORC","KASA"

"504","SENET TAHSİLATI(+)","G","BORC","KASA"

"505","MUHASEBE TAHSİLAT İŞLEMİ(+)","G","BORC","KASA"

"506","VERİLEN SERBEST MESLEK MAKBUZU(-)","C","ALACAK","KASA"

"507","NAKİT ÖDEME(-)","C","ALACAK","KASA"

"508","BANKAYA YATAN(-)","C","ALACAK","KASA"

"509","ALINAN HİZMET FATURASI(+)","G","BORC","KASA"

"510","GİDER PUSULASI(-)","C","ALACAK","KASA"

"511","SENET ÖDEMESİ(-)","C","ALACAK","KASA"

"512","MUHASEBE TEDİYE(-)","C","ALACAK","KASA"

"513","ALINAN SERBEST MESLEK MAKBUZU(+)","G","BORC","KASA"

"514","ALIŞ FATURASI KAPATMA(-)","C","ALACAK","KASA"

"515","SATIŞ FATURASI KAPATMA(+)","G","BORC","KASA"

"516","VİRMAN BORÇ(+)","G","BORC","KASA"

"517","VİRMAN ALACAK(-)","C","ALACAK","KASA"

"518","KREDİ KARTI İLE TAHSİLAT(+)","G","BORC","KASA"

"519","KREDİ KARTI İLE ÖDEME(-)","C","ALACAK","KASA"

"520","MAIL ORDER TAHSILAT(+)","G","BORC","KASA"

"521","MAIL ORDER ODEME(-)","C","ALACAK","KASA"

"522","BANKA TAHSİLATI(+)","G","BORC","KASA"

"601","ALINAN SİPARİŞ"," ","","SİPARİŞ"

"602","VERİLEN SİPARİŞ"," ","","SİPARİŞ"

"701","MÜŞTERİ ÇEKİ"," ","","CEK TIPI"

"702","MÜŞTERİ SENEDİ"," ","","CEK TIPI"

"703","KENDİ ÇEKİMİZ"," ","","CEK TIPI"

"704","KENDİ SENEDİMİZ"," ","","CEK TIPI"

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR QUERY ;

 ( ;

  KOD C(3,0)  NULL  ;

  ,TANIM C(50,0)  NULL  ;

  ,TIP C(1,0)  NULL  ;

  ,ACIKLAMA C(10,0)  NULL  ;

  ,TIPACK C(10,0)  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

cari tablosu

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

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

CreateCursor_Cari()

 

 

 Procedure CreateCursor_Cari

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

"59EE932","SATIŞ ARACI  2",1,"","","","","","","","","","","","","","","","",,00,,00,,00,30,0,00,"000","","","","SATIŞ ARACI  2",4445,47,0,00,4445,47,"","59EE932.JPG",T,"{27C42D1C-3896-4273-AA48-C3286A7BCF22}","CEYHUN",16.02.2011 12:15:23,F

"M.DEPO","MERKEZ DEPO",1,"","","","","","","","","","","","","Gayrettepe","3330085556","","",30,,00,,00,30,0,00,"000","","","","MERKEZ DEPO",47280,99,4100290,59,-4053009,60,"","",T,"{7E23C55C-68D0-4796-823A-8C08B9B59B0B}","CEYHUN",16.02.2011 12:15:23,F

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR Cari ;

 ( ;

  CKODU C(16,0)  NULL  ;

  ,CADI C(60,0)  NULL  ;

  ,CTIPI N(1,0)  NULL  ;

  ,OZELKOD C(15,0)  NULL  ;

  ,OZELKOD2 C(15,0)  NULL  ;

  ,OZELKOD3 C(15,0)  NULL  ;

  ,OZELKOD4 C(15,0)  NULL  ;

  ,ADRES C(75,0)  NULL  ;

  ,TEL C(15,0)  NULL  ;

  ,FAX C(15,0)  NULL  ;

  ,GSM C(15,0)  NULL  ;

  ,WEB C(50,0)  NULL  ;

  ,EMAIL C(30,0)  NULL  ;

  ,ICQ C(10,0)  NULL  ;

  ,MSN C(30,0)  NULL  ;

  ,VDA C(21,0)  NULL  ;

  ,VNO C(13,0)  NULL  ;

  ,TCKIMLIK C(13,0)  NULL  ;

  ,ILGILI C(50,0)  NULL  ;

  ,VADE N(3,2)  NOT  NULL  ;

  ,ISKONTO N(3,2)  NOT  NULL  ;

  ,FAIZ N(3,2)  NOT  NULL  ;

  ,KARMARJI N(3,0)  NULL  ;

  ,RISKLIMITI N(15,2)  NOT  NULL  ;

  ,CHGRUP C(3,0)  NULL  ;

  ,CHGRUP2 C(3,0)  NULL  ;

  ,CHGRUP3 C(3,0)  NULL  ;

  ,PLSKODU C(16,0)  NULL  ;

  ,CADI2 C(60,0)  NULL  ;

  ,BORC N(15,2)  NOT  NULL  ;

  ,ALACAK N(15,2)  NOT  NULL  ;

  ,BAKIYE N(15,2)  NOT  NULL  ;

  ,NOTLAR C(75,0)  NULL  ;

  ,FOTO C(20,0)  NULL  ;

  ,AKTIF L(1,0)  NOT  NULL  ;

  ,MYGUID C(38,0)  NOT  NULL  ;

  ,LAPID C(15,0)  NOT  NULL  ;

  ,RECID T(8,0)  NOT  NULL  ;

  ,UPLOAD L(1,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc
]]> http://www.fox4um.com/user/4/ 2011-03-17T11:15:43Z http://www.fox4um.com/topic/1974/locatorgrid-te-1-den-fazla-tablo-kullanma-corgsourcefollowtable/new/posts/ <![CDATA[Combo box ta mantık hatası? Nerede]]> Oluşturduğum bir form 'un ınıt inde, oluşturduğum cursor leri Combo box ta kullanıyorum.

Özetle yaptığım şu :


Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

IF EMPTY(CrsAmodel.Turkod) = .F.

 

    m.lcText = CrsAmodel.Turkod

    SELECT "CrsTypes"

    LOCATE FOR ModelTanim = m.lcText

 

    WITH ThisForm.pgfTamamla.pgGenel.cboModelTanim

        .ColumnCount = 2

        .RowSourceType = 6 

        .RowSource = [CrsTypes.ModelTanim, ModelKod]

           .ControlSource = [CrsAmodel.AdtTur]

           .BoundTo = .T.

           .BoundColumn = 1

           .ColumnWidths = [120,15]

           .DisplayValue = [CrsAmodel.AdtTur]

        .ListIndex = Recno("CrsTypes") && + 1 && 1

        * .FirstElement = Recno()

    ENDWITH 

ENDIF

Ancak Combo da elde etmek istediğim sonucu değilde farklı bir değeri görüyorum ( Bazen bir record yukarısı bazen de aşağısı.) Nerede hata yapıyor olabilirim.

]]> http://www.fox4um.com/user/30/ 2011-02-21T12:36:18Z http://www.fox4um.com/topic/1944/combo-box-ta-mantik-hatasi-nerede/new/posts/ <![CDATA[Grid.currentcontrol]]> Merhaba
Formdaki grid'de son kolonda bir checkbox var. Ancak form yeniden avtivate olurken bunu UNUTTUĞU için activate'ye 

Visual Fox Pro
1

thisform.grid1.column9.sparse=.f.


kabul ettiği halde

Visual Fox Pro
1

thisform.grid1.column9.currentcontrol="check1"


kabul etmiyor. burada ikinci satırda ne hata yaptığımı belirtir misiniz.
Teşekkür ederim

]]> http://www.fox4um.com/user/12/ 2011-02-02T16:36:57Z http://www.fox4um.com/topic/1922/gridcurrentcontrol/new/posts/ <![CDATA[filtering-choices In Grid]]> Foxite de gordum paylasmak istedim arsivinizde bulunsun smile

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

44

45

46

47

48

49

50

51

52

*!* Author Cetin BASOZ

*!*! http://www.foxite.com/archives/filtering-choices-0000280991.htm

 

Public oForm

oForm = Createobject("sampleForm")

oForm.Show()

 

Define Class sampleForm As Form

  DataSession=2

  Height=600

  Width=800

  BindControls=.F.

  Add Object myGrid As Grid With Height = 400,Width=800,RecordSource=''

  Add Object lstFilters As ListBox With Left=10,Top=410,Height=180,Width=200,;

    RowSourceType=3,RowSource='Select * from myFilters into cursor crsFilters'

  Add Object btnFilterData As CommandButton With Top=450, Left=220,;

    AutoSize=.T., Caption='Apply Filter'

 

  Procedure Load

 

    Create Cursor MyFilters (Description c(100), whereClause m)

    Insert Into MyFilters Values ("No Filter","")

    Insert Into MyFilters Values ("Country is 'USA'","where UPPER(Country) == 'USA'")

    Insert Into MyFilters Values ("Title starts with 'Sales'","where UPPER(Title) like 'SALES%'")

    Insert Into MyFilters Values ("Purchase amount is over 30,000$","where MaxOrdAmt > 30000")

  Endproc

  

  Procedure Init

    This.filterData('')

    This.BindControls = .T.

  Endproc

  

  Procedure filterData(tcWhere)

    Local lcWhere

    lcWhere = Evl(m.tcWhere,'')

    This.myGrid.RecordSource=''

    Select cust_id,Company,contact,Title,country,maxordamt ;

      FROM (_samples+'data\customer') ;

      &lcWhere ;

      INTO Cursor crsCustomers ;

      readwrite

    This.myGrid.RecordSource='crsCustomers'

  Endproc

 

  Procedure btnFilterData.Click

    If Thisform.lstFilters.ListIndex = 0

      Thisform.filterData('')

    Else

      Thisform.filterData(crsFilters.whereClause)

    Endif

  Endproc

Enddefine
]]> http://www.fox4um.com/user/4/ 2011-01-30T12:32:01Z http://www.fox4um.com/topic/1920/filteringchoices-in-grid/new/posts/ <![CDATA[Grid içinde ENTER]]> Grid'de kolon içerisinde combobox kullanıyorum değişim yapıldıktan sonra entere basıldığında aşağı inmesini istiyorum (Hızlı Girişin olabilmesi için)  fakat ne yaptıysam başaramadım belki bir özelliği vardır ama bulamadım yardımınız lazım.

Defaultta entere basılınca sağa kayıyor ben bir alt satıra düşmesini istiyorum

]]> http://www.fox4um.com/user/633/ 2011-01-28T23:24:12Z http://www.fox4um.com/topic/1917/grid-icinde-enter/new/posts/ <![CDATA[Gridde Listeleme biçimi]]> Gridde sadece 5 alanım görünmekte. ve ilk alanıma göre listelenmiştir. ben gridin ilk sütüna ait ismin olduğu yeri tıklayınca o kısma göre listeletmek istiyorum. bunu nasıl yaparım .
header1 in click eventine

Visual Fox Pro
1

2

3

select * from personel asc soyadi

this.refresh

thisform.refresh


yaptim olmadi
ve bunu her header de uyguladım o headere ait alan adina uyacak şekilde

]]> http://www.fox4um.com/user/545/ 2011-01-09T20:10:36Z http://www.fox4um.com/topic/1883/gridde-listeleme-bicimi/new/posts/ <![CDATA[Grid satırlarını renklendirmek ve grid initini çalıştırmak]]> Sevgili Arkadaşlar,
Sırf gridi öğrenmek için ufak bir program yapmaya çalışıyorum ama iki konuda başarılı olamıyorum:
Birinci konuda borç isimli bir field içeren bir database var. İstediğim şo: Borç >0 sa o satır kırmızı, borç<0 sa yeşil, borç=0 sa mavi görüntülensin.
Ben bunu çeşitli şekillerde denedim ama birtürlü başaramadım. Ne gridin initine ne de formun initine yazdığım programlar çalışmıyor.
İkinci konu da şu: Gridin initine, dblclic ine veye click ine yazdığım hiç bir program çalışmıyor.
Gridde notlar isimli bir memo field var. Hangi satır aktif ise o satırdaki notlar fieldini edit etmek istiyorum. Ama ne yaptıysam çalışmıyor. Gridin formuna bir cmdbutton ekleyip click ine aşağıdaki ufak programı yazınca

Visual Fox Pro
1

2

SET MEMOWIDTH TO 60

MODIFY MEMO notlar


istediğim oluyor.
Lütfen Yardımlarınızı esirgemeyiniz.
Yardımcı olacak arkadaşlara şimdiden çok teşekkür ederim.
Sevgilerimle.
Erdal

]]> http://www.fox4um.com/user/794/ 2011-01-05T07:42:28Z http://www.fox4um.com/topic/1746/grid-satirlarini-renklendirmek-ve-grid-initini-calistirmak/new/posts/ <![CDATA[Gridde tuş kontrolü ile hareket etmek]]> Selamlar!
Gridde AllowCellSelection=.F. iken Enter tuşu ile Gridin ilk column daki (bulunduğu satırdaki) ilk hücreye nasıl konumlandırabilirim?

]]> http://www.fox4um.com/user/600/ 2010-12-31T13:04:06Z http://www.fox4um.com/topic/1277/gridde-tus-kontrolu-ile-hareket-etmek/new/posts/