Příklad 5 - Práce s kartami majetku
Následující příklady demonstrují použití metod pro práci s objekty AssetCard a jsou uvedeny v syntaxi FoxPro.
Příklad zařazení karty majetku:
m.Application = CreateObject("AbraOLE.Application")
m.Application.Login("Supervisor", "")
m.ACard = m.Application.CreateObject("@AssetCard") && Vrátí DataObject
m.OID = ‘1010000000’
m.ACard.LatePrefill(m.OID, 0)
m.BO = mACard.GetValues(m.OID) && Vrátí ObjectData
msg = ""
if m.ACard.PutToEvidenceState(m.OID, ctod('9.1.2003'), @msg)
? "Majetek " + m.BO.ValueByName('DisplayName') + " úspěšně zařazen do evidence."
else
? " Zařazení do evidence nebylo možno provést. " + msg
endif
Příklad vyřazení karty majetku:
m.Application = CreateObject("AbraOLE.Application")
m.Application.Login("Supervisor", "")
m.ACard = m.Application.CreateObject("@AssetCard") && Vrátí DataObject
m.OID = ‘1010000000’
mACard.LatePrefill(m.OID, 1) && Předvyplní řadu dokladů VYR
m.BO = mACard.GetValues(m.OID) && Vrátí ObjectData
m.BO.ValueByName('DiscardAmount') = 20000
m.BO.ValueByName('DiscardIsFinal') = .f.
m.BO.ValueByName('DiscardAccPreset_ID') = '1302000000'
mACard.UpdateValues(OID, m.BO)
msg = ''
if mACard.PutToDiscardedState(m.OID, ctod('01.04.2004'), @msg)
? 'Částečné vyřazení majetku ‘+ m.BO.ValueByName('DisplayName') + ’ úspěšně provedeno.'
else
? " Vyřazení z evidence nebylo možno provést. " + msg
endif