Logo Destek
Logo Plus Acil Destek (Plus versiyonlarına artık buradan destek verilecektir.) => Tiger 3 Enterprise => Konuyu başlatan: datnet - 24.10.2018, 11:47
-
merhaba,
LOD İLE gridin seçili satırını nasıl yakalarım?
-
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
-
merhaba, tavsiye ve cevabınız için teşekkür ederim.
-
rica ederim , tavsiyem mümkünse bir çözüm ortağı üzerinden çözüm ortakları eğitimine katılmanız , yoksa çok yorucu olacaktır.
-
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.