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