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