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