LOD İLE seçili grid satırını nasıl yakalarım?

[datnet]

merhaba,

LOD İLE gridin seçili satırını nasıl yakalarım?

[ByBirol®]

umarım bu ne demezsin , LOD ve LOB konuları ağır konulardır.

Sub DoubleClick(ctrl as String, index as Integer)
    if ctrl <> "DemandLineGrid" then
       exit sub
    end if

    if GetGridActiveCol("DemandLineGrid") <> 10001 then
       Exit Sub
    end if

    Dim SelectedREF as Integer
    Application.CreateAppForm(538, 0, 0, 0, 0, 2, 1, 1, SelectedREF, FormObj)
    Dim tblClCard as string
    tblClCard = Application.GetTableName(15, Application.CompanyId, Application.FiscPerdId)

    CreateQuery(Qry)
    Qry.AddTable("CL", tblClCard)
    Qry.AddSelField("CL", "CODE,")
    Qry.AddSelField("CL", "DEFINITION_")

    Dim whereText as String
    str(SelectedREF, whereText)
    whereText = " CL.LOGICALREF = " + whereText
    Qry.AddWhereCond(whereText, 1)

    Qry.Execute()

--seçili satırdan cari bilgisini alıyoruz

    Dim ClDefination as string
    ClDefination = ""
    if Qry.Ready = 1 then
       res = Qry.First()
       if res = 1 then
          Qry.GetFieldValue(2, 4, ClDefination)
          curRow = MGridRow("DemandLineGrid")
          SetMGridRow("DemandLineGrid", curRow)
          SetCellText("DemandLineGrid", curRow, 10001, ClDefination)

          dim SelectedREFStr as String
          str(SelectedREF, SelectedREFStr)
          SetCellText("DemandLineGrid", curRow, 10003, SelectedREFStr)
       end if
    end if

    RefreshControl("DemandLineGrid", 1)
    yasakControlData("DemandLineGrid")

    Qry = null
End Sub

[datnet]

merhaba, tavsiye ve cevabınız için teşekkür ederim.

[ByBirol®]

rica ederim , tavsiyem mümkünse bir çözüm ortağı üzerinden çözüm ortakları eğitimine katılmanız , yoksa çok yorucu olacaktır.

[datnet]

merhaba, lod ve lob uyarlama sertifikam var ama lod eski bir teknoloji, dökümantasyonu az. bundan dolayı lod tarafında, tecrübeli bir insanın yapacaklarıyla benimki aynı olmuyor malesef.