process/report/og-budget-watchlist.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5   ------------------------------------------------------------------------*/
   6
   7 DEF INPUT PARAMETER report-options AS CHAR NO-UNDO.
   8
   9 DEF VAR preview   AS LOGI NO-UNDO INIT No.
  10 DEF VAR one-property AS LOGI NO-UNDO INIT No.
  11 DEF VAR property-code AS INT NO-UNDO INIT ?.
  12 DEF VAR month-ending AS INT NO-UNDO INITIAL ?.
  13 DEF VAR account-list AS CHAR NO-UNDO.
  14 DEF VAR no-accounts AS INT NO-UNDO.
  15 RUN parse-parameters.
  16
  17 DEF BUFFER ToMonth FOR Month.
  18 FIND ToMonth WHERE ToMonth.MonthCode = month-ending NO-LOCK.
  19 DEF VAR reconcile-from AS DATE NO-UNDO.
  20 DEF BUFFER FromMonth FOR Month.
  21
  22 DEF VAR mfmt AS CHAR NO-UNDO INITIAL ">>,>>>,>>9.99CR".
  23 DEF VAR mudl AS CHAR NO-UNDO INITIAL "--------------".
  24
  25 DEF VAR user-name AS CHAR NO-UNDO.
  26 {inc/username.i "user-name"}
  27 DEF VAR timeStamp AS CHAR FORMAT "X(44)" NO-UNDO.
  28 timeStamp = STRING( ToMonth.EndDate, "99/99/9999") + ", " + STRING( TIME, "HH:MM:SS") + " for " + user-name.
  29
  30 DEF VAR line AS CHAR NO-UNDO.
  31
  32 DEF VAR time-font AS CHAR NO-UNDO   INITIAL "helvetica,proportional,point,6,normal".
  33 DEF VAR base-font AS CHAR NO-UNDO  INITIAL "courier,fixed,cpi,16,lpi,9,normal".
  34 DEF VAR header-font AS CHAR NO-UNDO INITIAL "Times,Point,11,lpi,6,Proportional,Normal".
  35
  36 {inc/ofc-this.i}
  37 {inc/ofc-set.i "Reconciliation-Date" "reconciliation-date-text"}
  38
  39 /* _UIB-CODE-BLOCK-END */
  40 &ANALYZE-RESUME
  41
  42
  43 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  44
  45 /* ********************  Preprocessor Definitions  ******************** */
  46
  47 &Scoped-define PROCEDURE-TYPE Procedure
  48
  49
  50
  51 /* _UIB-PREPROCESSOR-BLOCK-END */
  52 &ANALYZE-RESUME
  53
  54
  55 /* ************************  Function Prototypes ********************** */
  56
  57 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD balance-from-summary Procedure
  58 FUNCTION balance-from-summary RETURNS DECIMAL
  59   ( INPUT et AS CHAR, INPUT ec AS INT, INPUT ac AS DEC, INPUT mnth AS INT )  FORWARD.
  60
  61 /* _UIB-CODE-BLOCK-END */
  62 &ANALYZE-RESUME
  63
  64 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD each-property Procedure
  65 FUNCTION each-property RETURNS DECIMAL
  66   ( INPUT-OUTPUT mgr-ytd AS DEC, INPUT-OUTPUT mgr-bud AS DEC )  FORWARD.
  67
  68 /* _UIB-CODE-BLOCK-END */
  69 &ANALYZE-RESUME
  70
  71 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD get-balance Procedure
  72 FUNCTION get-balance RETURNS DECIMAL
  73   ( INPUT et AS CHAR, INPUT ec AS INT, INPUT ac AS DEC )  FORWARD.
  74
  75 /* _UIB-CODE-BLOCK-END */
  76 &ANALYZE-RESUME
  77
  78 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION-FORWARD get-og-budget Procedure
  79 FUNCTION get-og-budget RETURNS DECIMAL
  80   ( INPUT pc AS INT, INPUT ac AS DEC, INPUT months AS INT )  FORWARD.
  81
  82 /* _UIB-CODE-BLOCK-END */
  83 &ANALYZE-RESUME
  84
  85
  86 /* *********************** Procedure Settings ************************ */
  87
  88 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  89 /* Settings for THIS-PROCEDURE
  90    Type: Procedure
  91    Allow:
  92    Frames: 0
  93    Add Fields to: Neither
  94    Other Settings: CODE-ONLY COMPILE
  95  */
  96 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  97
  98 /* *************************  Create Window  ************************** */
  99
 100 &ANALYZE-SUSPEND _CREATE-WINDOW
 101 /* DESIGN Window definition (used by the UIB)
 102   CREATE WINDOW Procedure ASSIGN
 103          HEIGHT             = .35
 104          WIDTH              = 51.14.
 105 /* END WINDOW DEFINITION */
 106                                                                         */
 107 &ANALYZE-RESUME
 108
 109
 110
 111 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _INCLUDED-LIB Procedure
 112 /* ************************* Included-Libraries *********************** */
 113
 114 {inc/method/m-txtrep.i}
 115 {inc/date.i}
 116 {inc/null.i}
 117 {inc/convert.i}
 118
 119 /* _UIB-CODE-BLOCK-END */
 120 &ANALYZE-RESUME
 121
 122
 123
 124 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
 125
 126
 127 /* ***************************  Main Block  *************************** */
 128
 129 OUTPUT TO VALUE(txtrep-print-file) KEEP-MESSAGES PAGE-SIZE 0.
 130
 131 RUN pclrep-start( preview, "reset,portrait,tm,2,a4,lm,6,courier,cpi,16,lpi,9").
 132
 133 RUN og-budget-watchlist.
 134
 135 OUTPUT CLOSE.
 136
 137 RUN pclrep-finish.
 138
 139 /* _UIB-CODE-BLOCK-END */
 140 &ANALYZE-RESUME
 141
 142
 143 /* **********************  Internal Procedures  *********************** */
 144
 145 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-footer Procedure
 146 PROCEDURE inst-page-footer :
 147 /*------------------------------------------------------------------------------
 148   Purpose:  Print any page footer
 149 ------------------------------------------------------------------------------*/
 150
 151 END PROCEDURE.
 152
 153 /* _UIB-CODE-BLOCK-END */
 154 &ANALYZE-RESUME
 155
 156
 157 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE inst-page-header Procedure
 158 PROCEDURE inst-page-header :
 159 /*------------------------------------------------------------------------------
 160   Purpose:
 161 ------------------------------------------------------------------------------*/
 162
 163   line = timeStamp.
 164   line = line + CHR(13) + SPC(275) + "Page: " + STRING( pclrep-page-number ).
 165   RUN pclrep-line( time-font, line).
 166
 167   RUN pclrep-down-by(2).
 168   RUN pclrep-line( header-font, SPC(35) + "Outgoing Watchlist Accounts - " + STRING( ToMonth.EndDate, "99/99/9999")).
 169   RUN pclrep-down-by(1).
 170
 171   RUN pclrep-line( base-font, " Prop Account            YTD         Budget      Variance").
 172   RUN pclrep-down-by(1).
 173
 174 END PROCEDURE.
 175
 176 /* _UIB-CODE-BLOCK-END */
 177 &ANALYZE-RESUME
 178
 179
 180 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE og-budget-watchlist Procedure
 181 PROCEDURE og-budget-watchlist :
 182 /*------------------------------------------------------------------------------
 183   Purpose:
 184 ------------------------------------------------------------------------------*/
 185 DEF VAR mgr-ytd AS DEC NO-UNDO      INITIAL 0.0 .
 186 DEF VAR mgr-bud AS DEC NO-UNDO      INITIAL 0.0 .
 187
 188   IF one-property THEN DO:
 189     FIND Property WHERE Property.PropertyCode = property-code NO-LOCK.
 190     each-property( INPUT-OUTPUT mgr-ytd, INPUT-OUTPUT mgr-bud ).
 191   END.
 192   ELSE DO:
 193     FOR EACH Property NO-LOCK WHERE Property.Active
 194                         AND NOT Property.ExternallyManaged
 195                         AND NOT CAN-FIND( FIRST TenancyLease OF Property WHERE TenancyLease.LeaseStatus <> "PAST"
 196                                             AND TenancyLease.RecoveryType = "A"),
 197                         FIRST Person WHERE Person.PersonCode = Property.Manager
 198                         BREAK BY Person.LastName:
 199       IF FIRST-OF( Person.LastName ) THEN DO:
 200         RUN pclrep-line( header-font, "Managed by " + Person.FirstName + " " + Person.LastName ).
 201       END.
 202       each-property( INPUT-OUTPUT mgr-ytd, INPUT-OUTPUT mgr-bud ).
 203       IF LAST-OF( Person.LastName ) THEN DO:
 204         line = SPC(14) + FILL( " " + mudl, 3).
 205         RUN pclrep-line( base-font + ",lpi,15", line).
 206         line = SPC(14) + " "
 207              + STRING(mgr-ytd, mfmt) + " "
 208              + STRING(mgr-bud, mfmt) + " "
 209              + STRING(mgr-ytd - mgr-bud, mfmt) + " "
 210              + Property.Name.
 211         RUN pclrep-line( base-font + ",lpi,15", line).
 212         RUN pclrep-page-break.
 213       END.
 214     END.
 215   END.
 216
 217 END PROCEDURE.
 218
 219 /* _UIB-CODE-BLOCK-END */
 220 &ANALYZE-RESUME
 221
 222
 223 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE parse-parameters Procedure
 224 PROCEDURE parse-parameters :
 225 /*------------------------------------------------------------------------------
 226   Purpose:
 227 ------------------------------------------------------------------------------*/
 228 DEF VAR token AS CHAR NO-UNDO.
 229 DEF VAR i AS INT NO-UNDO.
 230
 231 {inc/showopts.i "report-options"}
 232
 233   DO i = 1 TO NUM-ENTRIES( report-options, "~n" ):
 234     token = ENTRY( i, report-options, "~n" ).
 235
 236     CASE ENTRY( 1, token ):
 237       WHEN "Preview" THEN               preview = Yes.
 238       WHEN "Property" THEN              property-code = INT( ENTRY(2,token ) ).
 239       WHEN "OneProperty" THEN           one-property = Yes.
 240       WHEN "MonthEnding" THEN           month-ending = INT( ENTRY(2,token) ).
 241       WHEN "Accounts" THEN              account-list = SUBSTRING( token, INDEX( token, ",")).
 242     END CASE.
 243
 244   END.
 245
 246   no-accounts = NUM-ENTRIES(account-list).
 247
 248 END PROCEDURE.
 249
 250 /* _UIB-CODE-BLOCK-END */
 251 &ANALYZE-RESUME
 252
 253
 254 /* ************************  Function Implementations ***************** */
 255
 256 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION balance-from-summary Procedure
 257 FUNCTION balance-from-summary RETURNS DECIMAL
 258   ( INPUT et AS CHAR, INPUT ec AS INT, INPUT ac AS DEC, INPUT mnth AS INT ) :
 259 /*------------------------------------------------------------------------------
 260   Purpose: Calculate balance at a particular date by subtracting backwards
 261     Notes: Applies to balance sheet accounts
 262 ------------------------------------------------------------------------------*/
 263 DEF VAR bal AS DEC NO-UNDO INITIAL 0.00 .
 264
 265   FIND AccountSummary WHERE AccountSummary.EntityType = et
 266                 AND AccountSummary.EntityCode = ec
 267                 AND AccountSummary.AccountCode = ac NO-LOCK NO-ERROR.
 268   IF AVAILABLE(AccountSummary) THEN bal = AccountSummary.Balance.
 269
 270   FOR EACH AccountBalance WHERE AccountBalance.EntityType = et
 271                 AND AccountBalance.EntityCode = ec
 272                 AND AccountBalance.AccountCode = ac
 273                 AND AccountBalance.MonthCode > mnth NO-LOCK:
 274     bal = bal - AccountBalance.Balance.
 275   END.
 276
 277   RETURN bal.
 278
 279 END FUNCTION.
 280
 281 /* _UIB-CODE-BLOCK-END */
 282 &ANALYZE-RESUME
 283
 284
 285 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION each-property Procedure
 286 FUNCTION each-property RETURNS DECIMAL
 287   ( INPUT-OUTPUT mgr-ytd AS DEC, INPUT-OUTPUT mgr-bud AS DEC ) :
 288 /*------------------------------------------------------------------------------
 289   Purpose:
 290     Notes:
 291 ------------------------------------------------------------------------------*/
 292 DEF VAR i AS INT NO-UNDO INITIAL 0.
 293 DEF VAR account-code AS DEC NO-UNDO INITIAL 0.0 .
 294 DEF VAR p-ytd AS DEC NO-UNDO INITIAL 0.0 .
 295 DEF VAR p-bud AS DEC NO-UNDO INITIAL 0.0 .
 296 DEF VAR a-ytd AS DEC NO-UNDO INITIAL 0.0 .
 297 DEF VAR a-bud AS DEC NO-UNDO INITIAL 0.0 .
 298 DEF VAR property-months AS INT NO-UNDO.
 299 DEF VAR did-something AS LOGI NO-UNDO INITIAL No.
 300
 301   reconcile-from = Property.ReconciliationDue + 1.
 302   IF reconciliation-date-text <> "Done" THEN
 303     reconcile-from = add-months( reconcile-from, -12).
 304
 305   FIND LAST FromMonth WHERE FromMonth.StartDate <= reconcile-from NO-LOCK.
 306   property-months = diff-months( FromMonth.StartDate, ToMonth.EndDate + 1).
 307
 308   DO i = 1 TO no-accounts:
 309     account-code = DEC( ENTRY( i, account-list )).
 310     FIND ChartOfAccount WHERE ChartOfAccount.AccountCode = account-code NO-LOCK NO-ERROR.
 311     IF NOT AVAILABLE(ChartOfAccount) THEN NEXT.
 312     a-ytd = get-balance( "P", Property.PropertyCode, account-code ).
 313     a-bud = get-og-budget( Property.PropertyCode, account-code, property-months ).
 314     IF a-ytd = 0 AND a-bud = 0 THEN NEXT.
 315     did-something = Yes.
 316     line = STRING(Property.PropertyCode,"99999") + " "
 317          + STRING(account-code, "9999.99") + " "
 318          + STRING(a-ytd, mfmt) + " "
 319          + STRING(a-bud, mfmt) + " "
 320          + STRING(a-ytd - a-bud, mfmt).
 321     IF (a-bud = 0 AND a-ytd > 0) OR (a-ytd / a-bud) > 1.10 THEN DO:
 322       line = line + " Overbudget".
 323       IF a-bud <> 0 THEN line = line + " by " + TRIM( STRING( 100.0 * ((a-ytd / a-bud) - 1.0), "->>,>>9")) + "%".
 324     END.
 325     RUN pclrep-line( base-font, line).
 326     p-bud = p-bud + a-bud.
 327     p-ytd = p-ytd + a-ytd.
 328   END.
 329
 330   IF NOT did-something THEN RETURN 0.0.
 331
 332   line = SPC(13) + FILL( "  " + mudl, 3).
 333   RUN pclrep-line( base-font + ",lpi,15", line).
 334   line = SPC(13) + " "
 335        + STRING(p-ytd, mfmt) + " "
 336        + STRING(p-bud, mfmt) + " "
 337        + STRING(p-ytd - p-bud, mfmt) + " "
 338        + Property.Name + " (" + STRING(property-months) + " months from " + STRING(reconcile-from) + " to " + STRING(ToMonth.EndDate) + ")".
 339   RUN pclrep-line( base-font + ",lpi,15", line).
 340   RUN pclrep-down-by(2.3).
 341
 342   mgr-ytd = mgr-ytd + p-ytd.
 343   mgr-bud = mgr-bud + p-bud.
 344
 345   RETURN p-ytd .
 346
 347 END FUNCTION.
 348
 349 /* _UIB-CODE-BLOCK-END */
 350 &ANALYZE-RESUME
 351
 352
 353 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION get-balance Procedure
 354 FUNCTION get-balance RETURNS DECIMAL
 355   ( INPUT et AS CHAR, INPUT ec AS INT, INPUT ac AS DEC ) :
 356 /*------------------------------------------------------------------------------
 357   Purpose:
 358     Notes:
 359 ------------------------------------------------------------------------------*/
 360 DEF VAR balance AS DEC NO-UNDO INITIAL 0.0 .
 361
 362   RETURN balance-from-summary( et, ec, ac, month-ending ).
 363
 364 END FUNCTION.
 365
 366 /* _UIB-CODE-BLOCK-END */
 367 &ANALYZE-RESUME
 368
 369
 370 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _FUNCTION get-og-budget Procedure
 371 FUNCTION get-og-budget RETURNS DECIMAL
 372   ( INPUT pc AS INT, INPUT ac AS DEC, INPUT months AS INT ) :
 373 /*------------------------------------------------------------------------------
 374   Purpose:
 375     Notes:
 376 ------------------------------------------------------------------------------*/
 377   FIND PropertyOutgoing WHERE PropertyOutgoing.PropertyCode = pc
 378                 AND PropertyOutgoing.AccountCode = ac NO-LOCK NO-ERROR.
 379   IF NOT AVAILABLE(PropertyOutgoing) THEN RETURN 0.0 .
 380
 381   RETURN (PropertyOutgoing.BudgetAmount * months) / 12.0 .
 382
 383 END FUNCTION.
 384
 385 /* _UIB-CODE-BLOCK-END */
 386 &ANALYZE-RESUME
 387
 388