SQL union

CreateCursor_crsresult()

 

SELECT 0 As Sira_No, *  FROM crsresult ORDER BY CKodu, SAdi INTO CURSOR crsTemp READWRITE 

 

Replace Sira_No WITH Recno() ALL

 

SELECT Min(Sira_No) Sira_No , CKodu FROM CrsTemp GROUP BY Ckodu INTO CURSOR crsMin_ID

 

UPDATE crsTemp ;

    SET ;

        CKodu         = Space(16), ;

        CAdi         = Space(60), ;

        EskiBakiye    = 0, ;

        chTahsilat     = 0 ;

    From CrsTemp ;

    Inner Join crsMin_ID ;

        ON crsMin_ID.Sira_No <> crsTemp.Sira_No AND crsMin_ID.CKodu = crsTemp.CKodu 

 

 

SELECT crsTemp 

BROWSE

 

 Procedure CreateCursor_crsresult

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

 "39L-001","ÖZKAN MARKET-MEHMET ÖZKAN",120.00,"BY","BUYUK YUMURTA",1250.00,0.1700,212.5000,30.00

"39L-001","ÖZKAN MARKET-MEHMET ÖZKAN",120.00,"KY","KUCUK YUMURTA",100.00,0.1500,15.0000,30.00

"39L-002","VAROL",0.00,"BY","BUYUK YUMURTA",500.00,0.1650,82.5000,0.00

"39L-003","ERGUVAN MARKET",10.00,"BY","BUYUK YUMURTA",250.00,0.1900,47.5000,50.00

"39L-003","ERGUVAN MARKET",10.00,"KY","KUCUK YUMURTA",150.00,0.1600,24.0000,50.00

 

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR crsresult ;

 ( ;

  CKODU C(16,0)  NULL  ;

  ,CADI C(60,0)  NULL  ;

  ,ESKIBAKIYE N(19,2)  NULL  ;

  ,SKODU C(16,0)  NULL  ;

  ,SADI C(50,0)  NULL  ;

  ,MIKTAR N(10,2)  NULL  ;

  ,FIYAT N(10,4)  NULL  ;

  ,TUTAR N(15,2)  NULL  ;

  ,CHTAHSILAT N(16,2)  NULL  ;

  ,CEKTAHSILAT N(16,2)  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

Select crsresult

GO TOP 

DO WHILE NOT EOF()

    xckodu=crsresult.ckodu

    Skip

    Replace ;

        crsresult.ckodu      With "",;

        crsresult.cadi       With "",;

        crsresult.eskibakiye With 0,;

        crsresult.chtahsilat With 0;

        WHILE crsresult.ckodu=xckodu

ENDDO

select mytable

scan

endscan