Fiş satırlarında üretici kodu Getimek...

Gönderen Konu: Fiş satırlarında üretici kodu Getimek...  (Okunma sayısı 665 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı YusufSelcuk

  • Logo Kullanıcısı
  • **
  • Karma: 0
Arkadaşlar fiş satırı içersinde üretici kodunu getirmek istiyorum..
Object designerde şu kodu yazdım ...
Kod başka bir yerden alıntıdır...
hatalı neresi ..???

Sub FormCreate()
      DBGRefresh("OrderLineGrid")
End Sub

Sub DBGPrepareQuery(ctrl as String, ID as string)
    DBGGetQuery("OrderLineGrid",qry)
    qry.AddSelFieldAsc("ST","PRODUCERCODE", 4, 0, 10001)
    tblname = Application.GetTableName(1, Application.CompanyID)
    qry.JoinTable("ST", tblName, "LGMAIN","STOCKREF", "=", "LOGICALREF", "",2)
End Sub
Sub DBGSetRow(ctrl as String, ID as string, row as Long)
   PRODUCERCODE = ""
   qry.GetFieldValueAsc(10001, 4, PRODUCERCODE)
   DBGSetField("OrderLineGrid",row,10001,PRODUCERCODE)
End Sub