Logo Connect Malzeme Kodu > Özel Kod Değiştirme Kuralı

Merhaba Logo Connect’de Malzeme Kodu Yerine Özel Kodu Getirme Kuralı

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