trigger/wracctrn.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 TRIGGER PROCEDURE FOR WRITE OF AcctTran NEW BUFFER new-tran OLD BUFFER old-tran.
   5
   6 /* _UIB-CODE-BLOCK-END */
   7 &ANALYZE-RESUME
   8
   9
  10 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  11
  12 /* ********************  Preprocessor Definitions  ******************** */
  13
  14 &Scoped-define PROCEDURE-TYPE Procedure
  15
  16
  17
  18 /* _UIB-PREPROCESSOR-BLOCK-END */
  19 &ANALYZE-RESUME
  20
  21
  22
  23 /* *********************** Procedure Settings ************************ */
  24
  25 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  26 /* Settings for THIS-PROCEDURE
  27    Type: Procedure
  28    Allow:
  29    Frames: 0
  30    Add Fields to: Neither
  31    Other Settings: CODE-ONLY COMPILE
  32  */
  33 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  34
  35 /* *************************  Create Window  ************************** */
  36
  37 &ANALYZE-SUSPEND _CREATE-WINDOW
  38 /* DESIGN Window definition (used by the UIB)
  39   CREATE WINDOW Procedure ASSIGN
  40          HEIGHT             = .75
  41          WIDTH              = 39.43.
  42 /* END WINDOW DEFINITION */
  43                                                                         */
  44 &ANALYZE-RESUME
  45
  46
  47
  48
  49 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  50
  51
  52 /* ***************************  Main Block  *************************** */
  53
  54 RUN check-set-flag IN THIS-PROCEDURE.
  55
  56 IF NEW new-tran
  57    OR new-tran.EntityType <> old-tran.EntityType
  58    OR new-tran.EntityCode <> old-tran.EntityCode
  59    OR new-tran.AccountCode <> old-tran.AccountCode
  60    OR new-tran.MonthCode <> old-tran.MonthCode
  61 THEN RUN move-between-accounts.
  62
  63 IF old-tran.Amount <> new-tran.Amount THEN RUN change-balance.
  64
  65 /* _UIB-CODE-BLOCK-END */
  66 &ANALYZE-RESUME
  67
  68
  69 /* **********************  Internal Procedures  *********************** */
  70
  71 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE change-balance Procedure
  72 PROCEDURE change-balance :
  73 /*------------------------------------------------------------------------------
  74   Purpose:  If the amount of the transaction has changed, change the balance
  75             on the Account related to new-tran.
  76 ------------------------------------------------------------------------------*/
  77   FIND AccountBalance OF new-tran EXCLUSIVE-LOCK.
  78   AccountBalance.Balance = AccountBalance.Balance - old-tran.Amount + new-tran.Amount.
  79
  80 END PROCEDURE.
  81
  82 /* _UIB-CODE-BLOCK-END */
  83 &ANALYZE-RESUME
  84
  85
  86 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE check-set-flag Procedure
  87 PROCEDURE check-set-flag :
  88 /*------------------------------------------------------------------------------
  89   Purpose:  Check/set the flagged by field.
  90 ------------------------------------------------------------------------------*/
  91 IF new-tran.FlagAttention <> old-tran.FlagAttention THEN DO:
  92 DEF VAR user-name AS CHAR NO-UNDO.
  93 {inc/username.i "user-name"}
  94   FIND Usr WHERE Usr.UserName = user-name NO-LOCK NO-ERROR.
  95   new-tran.FlaggedBy = IF AVAILABLE(Usr) THEN Usr.PersonCode ELSE ?.
  96 END.
  97
  98 END PROCEDURE.
  99
 100 /* _UIB-CODE-BLOCK-END */
 101 &ANALYZE-RESUME
 102
 103
 104 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE move-between-accounts Procedure
 105 PROCEDURE move-between-accounts :
 106 /*------------------------------------------------------------------------------
 107   Purpose:  Move balance from one account/month to another to follow trn.
 108             Note that we always use the amount from 'old-tran' - any change
 109             in amount done at the same time will happen after this.
 110 ------------------------------------------------------------------------------*/
 111   IF NOT NEW new-tran THEN DO:
 112     /* subtract from old account, deleting if appropriate */
 113     DEF BUFFER alt-tran FOR AcctTran.
 114     FIND AccountBalance OF old-tran EXCLUSIVE-LOCK.
 115     AccountBalance.Balance = AccountBalance.Balance - old-tran.Amount.
 116   END.
 117
 118   /* Add onto new account, creating as appropriate */
 119   FIND AccountBalance OF new-tran EXCLUSIVE-LOCK NO-ERROR.
 120   IF NOT AVAILABLE(AccountBalance) THEN DO:
 121     CREATE AccountBalance.
 122     ASSIGN  AccountBalance.EntityType = new-tran.EntityType
 123             AccountBalance.EntityCode = new-tran.EntityCode
 124             AccountBalance.AccountCode = new-tran.AccountCode
 125             AccountBalance.MonthCode = new-tran.MonthCode .
 126   END.
 127   AccountBalance.Balance = AccountBalance.Balance + old-tran.Amount.
 128
 129 END PROCEDURE.
 130
 131 /* _UIB-CODE-BLOCK-END */
 132 &ANALYZE-RESUME
 133
 134