<![CDATA[Fox4um - ActiveX Kontrolleri]]> 2010-08-09T08:22:08Z PunBB http://www.fox4um.com/ <![CDATA[Yapılan Kopyalama İşlemiyle İlerleyen Progress Bar]]> Bu Konu ile ilgili elinde örnek kod olan var mı?
Yardım edenlere şimdiden teşekkürler

]]> http://www.fox4um.com/user/172/ 2010-08-09T08:22:08Z http://www.fox4um.com/topic/1714/yapilan-kopyalama-islemiyle-ilerleyen-progress-bar/new/posts/ <![CDATA[TreeView'da sağ tıklamayı yakalamak]]> Merhaba,
Treeview kullanıyorum. Sağ tıklama event'ini göremedim. Bu event'e context-sensitive bir menü koymak istiyorum. RightClick yerine MouseUp'ı kullanmak uygun sanırım. Çünkü normal click'te de butonu kaldırdığımızda olay yakalanıyor. Ancak bunu nasıl yapabilirim bilmiyorum.

Yardımlarınız için şimdiden teşekkürler.

]]> http://www.fox4um.com/user/275/ 2010-07-27T11:10:07Z http://www.fox4um.com/topic/1703/treeviewda-sag-tiklamayi-yakalamak/new/posts/ <![CDATA[Shell.Explorer.2]]> Merhabalar

Shell.Explorer.2 kullandığımda visible .f. ve tekrar .t. yapıldığında yüklenmiş sayfayı tekrar yüklüyor bunu engellemenin bir yolu var mı?

Teşekkürler

]]> http://www.fox4um.com/user/871/ 2010-05-25T22:36:12Z http://www.fox4um.com/topic/1647/shellexplorer2/new/posts/ <![CDATA[Windows Sistem klasörleri]]> Sistem klasörlerini gösteren program.


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

155

156

157

158

159

160

Clea

Clear All

_Screen.Visible=.F.

Declare SHORT SHGetFolderPath In SHFolder.Dll Integer hwndOwner,Integer nFolder,Integer hToken,Integer dwFlags,String @pszPath

*Declare SHGetSpecialFolderPath In SHELL32.Dll Long hwndOwner,String @cSpecialFolderPath,Long nWhichFolder

Create Cursor xcurs1(xFOL c(40),xVAL N(4))

Insert Into xcurs1 Values("FLAG_CREATE",0x8000)

Insert Into xcurs1 Values("ADMINTOOLS",0x0030)

Insert Into xcurs1 Values("ALTSTARTUP",0x001d)

Insert Into xcurs1 Values("APPDATA",0x001a)

Insert Into xcurs1 Values("BITBUCKET",0x000a)

Insert Into xcurs1 Values("CDBURN_AREA",0x003b)

Insert Into xcurs1 Values("COMMON_ADMINTOOLS",0x002f)

Insert Into xcurs1 Values("COMMON_ALTSTARTUP",0x001e)

Insert Into xcurs1 Values("COMMON_APPDATA",0x0023)

Insert Into xcurs1 Values("COMMON_DESKTOPDIRECTORY",0x0019)

Insert Into xcurs1 Values("COMMON_DOCUMENTS",0x002e)

Insert Into xcurs1 Values("COMMON_FAVORITES",0x001f)

Insert Into xcurs1 Values("COMMON_MUSIC",0x0035)

Insert Into xcurs1 Values("COMMON_PICTURES",0x0036)

Insert Into xcurs1 Values("COMMON_PROGRAMS",0x0017)

Insert Into xcurs1 Values("COMMON_STARTMENU",0x0016)

Insert Into xcurs1 Values("COMMON_STARTUP",0x0018)

Insert Into xcurs1 Values("COMMON_TEMPLATES",0x002d)

Insert Into xcurs1 Values("COMMON_VIDEO",0x0037)

Insert Into xcurs1 Values("CONTROLS",0x0003)

Insert Into xcurs1 Values("COOKIES",0x0021)

Insert Into xcurs1 Values("DESKTOP",0x0000)

Insert Into xcurs1 Values("DESKTOPDIRECTORY",0x0010)

Insert Into xcurs1 Values("DRIVES",0x0011)

Insert Into xcurs1 Values("FAVORITES",0x0006)

Insert Into xcurs1 Values("FONTS",0x0014)

Insert Into xcurs1 Values("HISTORY",0x0022)

Insert Into xcurs1 Values("INTERNET",0x0001)

Insert Into xcurs1 Values("INTERNET_CACHE",0x0020)

Insert Into xcurs1 Values("LOCAL_APPDATA",0x001c)

Insert Into xcurs1 Values("MYDOCUMENTS",0x000c)

Insert Into xcurs1 Values("MYMUSIC",0x000d)

Insert Into xcurs1 Values("MYPICTURES",0x0027)

Insert Into xcurs1 Values("MYVIDEO",0x000e)

Insert Into xcurs1 Values("NETHOOD",0x0013)

Insert Into xcurs1 Values("NETWORK",0x0012)

Insert Into xcurs1 Values("PERSONAL",0x0005)

Insert Into xcurs1 Values("PRINTERS",0x0004)

Insert Into xcurs1 Values("PRINTHOOD",0x001b)

Insert Into xcurs1 Values("PROFILE",0x0028)

Insert Into xcurs1 Values("PROFILES",0x003e)

Insert Into xcurs1 Values("PROGRAM_FILES",0x0026)

Insert Into xcurs1 Values("PROGRAM_FILES_COMMON",0x002b)

Insert Into xcurs1 Values("PROGRAMS",0x0002)

Insert Into xcurs1 Values("RECENT",0x0008)

Insert Into xcurs1 Values("SENDTO",0x0009)

Insert Into xcurs1 Values("STARTMENU",0x000b)

Insert Into xcurs1 Values("STARTUP",0x0007)

Insert Into xcurs1 Values("SYSTEM",0x0025)

Insert Into xcurs1 Values("TEMPLATES",0x0015)

Insert Into xcurs1 Values("WINDOWS",0x0024)

Public oform1

oform1=Createobject("CFORM1")

oform1.AddObject("oCB1","cCB1")

oform1.AddObject("otx1","ctx1")

oform1.AddObject("oWEB1","cWEB1")

oform1.Show()

oform1.WindowState=0

oform1.Visible=.T.

oform1.OCB1.SetFocus()

Return

 

 

 

***************************

Define Class cform1 As Form

    Top=0

    Left=0

    Width=550

    Height=450

    DoCreate=.T.

    Name="CFORM1"

    ShowWindow=2

    Caption="Windows Sistem Klasörleri"

    WindowState=1

 

    Procedure Unload

        Unlock All

        Close All

        Clear Dlls

        Clear Events

        If Right(Alltrim(Sys(16,1)),4)=".EXE"

            Quit

        Else

            _Screen.Visible=.T.

            Cancel

        Endif

        Return

    Endproc

Enddefine

 

 

*****************************

Define Class ccb1 As ComboBox

    Top=5

    Left=5

    Height=22

    Width=250

    Visible=.T.

    RowSourceType=2

    RowSource="xcurs1"

    DisplayValue="Sistem Klasörü Seçiniz"

    Style=0        && 0 yada 2

 

    Procedure Init

        rr=This.ListCount

        If rr>30

            rr=30

        Endif

        This.DisplayCount=rr

    Endproc

 

    Procedure Click

        cFolderPath=Space(255)

        SHGetFolderPath(0,xcurs1.xVAL,0,0,@cFolderPath)

        cP3=Alltrim(cFolderPath)

        cP3=Substr(cP3,1,Len(cP3)-1)

        If Len(cP3)>0

            oform1.oweb1.Navigate(cP3)

            oform1.OTX1.Value=cP3

        Else

            oform1.oweb1.Navigate("about:blank")

            oform1.OTX1.Value=""

        Endif

    Endproc

Enddefine

 

 

****************************

Define Class ctx1 As TextBox

    Top=30

    Left=5

    Width=oform1.Width-10

    Height=25

    Visible=.T.

    Anchor=10

    Value=""

Enddefine

 

 

********************************

Define Class cweb1 As OleControl

    Visible=.T.

    OleClass="shell.explorer.2"

    Top=60

    Left=5

    Width=oform1.Width-10

    Height=oform1.Height-70

    Anchor=75

 

    Procedure Refresh

        Nodefault

    Endproc

Enddefine
]]> http://www.fox4um.com/user/159/ 2010-01-29T22:21:29Z http://www.fox4um.com/topic/1514/windows-sistem-klasorleri/new/posts/ <![CDATA[Toolbar Resim Eklemek]]> Öncelikle Herkese Merhabalar
Benim Sorum Şu Şekilde Forma bi toolbar ekledim onu eklediğim butonlara resim eklemek için imagelist oluşturdum
Fakat

Visual Fox Pro
1

thisform.olecontrol2.ImageList=thisform.olecontrol1.OBJECT

bu kodu eklediğim vakit hata ile karşılaşıyorum ne yapmam lazım ?
Yardımlarınız için şimdiden teşekkür ederim

]]> http://www.fox4um.com/user/172/ 2010-01-13T14:27:08Z http://www.fox4um.com/topic/1491/toolbar-resim-eklemek/new/posts/ <![CDATA[scanner activex'i]]> Merhaba

Form içinden scanner ile evrak taramak istiyorum. bunun için vfp içinde bir "scanner control" activex'i  var ancak nasıl kullanılacağını bulamadım. Bunun için bir örnek verebilirmisiniz..

Şimdiden teşekkür ederim.

]]> http://www.fox4um.com/user/12/ 2009-12-10T15:07:49Z http://www.fox4um.com/topic/148/scanner-activexi/new/posts/ <![CDATA[Fox Charts 'ın en son sürümü.]]> http://vfpx.codeplex.com/Release/Projec … seId=18515

grafik rapor kullanmak isteyenlere tavsiye ederim.

]]> http://www.fox4um.com/user/30/ 2009-06-18T14:40:36Z http://www.fox4um.com/topic/1260/fox-charts-in-en-son-surumu/new/posts/ <![CDATA[FORM'a yada Proje'ye referans ekleme !]]> Herkese Merhaba,

Benim sorum hem VB hemde VFP bilen arkadaslari ilgilendiriyor. VB icersinde herhangi bir Active-X objesini kullanmadan once Tools/References menusunden bu ACTIVE-X objesini projeye dahil etmek gerekiyor.

VFP'da boyle bir yontem olup olmadigini bilen var mi acaba ?

Benim bildigim kadariyla VFP9'da SET OLEOBJECT ON seklinde komut araciligi ile VFP registry icersinde obje refereanslarini arama isini gerceklestiriyor.

KAYA,Tolga

]]> http://www.fox4um.com/user/110/ 2008-12-17T17:46:52Z http://www.fox4um.com/topic/158/forma-yada-projeye-referans-ekleme/new/posts/ <![CDATA[Scannerdan VFP içinden resim taramak, ama....]]> Arkadaşlar selam.

Eztw32 activexiyle tarayıcıdan resmi tarayıp veritabanına atan bir programım var. Fakat bu activexin fonksiyonlarını pek iyi bilmiyorum.

TWAIN_AcquireNative ile tarayıcıdan resmi alıp , TWAIN_WriteNativeToFilename ile diske kaydediyorum.

Fakat her defasında sadece bir resim resim taratıp , diğer resmi tarayıcıya koyup, vfp içinden yeniden tara komutu göndermek zorundayım.

Oysa tarayıcı aynı anda arka arkaya birden fazla resmi tarama özelliğine sahip .

VFP içinden tek bir tara komutuyla birden fazla resmi  veritabanına yazdırabileciğim bir fonksiyonu var mı bu dll ' in ?

Birde her tarama işleminde TWAIN_AcquireNative fonksiyon tarayıcının arayüzünü getiriyor. Bunun görünmesini englleyebileceğimiz bir parametresini biliyor musunuz?   

Tecrübenizi paylaşırsanız sevinirim. Teşekkürler.

]]> http://www.fox4um.com/user/184/ 2008-11-21T08:47:20Z http://www.fox4um.com/topic/1176/scannerdan-vfp-icinden-resim-taramak-ama/new/posts/ <![CDATA[Sorgu sonucunu treeview ta gosterme]]> asagida final sorgusu olan cursorume ait data ornegi var bunu treeview olarak gostermek istiyorum,
+ ckodu-cadi
   + kod
         - detaylar
+ ckodu-cadi
   + kod
         - detaylar

seklinde olacak + tiklayinca alt satirda o koda ait cursor satirlari olacak
PS : ikinci asama olarak kod alanina ait gruplamada yapilabilir se daha detayli olur

boyle bir seyi nasil yapabilirim ?

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

CreateCursor__CRSUNION()

 

 

 Procedure CreateCursor__CRSUNION

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "A-015","DETAY ELK.- OKTAY DURGUT- VİZE",01.01.2008,1,"114","AÇILIŞ FİŞİ (BORÇ)","","","","",0.00,0.0000,2723.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,0.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.01.2008,10055,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0152","TTR 3x1,5 KABLO",100.00,0.0000,93.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,93.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.01.2008,10055,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","S-0302","KÖHLER MONOFAZE DİJ. SAYAÇ",10.00,28.0000,289.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,289.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",18.01.2008,312,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","D-0035","NA-DE DAİRE DİAFON ŞUBESİ 050010",8.00,8.0000,66.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,66.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",18.01.2008,312,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","D-0036","NA-DE KAPICISIZ DİAFON SANTRALİ 050020",1.00,48.0000,48.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,48.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",18.01.2008,312,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0052","-NYY 3x35/16 KABLO",40.00,17.0000,691.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,691.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",18.01.2008,312,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-0219","NA-DE 8 Lİ FOTOSELLİ HOP. ZİL PANOSU",1.00,40.0000,40.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,40.0000

"A-020","XX",14.02.2008,10248,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0069","2x0,75 YASSI KORDON KABLO",200.00,0.0000,40.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,40.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.02.2008,10322,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","D-0205","TİJ DUY",100.00,0.0000,36.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,36.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.02.2008,10322,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","O-0083","SİEMENS 1P B 10A W OTOMAT",12.00,3.0000,39.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,39.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.02.2008,10322,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","O-0084","SİEMENS 1P B 16A W OTOMAT",12.00,3.0000,39.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,39.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.02.2008,10322,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","R-0132","SAYPORT 2P 40/30 A HK RÖLESİ",8.00,16.0000,133.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,133.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.02.2008,10322,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","S-0992","360º (10330) SENSÖRMATİK",10.00,24.0000,240.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,240.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",13.03.2008,10400,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","F-0015","Vİ-KO TOPRAKLI ERKEK FİŞ",50.00,1.0000,53.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,53.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",13.03.2008,10400,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-1400","LEYLAK 3 LÜ TOPR. KLEMENSLİ PRİZ",25.00,2.0000,57.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,57.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",19.04.2008,10644,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0138","NYY 3x50/25 KABLO",30.00,26.0000,799.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,799.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",19.04.2008,10644,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","L-0100","GALVANİZ LEVHASI",1.00,29.0000,29.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,29.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",24.04.2008,10683,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0152","TTR 3x1,5 KABLO",100.00,1.0000,103.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,103.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",24.04.2008,10683,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-0258","ÇP 416 PANO",1.00,352.0000,352.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,352.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","F-0015","Vİ-KO TOPRAKLI ERKEK FİŞ",50.00,0.0000,45.0000,0.00,0.00,0.00,0.0000,18.0,8.0000,0.00,0.0000,53.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0069","2x0,75 YASSI KORDON KABLO",200.00,0.0000,36.0000,0.00,0.00,0.00,0.0000,18.0,6.0000,0.00,0.0000,42.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0138","NYY 3x50/25 KABLO",20.00,23.0000,468.0000,0.00,0.00,0.00,0.0000,18.0,84.0000,0.00,0.0000,552.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0152","TTR 3x1,5 KABLO",200.00,0.0000,170.0000,0.00,0.00,0.00,0.0000,18.0,30.0000,0.00,0.0000,200.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","P-1400","LEYLAK 3 LÜ TOPR. KLEMENSLİ PRİZ",25.00,1.0000,49.0000,0.00,0.00,0.00,0.0000,18.0,8.0000,0.00,0.0000,58.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","R-0132","SAYPORT 2P 40/30 A HK RÖLESİ",8.00,14.0000,113.0000,0.00,0.00,0.00,0.0000,18.0,20.0000,0.00,0.0000,134.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","S-0302","KÖHLER MONOFAZE DİJ. SAYAÇ",10.00,24.0000,245.0000,0.00,0.00,0.00,0.0000,18.0,44.0000,0.00,0.0000,289.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",10.05.2008,3794,"046","TOPTAN SATIS FATURASI**","99","RDEPO","S-0992","360º (10330) SENSÖRMATİK",5.00,20.0000,101.0000,0.00,0.00,0.00,0.0000,18.0,18.0000,0.00,0.0000,120.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K--301","\NYA 2,5 KABLO",3000.00,0.0000,1020.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,1020.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0001","-NYA 1,5 KABLO",2500.00,0.0000,525.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,525.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0005","-NYA 10 KABLO",300.00,1.0000,405.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,405.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0066","DT 8 DİAFON KABLO",100.00,0.0000,53.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,53.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0346","EKO 12 Lİ W OT.KUTUSU S.A WK 0537,ÇET-SAN",12.00,4.0000,53.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,53.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0617","ÇET-SAN 2 Lİ KRONE MODÜL KUTUSU",1.00,4.0000,4.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,4.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","S-0303","3x10(60)A TRİF. ELEKT. SAYAÇ",1.00,56.0000,56.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,56.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.06.2008,4056,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","Z-0205","1x40A B 3kA OTOMAT Vİ-KO",12.00,2.0000,30.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,30.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,4700,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0103","NYA 6 KABLO",300.00,0.0000,213.0000,0.00,0.00,0.00,0.0000,18.0,38.0000,0.00,0.0000,251.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,4700,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0104","NYA 10 KABLO",200.00,1.0000,252.0000,0.00,0.00,0.00,0.0000,18.0,45.0000,0.00,0.0000,297.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,4700,"046","TOPTAN SATIS FATURASI**","99","RDEPO","K-0148","TTR 2x1,5 KABLO",100.00,0.0000,62.0000,0.00,0.00,0.00,0.0000,18.0,11.0000,0.00,0.0000,73.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,4700,"046","TOPTAN SATIS FATURASI**","99","RDEPO","S-0302","KÖHLER MONOFAZE DİJ. SAYAÇ",5.00,24.0000,121.0000,0.00,0.00,0.00,0.0000,18.0,21.0000,0.00,0.0000,143.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","I-0006","İZOLE BANT",10.00,0.0000,2.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,2.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0103","NYA 6 KABLO",300.00,0.0000,252.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,252.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0104","NYA 10 KABLO",200.00,1.0000,298.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,298.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0148","TTR 2x1,5 KABLO",100.00,0.0000,73.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,73.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-1056","ÇET-SAN 3 NO SIRA KLEMENS",50.00,1.0000,50.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,50.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",03.07.2008,11142,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","S-0302","KÖHLER MONOFAZE DİJ. SAYAÇ",5.00,28.0000,143.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,143.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","F-0015","Vİ-KO TOPRAKLI ERKEK FİŞ",50.00,1.0000,53.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,53.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","F-0071","EL-Bİ DELTA-GOLYAD ÜÇLÜ TOPR. FİŞ PRİZ",20.00,2.0000,52.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,52.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","I-0006","İZOLE BANT",50.00,0.0000,15.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,15.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K--337","\TTR 2X1,5 KABLO",100.00,0.0000,67.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,67.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0069","2x0,75 YASSI KORDON KABLO",200.00,0.0000,40.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,40.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0152","TTR 3x1,5 KABLO",100.00,0.0000,94.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,94.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-0163","RG 6 U4 TV KABLO",100.00,0.0000,35.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,35.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-1416","LEYLAK 5 Lİ TOPR. KLE. PRİZ",10.00,3.0000,33.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,33.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-1424","LEYLAK 6 LI TOPR. KLEMENSLİ PRİZ",10.00,3.0000,39.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,39.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",14.08.2008,11402,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","P-1428","LEYLAK 6 LI ANAH. TOPR. KLE. PRİZ",5.00,6.0000,30.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,30.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.08.2008,11492,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","Z-0201","1x16A B 3kA OTOMAT Vİ-KO",24.00,2.0000,57.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,57.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.08.2008,11492,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","Z-0202","1x20A B 3kA OTOMAT Vİ-KO",24.00,2.0000,57.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,57.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",28.08.2008,11511,"009","SATIŞ İADE FATURASI-TOPTAN","03","UĞUR","K-0069","2x0,75 YASSI KORDON KABLO",200.00,0.0000,40.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,40.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,6638,"046","TOPTAN SATIS FATURASI**","99","RDEPO","A-0237","SAYPORT 36 W FLORESAN",25.00,1.0000,27.0000,0.00,0.00,0.00,0.0000,18.0,4.0000,0.00,0.0000,32.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,6638,"046","TOPTAN SATIS FATURASI**","99","RDEPO","R-0132","SAYPORT 2P 40/30 A HK RÖLESİ",5.00,16.0000,81.0000,0.00,0.00,0.00,0.0000,18.0,14.0000,0.00,0.0000,95.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,6638,"046","TOPTAN SATIS FATURASI**","99","RDEPO","Z-0201","1x16A B 3kA OTOMAT Vİ-KO",60.00,2.0000,121.0000,0.00,0.00,0.00,0.0000,18.0,21.0000,0.00,0.0000,143.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,6638,"046","TOPTAN SATIS FATURASI**","99","RDEPO","Z-0202","1x20A B 3kA OTOMAT Vİ-KO",60.00,2.0000,121.0000,0.00,0.00,0.00,0.0000,18.0,21.0000,0.00,0.0000,143.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,11596,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","A-0237","SAYPORT 36 W FLORESAN",25.00,1.0000,32.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,32.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,11596,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","R-0132","SAYPORT 2P 40/30 A HK RÖLESİ",5.00,19.0000,95.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,95.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,11596,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","Z-0201","1x16A B 3kA OTOMAT Vİ-KO",60.00,2.0000,142.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,142.0000

"A-015","DETAY ELK.- OKTAY DURGUT- VİZE",11.09.2008,11596,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","Z-0202","1x20A B 3kA OTOMAT Vİ-KO",60.00,2.0000,142.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,142.0000

"A-020","XX",18.09.2008,6841,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","K-1056","ÇET-SAN 3 NO SIRA KLEMENS",50.00,1.0000,53.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,53.0000

"A-020","XX",18.09.2008,6841,"002","SATIŞ FATURASI-TOPTAN","03","UĞUR","R-0160","ESEM 2P 40/30 A HK RÖLESİ",12.00,20.0000,249.0000,0.00,0.00,0.00,0.0000,0.00,0.0000,0.00,0.0000,249.0000

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR _CRSUNION ;

 ( ;

  CKODU C(16,0)  NOT  NULL  ;

  ,CADI C(60,0)  NOT  NULL  ;

  ,TARIH D(8,0)  NOT  NULL  ;

  ,ISLEMNO I(4,0)  NOT  NULL  ;

  ,KOD C(3,0)  NOT  NULL  ;

  ,TANIM C(50,0)  NOT  NULL  ;

  ,DEPOKODU C(10,0)  NOT  NULL  ;

  ,DEPOADI C(10,0)  NOT  NULL  ;

  ,SKODU C(16,0)  NOT  NULL  ;

  ,SADI C(50,0)  NOT  NULL  ;

  ,MIKTAR N(10,2)  NULL  ;

  ,FIYAT N(10,4)  NULL  ;

  ,TUTAR N(15,4)  NULL  ;

  ,ISKONTO N(15,2)  NULL  ;

  ,ISKONTO2 N(15,2)  NULL  ;

  ,ISKONTO3 N(15,2)  NULL  ;

  ,ISKTUTAR N(15,4)  NULL  ;

  ,KDV N(4,2)  NULL  ;

  ,KDVTUT N(15,4)  NULL  ;

  ,OTV N(4,2)  NULL  ;

  ,OTVTUT N(15,4)  NULL  ;

  ,GTOPLAM N(15,4)  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 endproc
]]> http://www.fox4um.com/user/4/ 2008-11-18T14:54:57Z http://www.fox4um.com/topic/1173/sorgu-sonucunu-treeview-ta-gosterme/new/posts/ <![CDATA[Regsvr32]]> Arkadaşlar,

eztw32.dll yi bir türlü register edemedim.

regsvr32 c:\earsiv\eztw32.dll

dediğimde

önce , yüklendi fakat server bağlantı noktası bulunamadı diye bir uyarı verdi..
sonraki denemelerimde  de bu dosya kaydettirilemez diye bir uyarı vermeye başladı.

Bu arada dll bozuktur diye bir çok yerden indirdim ama sonuç aynı. Bu arada forumda bulduğum bir linkten de indirmeye çalıştım fakat olmadı.

Konuyla ilgili tecrübesi olanlar bilgilerini paylaşırlarsa çok sevinirim.

Şimdiden teşekkürler.

]]> http://www.fox4um.com/user/184/ 2008-11-17T10:51:20Z http://www.fox4um.com/topic/1171/regsvr32/new/posts/ <![CDATA[ETHERNET PORTUNU NASIL KULLANABİLİRİM.]]> MSCOMM32 İLE SERİ PORTTAN PLC VEYA MODBUS KULLANAN BAŞKA BİR CİHAZLA HABERLEŞEBİLİYORUZ.
ETHERNET E FOX PRODAN NASIL ERİŞEBİLİRİM BUNUN İÇİN HANGİ ACTİVX İ KULLNAMMAM GEREKİYOR.

TEŞEKÜR EDERİM.  ERSIN DIRIN

]]> http://www.fox4um.com/user/639/ 2008-10-04T09:19:51Z http://www.fox4um.com/topic/1138/ethernet-portunu-nasil-kullanabilirim/new/posts/ <![CDATA[medyaplayerı forma entegre etme]]> hasta.vcdyol altında videoların bulunduğu dizinleri saklıyorum.

yaptığım forma medyaplayer activex i koydum ama bir türlü o an üstünde olduğum hasta.vcdyol adresindeki vcd yi oynatamadım.

solusyonda benzer örnek var ama o form içinde açılmıyor

bu işi nasıl hallederim

]]> http://www.fox4um.com/user/117/ 2008-07-31T21:13:08Z http://www.fox4um.com/topic/1064/medyaplayeri-forma-entegre-etme/new/posts/ <![CDATA[usb portu kontrol etmek]]> usb porttaki bir kameranın butonuna basılıp basılmadığını anlamam gerekiyor bunun için mscomm32.ocx  kullanmak gerekir diye düşünüyorum.
fakat bu usb ürünün com1 com 2 gibi bir bağlantı noktası vista ve xp de görünmüyor
bu sorunu nasıl çözerim  ocomm.comport=1 gibi bir değer yazmam lazım ama bulamadım
usb için hangi değeri girmek gerekir bilen varmı?

teşekkürler

]]> http://www.fox4um.com/user/16/ 2008-07-19T09:29:21Z http://www.fox4um.com/topic/1051/usb-portu-kontrol-etmek/new/posts/ <![CDATA[Yeni kod yeni sans:)]]> Saga sola bazen ise yarar bir kod postaladigimda eger unutmazsam buraya da yapitiriyorum. Aciklama yok. Calistirinca ne yaptigi belli zaten (Genelde VFP9 icin, cok az degisiklikle her versiyonda calisacak seyler).

Formda grafik:

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

*#INCLUDE "mschrt20.h"

#Define VtChChartType3dBar                                0

#Define VtChChartType2dBar                                1

 

#Define VtChLabelComponentValue 1   && The value of the data point appears in the label.

#Define VtChLabelComponentPercent   2   && The value of the data point is displayed in the label as a percentage of the total value of the series.

 

#Define VtOrientationHorizontal 0   && Horizontal text

#Define VtOrientationVertical   1   && Vertical text

#Define VtOrientationUp 2   && Up oriented text

#Define VtOrientationDown   3   && Down oriented text

 

#Define VtChLabelLocationTypeNone   0   && Label Location - None

#Define VtChLabelLocationTypeAbovePoint 1   && Label Location - AbovePoint

#Define VtChLabelLocationTypeBelowPoint 2   && Label Location - BelowPoint

#Define VtChLabelLocationTypeCenter 3   && Label Location - Center

#Define VtChLabelLocationTypeBase   4   && Label Location - Base

#Define VtChLabelLocationTypeInside 5   && Label Location - Inside pie or doughnut

#Define VtChLabelLocationTypeOutside    6   && Label Location - Outside pie or doughnut

#Define VtChLabelLocationTypeLeft   7   && Label Location - Left

#Define VtChLabelLocationTypeRight  8   && Label Location - Right

 

Public loCharter

loCharter = Createobject('myCharter')

loCharter.Show

 

Define Class myCharter As Form

  DataSession = 2

  Height = 600

  Width = 800

  Add Object myGrid As Grid With ;

    left=10,Top=10,Height=580,Width=400

  Add Object Chart As OleControl With ;

    left=430,Top=10,Height=580,Width=360, ;

    OleClass="MSChart20Lib.MSChart.2"

 

  Procedure Load

    Use (_samples+'data\Customer')

  Endproc

 

  Procedure Init

    Bindevent(This.myGrid.Columns(1).Text1,'Click',This,'UpdateChart')

    This.UpdateChart()

  Endproc

 

  Procedure UpdateChart

    Select ;

      emp.First_Name - (' '+emp.Last_Name) As employee,;

      sum(order_net) As totalSale ;

      FROM (_samples+'data\orders') ord ;

      INNER Join (_samples+'data\employee') emp On emp.emp_id = ord.emp_id ;

      WHERE ord.cust_id == customer.cust_id ;

      GROUP By 1 ;

      ORDER By 1 ;

      INTO Cursor crsChartData

 

    With Thisform.Chart

      .ChartType = VtChChartType2dBar

      rowLabelCount = 1

      rowCount = Reccount()

      columnLabelCount = 0

      ColumnCount = 1

      .DataGrid.SetSize(m.rowLabelCount, m.columnLabelCount, ;

        m.rowCount, m.ColumnCount )

      .Column = 1

      Scan

        .Row = Recno()

        .Data = totalSale

        .DataGrid.RowLabel(Recno(),1) = employee

      Endscan

 

      For Each serX In .Plot.SeriesCollection

        With serX.Datapoints.Item(-1).DatapointLabel

          .Component = VtChLabelComponentValue  && Show value

          .LocationType = VtChLabelLocationTypeAbovePoint && Above

          .ValueFormat = '$#,##0.00'

        Endwith

      Endfor

    Endwith

  Endproc

Enddefine
]]> http://www.fox4um.com/user/11/ 2008-03-25T10:43:30Z http://www.fox4um.com/topic/905/yeni-kod-yeni-sans/new/posts/