Malzeme Kodu ile Özel kodu Yer değiştirme kuralı

Posted on by

sub ProcessEvent(App)

   Kontrol=App.Doc.FirstChild(“TRANSACTIONS.TRANSACTION”)
   while Kontrol
               Ref = App.Doc.FieldAsInteger(“TRANSACTIONS.TRANSACTION.MASTER_ORGLOGICALREF”)
               KODUU     = App.Doc.FieldAsInteger(“TRANSACTIONS.TRANSACTION.MASTER_CODE”)
               OZELKOD = App.UQuery_GetFld(1, “SPECODE”, 25, 52, FALSE, “LOGICALREF=”+ cstr(Ref))
               App.Doc.ModifyData “TRANSACTIONS.TRANSACTION.MASTER_CODE”, OZELKOD
   Kontrol=App.Doc.NextChild
    wend
App.Doc.SaveData

end sub