Príklad 5 - Práca s kartami majetku

Nasledujúce príklady demonštrujú použitie metód pri práci s objekty AssetCard a sú uvedené v syntaxi FoxPro.

Príklad zaradenia karty majetku:

 m.Application = CreateObject("AbraOLE.Application")
  m.Application.Login("Supervisor", "")
  m.ACard = m.Application.CreateObject("@AssetCard")    && Vráti DataObject
  m.OID = ‘1010000000’
  m.ACard.LatePrefill(m.OID, 0)
  m.BO = mACard.GetValues(m.OID)  && Vráti ObjectData
  msg = ""
  if m.ACard.PutToEvidenceState(m.OID, ctod('9.1.2003'), @msg)
    ? "Majetok " + m.BO.ValueByName('DisplayName') + " úspešne zaradený do evidencie."
  else
    ? "Zaradenie do evidencie nebolo možné vykonať. " + msg
  endif

Príklad vyradenia karty majetku:

m.Application = CreateObject("AbraOLE.Application")
  m.Application.Login("Supervisor", "")
  m.ACard = m.Application.CreateObject("@AssetCard")    && Vráti DataObject
  m.OID = ‘1010000000’
  mACard.LatePrefill(m.OID, 1)  && Predvyplní rad dokladov VYR
  m.BO = mACard.GetValues(m.OID)  && Vráti 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)
    ? 'Čiastočné vyradenie majetku ‘+ m.BO.ValueByName('DisplayName') + ’ úspešne vykonané.'
  else
    ? "Vyradenie z evidencie nebolo možné vykonať. " + msg
  endif