CreateCursor_CURSTEM()
Procedure CreateCursor_CURSTEM
LOCAL lcData, lcTemp
lcTemp = SYS(2015)+'.tmp'
TEXT TO m.lcData noshow
5,0,01.01.2007,0,0,000000,0,0,000000,0,0,0
5,1,30.11.2007,11,11,000000,11,24,000000,2,7,21
5,2,01.12.2007,-1,-20071130,000000,10,24,000000,19,9,21
5,2,05.12.2007,-1,-20071130,000000,9,24,000000,19,9,21
5,2,07.12.2007,-1,-20071130,000000,8,24,000000,19,9,21
5,2,09.12.2007,-1,-20071130,000000,7,24,000000,19,9,21
5,2,11.12.2007,-1,-20071130,000000,6,24,000000,19,9,21
5,1,12.12.2007,10,10,000000,16,24,000000,2,7,21
5,2,13.12.2007,-1,-20071130,000000,15,24,000000,19,9,21
5,2,15.12.2007,-1,-20071130,000000,14,24,000000,19,9,21
5,2,17.12.2007,-1,-20071130,000000,13,24,000000,19,9,21
5,2,22.12.2007,-1,-20071130,000000,12,24,000000,19,9,21
5,2,23.12.2007,-1,-20071130,000000,11,24,000000,19,6,21
5,2,25.12.2007,-1,-20071130,000000,10,24,000000,19,9,21
5,2,27.12.2007,-2,-20071212,000000,8,48,000000,19,9,21
5,2,29.12.2007,-1,-20071212,000000,7,24,000000,19,9,21
5,2,29.12.2007,-1,-20071212,000000,6,24,000000,19,6,21
5,0,01.01.2008,0,0,000000,6,0,000000,0,0,0
5,1,04.01.2008,5,5,000000,11,24,000000,2,7,21
5,2,04.01.2008,-1,-20080104,000000,10,24,000000,19,6,21
5,2,04.01.2008,-1,-20080104,000000,9,24,000000,19,9,21
5,2,08.01.2008,-1,-20080104,000000,8,24,000000,19,9,21
5,2,10.01.2008,-1,-20080104,000000,7,24,000000,19,9,21
5,2,12.01.2008,-1,-20080104,000000,6,24,000000,19,9,21
5,2,14.01.2008,-1,0,000000,5,24,000000,19,9,21
5,2,14.01.2008,-1,0,000000,4,24,000000,19,6,21
5,1,15.01.2008,10,10,000000,14,24,000000,2,7,21
5,2,16.01.2008,-1,-20080115,000000,13,24,000000,19,9,21
5,2,18.01.2008,-2,-20080115,000000,11,48,000000,19,9,21
5,2,22.01.2008,-1,-20080115,000000,10,24,000000,19,9,21
5,2,22.01.2008,-1,-20080115,000000,9,24,000000,19,6,21
5,2,24.01.2008,-1,-20080115,000000,8,24,000000,19,9,21
5,2,28.01.2008,-1,-20080115,000000,7,24,000000,19,6,21
5,2,03.02.2008,-1,-20080115,000000,6,24,000000,19,9,21
5,2,07.02.2008,-1,-20080115,000000,5,24,000000,19,6,21
5,2,09.02.2008,-1,-20080115,000000,4,24,000000,19,9,21
5,2,13.02.2008,-1,0,000000,3,24,000000,19,9,21
5,2,13.02.2008,-1,0,000000,2,24,000000,19,6,21
5,2,17.02.2008,-1,0,000000,1,24,000000,19,9,21
5,2,25.02.2008,-1,0,000000,0,24,000000,19,6,21
5,1,03.03.2008,10,10,000000,10,24,000000,2,7,21
5,2,03.03.2008,-1,-20080303,000000,9,24,000000,19,6,21
5,2,05.03.2008,-1,-20080303,000000,8,24,000000,19,9,21
5,2,07.03.2008,-1,-20080303,000000,7,24,000000,19,9,21
5,2,13.03.2008,-1,-20080303,000000,6,24,000000,19,9,21
5,2,15.03.2008,-1,-20080303,000000,5,24,000000,19,9,21
5,2,20.03.2008,-1,-20080303,000000,4,24,000000,19,9,21
5,2,20.03.2008,-1,-20080303,000000,3,24,000000,19,6,21
5,1,21.03.2008,10,10,000000,13,24,000000,2,7,21
5,2,22.03.2008,-1,-20080303,000000,12,24,000000,19,9,21
5,2,25.03.2008,-1,-20080321,000000,11,24,000000,19,6,21
5,2,25.03.2008,-2,-20080303,000000,9,48,000000,19,9,21
5,2,26.03.2008,-2,-20080321,000000,7,48,000000,19,9,21
5,2,26.03.2008,-1,-20080321,000000,6,24,000000,19,6,21
5,2,27.03.2008,-1,-20080321,000000,5,24,000000,19,9,21
5,2,28.03.2008,-2,-20080321,000000,3,48,000000,19,9,21
5,2,29.03.2008,-1,-20080321,000000,2,24,000000,19,9,21
5,2,30.03.2008,-2,-20080321,000000,0,48,000000,19,9,21
5,1,01.04.2008,15,15,000000,15,24,000000,2,7,21
5,2,03.04.2008,-1,-20080401,000000,14,24,000000,19,9,21
5,2,04.04.2008,-1,-20080401,000000,13,24,000000,19,6,21
5,2,04.04.2008,-1,-20080401,000000,12,24,000000,19,9,21
5,2,05.04.2008,-1,-20080401,000000,11,24,000000,19,9,21
5,2,06.04.2008,-1,-20080401,000000,10,24,000000,19,9,21
5,2,07.04.2008,-1,-20080401,000000,9,24,000000,19,9,21
5,2,08.04.2008,-1,-20080401,000000,8,24,000000,19,9,21
5,2,09.04.2008,-1,-20080401,000000,7,24,000000,19,9,21
5,2,10.04.2008,-1,-20080401,000000,6,24,000000,19,9,21
5,2,12.04.2008,-1,-20080401,000000,5,24,000000,19,9,21
5,2,13.04.2008,-1,-20080401,000000,4,24,000000,19,9,21
5,2,14.04.2008,-1,-20080401,000000,3,24,000000,19,9,21
5,1,17.04.2008,5,5,000000,8,24,000000,2,7,21
5,2,19.04.2008,-1,-20080401,000000,7,24,000000,19,9,21
5,2,21.04.2008,-1,-20080401,000000,6,24,000000,19,9,21
5,2,22.04.2008,-1,-20080401,000000,5,24,000000,19,9,21
5,2,23.04.2008,-2,-20080417,000000,3,48,000000,19,9,21
5,2,24.04.2008,-2,-20080417,000000,1,48,000000,19,9,21
5,1,25.04.2008,10,10,000000,11,24,000000,2,7,21
5,2,26.04.2008,-2,-20080417,000000,9,48,000000,19,9,21
5,2,27.04.2008,-2,-20080417,000000,7,48,000000,19,9,21
5,2,28.04.2008,-1,-20080417,000000,6,24,000000,19,9,21
5,2,29.04.2008,-1,-20080417,000000,5,24,000000,19,9,21
5,2,30.04.2008,-1,-20080417,000000,4,24,000000,19,9,21
5,2,01.05.2008,-1,-20080417,000000,3,24,000000,19,6,21
5,2,01.05.2008,-1,-20080417,000000,2,24,000000,19,9,21
5,2,02.05.2008,-1,-20080417,000000,1,24,000000,19,9,21
5,1,03.05.2008,15,15,000000,16,24,000000,2,7,21
5,2,03.05.2008,-1,-20080417,000000,15,24,000000,19,9,21
5,2,04.05.2008,-1,-20080503,000000,14,24,000000,19,9,21
5,2,05.05.2008,-1,-20080503,000000,13,24,000000,19,9,21
5,2,06.05.2008,-1,-20080503,000000,12,24,000000,19,9,21
5,2,07.05.2008,-1,-20080503,000000,11,24,000000,19,9,21
5,2,08.05.2008,-1,-20080503,000000,10,24,000000,19,9,21
5,2,09.05.2008,-1,-20080503,000000,9,24,000000,19,9,21
5,2,09.05.2008,-1,-20080503,000000,8,24,000000,19,6,21
5,2,11.05.2008,-1,-20080503,000000,7,24,000000,19,9,21
5,1,12.05.2008,10,10,000000,17,24,000000,2,7,21
5,2,12.05.2008,-1,-20080503,000000,16,24,000000,19,9,21
5,2,13.05.2008,-1,-20080503,000000,15,24,000000,19,9,21
5,2,14.05.2008,-1,-20080503,000000,14,24,000000,19,9,21
5,2,14.05.2008,-1,-20080503,000000,13,24,000000,19,6,21
5,2,15.05.2008,-1,-20080503,000000,12,24,000000,19,9,21
5,2,17.05.2008,-2,-20080503,000000,10,48,000000,19,9,21
5,2,17.05.2008,-2,-20080512,000000,8,48,000000,19,6,21
5,2,18.05.2008,-2,-20080512,000000,6,48,000000,19,9,21
5,1,20.05.2008,15,15,000000,21,24,000000,2,7,21
5,2,21.05.2008,-2,-20080512,000000,19,48,000000,19,9,21
5,2,21.05.2008,-1,-20080512,000000,18,24,000000,19,6,21
5,2,22.05.2008,-2,-20080512,000000,16,48,000000,19,9,21
5,2,23.05.2008,-1,-20080512,000000,15,24,000000,19,6,21
5,2,23.05.2008,-2,-20080512,000000,13,48,000000,19,9,21
5,2,24.05.2008,-2,-20080512,000000,11,48,000000,19,9,21
5,1,26.05.2008,5,5,000000,16,24,000000,2,7,21
5,2,26.05.2008,-2,-20080512,000000,14,48,000000,19,9,21
5,2,27.05.2008,-3,-20080512,000000,11,72,000000,19,9,21
5,2,27.05.2008,-1,-20080512,000000,10,24,000000,19,6,21
5,2,28.05.2008,-3,-20080512,000000,7,72,000000,19,9,21
5,2,29.05.2008,-3,-20080520,000000,4,72,000000,19,9,21
5,2,29.05.2008,-1,-20080520,000000,3,24,000000,19,6,21
5,2,30.05.2008,-1,-20080520,000000,2,24,000000,19,9,21
5,2,30.05.2008,-1,-20080520,000000,1,24,000000,19,6,21
5,2,31.05.2008,-1,-20080520,000000,0,24,000000,19,9,21
5,1,02.06.2008,15,15,000000,15,24,000000,2,7,21
5,2,02.06.2008,-2,-20080602,000000,13,48,000000,19,9,21
5,2,03.06.2008,-1,-20080602,000000,12,24,000000,19,9,21
5,2,04.06.2008,-1,-20080602,000000,11,24,000000,19,6,21
5,2,04.06.2008,-1,-20080602,000000,10,24,000000,19,9,21
5,2,05.06.2008,-1,-20080602,000000,9,24,000000,19,9,21
5,2,06.06.2008,-1,-20080602,000000,8,24,000000,19,9,21
5,2,07.06.2008,-2,-20080602,000000,6,48,000000,19,9,21
5,2,08.06.2008,-2,-20080602,000000,4,48,000000,19,9,21
5,1,09.06.2008,20,20,000000,24,24,000000,2,7,21
5,2,09.06.2008,-1,-20080602,000000,23,24,000000,19,9,21
5,2,10.06.2008,-1,-20080602,000000,22,24,000000,19,6,21
5,2,10.06.2008,-2,-20080602,000000,20,48,000000,19,9,21
5,2,11.06.2008,-1,-20080609,000000,19,24,000000,19,9,21
5,2,12.06.2008,-2,-20080609,000000,17,48,000000,19,9,21
5,2,13.06.2008,-1,-20080609,000000,16,24,000000,19,6,21
5,2,13.06.2008,-2,-20080609,000000,14,48,000000,19,9,21
5,2,14.06.2008,-1,-20080609,000000,13,24,000000,19,6,21
5,2,14.06.2008,-2,-20080609,000000,11,48,000000,19,9,21
5,2,15.06.2008,-2,-20080609,000000,9,48,000000,19,9,21
5,2,16.06.2008,-2,-20080609,000000,7,48,000000,19,9,21
5,2,16.06.2008,-1,-20080609,000000,6,24,000000,19,6,21
5,2,17.06.2008,-2,-20080609,000000,4,48,000000,19,9,21
5,1,18.06.2008,20,20,000000,24,28,000000,2,7,21
5,2,18.06.2008,-2,-20080609,000000,22,48,000000,19,9,21
5,2,19.06.2008,-2,-20080609,000000,20,48,000000,19,9,21
5,2,23.06.2008,-2,-20080618,000000,18,56,000000,19,9,21
5,2,23.06.2008,-1,-20080618,000000,17,28,000000,19,6,21
5,2,24.06.2008,-1,-20080618,000000,16,28,000000,19,9,21
5,2,25.06.2008,-1,-20080618,000000,15,28,000000,19,9,21
5,2,26.06.2008,-1,-20080618,000000,14,28,000000,19,9,21
5,2,28.06.2008,-1,-20080618,000000,13,28,000000,19,9,21
5,2,28.06.2008,-1,-20080618,000000,12,28,000000,19,6,21
5,2,29.06.2008,-2,-20080618,000000,10,56,000000,19,9,21
5,2,30.06.2008,-1,-20080618,000000,9,28,000000,19,9,21
5,1,01.07.2008,15,15,000000,24,28,000000,2,7,21
5,2,01.07.2008,-2,-20080618,000000,22,56,000000,19,9,21
5,2,01.07.2008,-2,-20080618,000000,20,56,000000,19,6,21
5,2,02.07.2008,-2,-20080618,000000,18,56,000000,19,9,21
5,2,03.07.2008,-2,-20080618,000000,16,56,000000,19,9,21
5,2,03.07.2008,-1,-20080618,000000,15,28,000000,19,6,21
5,2,04.07.2008,-2,-20080701,000000,13,56,000000,19,9,21
5,2,05.07.2008,-1,-20080701,000000,12,28,000000,19,9,21
5,2,06.07.2008,-1,-20080701,000000,11,28,000000,19,9,21
5,2,07.07.2008,-1,-20080701,000000,10,28,000000,19,6,21
5,2,07.07.2008,-1,-20080701,000000,9,28,000000,19,9,21
5,2,08.07.2008,-1,-20080701,000000,8,28,000000,19,9,21
5,2,09.07.2008,-1,-20080701,000000,7,28,000000,19,9,21
5,2,09.07.2008,-1,-20080701,000000,6,28,000000,19,8,21
5,2,10.07.2008,-1,-20080701,000000,5,28,000000,19,9,21
5,2,13.07.2008,-1,-20080701,000000,4,28,000000,19,9,21
5,2,14.07.2008,-1,-20080701,000000,3,28,000000,19,9,21
5,2,15.07.2008,-2,-20080701,000000,1,56,000000,19,9,21
5,2,15.07.2008,-1,-20080701,000000,0,28,000000,19,6,21
5,1,13.08.2008,5,5,000000,5,24,000000,2,7,21
5,2,13.08.2008,-1,-20080813,000000,4,24,000000,19,9,21
5,2,14.08.2008,-1,-20080813,000000,3,24,000000,19,9,21
5,2,15.08.2008,-1,-20080813,000000,2,24,000000,19,9,21
5,2,15.08.2008,-1,-20080813,000000,1,24,000000,19,6,21
5,2,16.08.2008,-1,-20080813,000000,0,24,000000,19,9,21
ENDTEXT
STRTOFILE(m.lcData,m.lcTemp)
create CURSOR CURSTEM ;
( ;
STOKOD I(4,0) NOT NULL ;
,GIR1ÇIK2 I(4,0) NOT NULL ;
,TARIH D(8,0) NULL ;
,MIKTAR I(4,0) NULL ;
,KULLAN N(20,6) NULL ;
,DEVIR I(4,0) NULL ;
,BIRIM_TL N(20,6) NULL ;
,GENEL M(4,0) NULL ;
,ALAN_MUHID I(4,0) NOT NULL ;
,SAT_KULID I(4,0) NOT NULL ;
,IŞLEMNOT M(4,0) NULL ;
,BIZID I(4,0) NULL ;
)
APPEND FROM (m.lcTemp) TYPE delimited
ERASE (m.lcTemp)
endproc
VFP9 SP2