1. Sub DBGPrepareQuery(ctrl as String, ID as Integer)
   DBGGetQuery("StDataGrid", Qry)
   Qry.AddSelFieldAsc("GNTOT","ONHAND", 1, 0, 10028)
   tblGWHTotals = "LV_001_01_GNTOTST"
   Qry.JoinTable("GNTOT", tblGWHTotals, "LGMAIN", "LOGICALREF","=", "STOCKREF", "INVENNO = 1",1)
   End Sub
   
   Sub DBGSetRow(ctrl as String, ID as Integer, row as Long)
   onHand = 0
   DBGGetFetchMode ("StDataGrid", ModeID)
   if (ctrl = "StDataGrid") and (ModeID = 0) then
   Qry.GetFieldValueAsc(10028, 1, onHand)
   DBGSetField("StDataGrid", row, 10028, onHand)
   end if
   End Sub
   
   

kod bloğunu logo docs üzerinden inceleyerek oluşturdum ama ikinci ambarı eklediğimde ilk siliyor burada nasıl birden fazla alan ekleye bilirim.