pascal

LOD Cari Hesap Döviz Toplamları

  Logo CRM/Uyarlama 1.50

Merhabalar 


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







pascal

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


27/09/21 16:37

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