Source Code

(define-public (calculate-cumulated (account principal))
  (let (
    (previous-balance (unwrap-panic
      (contract-call?
        'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsusdt-v2-0
        get-principal-balance
        account))
    )
    (balance-increase
      (-
        (unwrap-panic
          (contract-call?
            'SP2VCQJGH7PHP2DJK7Z0V48AGBHQAW3R3ZW1QF4N.zsusdt-v2-0
            get-balance
            account
          )
        )
        previous-balance
      )
    )
  )

    ;; (ok (print {
    ;;   previous-user-balance: previous-balance,
    ;;   current-balance: (+ previous-balance balance-increase),
    ;;   balance-increase: balance-increase,
    ;;   index: new-user-index,
    ;; })
    (ok true)
  )
)

Functions (1)

FunctionAccessArgs
calculate-cumulatedpublicaccount: principal