Sub DBGPrepareQuery(ctrl as String, ID as Integer)
DBGGetQuery("ClCDataGrid", Qry)
Qry.AddSelFieldAsc("GBPTOT","TRNET",1,0,10025)
Qry.AddSelFieldAsc("EUROTOT","TRNET",1,0,10026)
Qry.AddSelFieldAsc("USDTOT","TRNET",1,0,10027)
Qry.JoinTable("GBPTOT","LG_218_01_CLFLINE", "LGMAIN", "LOGICALREF","=","CLIENTREF","TRCURR=17", 1)
Qry.JoinTable("EUROTOT","LG_218_01_CLFLINE", "LGMAIN", "LOGICALREF","=","CLIENTREF","EUROTOT.TRCURR=20", 1)
Qry.JoinTable("USDTOT","LG_218_01_CLFLINE", "LGMAIN", "LOGICALREF","=","CLIENTREF","USDTOT.TRCURR=1", 1)
End Sub
Sub DBGSetRow(ctrl as String, ID as Integer, row as Long)
GBP=0
EURO=0
USD=0
DBGGETFetchMode("ClCDataGrid",ModeID)
if ctrl="ClCDataGrid" and ModeID=0 then
Qry.GetFieldValueAsc(10025, 1, GBP)
DBGSetField("ClCDataGrid", row, 10025, GBP)
Qry.GetFieldValueAsc(10026, 1, EURO)
DBGSetField("ClCDataGrid", row, 10026, EURO)
Qry.GetFieldValueAsc(10027, 1, USD)
DBGSetField("ClCDataGrid", row, 10027, USD)
end if
End Sub
Cevap vermek için giriş yapmanız gerekmektedir.
Soru sormak için lütfen oturum açınız.
LOD Cari Hesap Döviz Toplamları
13/09/21 10:09 Logo CRM/UyarlamaMerhabalar
Aşağıdaki kod bloğu ile gbp döviz toplamını lod ile clcdatagrid üzerinde 10025 nolu alanda gösteriyorum ama ben başka bir döviz toplamını örneğin euro usd gibi 10026 ve 10027 alanlarında gösteremiyorum buradaki kodu da çokladım trcurr bulanamadı diyor birden fazla alanda birden fazla döviz toplamını nasıl getirebilirim.
Sub DBGPrepareQuery(ctrl as String, ID as Integer)
DBGGetQuery("ClCDataGrid", Qry)
Qry.AddSelFieldAsc("GBPTOT","TRNET",1,0,10025)
Qry.JoinTable("GBPTOT","LG_218_01_CLFLINE", "LGMAIN", "LOGICALREF","=","CLIENTREF","TRCURR=17", 1)
End Sub
Sub DBGSetRow(ctrl as String, ID as Integer, row as String)
GBP=0
DBGGETFetchMode("ClCDataGrid",ModeID)
if ctrl="ClCDataGrid" and ModeID=0 then
Qry.GetFieldValueAsc(10025, 1, GBP)
DBGSetField("ClCDataGrid", row, 10025, GBP)
end if
End Sub