AX Tutorial_RunningSum form

Exportfile for AOT version 1.0 or later
Formatversion: 1

***Element: FRM

; Microsoft Dynamics AX Forms unloaded
; --------------------------------------------------------------------------------
FRMVERSION 5

FORM #Tutorial_RunningSum
  PROPERTIES
    Name                #Tutorial_RunningSum
  ENDPROPERTIES

  METHODS
    Version: 3
    SOURCE #classDeclaration
      #public class FormRun extends ObjectRun
      #{
      #    Map amountSumMap;
      #}
    ENDSOURCE
  ENDMETHODS
  OBJECTBANK
    PROPERTIES
    ENDPROPERTIES

    DATASOURCE
      OBJECTPOOL
        PROPERTIES
          Name                #LedgerTrans
          Table               #LedgerTrans
          OnlyFetchActive     #Yes
        ENDPROPERTIES

        FIELDLIST
        ENDFIELDLIST
      ENDOBJECTPOOL
      METHODS
        Version: 3
        SOURCE #executeQuery
          #public void executeQuery()
          #{;
          #    amountSumMap = null;
          #    super();
          #}
        ENDSOURCE
        SOURCE #amountSum
          #display AmountMST amountSum(LedgerTrans _lt)
          #{
          #    LedgerTrans lt;
          #    QueryRun qr = new QueryRun(ledgerTrans_qr.query());
          #    AmountMST total;
          #    ;
          #    qr.query().dataSourceNo(1).fields().dynamic(false);
          #    qr.query().dataSourceNo(1).fields().clearFieldList();
          #    qr.query().dataSourceNo(1).fields().addField(fieldNum(LedgerTrans,AmountMST));
          #    qr.query().dataSourceNo(1).fields().addField(fieldNum(LedgerTrans,RecId));
          #    while (qr.next())
          #    {
          #        lt = qr.getNo(1);
          #        total += lt.AmountMST;
          #        if (lt.RecId == _lt.RecId)
          #            break;
          #    }
          #    return total;
          #}
        ENDSOURCE
        SOURCE #amountSumCache
          #display AmountMST amountSumCache(LedgerTrans _lt)
          #{
          #    if (!amountSumMap)
          #        amountSumMap = new Map(Types::Int64, Types::Real);
          #    if (!amountSumMap.exists(_lt.RecId))
          #        amountSumMap.insert(_lt.RecId, this.amountSum(_lt));
          #    return amountSumMap.lookup(_lt.RecId);
          #}
        ENDSOURCE
      ENDMETHODS
    ENDDATASOURCE
  ENDOBJECTBANK

  JOINS
  ENDJOINS

  DESIGN
    PROPERTIES
    ENDPROPERTIES

    CONTAINER
      CONTROL GRID
        PROPERTIES
          Name                #Grid
          DataSource          #LedgerTrans
        ENDPROPERTIES

          CONTAINER
            CONTROL STRINGEDIT
              PROPERTIES
                Name                #LedgerTrans_AccountNum
                DataSource          #LedgerTrans
                DataField           #AccountNum
              ENDPROPERTIES

            ENDCONTROL

            CONTROL DATEEDIT
              PROPERTIES
                Name                #LedgerTrans_TransDate
                DataSource          #LedgerTrans
                DataField           #TransDate
              ENDPROPERTIES

            ENDCONTROL

            CONTROL STRINGEDIT
              PROPERTIES
                Name                #LedgerTrans_Voucher
                DataSource          #LedgerTrans
                DataField           #Voucher
              ENDPROPERTIES

            ENDCONTROL

            CONTROL STRINGEDIT
              PROPERTIES
                Name                #LedgerTrans_Txt
                DataSource          #LedgerTrans
                DataField           #Txt
              ENDPROPERTIES

            ENDCONTROL

            CONTROL REALEDIT
              PROPERTIES
                Name                #LedgerTrans_AmountMST
                DataSource          #LedgerTrans
                DataField           #AmountMST
              ENDPROPERTIES

            ENDCONTROL

            CONTROL REALEDIT
              PROPERTIES
                Name                #amountSum
                AllowEdit           #No
                DataSource          #LedgerTrans
                DataMethod          #amountSumCache
              ENDPROPERTIES

            ENDCONTROL

          ENDCONTAINER

      ENDCONTROL

    ENDCONTAINER

  ENDDESIGN

ENDFORM


***Element: END