Kişi bilgileri gizlidir. Logo çalışanları görebilir.

SetCellText kullanıyorum alanlara deger geliyor ama kayıt sağlanmıyor.

  Tiger/Logo Object Designer (LOD)

Yapmak istediğim , ambar transfer fişini yeni komutuyla açıp giriş çıkış ambarlarını düzenlemek , ve satırlarına ekleme yapmak istiyorum .selltextval ile yaptığımda sadece yazı olarak bulunuyorlar . bu işlemi nasıl yapabilirim ?

aşağıda kod örneğim mevcut :  birden fazla komut denedim fakat daha önce hiç uygulamadığım içim başarılı olamadım , yardımcı olursanız sevinirim

CreateQuery(Qry)
    tblName = Application.GetTableName(227, Application.CompanyId, Application.FiscPerdId)
    Qry.AddTable("A", tblName)
    Qry.AddSelField("A", "LOGICALREF,")
    Qry.AddSelField("A", "ITEMREF,")
    Qry.AddSelField("A", "AMOUNT")
    Str(TalepREf,LogRefTxt)
    MyWhereCond = "DEMANDFICHEREF = " + LogRefTxt
    Qry.AddWhereCond(MyWhereCond,1)
    Qry.Execute()
       if Qry.Ready = 1 then
       res = Qry.First()
       Do while res = 1
          Qry.GetFieldValue(1, 1, MyLineRef)
          Qry.GetFieldValue(2, 1, MyItemRef)
          Qry.GetFieldValue(3, 3, MyAmount)
          if MyLineRef<>0 then
             AppTables[1].SearchByRef(MyItemRef)
             if DBErr = 0 then
               AppTables[1].GetTxtField("CODE", strCode)
                InsertGridRow("StFicheGrid", 0)
                SetActiveControl("StFicheGrid", 0)
                DBGridEditNew("StFicheGrid")
                GetGridRowHandle("StFicheGrid", -1, ref)                
                activeRow = MgridRow("StFicheGrid")
                SetCellText("StFicheGrid",activeRow,1,strCode)
                SetCellFloat("StFicheGrid",activeRow,3,MyAmount)
                DBGRefreshForUpdates("StFicheGrid")   
             end if
          end if
          res =  Qry.Next()
       Loop
    end if

 


LOD Sorgu Grid


Kişi bilgileri gizlidir. Logo çalışanları görebilir.
Onaylanmış Cevap

Bilgi yazımında ilgili kolonlara konumlanarak SetGridActiveCol method unu kullanıp sonra SetCellText method ‘u ile bilgiyi set edip akabinde TriggerFieldChange method ‘unu kullanarak tetikleme yapabilirsiniz konuyu örneklendirmek gerekirse aşağıdaki gibi bir kullanım örneğimiz bulunmaktadır.
 

SetGridActiveCol("InvoiceGrid", 1)   ‘ilgili kolona konumlanmak için kullanınız
SetCellText("InvoiceGrid",curRow,1,MalKod) ‘ kolonun igili satırına set edeceğiniz bilgiyi gönderiniz
TriggerFieldChange("InvoiceGrid",1) ‘Burada set ettikten sonra ilgili arkatarafta ürün ile alakalı trigerları tetikleme işlemi gerçekleşmektedir 
UpdateControlData("InvoiceGrid") ‘Kaydın güncellenmesini sağlayacaktır.
InvalidateGrid("InvoiceGrid") ‘Veri ızgarasını yenilemek için kullanılır.
RefreshControl("InvoiceGrid",1) ‘Veritabanındaki değer değiştiyse, kontrolün değerini yeniler

 


11/04/16 11:26

Cevap vermek için giriş yapmanız gerekmektedir.