Merhaba,
Kullandığınız metotlar aslında gride sütun ekleme için doğru metotlar ancak ilgili form LOD üzerinde iki farklı grid içermekte. Sizin sütun eklemek istediğiniz ve ön tarafta görünen grid "BOMExplodeLineGrid" ancak trace aldığınızda dataya sorgu gönderen grid "BOMLineGrid". Bu grid üzerinden LGMAIN tablosuna join olunca trace'e geliyor.
Sanıyorum Logo ile bu tabloyu data ile doldurup, kendi kod tarafında bu tablodaki değerleri alıp "BOMExplodeLineGrid" tablosuna basıyor. FormShow eventi içerisine ShowControl("BOMLineGrid") yazarak tabloyu ön tarafta görünür kılabilirsiniz.
Aşağıdaki kodu yazarak "BOMLineGrid" tablosuna eklenen bir sütuna stok miktarlarını getirdim. Siz FormShow yada ButonClick eventi benzeri bir event içerisinde GetCellFloat , SetCellFloat ile döngüye girerek gridler arası bu bilgiyi taşırsınız.
Not : Kod eklemek istediğimde site block atıyor. Sanırım kodun içerisindeki bir yazım filtreye takılıyor. Resim olarak ekledim.
02/10/18 12:16
Cevap vermek için giriş yapmanız gerekmektedir.
Soru sormak için lütfen oturum açınız.
Reçete Fiili Stok
21/09/18 09:35 Tiger/Logo Object Designer (LOD) 2.51Merhaba ,
Ürün reçeteleri-reçete üstünde sağ tuş Ürün reçetesi ağacı-Yarı mamuller patlatılacak işaretini işaretleyip aldığımı ekranda ( aşağıdadır ) Yan kolona satırda dönen malzemenin Fiili stok bilgisini getirmek istiyoruz.
Yan tarafta iki grid alanı var , Bomline ve BOMExplodeLineGrid. İkisine de aşağıda ki sorgularla yeni kolon ekleyip fiili stok bilgisini getirmeyi denedim ancak başarılı olamadım.Yardımlarınızı bekliyorum ;
-----------------------------------------------------------
Sub DBGPrepareQuery(ctrl as String, ID as Integer)
DBGGetQuery("BOMExplodeLineGrid",Qry2)
Qry2.AddSelFieldAsc("GNTOT","ONHAND",3,0,10011)
tblGWHTotals="LV_003_03_STINVTOT"
Qry2.JoinTable("GNTOT",tblGWHTotals,"LGMAIN","ITEMREF","=","STOCKREF","INVENNO=1",1)
End Sub
---------------------------------------------------------------
Sub DBGSetRow(ctrl as String, ID as Integer, row as Long)
DBGGetFetchMode ("BOMExplodeLineGrid", ModeID)
if (ctrl = "BOMExplodeLineGrid") and (ModeID = 0) then
Qry.GetFieldValueAsc(10011, 4, specode)
DBGSetField("BOMExplodeLineGrid", row, 10011, specode)
end if
End Sub