örnek data burda
sonuç olarak istediğim cursor tarih,genno,no,bfiyat,miktar,tutar colonlarını içermeli
***********
CreateCursor_t1()
CreateCursor_ilaclar()
Procedure CreateCursor_t1
LOCAL lcData, lcTemp
lcTemp = SYS(2015)+'.tmp'
TEXT TO m.lcData noshow
07/09/2004,"Ketalar enj. flk.",5.0,1,959,959
07/09/2004,"Rompun enj. flk.",5.0,1,959,959
01/21/2005,"LAVMAN",1.0,2,959,959
01/21/2005,"Laksofenol",1.0,2,959,959
01/21/2005,"Libalax 10 gr supr.",1.0,2,959,959
01/21/2005,"Sabun",1.0,2,959,959
01/23/2005,"% 5 Dextroz",1.0,3,959,959
01/23/2005,"Borgal enj. flk.",1.0,3,959,959
01/23/2005,"Canoural damla",1.0,3,959,959
01/23/2005,"Depopromine flk.",1.0,3,959,959
03/19/2005,"Cefazol 500 im.",1.0,4,959,959
03/19/2005,"Metabolas enj.flk.",1.0,4,959,959
03/19/2005,"Prednisolon amp.",1.0,4,959,959
03/19/2005,"Synulox tb",20.0,4,959,959
03/19/2005,"Ultracorn amp.",1.0,4,959,959
08/09/2005,"Borgal enj. flk.",3.0,5,959,959
08/09/2005,"Caniverm 700 mg.",5.0,5,959,959
01/23/2006,"Baytril -k % 5 enj.flk",5.0,6,959,959
01/23/2006,"Depo medrol flk",1.0,6,959,959
01/23/2006,"Eye Drop",1.0,6,959,959
01/23/2006,"Genta gutte",2.0,6,959,959
01/23/2006,"Onadrone gute",2.0,6,959,959
05/23/2006,"Perlutex tb.",5.0,7,959,959
06/06/2006,"Ketalar enj. flk.",0.0,8,959,959
06/06/2006,"Rompun enj. flk.",0.0,8,959,959
09/26/2009,"%5 Dextroz",2.0,7,959,959
09/26/2009,"2 cc Enjektör",1.0,7,959,959
09/26/2009,"AD3 sol enj. flk",1.0,7,959,959
09/26/2009,"Agumentin susp.",1.0,7,959,959
09/26/2009,"BANDAJ",1.0,7,959,959
09/26/2009,"Baypamun",1.0,7,959,959
09/26/2009,"Perlutex tb.",2.0,7,959,959
09/26/2009,"Ödeme",-686.0,7,959,959
09/26/2009,"İDRAR TAHLİLİ",1.0,7,959,959
09/26/2009,"İeciline 400",1.0,7,959,959
10/03/2009,"% 5 Dextroz",15.0,3,959,959
10/03/2009,"Anjiocat",1.0,1,959,959
10/03/2009,"Caniverm 700 Mg.",1.0,1,959,959
10/03/2009,"Depopromine flk.",15.0,3,959,959
ENDTEXT
STRTOFILE(m.lcData,m.lcTemp)
create CURSOR t1 ;
( ;
TARIH D(8,0) NULL ;
,ILACLAR C(25,0) NOT NULL ;
,MIKTAR N(16,1) NOT NULL ;
,NO1 N(10,0) NOT NULL ;
,GENNO N(10,0) NOT NULL ;
,NO N(10,0) NOT NULL ;
)
APPEND FROM (m.lcTemp) TYPE delimited
ERASE (m.lcTemp)
endproc
Procedure CreateCursor_ilaclar
LOCAL lcData, lcTemp
lcTemp = SYS(2015)+'.tmp'
TEXT TO m.lcData noshow
"% 5 Dextroz",-83.60,0.350,"İlaç"
"AD3 sol enj. flk",-19.00,10.000,"İlaç"
"Agumentin susp.",-17.00,35.000,"İlaç"
"Agumentine tb",-23.00,35.000,"İlaç"
"Alfamine enj. flk.",-57.80,50.000,"İlaç"
"Alfapred forte",-17.50,45.360,"İlaç"
"Alfazine enj. flk.",-33.30,50.000,"İlaç"
"Alfoxil 250 mg susp.",0.00,0.000,"İlaç"
"Alfoxil 250 mg. tb",0.00,0.000,"İlaç"
"Alfoxil 500 mg. tb",0.00,0.000,"İlaç"
"Aminocardol amp",0.00,45.000,"İlaç"
"Amoksina 250 mg. cap.",0.00,10.000,"İlaç"
"Ampisit",1.00,10.000,"İlaç"
ENDTEXT
STRTOFILE(m.lcData,m.lcTemp)
create CURSOR ilaclar ;
( ;
ILACLAR C(25,0) NOT NULL ;
,DOZ N(10,2) NOT NULL ;
,BFIYAT N(10,3) NOT NULL ;
,GURUP C(20,0) NOT NULL ;
)
APPEND FROM (m.lcTemp) TYPE delimited
ERASE (m.lcTemp)
endproc