scan, endscan

SCAN

    replace yuk WITH 2, workORDERid WITH m.lcPLworkORDERid FOR crsbb.tarih=crsbb2.tarih AND crsbb.sira=crsbb2.sira IN crsbb

    ENDSCAN

LOCAL tarih,sira

SELECT * FROM crsbbilk WHERE yuk>0 INTO CURSOR crsbb readwrite

INDEX ON DTOS(tarih)+STR(sira)  

&& VFP SQL motorunun index kullandığını okumuştum, aşağıda UPDATE için

*.....

SCAN

  SCATT FIEL tarih, sira MEMV

  UPDATE crsBB SET yuk=2, workORDERid=m.lcPLworkORDERid WHERE tarih=m.tarih AND sira=m.sira

ENDSCAN

LOCAL tarih,sira

SELECT * FROM crsbbilk WHERE yuk>0 INTO CURSOR crsbb readwrite

INDEX ON DTOS(tarih)+STR(sira)

*......

SCAN

  SCATT FIEL tarih, sira MEMV

  SELE   crsbb

  SEEK DTOS(m.tarih)+STR(m.sira) IN "crsbb"

  SCAN WHIL crsbb.tarih=m.tarih AND crsbb.sira=m.sira

    replace yuk WITH 2, workORDERid WITH m.lcPLworkORDERid IN crsbb

  ENDS

  SELE crsbb2

ENDSCAN

**************

 

ENDSCAN

SELECT crstez  && koymak gerekiyor, 

                          && diğer döngü record pointere gelsin diye

ENDSCAN

CREATE CURSOR crsHH ( lot c(10),sn n(3),sure n(5),start datetime null,stop datetime null)

INSERT INTO crsHH values ("5001",1,145,DATETIME(),{})

INSERT INTO crsHH values ("5075",2,400,{},{})

INSERT INTO crsHH values ("5040",3,68,{},{})

INSERT INTO crsHH values ("5018",4,75,{},{})

INSERT INTO crsHH values ("5021",5,60,{},{})

INSERT INTO crsHH values ("5022",6,60,{},{})

SELECT crshh

GOTO top

SCAN

m.ln=sn

m.ldbasla=start

m.lnsure = sure

m.ldbitir = m.ldbasla+(m.lnsure*60)

replace stop WITH  m.ldbitir IN crshh

replace start WITH m.ldbitir FOR sn=m.ln+1

ENDSCAN

Local stop

Scan

   replace Start with evl( m.Stop, Start ), Stop with Start + Sure * 60

   Stop = Stop

EndScan

CREATE CURSOR crsHH ( lot c(10),sn n(3),sure n(5),onceki datetime null,start datetime null,stop datetime null)

INSERT INTO crsHH values ("5001",1,145,{},DATETIME(),{})

INSERT INTO crsHH values ("5075",2,400,{},{},{})

INSERT INTO crsHH values ("5040",3,68,DATETIME()+1500*60,{},{})

INSERT INTO crsHH values ("5018",4,75,{},{},{})

INSERT INTO crsHH values ("5021",5,60,{},{},{})

INSERT INTO crsHH values ("5022",6,60,{},{},{})

SELECT crshh

* BROWSE 

 

LOCAL ltDateTime, ltPreviousVal

SELECT 'crsHH'

GO TOP IN 'crsHH'

 

m.ltDateTime = crsHH.Start

m.ltPreviousVal = crsHH.Start

 

SCAN 

    Replace Onceki WITH m.ltPreviousVal;

            Start WITH m.ltPreviousVal, ;

            Stop WITH Start + 60 * Sure 

    m.ltPreviousVal = crsHH.Stop

ENDSCAN

CREATE CURSOR crsHH ( lot c(10),sn n(3),sure n(5),onceki datetime null,start datetime null,stop datetime null)

INSERT INTO crsHH values ("5001",1,145,{},DATETIME(),{})

INSERT INTO crsHH values ("5075",2,400,{},{},{})

INSERT INTO crsHH values ("5040",3,68,DATETIME()+1500*60,{},{})

INSERT INTO crsHH values ("5018",4,75,{},{},{})

INSERT INTO crsHH values ("5021",5,60,{},{},{})

INSERT INTO crsHH values ("5022",6,60,{},{},{})

SELECT crshh

* BROWSE 

 

CREATE CURSOR crsAB ( lot c(10),islem c(25),sure n(5),start datetime null,stop datetime null)

INSERT INTO crsAB values ("5001","montaj",145,{},{})

INSERT INTO crsAB values ("5075","montaj",400,{},{})

INSERT INTO crsAB values ("5040","boyama",120,{^2013/11/13 21:45:00},{^2013/11/13 23:45:00})

INSERT INTO crsAB values ("5040","montaj",68,{^2013/11/13 23:45:00},{})

 

 

* Istersen boyamayı kaldır. Eğerki gerek yoksa

SELECT Lot, Start FROM CrsAB WHERE Lot NOT IN("5040") ;

UNION ;

SELECT Lot, Start FROM CrsAB WHERE Lot = "5040" AND Islem = "boyama" ;

INTO CURSOR CrsBilgi

 

UPDATE crsHH ;

    SET ;

        CrsHH.Onceki = CrsAB.Start ;

    From CrsHH ;

    Join CrsAB On CrsHH.Lot == CrsAB.Lot

 

UPDATE crsHH ;

    SET ;

        CrsHH.Onceki = Iif(Empty(CrsHH.Start),Datetime(),CrsHH.Start) ;

    From CrsHH ;

    Where CrsHH.SN = 1

 

LOCAL ltDateTime, ltPreviousVal

SELECT 'crsHH'

GO TOP IN 'crsHH'

 

m.ltDateTime = crsHH.Start

m.ltPreviousVal = crsHH.Start

 

* Tarık bu kısımda senin iş kurallarına göre güncelleme yapmalısın.

* Verdiğin dataya göre anlamlandıramadığım kısımlar var.

* Sanki örnek data gerçek iş akışı ile uymuyor gibi. / yada ben tnlayamadım!

* Reel data verme imkanın varmı? Ve de o reel dataya göre beklenen sonuç cursor u?

SCAN 

    Replace Onceki WITH m.ltPreviousVal;

            Start WITH m.ltPreviousVal, ;

            Stop WITH Start + 60 * Sure 

    m.ltPreviousVal = crsHH.Stop

ENDSCAN

CREATE CURSOR crsAB ( lot c(10),islem c(25),makine c(5),sure n(5),start datetime null,stop datetime null)

INSERT INTO crsAB values ("5001","montaj","M-01",145,{},{})

INSERT INTO crsAB values ("5075","montaj","M-01",400,{},{})

INSERT INTO crsAB values ("5040","boyama","M-14",120,{^2013/11/13 21:45:00},{^2013/11/13 23:45:00})

INSERT INTO crsAB values ("5040","montaj","M-01",68,{^2013/11/13 23:45:00},{})

INSERT INTO crsAB values ("5018","montaj","M-01",75,{},{})

INSERT INTO crsAB values ("5021","montaj","M-01",60,{},{})

INSERT INTO crsAB values ("5022","montaj","M-01",60,{},{})

 

CREATE CURSOR crsHH ( lot c(10),sn n(3),sure n(5),onceki datetime null,start datetime null,stop datetime null)

INSERT INTO crsHH values ("5001",1,145,{},{^2013/11/11 08:30:00},{})

INSERT INTO crsHH values ("5075",2,400,{},{},{})

INSERT INTO crsHH values ("5040",3,68,{^2013/11/13 23:45:00},{},{})

INSERT INTO crsHH values ("5018",4,75,{},{},{})

INSERT INTO crsHH values ("5021",5,60,{},{},{})

INSERT INTO crsHH values ("5022",6,60,{},{},{})

 

 

SELECT 'crsHH'

GO TOP IN 'crsHH'

 

LOCAL ltPreviousVal

m.ltPreviousVal = crsHH.Start

 

SCAN 

    Replace Start WITH Iif(Empty(Onceki),m.ltPreviousVal, Onceki), ;

            Stop WITH Start + 60 * Sure 

    m.ltPreviousVal = crsHH.Stop

ENDSCAN

SELECT crsHH

GO TOP IN 'crsHH'

LOCAL ltPreviousVal

m.ltPreviousVal = crsHH.Start

IF EMPTY(m.ltpreviousVal)

m.ltPreviousVal = DATETIME()

ENDIF

 

SCAN WHILE sn<999

Replace Start WITH Iif(Empty(Onceki),m.ltPreviousVal,IIF(onceki>m.ltPreviousVal,Onceki,m.ltPreviousVal)), ;

            Stop WITH Start + 60 * Sure 

    m.ltPreviousVal = crsHH.Stop

 

EndScan