1 Konuyu açan erdalyalcin Son düzenleyen, erdalyalcin (04.12.2007 18:30:49)

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Konu: iki sorguyu nasıl birlerşitiririm ?

**--- talep listesi ---**
Select talmas.cfisno,talmas.dfistar,talmas.cfukod,talmas.ckod As crkod,talmas.cozkod1,;
    talmas.cozkod2,talmas.cguid As cmasguid,talhar.ckod As ckarkod,;
    talhar.cguid As charguid,fuar.cfuad,kartela.ckal,kartela.cad As ckarad, ;
    kartela.ckomp,crkrt.cad As crad ;
    from talmas ;
    inner Join talhar On talmas.cguid=talhar.cmasguid ;
    inner Join fuar On Alltrim(talmas.cfukod)==Alltrim(fuar.cfukod) ;
    inner Join crkrt On Alltrim(talmas.ckod)==Alltrim(crkrt.ckod) ;
    inner Join kartela On Alltrim(talhar.ckod)==Alltrim(kartela.ckod) ;
    where !Empty(talhar.ckod) Into Cursor talep

**--- gönderim listesi ---**
Select gonmas.cfisno,gonmas.dfistar,gonmas.ckod As crkod,gonmas.cozkod1,;
    gonmas.cozkod2,gonmas.cguid As cmasguid,gonhar.ckod As ckarkod,;
    gonhar.cguid As charguid,kartela.ckal,kartela.cad As ckarad, ;
    kartela.ckomp,crkrt.cad As crad ;
    from gonmas ;
    inner Join gonhar On gonmas.cguid=gonhar.cmasguid ;
    inner Join crkrt On Alltrim(gonmas.ckod)==Alltrim(crkrt.ckod) ;
    inner Join kartela On Alltrim(gonhar.ckod)==Alltrim(kartela.ckod) ;
    Where !Empty(gonhar.ckod) Into Cursor gonderim

talep sorgusu talep listesini oluşturuyor
gönderim sorgusuda gönderim listesini oluşturuyor.
bu iki sorgu tek sorguyla almak istiyorum
bağlantı  talmas.ckod+talhar.ckod = gonmas.ckod+gonhar.ckod
masterlardaki ckod müşteri kodu
childlardaki ckod kartela kodunu temsil ediyor isim benzerliği var

tek sorguda birleştirdiğimde ikinci sorgunun yalnızca gonmas.cfisno gonmas.dfistar field ları lazım
left join olması lazım. yani gonderim yoksada talep formu gelecek
nasıl yaparım?

kayıt desenini biraz sadeleştireyim

talmas tm
cfisno dfistar ckod(müşteri) cguid
talhar th
ckod(kartela) cmasguid

gonmas gm
cfisno dfistar ckod(müşteri) cguid
gonhar gh
ckod(kartela) cmasguid

tm.cfisno tm.dfistar tmckod th.ckod gm.cfisno gm.dfistar

biraz karışık oldu gibi ama nasıl daha sade anlatılır bulamadım

erdalyalcin's Website

2 Cevaplayan ugurlu2001

  • ugurlu2001
  • ugurlu2001
  • Uzman Üye
  • Offline
  • Yer: Istanbul
  • Kayıt Tarihi: 11.10.2006
  • İleti: 1,642

Re: iki sorguyu nasıl birlerşitiririm ?

Merhaba Erdal Bey;

Anlatmak istediğinizi biraz Data vererek anlatabilirmisiniz. Sorunuzu tam anlayamadım. Ayrıca zaten 2 tane cursor oluşturmuşsunuz. Ek bir sorgu ile bu iki sorgudan yeni bir sonuç elde etseniz olmuyormu? Birde SQL - UNIOUN kullansanız?

Uğur
-------------------------------------------------------------------------------------------------------------
Hayat bir bisiklete binmek gibidir. Pedalı çevirmeye devam ettiğiniz sürece düşmezsiniz. Claude Peppeer
Kusuru söylenmeyen adam, ayıbını hüner sanır.  Türk Atasözü

3 Cevaplayan cetinbasoz

  • cetinbasoz
  • cetinbasoz
  • Uzman Üye
  • Offline
  • Kayıt Tarihi: 07.10.2006
  • İleti: 3,162

Re: iki sorguyu nasıl birlerşitiririm ?

Erdal,
Benden de ayni rica. Sadece o nedenle bakmadan pas gectim. Boyle uzun kod icinde elinde data olmadan anlamak zor. Simdi Genel bolumune data gondermeni saglayacak bir kod ekledim.

cetinbasoz's Website

4 Cevaplayan erdalyalcin

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Re: iki sorguyu nasıl birlerşitiririm ?

tşk Uğur Bey;
aslında şu an işimi öyle gördüm. 3. cursor ile hallettim. ama 1 sorguyla bu işin hallolması lazım.
beceremedim.böyle ihtiyaçlarım çok olacak . UNIOUN iki sorguyu birleştiri. insert into gibi yapar.
bir talep listem var. birde bu taleplerle ilgili gönderi bilgilerim var. istediğim talep listem ve gönderilmişse aynı satırda gönderme tarihi ve fiş numarası. talebin gönderimi olmamışsa gönderim tarih ve fiş nosu boş çıkacak.
datayı bu akşam atıcam.

erdalyalcin's Website

5 Cevaplayan erdalyalcin

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Re: iki sorguyu nasıl birlerşitiririm ?

hocam datayı aşkam atabilecem.bu akşam datayı mutlaka atıyorum.

erdalyalcin's Website

6 Cevaplayan erdalyalcin Son düzenleyen, erdalyalcin (05.12.2007 20:14:18)

  • erdalyalcin
  • erdalyalcin
  • Uzman Üye
  • Offline
  • Yer: İstanbul
  • Kayıt Tarihi: 09.10.2006
  • İleti: 230

Re: iki sorguyu nasıl birlerşitiririm ?

çetin hocanın müthiş kodunun örnek cursor oluşturan kodun kodu ;
ne cümle ama
örnek dataları oluşturan kod

Visual Fox Pro
CreateCursor_crkrt1()

CreateCursor_fuar2()

CreateCursor_gonhar3()

CreateCursor_gonmas4()

CreateCursor_kartela5()

CreateCursor_talhar6()

CreateCursor_talmas7()

 

 

 Procedure CreateCursor_crkrt1

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "01","A MÜŞTERİSİ","MUSTAFA","",23.06.2007 01:24:28,"1",12.11.2007 01:20:15,"",.  .       :  :,1,"","","DFSASD","SAD","","","","","","","","A","B","C","O","SAD","ASD","","","AD","1"

"02","B MÜŞTERİSİ","AHMET","1",23.06.2007 15:27:54,"1",23.06.2007 00:00:00,"",.  .       :  :,2,"SS","S","S","S","S","S","SSSS","","","","","1","2","3","OZ1","S","S","1","","","2"

"03","C MÜŞTERİSİ","SALİH","1",24.06.2007 17:42:51,"1",17.11.2007 18:01:02,"",.  .       :  :,3,"","","","","","","","","","","","G1","G2","G3","G4","","","","","","3"

"04","D MÜŞTERİSİ","KEMAL","1",24.06.2007 18:22:30,"1",24.06.2007 18:22:35,"",.  .       :  :,4,"","","","","","","","","","","","","","","","","","","","","4"

"05","E MÜŞTERİSİ","","1",24.06.2007 18:24:00,"1",12.11.2007 04:05:32,"",.  .       :  :,5,"","","","","","","","","","","","A","B","Q","Q","","","","Q","","5"

"06","F MÜŞTERİSİ","","1",18.11.2007 12:44:13,"1",18.11.2007 12:44:28,"",.  .       :  :,6,"","","","","","","","","","","","F","F","F","F","","","","","","3732136CDF674A8ABE00C405B6FD0612"

"07","G MÜŞTERİSİ","","1",18.11.2007 12:52:15,"1",18.11.2007 12:52:26,"",.  .       :  :,7,"","","","","","","","","","","","07","07","07","07","","","","","","703221AD2D024A63BC5911EA5DDF496F"

"08","H MÜŞTERİSİ","","1",18.11.2007 12:55:20,"1",18.11.2007 21:18:25,"",.  .       :  :,8,"","","","","","","","","","","","08","08","08","08","","","","","","B3D71616340A466FB53BFB4AB821F75C"

"09","J MÜŞTERİSİ","","1",19.11.2007 23:07:25,"1",04.12.2007 10:01:41,"",.  .       :  :,24,"","","","","","","","","","","","10","10","10","10","","","","","","39B5AD8247E04111B8E28D7996D48E4B"

"10","L MÜŞTERİSİ","","1",19.11.2007 23:09:19,"1",19.11.2007 23:09:27,"",.  .       :  :,25,"","","","","","","","","","","","11","","11","11","","","","","","36016985D4D943FE929F2FBFDA5459F8"

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR crkrt1 ;

 ( ;

  CKOD C(10,0)  NOT  NULL  ;

  ,CAD C(40,0)  NOT  NULL  ;

  ,CYETKILI C(40,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CADR1 C(40,0)  NOT  NULL  ;

  ,CADR2 C(40,0)  NOT  NULL  ;

  ,CILCE C(20,0)  NOT  NULL  ;

  ,CIL C(20,0)  NOT  NULL  ;

  ,CPKOD C(10,0)  NOT  NULL  ;

  ,CMAIL C(40,0)  NOT  NULL  ;

  ,CTEL1 C(20,0)  NOT  NULL  ;

  ,CTEL2 C(20,0)  NOT  NULL  ;

  ,CTEL3 C(20,0)  NOT  NULL  ;

  ,CFAX C(20,0)  NOT  NULL  ;

  ,CCEP C(20,0)  NOT  NULL  ;

  ,MNOT M(4,0)  NOT  NULL  ;

  ,CGRP1 C(5,0)  NOT  NULL  ;

  ,CGRP2 C(5,0)  NOT  NULL  ;

  ,CGRP3 C(5,0)  NOT  NULL  ;

  ,COZKOD C(10,0)  NOT  NULL  ;

  ,CVDAD C(15,0)  NOT  NULL  ;

  ,CVDNO C(15,0)  NOT  NULL  ;

  ,CAD1 C(40,0)  NOT  NULL  ;

  ,CULKE C(20,0)  NOT  NULL  ;

  ,CWEB C(40,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_fuar2

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "F001","CİENAR","İSTANBUL/BEYLİKDÜZÜ",25.01.2007,17.11.2007,"A","A","A","A",1,"1",17.11.2007 10:45:52,"1",04.12.2007 10:02:55,"",.  .       :  :,"E6CA837501244834995183A48DD3E0D0"

"F002","KUMAŞ FUARI","BURSA",23.01.2007,24.01.2007,"","","","",2,"1",17.11.2007 15:05:04,"1",17.11.2007 15:05:38,"",.  .       :  :,"5662506C0D324206AFEC81F147054D87"

"F003","TEXWORD 07-02","",.  .,.  .,"","","","",4,"1",29.11.2007 12:13:50,"1",29.11.2007 12:14:28,"",.  .       :  :,"29EED991D3984CEAAA97B53D87C835BF"

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR fuar2 ;

 ( ;

  CFUKOD C(10,0)  NOT  NULL  ;

  ,CFUAD C(40,0)  NOT  NULL  ;

  ,CFUYER C(20,0)  NOT  NULL  ;

  ,DBASTAR D(8,0)  NOT  NULL  ;

  ,DBITTAR D(8,0)  NOT  NULL  ;

  ,CGRP1 C(5,0)  NOT  NULL  ;

  ,CGRP2 C(5,0)  NOT  NULL  ;

  ,CGRP3 C(5,0)  NOT  NULL  ;

  ,COZKOD C(10,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_gonhar3

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "07002326",-7,"44144B65418B414DAFCCC2B52ED88B1D","0A9CFFFFC8884708A52E34DDFD3A4FFB","1",03.12.2007 20:34:39,"1",05.12.2007 19:04:05,"",.  .       :  :

"07002325",-1,"3A2B683FE5BD410B8104FB1B7660A5C2","0A9CFFFFC8884708A52E34DDFD3A4FFB","1",03.12.2007 22:55:18,"1",05.12.2007 19:04:05,"",.  .       :  :

"07002323",-2,"CFF4253F3E1B48DCB77E8FCAED79B727","0859F3B9D3C54E659AD3F5E2EF21B845","1",03.12.2007 22:55:47,"1",05.12.2007 19:04:27,"",.  .       :  :

"07002322",-3,"E3380396A64049FB8430FA6F3B45048D","0859F3B9D3C54E659AD3F5E2EF21B845","1",03.12.2007 22:55:53,"1",05.12.2007 19:04:27,"",.  .       :  :

"07002321",-4,"69BA778B4BFC4A4F96072FDD2893A36F","0859F3B9D3C54E659AD3F5E2EF21B845","1",03.12.2007 22:56:03,"1",05.12.2007 19:04:27,"",.  .       :  :

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR gonhar3 ;

 ( ;

  CKOD C(15,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  ,CMASGUID C(32,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_gonmas4

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "00001",03.12.2007,"06","","",1,"0A9CFFFFC8884708A52E34DDFD3A4FFB","1",03.12.2007 15:45:49,"1",05.12.2007 19:04:05,"",.  .       :  :,

"00002",03.12.2007,"10","","",2,"0859F3B9D3C54E659AD3F5E2EF21B845","1",03.12.2007 22:55:30,"1",05.12.2007 19:04:27,"",.  .       :  :,

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR gonmas4 ;

 ( ;

  CFISNO C(10,0)  NOT  NULL  ;

  ,DFISTAR D(8,0)  NOT  NULL  ;

  ,CKOD C(10,0)  NOT  NULL  ;

  ,COZKOD1 C(10,0)  NOT  NULL  ;

  ,COZKOD2 C(10,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  ,MNOT M(4,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_kartela5

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "07002317","F,673","","","","","07002317","A","A","A","A",2317,"3CF8E53612EB46EABED1A0E293C38E8F","system",30.11.2007 07:05:20,"1",04.12.2007 09:53:22,"",.  .       :  :,"","","","",""

"07002318","F,674","70/72 poly 35/24","% 76 (70/72) POLY % 24 (35/24) POLY","105","115","07002318","","","","",2318,"535BE7A250C14AC29950E124E93354C1","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002319","F,675","RAŞEL ÖRME","% 100 POLYESTER","145","145","07002319","","","","",2319,"9823079BE4B04D9FB2E9E9E2DC090CE8","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002320","F,676","POLYESTER FIRFIRLI DANTEL(filetül)","","","","07002320","","","","",2320,"8109DBE03B0443EEBE5342E59ACC9D3D","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002321","F,677","GÜL DANTEL","05/06/06 - alış 10,50$","145","90","07002321","","","","",2321,"C4E49541CA2047D9A47D9806121240FD","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002322","F,678","ÇİZGİLİ DANTEL","05/06/06 - alış 11,50$","135","100","07002322","","","","",2322,"982AC742B1FB4EDABC6BD7E132B16786","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002323","F,679","FİESTA","05/06/06 - alış 11$","150","140","07002323","","","","",2323,"24B5DAB8517A4F80B8195DD85A63CB83","system",30.11.2007 07:05:20,"1",05.12.2007 09:20:07,"",.  .       :  :,"","Y22.JPG","","",""

"07002324","F,680","COTONET 1","05/06/06 - alış 11,5$","140","105","07002324","","","","",2324,"6C482028DE9349D2AA076EE640B31BA4","system",30.11.2007 07:05:20,"",.  .       :  :,"",.  .       :  :,"","","","",""

"07002325","F,681","FTJ-0142","05/06/06 - alış 10$","160","90","07002325","","","","",2325,"72CACA0076B843BEABBBF0DF5F6FD9CF","system",30.11.2007 07:05:20,"1",05.12.2007 09:10:53,"",.  .       :  :,"","Y32.JPG","Y15.JPG","",""

"07002326","F 682","SOFİ 2","05/06/06 - alış 10$","160","110","07002326","","","","",2326,"B3C8CA164C754FC98D253560B871454D","system",30.11.2007 07:05:20,"1",05.12.2007 09:17:19,"",.  .       :  :,"CELIK.JPG","Y04.JPG","","Y33.JPG",""

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR kartela5 ;

 ( ;

  CKOD C(15,0)  NOT  NULL  ;

  ,CKAL C(20,0)  NOT  NULL  ;

  ,CAD C(120,0)  NOT  NULL  ;

  ,CKOMP C(130,0)  NOT  NULL  ;

  ,CEN C(15,0)  NOT  NULL  ;

  ,CGR C(10,0)  NOT  NULL  ;

  ,CBARKOD C(15,0)  NOT  NULL  ;

  ,CGRP1 C(5,0)  NOT  NULL  ;

  ,CGRP2 C(5,0)  NOT  NULL  ;

  ,CGRP3 C(5,0)  NOT  NULL  ;

  ,COZKOD C(10,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  ,MNOT M(4,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  ,CPIC C(20,0)  NOT  NULL  ;

  ,CYIK1 C(10,0)  NOT  NULL  ;

  ,CYIK2 C(10,0)  NOT  NULL  ;

  ,CYIK3 C(10,0)  NOT  NULL  ;

  ,CYIK4 C(10,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_talhar6

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "07002320",-1,"95B911B0A2794488ADAED89B0CB87AA9","44AC2AC984FB40829255A8B81ADDEF02","1",03.12.2007 12:48:49,"1",05.12.2007 19:02:15,"",.  .       :  :

"07002319",-2,"6D75140C153840EB9ADBFBEB9ABD1402","44AC2AC984FB40829255A8B81ADDEF02","1",03.12.2007 12:49:00,"1",05.12.2007 19:02:15,"",.  .       :  :

"07002318",-3,"1C19D03E80414EE5A0E79E0633952ABC","44AC2AC984FB40829255A8B81ADDEF02","1",03.12.2007 12:49:06,"1",05.12.2007 19:02:15,"",.  .       :  :

"07002326",-1,"AC705C16F1514FC78DF03EFAA88A58CB","B5325590209B4E51B87B816E0AD2E240","1",04.12.2007 09:06:15,"1",05.12.2007 19:00:30,"",.  .       :  :

"07002325",20,"E9FC888AF88C40EA906EC75D5F4D7384","B5325590209B4E51B87B816E0AD2E240","1",04.12.2007 09:06:18,"1",05.12.2007 19:00:30,"",.  .       :  :

"07002324",21,"81C496BD2FA44477A6026266C7CFE80F","B5325590209B4E51B87B816E0AD2E240","1",04.12.2007 09:06:31,"1",05.12.2007 19:00:30,"",.  .       :  :

"07002323",22,"BF7FC48BC724420485745F61E2E8905C","B5325590209B4E51B87B816E0AD2E240","1",04.12.2007 09:06:51,"1",05.12.2007 19:00:30,"",.  .       :  :

"07002322",23,"A7A6457250C74A77B37B900EB22AF0CF","0D3476DDF870435185E16E8B18453A37","1",04.12.2007 09:07:31,"1",05.12.2007 19:01:55,"",.  .       :  :

"07002321",24,"2301C5BF850E411BBCA60BDF90B502C0","0D3476DDF870435185E16E8B18453A37","1",04.12.2007 09:07:42,"1",05.12.2007 19:01:55,"",.  .       :  :

"07002325",-1,"D71CE3D2F1704B14866600AB6B39CB10","0501DF91D69B451C98EF3C7EF440B6B5","1",05.12.2007 18:02:06,"1",05.12.2007 19:03:43,"",.  .       :  :

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR talhar6 ;

 ( ;

  CKOD C(15,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  ,CMASGUID C(32,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

 

 Procedure CreateCursor_talmas7

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "00003",29.11.2007,"F001","09","A","A",3,"44AC2AC984FB40829255A8B81ADDEF02","1",29.11.2007 00:27:00,"1",05.12.2007 19:02:15,"",.  .       :  :,

"00001",04.01.2007,"F003","07","","",6,"B5325590209B4E51B87B816E0AD2E240","1",04.12.2007 09:06:04,"1",05.12.2007 19:00:30,"",.  .       :  :,

"00002",04.02.2007,"F002","10","","",7,"0D3476DDF870435185E16E8B18453A37","1",04.12.2007 09:07:21,"1",05.12.2007 19:01:55,"",.  .       :  :,

"00004",05.12.2007,"F002","02","","",8,"0501DF91D69B451C98EF3C7EF440B6B5","1",05.12.2007 18:01:32,"1",05.12.2007 19:03:43,"",.  .       :  :,

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR talmas7 ;

 ( ;

  CFISNO C(10,0)  NOT  NULL  ;

  ,DFISTAR D(8,0)  NOT  NULL  ;

  ,CFUKOD C(10,0)  NOT  NULL  ;

  ,CKOD C(10,0)  NOT  NULL  ;

  ,COZKOD1 C(10,0)  NOT  NULL  ;

  ,COZKOD2 C(10,0)  NOT  NULL  ;

  ,ILINKNO I(4,0)  NOT  NULL  ;

  ,CGUID C(32,0)  NOT  NULL  ;

  ,CINSUSER C(15,0)  NOT  NULL  ;

  ,DINSDATE T(8,0)  NOT  NULL  ;

  ,CUPUSER C(15,0)  NOT  NULL  ;

  ,DUPDATE T(8,0)  NOT  NULL  ;

  ,CDELUSER C(15,0)  NOT  NULL  ;

  ,DDELDATE T(8,0)  NOT  NULL  ;

  ,MNOT M(4,0)  NOT  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

erdalyalcin's Website