<![CDATA[Fox4um - ActiveX Kontrolleri]]> http://www.fox4um.com/ Wed, 25 Jan 2012 09:11:29 +0000 PunBB <![CDATA[blat.dll hk.]]> http://www.fox4um.com/topic/2100/blatdll-hk/new/posts/ Öncelikle herkese merhaba;

Yakın bir zamana kadar BLAT.DLL i rahatlıkla kullanıyordum. Bugün farkettim ki; Windows 7 ( 64 bit Türkçe ); BLAT a fena halde bozulmuş.

Dosyayı unregister edip tekrar register ettim ama nafile. Register ettiğim de BLAT.DLL dosyasının boyutu her daim "0" byte olarak güncelleniyor. Dosyayı C:\Windows\SysWOW64 klasörüne kopyaladıktan sonra register ediyorum.

Sorum şu: Sorun BLAT.DLL demi? Windows 'ta mı? Mail yollamak için alternatif bir yol mu denemeliyim? Yoksa BLAT ile yoluma devam etmek için bir yol var mı?

Cevap ve yorumlar için şimdiden teşekkür ediyorum.

Bu arada kullandığım (XP ve Vistada çalışan ) şu şekildeydi :

http://www.sweetpotatosoftware.com/SPSB … 96fb7.aspx

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

*!*    Yahoo ÇALIŞIYOR

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

*!* Example of using SendViaBLAT

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

#DEFINE PRIORITYHIGH 1

#DEFINE PRIORITYLOW 0

 

DIMENSION aryAttach(2)

aryAttach(1) = "C:\Test1.txt" && change to an actual file that exists on your computer

aryAttach(2) = "C:\Test2.txt" && change to an actual file that exists on your computer

 

LOCAL lcFrom, lcTo, lcSubject, lcBody, lcCC, lcBCC, lcMailServer, lcUserName, lcPassword, lnPort, lnPriority, llHTMLFormat, lcErrReturn

 

lcFrom = "ugurlu2001#yahoo;com"

lcTo = "ugurlu2001#hotmail;com"

lcSubject = "Deneme konusu!"

*!* Sending the body in HTML format

llHTMLFormat = .T. && change to .F. to send plain text message

lcBody = "<a href='http://www.fox4um.com'>" + ;

 "Deneme icin yollandi!" + ;

 "</a>"

lcCC = "ugurlu2001#gmail;com"

lcBCC = "ugurlu2001#yahoo;com"

lcMailServer = "smtp.mail.yahoo.com" && my SMTP Server

lnPort = 25 && or 587 or 995 default SMTP Server port

lcUserName = "ugurlu2001#yahoo;com" && my SMTP username

lcPassword = "xxxxxxxxxxxx/" && my SMTP password

lnPriority = PRIORITYHIGH

 

SendViaBLAT(@lcErrReturn, lcFrom, lcTo, lcSubject, lcBody, @aryAttach, lcCC, lcBCC, lcMailServer, lnPort, lcUserName, lcPassword, lnPriority, llHTMLFormat)

 

IF EMPTY(lcErrReturn)

 MESSAGEBOX("'" + lcSubject + "' sent successfullly.", 64, "Send email via BLAT")

ELSE

 MESSAGEBOX("'" + lcSubject + "' failed to be sent.  Reason:" + CHR(13) + lcErrReturn, 64, "Send email via BLAT")

ENDIF

 

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

PROCEDURE SendViaBLAT(tcReturn, tcFrom, tcTo, tcSubject, tcBody, taFiles, tcCC, tcBCC, tcMailServer, tnPort, tcUserName, tcPassword, tnPriority, tlHTMLFormat)

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

 LOCAL lcBlatParam, lcBodyFile, lnCountAttachments, lnResult, loError as Exception

 

 lcBodyFile = ""

 

 TRY

  *!* Include full path in Declare, such as "C:\Blat240\full\blat.dll"

  *!* or make sure that blat.dll is included in the system's PATH variable

  DECLARE INTEGER Send IN "O:\F_Kullan\Blat\blat262.full\blat262\full\blat.dll" STRING cParam

  

  lcBodyFile = ADDBS(SYS(2023)) + SYS(2015) + ".txt"

  STRTOFILE(tcBody, lcBodyFile, 0) && body is placed in a text file to be sent by BLAT

  

  lcBlatParam = GetShortPath(lcBodyFile)

  

  IF TYPE("tcTo") = "C"

    lcBlatParam = lcBlatParam + " -to " + ALLTRIM(tcTo)

  ENDIF

  IF TYPE("tcFrom") = "C"

    lcBlatParam = lcBlatParam + " -f " + ALLTRIM(tcFrom)

  ENDIF

  IF TYPE("tcCC") = "C"

    lcBlatParam = lcBlatParam + " -cc " + ALLTRIM(tcCC)

  ENDIF

  IF TYPE("tcBCC") = "C"

    lcBlatParam = lcBlatParam + " -bcc " + ALLTRIM(tcBCC)

  ENDIF

  IF TYPE("tcSubject") = "C"

    lcBlatParam = lcBlatParam + [ -s "] + ALLTRIM(tcSubject) + ["]

  ENDIF

  IF TYPE("tcMailserver") = "C"

    lcBlatParam = lcBlatParam + " -server " + ALLTRIM(tcMailserver)

  ENDIF

  IF TYPE("tnPort") = "N"

    lcBlatParam = lcBlatParam + ":" + TRANSFORM(tnPort)

  ENDIF

  IF TYPE("tcUsername") = "C"

    lcBlatParam = lcBlatParam + " -u " + ALLTRIM(tcUsername)

  ENDIF

  IF TYPE("tcPassword") = "C"

    lcBlatParam = lcBlatParam + " -pw " + ALLTRIM(tcPassword)

  ENDIF

  IF TYPE("tnPriority") = "N" AND BETWEEN(tnPriority, 0, 1)

    lcBlatParam = lcBlatParam + " -priority " + TRANSFORM(tnPriority)

  ENDIF

  IF TYPE("tlHTMLFormat") = "L" AND tlHTMLFormat

    lcBlatParam = lcBlatParam + " -html"

  ENDIF

 

  IF TYPE("taFiles", 1) = "A"

    lcBlatParam = lcBlatParam + " -attach "

   FOR lnCountAttachments = 1 TO ALEN(taFiles)

     lcBlatParam = lcBlatParam + GetShortPath(ALLTRIM(taFiles(lnCountAttachments))) + ","

   ENDFOR

   lcBlatParam = LEFT(lcBlatParam, LEN(lcBlatParam) - 1) && Remove Extra Comma

  ENDIF

 

  lnResult = Send(ALLTRIM(lcBlatParam))

  

  IF lnResult != 0

   DO CASE

    CASE lnResult = -2

     THROW "The server actively denied our connection./The mail server doesn't like the sender name. "

    CASE lnResult = -1

     THROW "Unable to open SMTP socket" OR ;

       "SMTP get line did not return 220" OR ;

       "command unable to write to socket" OR ;

       "Server does not like To: address" OR ;

       "Mail server error accepting message data."

    CASE lnResult = 1

     THROW "File name (message text) not given" OR ;

       "Bad argument given"

    CASE lnResult = 2

     THROW "File (message text) does not exist"

    CASE lnResult = 3

     THROW "Error reading the file (message text) or attached file"

    CASE lnResult = 4

     THROW "File (message text) not of type FILE_TYPE_DISK "

    CASE lnResult = 5

     THROW "Error Reading File (message text)"

    CASE lnResult = 12

     THROW "-server or -f options not specified and not found in registry"

    CASE lnResult = 13

     THROW "Error opening temporary file in temp directory"

    OTHERWISE

     THROW "Unknown Error"

   ENDCASE

  ENDIF

 

 CATCH TO loError

  tcReturn = [Error: ] + STR(loError.ERRORNO) + CHR(13) + ;

   [LineNo: ] + STR(loError.LINENO) + CHR(13) + ;

   [Message: ] + loError.MESSAGE + CHR(13) + ;

   [Procedure: ] + loError.PROCEDURE + CHR(13) + ;

   [Details: ] + loError.DETAILS + CHR(13) + ;

   [StackLevel: ] + STR(loError.STACKLEVEL) + CHR(13) + ;

   [LineContents: ] + loError.LINECONTENTS

 FINALLY

  CLEAR DLLS "Send"

  IF FILE(lcBodyFile)

   ERASE (lcBodyFile)

  ENDIF

 ENDTRY

ENDPROC

 

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

Function GetShortPath

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

 LPARAMETERS lcFileName

 LOCAL lnReturn, lcBuffer

 

 Declare Integer GetShortPathNameA In Win32API As GetShortPathName String, String, Integer

 

 lcBuffer = SPACE(255)

 lnReturn= GetShortPathName(lcFileName, @lcBuffer, 255)

 

 Clear Dlls "GetShortPathName"

 

 Return (Left(lcBuffer, lnReturn))

ENDFUNC
]]> Wed, 25 Jan 2012 09:11:29 +0000 http://www.fox4um.com/topic/2100/blatdll-hk/new/posts/ <![CDATA[activex, dll register işlemi]]> http://www.fox4um.com/topic/1976/activex-dll-register-islemi/new/posts/ Bir dosyayı regsvr32   dlldosyasi.dll      şeklinde register ediyorum.

Bu dosyanın register edilip edilmediğini nasıl anlarım ?

teşekkürler

]]> Wed, 23 Mar 2011 12:33:03 +0000 http://www.fox4um.com/topic/1976/activex-dll-register-islemi/new/posts/ <![CDATA[ShellFolderTreeView Class]]> http://www.fox4um.com/topic/1869/shellfoldertreeview-class/new/posts/ Merhaba,
Bir bilgisayardaki sadece klasörleri listeleyen (ağaç mantığı ile) ve kullanıcının onlardan birini seçmesine olanak tanıyan bir kontrole ihtiyacım vardı. VFP'nin bana bilgisayarımda var olduğunu gösterdiği ActiveX kontroller listesinde bir tane buldum. Büyük olasılıkla Microsoft'un native class'ı değil.
Adı ShellFolderTreeView Class. VFP ortamında gayet güzel çalışıyor. Ancak EXE dosyası halinde iken program mesaj bile vermeden sonlanıyor. Bunun nedeni ne olabilir.

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

]]> Thu, 16 Dec 2010 06:59:53 +0000 http://www.fox4um.com/topic/1869/shellfoldertreeview-class/new/posts/ <![CDATA[Yapılan Kopyalama İşlemiyle İlerleyen Progress Bar]]> http://www.fox4um.com/topic/1714/yapilan-kopyalama-islemiyle-ilerleyen-progress-bar/new/posts/ Bu Konu ile ilgili elinde örnek kod olan var mı?
Yardım edenlere şimdiden teşekkürler

]]> Tue, 16 Nov 2010 15:42:05 +0000 http://www.fox4um.com/topic/1714/yapilan-kopyalama-islemiyle-ilerleyen-progress-bar/new/posts/ <![CDATA[TreeView'da sağ tıklamayı yakalamak]]> http://www.fox4um.com/topic/1703/treeviewda-sag-tiklamayi-yakalamak/new/posts/ 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.

]]> Tue, 27 Jul 2010 11:10:07 +0000 http://www.fox4um.com/topic/1703/treeviewda-sag-tiklamayi-yakalamak/new/posts/ <![CDATA[Shell.Explorer.2]]> http://www.fox4um.com/topic/1647/shellexplorer2/new/posts/ 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

]]> Tue, 25 May 2010 22:36:12 +0000 http://www.fox4um.com/topic/1647/shellexplorer2/new/posts/ <![CDATA[Windows Sistem klasörleri]]> http://www.fox4um.com/topic/1514/windows-sistem-klasorleri/new/posts/ 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
]]> Fri, 29 Jan 2010 22:21:29 +0000 http://www.fox4um.com/topic/1514/windows-sistem-klasorleri/new/posts/ <![CDATA[Toolbar Resim Eklemek]]> http://www.fox4um.com/topic/1491/toolbar-resim-eklemek/new/posts/ Ö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

]]> Wed, 13 Jan 2010 14:27:08 +0000 http://www.fox4um.com/topic/1491/toolbar-resim-eklemek/new/posts/ <![CDATA[scanner activex'i]]> http://www.fox4um.com/topic/148/scanner-activexi/new/posts/ 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.

]]> Thu, 10 Dec 2009 15:07:49 +0000 http://www.fox4um.com/topic/148/scanner-activexi/new/posts/ <![CDATA[Fox Charts 'ın en son sürümü.]]> http://www.fox4um.com/topic/1260/fox-charts-in-en-son-surumu/new/posts/ http://vfpx.codeplex.com/Release/Projec … seId=18515

grafik rapor kullanmak isteyenlere tavsiye ederim.

]]> Thu, 18 Jun 2009 14:40:36 +0000 http://www.fox4um.com/topic/1260/fox-charts-in-en-son-surumu/new/posts/ <![CDATA[FORM'a yada Proje'ye referans ekleme !]]> http://www.fox4um.com/topic/158/forma-yada-projeye-referans-ekleme/new/posts/ 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

]]> Wed, 17 Dec 2008 17:46:52 +0000 http://www.fox4um.com/topic/158/forma-yada-projeye-referans-ekleme/new/posts/ <![CDATA[Scannerdan VFP içinden resim taramak, ama....]]> http://www.fox4um.com/topic/1176/scannerdan-vfp-icinden-resim-taramak-ama/new/posts/ 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.

]]> Fri, 21 Nov 2008 08:47:20 +0000 http://www.fox4um.com/topic/1176/scannerdan-vfp-icinden-resim-taramak-ama/new/posts/ <![CDATA[Sorgu sonucunu treeview ta gosterme]]> http://www.fox4um.com/topic/1173/sorgu-sonucunu-treeview-ta-gosterme/new/posts/ 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
]]> Tue, 18 Nov 2008 14:54:57 +0000 http://www.fox4um.com/topic/1173/sorgu-sonucunu-treeview-ta-gosterme/new/posts/ <![CDATA[Regsvr32]]> http://www.fox4um.com/topic/1171/regsvr32/new/posts/ 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.

]]> Mon, 17 Nov 2008 10:51:20 +0000 http://www.fox4um.com/topic/1171/regsvr32/new/posts/ <![CDATA[ETHERNET PORTUNU NASIL KULLANABİLİRİM.]]> http://www.fox4um.com/topic/1138/ethernet-portunu-nasil-kullanabilirim/new/posts/ 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

]]> Sat, 04 Oct 2008 09:19:51 +0000 http://www.fox4um.com/topic/1138/ethernet-portunu-nasil-kullanabilirim/new/posts/