Update QF; 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>Hi All,
>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 >