1 Cevaplayan mrduyar

(8 cevap, Genel konu içinde)

tarik yazdı:


sorununa çözüm üretemiyeceğim ama konu ilgimi çektiği için sormak istedim
elindeki işleri üretim hücrelerine en uygun şekilde dağıtacak bir program yapmaya çalışıyorsun galiba
9 adet üretim hücren var
yapılacak 15 çeşit işin var (bu rakkamı değer kolonundaki kayıt sayısından çıkardım)
her iş için harcanacak sürelerin belli(değer)
her iş için bir öncelik sıran var(sira)
değer ve sira kolonlarına göre hücrelere dağıtmaya çalışıyorsun
eğer doğru anladıysam bu verilerle bir üretim planı oluşuturacaksın
hücrelerin kapasitesi olmadan optimum yerleşim nasıl olur yani neyi baz alarak yerleştirecek

Bu resim sanırım sorulara cevap olacak.

http://www.wagner.com.tr/vfpresim/uretim_cizelgeleme_1.jpg

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

72

*Set Step on

Select CrRapor3

Lcsira=0

Locate

Scan

    Lcrecno=Recno()

    If URETILECEK=>40 And URETILECEK=<45 And Sira=0

        Select CrRapor3

        Lcsira=Lcsira+1

        Replace Sira With Lcsira

    Else

        If URETILECEK<45 And Sira=0

            Select CrRapor3

            Lcsira=Lcsira+1

            Replace Sira With Lcsira

 

            LcUret=URETILECEK

            Select CrRapor3

            Locate

            Scan For Sira=0

                If LcUret+URETILECEK<45

                    Select CrRapor3

                    Replace Sira With Lcsira

                    LcUret=LcUret+URETILECEK

                Endif

            Endscan

        Endif

    Endif

    Go Lcrecno

    Select CrRapor3

Endscan

 

 

 

** hücreleri ekle

*Lchucre='A07/A08/A09/A10/A11/A12/A13/A14/A16/A17/A18/A19/A20/A21'

If Occurs("/",Lchucre)>0

    Lchucre=Chrtran(Lchucre, ' ', '')

    Lcdeger1=''

    Lca=1

    Lcb=3

    For a=1 To 20

        Lcdeger=Substr(Lchucre,Lca,Lcb)

        If Len(Lcdeger)>0

            Lcdeger1=Lcdeger1+", 000 as "+Lcdeger

        Endif

        Lca=Lca+4

    Endfor

Else

    Lcdeger1=",0 as "+Lchucre

Endif

If !Empty(Lcdeger1)

    Select * &Lcdeger1 From CrRapor3 Into Cursor CrRapor4 Readwrite Order By Sira

Endif

 

Select CrRapor4

gnFieldcount = Afields(gaMyArray)  && Create array.

LcBasSira=10

Select CrRapor4

Locate

Lcdon=0

Scan

    If Sira=Lcdon

        LcBaslik=gaMyArray(LcBasSira,1)

        Replace &LcBaslik With Sira

    Else

        LcBasSira=LcBasSira+1

        LcBaslik=gaMyArray(LcBasSira,1)

        Replace &LcBaslik With Sira

    Endif

    Lcdon=Sira

Endscan

Foruma git: Genel

2 Cevaplayan mrduyar

(8 cevap, Genel konu içinde)

Yaklaşık Sonuç. Başka fikirlere açığım.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

Create Cursor Crtest (Deger N (4,2),Sira n(3),h1 N(2),h2 N(2),h3 N(2),h4 N(2),h5 N(2),h6 N(2),h7 N(2),h8 N(2),h9 N(2))

Insert Into Crtest (Deger) Values(44.4)

Insert Into Crtest (Deger) Values(44.4)

Insert Into Crtest (Deger) Values(24.0)

Insert Into Crtest (Deger) Values(22.2)

Insert Into Crtest (Deger) Values(22.2)

Insert Into Crtest (Deger) Values(20.0)

Insert Into Crtest (Deger) Values(19.2)

Insert Into Crtest (Deger) Values(17.8)

Insert Into Crtest (Deger) Values(16.7)

Insert Into Crtest (Deger) Values(15.6)

Insert Into Crtest (Deger) Values(6.0)

Insert Into Crtest (Deger) Values(5.6)

Insert Into Crtest (Deger) Values(4.4)

Insert Into Crtest (Deger) Values(3.3)

Insert Into Crtest (Deger) Values(3.3)

 

 

 

Select Crtest 

Lcsira=0

Locate

Scan

    Lcrecno=Recno()

    If Deger=>40 And Deger=<45 And Sira=0

        Select Crtest 

        Lcsira=Lcsira+1

        Replace Sira With Lcsira

    Else

        If Deger<45 And Sira=0

            Select Crtest 

            Lcsira=Lcsira+1

            Replace Sira With Lcsira

 

            LcUret=Deger

            Select Crtest 

            Locate

            Scan For Sira=0

                If Between(LcUret+Deger,30,45)

                    Select Crtest 

                    Replace Sira With Lcsira

                    Exit

                Endif

            Endscan

        Endif

    Endif

    Go Lcrecno

    Select Crtest 

Endscan

Foruma git: Genel

3 Cevaplayan mrduyar

(8 cevap, Genel konu içinde)

Sanırım yeterince açık olmadı.

Foruma git: Genel

4 Cevaplayan mrduyar

(8 cevap, Genel konu içinde)

ugurlu2001 yazdı:

Peki ; 44.4 değerinde hem H1 de hem de H2 de 1 değerini atamışsın; Ama 22.2 değerinde sadece H4 sütunun da 1 ve 2 atamışsın. Burdaki mantık nedir? İş akış yöntemi tanımı olmadığından;  Test ve Sonuç Cursorlari arasında bir bağıntı kurulamıyor ( yada en azından ben beceremedim )  Birde bazı sütunlara 3 bazılarında 4 değeri var. Sonra tekrardan 1 ve 2 değerlerini kullanmışsın. Ordaki bağıntı nedir?

İlişki;
44.4 birimi saattir.
Her bir satır farklı ürünlerin siparişlerine göre miktar ile çarpılarak oluşan üretimi süresi (DEGER=SAAT).
Bu ürünleri (H=HÜCRE ) hücrelerde max kapasitede çalıştırmak için dağıtım yapmak.
1 ve 2 de haliyle O hücrede üretilecek 1.,2.... farklı ürünler olmuş oluyor.

Foruma git: Genel

5 Cevaplayan mrduyar

(8 cevap, Genel konu içinde)

ugurlu2001 yazdı:

Ramazan; 45 en üst limit mi? Birde sonuç tablosundaki H01...H09 sütünlarındaki değerleri neye göre atadın? Test tablosunda 6 tane H sütunu var, ama sonuç tablosunda 9 tane?

45 üst limit.
H değerleri Toplamı 45 e en yakın satırlara göre aldım.
Test tablosuda h sütunu 9 olacak.

Aklıma ilk gelen fikir şuydu;
Büyükten küçüğe sıralar,En üstteki sayı ile en altaki sayıyı toplamı 45 e yakınığına göre dağıtabilirim. Tabi ortaya geldiğimde 20 li veya 10 lu bir sayıda kalabilir bu sorun değil.. Burada amaç mümkün oldukça 45 e yakın toplamların dağılımını yapmak. Daha sonrada elle müdahale edecekler.

Foruma git: Genel

6 Konuyu açan mrduyar

(8 cevap, Genel konu içinde)

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

CREATE CURSOR CrTest (Deger n (4,2),h1 n(2),h2 n(2),h3 n(2),h4 n(2),h5 n(2),h6 n(2))

INSERT INTO CrTest (deger) values(44.4)

INSERT INTO CrTest (deger) values(44.4)

INSERT INTO CrTest (deger) values(24.0)

INSERT INTO CrTest (deger) values(22.2)

INSERT INTO CrTest (deger) values(22.2)

INSERT INTO CrTest (deger) values(20.0)

INSERT INTO CrTest (deger) values(19.2)

INSERT INTO CrTest (deger) values(17.8)

INSERT INTO CrTest (deger) values(16.7)

INSERT INTO CrTest (deger) values(15.6)

INSERT INTO CrTest (deger) values(6.0)

INSERT INTO CrTest (deger) values(5.6)

INSERT INTO CrTest (deger) values(4.4)

INSERT INTO CrTest (deger) values(3.3)

INSERT INTO CrTest (deger) values(3.3)


Elimizde böyle bir veri var.
Burada deger veya degerler toplamı 45 e en yakın olan satırların toplayıp o satır veya satırların karşısına sırasıyla numara vermesini istiyorum.
İstediğim şey elle yaptığımda yaklaşık aşağıdaki gibi veya değişik kombinasyonları olabilir.

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

CREATE CURSOR CrTestSonuc (Deger n (4,2),h1 n(2),h2 n(2),h3 n(2),h4 n(2),h5 n(2),h6 n(2),h7 n(2),h8 n(2),h9 n(2))

INSERT INTO CrTestSonuc (deger,h1) values(44.4,1)

INSERT INTO CrTestSonuc (deger,h2) values(44.4,1)

INSERT INTO CrTestSonuc (deger,h3) values(24.0,1)

INSERT INTO CrTestSonuc (deger,h4) values(22.2,1)

INSERT INTO CrTestSonuc (deger,h4) values(22.2,2)

INSERT INTO CrTestSonuc (deger,h3) values(20.0,2)

INSERT INTO CrTestSonuc (deger,h5) values(19.2,1)

INSERT INTO CrTestSonuc (deger,h5) values(17.8,2)

INSERT INTO CrTestSonuc (deger,h6) values(16.7,1)

INSERT INTO CrTestSonuc (deger,h6) values(15.6,2)

INSERT INTO CrTestSonuc (deger,h5) values(6.0,3)

INSERT INTO CrTestSonuc (deger,h6) values(5.6,3)

INSERT INTO CrTestSonuc (deger,h6) values(4.4,4)

INSERT INTO CrTestSonuc (deger,h7) values(3.3,1)

INSERT INTO CrTestSonuc (deger,h7) values(3.3,2)

Foruma git: Genel

7 Cevaplayan mrduyar

(2 cevap, Com / Dcom ve OLE konu içinde)

Bekliyorum...

Foruma git: Com / Dcom ve OLE

8 Cevaplayan mrduyar

(24 cevap, Genel konu içinde)

Zaten tek tesellimde bu.  Yine "Bilmediğin İşte Yanıldım"

aydinufuk yazdı:
mrduyar yazdı:

Cevap anahtarlarıda vardı tongue elimde ama yinede kaldım. Puan 37,37

ramazan , %62.63 yanılmışsın..sorun değil..

Foruma git: Genel

9 Cevaplayan mrduyar

(24 cevap, Genel konu içinde)

Cevap anahtarlarıda vardı tongue elimde ama yinede kaldım. Puan 37,37

Foruma git: Genel

10 Konuyu açan mrduyar

(2 cevap, Com / Dcom ve OLE konu içinde)

Selamlar;

Aşağıdaki resimde temsili olarak gösterilen değişik renk ve boylarda yazı yazabileceğim, resim ekleyebileceğim kısaca form içinde Excel veya Word özelliklerini kullanabileceğim ve bunları kaydedip, değiştirebileceğim bir araç aramaktayım.
Ücretli/Ücretsiz farketmez.

Soykana gönderidiği OLE RTF uygulamaları için teşekkür ederim. 
Daha önce de Ole rtf ile ilgilhttp://www.fox4um.com/extensions/fext_bbcode/buttons/Oxygen/img.pngi 1-2 çalışmam olmuştu.  Bunula son kullanıcı çok zorlanıyor.
Son kullanıcı için kullanımı kolay bir şey aramaktayım.
Yardımlarınızı bekliyorum. Şimdiden teşekkürler.

http://www.wagner.com.tr/vfpresim/20111221134723847kesim_1.jpg

Foruma git: Com / Dcom ve OLE

11 Cevaplayan mrduyar

(16 cevap, Genel konu içinde)

Forumda arama yapmadıysan, önce aramayı kullanmanı tavsiye ederim.
Burada bazı cevaplar bulabilirsin.
http://www.fox4um.com/topic/1984/window … ekletiyor/

Foruma git: Genel

12 Cevaplayan mrduyar

(6 cevap, Kodlama ve Komutlar konu içinde)

Böyle bişi işini görürmü acaba

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

* standart sapma

*? std_devs('Crfaturalar7.miktar','ALLTRIM(Crfaturalar7.wka_partno)="M-AKO-111111111111"')

Function std_devs

Lparameters tcTableField, tcPredicates

Local nRet, nsavg , nscnt As Float, lnSelect

* Save current work area

lnSelect = Select()

 

Select(Juststem(tcTableField))

If !Empty(tcPredicates)

    Calculate Avg(&tcTableField),Cnt(&tcTableField) For &tcPredicates To nsavg, nscnt

    Calculate Sum( (&tcTableField - nsavg) ^ 2 ) For &tcPredicates To ssum

Else

    Calculate Avg(&tcTableField),Cnt(&tcTableField) To nsavg, nscnt

    Calculate Sum( (&tcTableField - nsavg) ^ 2 ) To ssum

Endif

nRet = Sqrt(ssum / (nscnt-1) )

* Restore work area

Select (lnSelect)

Return nRet

Endfunc

Foruma git: Kodlama ve Komutlar

13 Cevaplayan mrduyar

(37 cevap, Genel konu içinde)

Hz Ömer olacaktı. Kızmayın bunlar doğal şeyler.

Foruma git: Genel

14 Cevaplayan mrduyar

(37 cevap, Genel konu içinde)

aydinufuk yazdı:

sabah sabah yine sinirlerim tepeme çıktı,

ne hale geldi bu ülke ya, .....

Zeki Alasya Emek Sineması'nın açılışıyla ilgili ilginç bir yorum yaptı. Alasya, ödülü aldıktan sonra yaptığı konuşmada, 'Emek sinemasının sahnesinde namaz kılınacaksa hiç açılmasın daha iyi' demişti.
Bu da sinirlerim tepenize çıkardımı? (ifadelerinize katımladığım anlamına gelmesin)
Benim anlamadığım maksadı sahnede namaza kılan cins bir grup mu varki böyle bir ifade kullanılıyor.
İşte Türkiye gerçeği.

Foruma git: Genel

15 Cevaplayan mrduyar

(37 cevap, Genel konu içinde)

konuka yazdı:


Ya hepimiz VFPu yedik hepimiz birer Çetin'iz - ya da Ramazan'ın opsiyonunu almak daha ehven-i şer ...

Anlayan varsa açıklayabilirmi?

konuka yazdı:


Ama hepimiz islam ile böylesine bir aşağılık olayın aynı resimde gözükmesine de isyan ediyoruz.


katılıyorum.

aydinufuk yazdı:


bu öğüdü neden kendine uygulamıyorsun?

İşte konuda bu. Kimsenin kalbini yarın içine bakamıyoruz. Keşke bakabilsek.

Foruma git: Genel

16 Cevaplayan mrduyar

(37 cevap, Genel konu içinde)

ugurlu2001 yazdı:

Ramazan;

Konuşulan A nın haklılığı B nin haksızlığı değil. Ortada apaçık bir HIRSIZLIK var. İslam ve Müslümanlık adına mangalda kül bırakmayanların, İslam ve Müslümanlık adına HIRSIZLIK yapmaları, sadecede KUL HAKKINA gasp değildir.  Tüm insanlığın haklarının gaspıdır. Ve yaptıkları en büyük haksızlık da İslamiyete ve Müslümanlara yaptıklarıdır. Hiç bir insanın vicdanına sığmayan bir davranışı İslamiyete yada Müslümanlığa adamak KÜFÜR ün en son noktasıdır.

NOKTA.

Kimse adına bir şey yaptırmasın. Din ALLAH ındır koruyacakta odur.
Beni rahatsız eden; Müslüman yapınca kötü diğerleri yapınca iyi olarak algılanması.
Ben hertürlü haksızlığı karşıyım.
Kendimide dahil hepimizi adil davranmaya davet ediyorum.

Foruma git: Genel

17 Cevaplayan mrduyar

(37 cevap, Genel konu içinde)

Arkadaşlar benim anlayamadığım bir şey var. A grubu bunları yapınca bir şey denmiyorda, B grubu bunları yapınca neden bu kadarda sıkıntı oluyor anlamıyorum. Adaletse (bilinmeyen bir güç tarafından) adalet sağlanıyor işte.

Foruma git: Genel

18 Cevaplayan mrduyar

(22 cevap, Genel konu içinde)

belki buradan bir sonuca ulaşabilirsin.
http://en.wikipedia.org/wiki/%C6%8F

Foruma git: Genel

19 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

cetinbasoz yazdı:

SetAll() yerine o loop icinde .DynamicInputMask = '...' yaz olsun bitsin.


Harikasın. Saygılar.

Foruma git: Gridler ve Diğer Kontroller

20 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

metin yazdı:

filitre değil filtre olacak. smile


Teşekkür ederim. Düzelttim.

Foruma git: Gridler ve Diğer Kontroller

21 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

www.wagner.com.tr/vfpresim/wkauretim.jpg
http://www.wagner.com.tr/vfpresim/wkauretim.jpg

Foruma git: Gridler ve Diğer Kontroller

22 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

Sorun renklendirme değil. CrSonuc1.total kolonu zaten o işe yarıyor.
Input mask i satirlarda çalışmasında ki tek sorun ilk kolonu es geçmesi gerekiyor. Bu nu nasıl yaparım?

Foruma git: Gridler ve Diğer Kontroller

23 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

Tamam uygulamayayım.
Başa tekrar döndük.
Gridde Total=4 olan satırların 2. kolondan sonrakiler için input mask ini '999.999' yapmam gerkiyor.
Nasıl olacak.

Foruma git: Gridler ve Diğer Kontroller

24 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

Cevap için teşekürler.  Sorunum Çözüldü.
ek olarak
Thisform.grid2.SetAll("DynamicInputMask","(iif(CrSonuc1.total=4,'999.999','999,999,999'))") uyguladıktan sonra. WKA_PARTNO ya aynı inputmask uygulandığı için sorun oluyor. nasıl çözebilirim.
örnek:
M-9000466423.A,1 bilgisi grid 1. kolon satırlarıda  M-9,000,466, şeklinde görünüyor.

Foruma git: Gridler ve Diğer Kontroller

25 Cevaplayan mrduyar

(13 cevap, Gridler ve Diğer Kontroller konu içinde)

gridenumeric kullanmadan.
Gride gridenumeric işlemlerini yaptırmanın bir yolu varmı?

Visual Fox Pro
1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

59

60

61

62

63

64

65

66

67

68

69

70

71

CreateCursor_CRSONUC1()

 

 

 Procedure CreateCursor_CRSONUC1

 LOCAL lcData, lcTemp

 lcTemp = SYS(2015)+'.tmp'

 TEXT TO m.lcData noshow

"M-1704424254.I,1",0.000,0.000,3000.000,0.000,0.000,0.000,0.000,0.000,2000.000,0.000,0.000,3000.000,0.000,0.000,2000.000,0.000,0.000,0.000,0.000,0.000,0.000,1.000,1.70

"M-1704424254.I,1",3000.000,1500.000,0.000,0.000,0.000,0.000,0.000,0.000,1000.000,1000.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,1.70

"M-1704424254.I,1",1500.000,3000.000,0.000,0.000,0.000,0.000,0.000,0.000,-1000.000,0.000,0.000,-3000.000,-3000.000,-3000.000,-5000.000,-5000.000,-5000.000,-5000.000,-5000.000,-5000.000,-5000.000,3.000,1.70

"M-1704424254.I,1",0.944,0.944,0.000,0.000,0.000,0.000,0.000,0.000,0.630,0.630,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,1.70

"M-9000121313.C,1",0.000,0.000,6000.000,0.000,0.000,0.000,6000.000,0.000,0.000,4000.000,0.000,5000.000,0.000,5000.000,0.000,3000.000,6000.000,0.000,0.000,0.000,0.000,1.000,0.98

"M-9000121313.C,1",3000.000,2000.000,1000.000,0.000,0.000,0.000,0.000,3000.000,3000.000,3000.000,3000.000,3000.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,0.98

"M-9000121313.C,1",3000.000,5000.000,0.000,0.000,0.000,0.000,-6000.000,-3000.000,0.000,-1000.000,2000.000,0.000,0.000,-5000.000,-5000.000,-8000.000,-14000.000,-14000.000,-14000.000,-14000.000,-14000.000,3.000,0.98

"M-9000121313.C,1",1.089,0.726,0.363,0.000,0.000,0.000,0.000,1.089,1.089,1.089,1.089,1.089,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,0.98

"M-9000466423.A,1",0.000,0.000,0.000,0.000,0.000,1000.000,0.000,0.000,3000.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,1.000,1.50

"M-9000466423.A,1",0.000,0.000,0.000,0.000,1000.000,1000.000,0.000,1000.000,1000.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,1.50

"M-9000466423.A,1",0.000,0.000,0.000,0.000,1000.000,1000.000,1000.000,2000.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,3.000,1.50

"M-9000466423.A,1",0.000,0.000,0.000,0.000,0.556,0.556,0.000,0.556,0.556,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,1.50

"M-1704424066.I,1",0.000,4800.000,1600.000,1600.000,4800.000,3200.000,1600.000,3200.000,0.000,1600.000,3200.000,0.000,3200.000,9600.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,1.000,1.70

"M-1704424066.I,1",1600.000,3200.000,1600.000,1600.000,3200.000,3200.000,3200.000,1600.000,3200.000,3200.000,3200.000,3200.000,3200.000,0.000,0.000,1600.000,3200.000,0.000,0.000,0.000,0.000,2.000,1.70

"M-1704424066.I,1",1600.000,0.000,0.000,0.000,-1600.000,-1600.000,0.000,-1600.000,1600.000,3200.000,3200.000,6400.000,6400.000,-3200.000,-3200.000,-1600.000,1600.000,1600.000,1600.000,1600.000,1600.000,3.000,1.70

"M-1704424066.I,1",1.007,2.015,1.007,1.007,2.015,2.015,2.015,1.007,2.015,2.015,2.015,2.015,2.015,0.000,0.000,1.007,2.015,0.000,0.000,0.000,0.000,4.000,1.70

"M-9000134888.A,7",58.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,0.00

"M-9000225830.A,3",56.993,54.978,53.971,52.964,50.949,48.934,46.919,45.912,43.897,41.882,39.867,37.852,35.837,35.837,35.837,34.830,32.815,32.815,32.815,32.815,32.815,1.000,2.20

"M-9000225830.A,3",0.047,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,2.20

"M-9000225830.A,3",-56.946,-111.924,-165.895,-218.859,-269.808,-318.742,-365.661,-411.573,-455.470,-497.352,-537.219,-575.071,-610.908,-646.745,-682.582,-717.412,-750.227,-783.042,-815.857,-848.672,-881.487,3.000,2.20

"M-9000225830.A,3",0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,2.20

"M-9000415155.A,3",0.000,750.000,750.000,1000.000,1000.000,1000.000,1000.000,750.000,0.000,1250.000,1000.000,0.000,1500.000,4000.000,0.000,0.000,0.000,3750.000,0.000,0.000,0.000,1.000,2.50

"M-9000415155.A,3",750.000,500.000,500.000,1250.000,750.000,500.000,750.000,1000.000,1500.000,1500.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,2.50

"M-9000415155.A,3",750.000,500.000,250.000,500.000,250.000,-250.000,-500.000,-250.000,1250.000,1500.000,500.000,500.000,-1000.000,-5000.000,-5000.000,-5000.000,-5000.000,-8750.000,-8750.000,-8750.000,-8750.000,3.000,2.50

"M-9000415155.A,3",0.694,0.463,0.463,1.157,0.694,0.463,0.694,0.926,1.389,1.389,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,2.50

"M-9000466432.A,1",0.000,0.000,0.000,500.000,2000.000,3500.000,4000.000,4500.000,0.000,4000.000,5500.000,0.000,5500.000,16500.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,1.000,1.80

"M-9000466432.A,1",1500.000,0.000,0.000,2000.000,2500.000,1000.000,4000.000,5500.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,2.000,1.80

"M-9000466432.A,1",1500.000,1500.000,1500.000,3000.000,3500.000,1000.000,1000.000,2000.000,2000.000,-2000.000,-7500.000,-7500.000,-13000.000,-29500.000,-29500.000,-29500.000,-29500.000,-29500.000,-29500.000,-29500.000,-29500.000,3.000,1.80

"M-9000466432.A,1",1.000,0.000,0.000,1.333,1.667,0.667,2.667,3.667,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,0.000,4.000,1.80

 ENDTEXT

 

 STRTOFILE(m.lcData,m.lcTemp)

 

 create CURSOR CRSONUC1 ;

 ( ;

  WKA_PARTNO C(24,0)  NOT  NULL  ;

  ,C_11_13 N(12,3)  NOT  NULL  ;

  ,C_11_14 N(12,3)  NOT  NULL  ;

  ,C_11_15 N(12,3)  NOT  NULL  ;

  ,C_11_16 N(12,3)  NOT  NULL  ;

  ,C_11_17 N(12,3)  NOT  NULL  ;

  ,C_11_18 N(12,3)  NOT  NULL  ;

  ,C_11_19 N(12,3)  NOT  NULL  ;

  ,C_11_20 N(12,3)  NOT  NULL  ;

  ,C_11_21 N(12,3)  NOT  NULL  ;

  ,C_11_22 N(12,3)  NOT  NULL  ;

  ,C_11_23 N(12,3)  NOT  NULL  ;

  ,C_11_24 N(12,3)  NOT  NULL  ;

  ,C_11_25 N(12,3)  NOT  NULL  ;

  ,C_11_26 N(12,3)  NOT  NULL  ;

  ,C_11_27 N(12,3)  NOT  NULL  ;

  ,C_11_28 N(12,3)  NOT  NULL  ;

  ,C_11_29 N(12,3)  NOT  NULL  ;

  ,C_11_30 N(12,3)  NOT  NULL  ;

  ,C_11_31 N(12,3)  NOT  NULL  ;

  ,C_11_32 N(12,3)  NOT  NULL  ;

  ,C_11_33 N(12,3)  NOT  NULL  ;

  ,TOTAL N(14,3)  NOT  NULL  ;

  ,URETIM_T N(8,2)  NULL  ;

  )

 

 APPEND FROM (m.lcTemp) TYPE delimited

 ERASE (m.lcTemp)

 endproc

Foruma git: Gridler ve Diğer Kontroller