Hi All,
i've a problem about Update-SQL command ,
as you'll see below i want to update records from one cursor to another cursor

like
Crs_StockBalance.giren -> Crs_Stock.tgiren
Crs_StockBalance.cikan -> Crs_Stock.tcikan
Crs_StockBalance.kalan -> Crs_Stock.tmevcut

codes working but updating with the same value each records.

any suggestion would be very appreciated
Thanks

CreateCursor_CRS_Stock()
CreateCursor_CRS_StockBalance()

Update CRS_Stock Set ;
	tgiren= CRS_StockBalance.giren,;
	tcikan= CRS_StockBalance.cikan,;
	tmevcut=CRS_StockBalance.kalan;
	From CRS_Stock QF;
	inner Join CRS_StockBalance On QF.skodu==CRS_StockBalance.skodu

Select CRS_Stock
Browse Normal


*------------------------------------------------------------------------------
Procedure CreateCursor_Crs_StockBalance
	Local lcData, lcTemp
	lcTemp = Sys(2015)+'.tmp'
	TEXT TO m.lcData noshow
 "A-0098","GRM 30 W E27 SİPRAL 6400","01","MERKEZ",0,10,-10
"A-0110","GENERAL 18 W DÜZ AMPUL","01","MERKEZ",0,6,-6
"A-0464","İMTAŞ 1x40 TMS ARMATÜR","01","MERKEZ",0,12,-12
"B-0110","NORM BUAT","01","MERKEZ",0,100,-100
"B-0207","14 LÜK BOY BORU","01","MERKEZ",0,900,-900
"B-0208","18 LİK BOY BORU","01","MERKEZ",0,100,-100
"B-0209","26 LIK BOY BORU","01","MERKEZ",0,15,-15
"B-0210","14 LÜK KANGAL BORU","01","MERKEZ",0,200,-200
"B-0348","KAİM START BUTUN KONTAĞI","01","MERKEZ",0,1,-1
"B-0353","ACİL STOP BUTONU","01","MERKEZ",0,1,-1
"I-0318","ÇAY KAHVE MAKİNASİ","01","MERKEZ",0,2,-2
"K-0269","SAYPORT 25 A KONTAKTÖR","01","MERKEZ",0,10,-10
"K-0273","SAYPORT 65 A KONTAKTÖR","01","MERKEZ",0,4,-4
"K-0672","K.KUŞ  6 NO ÇİVİLİ KROŞE","01","MERKEZ",0,3,-3
"K-1525","SAYPORT 10 KVAr KONDANSATÖR","01","MERKEZ",0,3,-3
"K-1527","SAYPORT 15 KVAr KONDANSATÖR","01","MERKEZ",0,4,-4
"K-1528","SAYPORT 25 KVAr KONDANSATÖR","01","MERKEZ",0,1,-1
"K-1531","SAYPORT 50 KVAr KONDANSATÖR","01","MERKEZ",0,3,-3
"O-0003","NA-DE 3001 ANH. MERDİVEN OTOMATİĞİ","01","MERKEZ",0,1,-1
"O-0007","NA-DE 3004 M. B.LU DÖKÜM KAPI OTOMATİĞİ","01","MERKEZ",0,1,-1
"O-0217","SAYPORT 1P 6 A W OTOMAT","01","MERKEZ",0,13,-13
"O-0218","SAYPORT 1P 10 A W OTOMAT","01","MERKEZ",0,179,-179
"O-0219","SAYPORT 1P 16 A W OTOMAT","01","MERKEZ",0,166,-166
"O-0227","SAYPORT 3P 10 A C OTOMAT","01","MERKEZ",0,7,-7
"O-0228","SAYPORT 3P 16 A C OTOMAT","01","MERKEZ",0,4,-4
"O-0229","SAYPORT 3P 20 A C OTOMAT","01","MERKEZ",0,3,-3
"O-0230","SAYPORT 3P 25 A C OTOMAT","01","MERKEZ",0,25,-25
"O-0231","SAYPORT 3P 32 A C OTOMAT","01","MERKEZ",0,7,-7
"O-0232","SAYPORT 3P 40 A C OTOMAT","01","MERKEZ",0,16,-16
"O-0234","SAYPORT 3P 63 A C OTOMAT","01","MERKEZ",0,1,-1
"P-0242","ÇP 304 PANO","01","MERKEZ",0,1,-1
"R-0057","KRG 6A REAKTİF GÜÇ.KONT.RÖLESİ","01","MERKEZ",0,1,-1
"R-0130","BOŞ","01","MERKEZ",0,20,-20
"R-0136","SAYPORT 4P 40/30 A HK RÖLESİ","01","MERKEZ",0,1,-1
"R-0143","BOŞ","01","MERKEZ",0,1,-1
"S-0303","3x10(60)A TRİF. ELEKT. SAYAÇ","01","MERKEZ",0,20,-20
"S-0307","X5 TRİF. DİJ. SAYAÇ KOMBİ","01","MERKEZ",0,1,-1
"T-0092","SAYPORT 150/5 A.TRAFOSU","01","MERKEZ",0,3,-3
"T-0093","SAYPORT 200/5 A.TRAFOSU","01","MERKEZ",0,3,-3
"T-0095","SAYPORT 300/5 A.TRAFOSU","01","MERKEZ",0,7,-7
"T-0409","3TF 47 TAMİR TAKIMI","01","MERKEZ",0,5,-5

	ENDTEXT

	Strtofile(m.lcData,m.lcTemp)

	Create Cursor Crs_StockBalance ;
		( ;
		skodu C(20,0)  Not  Null  ;
		,SADI C(50,0)  Not  Null  ;
		,DEPOKODU C(3,0)  Not  Null  ;
		,DEPOADI C(10,0)  Not  Null  ;
		,giren N(10,0)  Null  ;
		,cikan N(10,0)  Null  ;
		,kalan N(10,0)  Null  ;
		)

	Append From (m.lcTemp) Type Delimited
	Erase (m.lcTemp)
Endproc
*--------------------------------------

Procedure CreateCursor_CRS_Stock
	Local lcData, lcTemp
	lcTemp = Sys(2015)+'.tmp'
	TEXT TO m.lcData noshow
 "P-0242","ÇP 304 PANO",0,0,0
"R-0057","KRG 6A REAKTİF GÜÇ.KONT.RÖLESİ",0,0,0
"A-0110","GENERAL 18 W DÜZ AMPUL",0,0,0
"B-0353","ACİL STOP BUTONU",0,0,0
"O-0007","NA-DE 3004 M. B.LU DÖKÜM KAPI OTOMATİĞİ",0,0,0
"O-0003","NA-DE 3001 ANH. MERDİVEN OTOMATİĞİ",0,0,0
"A-0098","GRM 30 W E27 SİPRAL 6400",0,0,0
"S-0303","3x10(60)A TRİF. ELEKT. SAYAÇ",0,0,0
"S-0307","X5 TRİF. DİJ. SAYAÇ KOMBİ",0,0,0
"B-0207","14 LÜK BOY BORU",0,0,0
"B-0208","18 LİK BOY BORU",0,0,0
"B-0209","26 LIK BOY BORU",0,0,0
"B-0210","14 LÜK KANGAL BORU",0,0,0
"B-0110","NORM BUAT",0,0,0
"T-0092","SAYPORT 150/5 A.TRAFOSU",0,0,0
"T-0093","SAYPORT 200/5 A.TRAFOSU",0,0,0
"T-0095","SAYPORT 300/5 A.TRAFOSU",0,0,0
"K-0672","K.KUŞ  6 NO ÇİVİLİ KROŞE",0,0,0
"O-0218","SAYPORT 1P 10 A W OTOMAT",0,0,0
"O-0219","SAYPORT 1P 16 A W OTOMAT",0,0,0
"O-0227","SAYPORT 3P 10 A C OTOMAT",0,0,0
"O-0228","SAYPORT 3P 16 A C OTOMAT",0,0,0
"O-0229","SAYPORT 3P 20 A C OTOMAT",0,0,0
"O-0230","SAYPORT 3P 25 A C OTOMAT",0,0,0
"O-0231","SAYPORT 3P 32 A C OTOMAT",0,0,0
"O-0232","SAYPORT 3P 40 A C OTOMAT",0,0,0
"O-0234","SAYPORT 3P 63 A C OTOMAT",0,0,0
"O-0217","SAYPORT 1P 6 A W OTOMAT",0,0,0
"R-0136","SAYPORT 4P 40/30 A HK RÖLESİ",0,0,0
"K-0269","SAYPORT 25 A KONTAKTÖR",0,0,0
"K-1525","SAYPORT 10 KVAr KONDANSATÖR",0,0,0
"K-1527","SAYPORT 15 KVAr KONDANSATÖR",0,0,0
"K-1528","SAYPORT 25 KVAr KONDANSATÖR",0,0,0
"K-1531","SAYPORT 50 KVAr KONDANSATÖR",0,0,0
"K-0273","SAYPORT 65 A KONTAKTÖR",0,0,0
"A-0464","İMTAŞ 1x40 TMS ARMATÜR",0,0,0
"R-0143","BOŞ",0,0,0
"R-0130","BOŞ",0,0,0
"B-0348","KAİM START BUTUN KONTAĞI",0,0,0
"I-0318","ÇAY KAHVE MAKİNASİ",0,0,0
"T-0409","3TF 47 TAMİR TAKIMI",0,0,0

	ENDTEXT

	Strtofile(m.lcData,m.lcTemp)

	Create Cursor CRS_Stock ;
		( ;
		skodu C(20,0)  Not  Null  ;
		,SADI C(50,0)  Not  Null  ;
		,tgiren N(10,0)  Not  Null  ;
		,tcikan N(10,0)  Not  Null  ;
		,tmevcut N(10,0)  Not  Null  ;
		)

	Append From (m.lcTemp) Type Delimited
	Erase (m.lcTemp)
Endproc