process/one-off/fix/980807-agp-cred-intercompany.p

   1 &ANALYZE-SUSPEND _VERSION-NUMBER UIB_v8r12
   2 &ANALYZE-RESUME
   3 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _DEFINITIONS Procedure
   4 /*--------------------------------------------------------------------------
   5     File        :
   6     Purpose     :
   7
   8     Syntax      :
   9
  10     Description :
  11
  12     Author(s)   :
  13     Created     :
  14     Notes       :
  15   ------------------------------------------------------------------------*/
  16
  17 DEF VAR batch-list AS CHAR NO-UNDO INITIAL "4037,4021,4023,4024,4025".
  18 DEF BUFFER IC-Doc FOR Document.
  19
  20 {inc/ofc-this.i}
  21 {inc/ofc-acct.i "IC-SUSPENSE" "ic-suspense"}
  22
  23 /* _UIB-CODE-BLOCK-END */
  24 &ANALYZE-RESUME
  25
  26
  27 &ANALYZE-SUSPEND _UIB-PREPROCESSOR-BLOCK
  28
  29 /* ********************  Preprocessor Definitions  ******************** */
  30
  31 &Scoped-define PROCEDURE-TYPE Procedure
  32
  33
  34
  35 /* _UIB-PREPROCESSOR-BLOCK-END */
  36 &ANALYZE-RESUME
  37
  38
  39
  40 /* *********************** Procedure Settings ************************ */
  41
  42 &ANALYZE-SUSPEND _PROCEDURE-SETTINGS
  43 /* Settings for THIS-PROCEDURE
  44    Type: Procedure
  45    Allow:
  46    Frames: 0
  47    Add Fields to: Neither
  48    Other Settings: CODE-ONLY COMPILE
  49  */
  50 &ANALYZE-RESUME _END-PROCEDURE-SETTINGS
  51
  52 /* *************************  Create Window  ************************** */
  53
  54 &ANALYZE-SUSPEND _CREATE-WINDOW
  55 /* DESIGN Window definition (used by the UIB)
  56   CREATE WINDOW Procedure ASSIGN
  57          HEIGHT             = .08
  58          WIDTH              = 56.29.
  59 /* END WINDOW DEFINITION */
  60                                                                         */
  61 &ANALYZE-RESUME
  62
  63
  64
  65
  66 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _CUSTOM _MAIN-BLOCK Procedure
  67
  68
  69 /* ***************************  Main Block  *************************** */
  70 DEF VAR do-it AS LOGICAL INITIAL No NO-UNDO.
  71
  72 DISPLAY batch-list VIEW-AS EDITOR SIZE 78 BY 10.
  73 UPDATE batch-list do-it.
  74
  75 IF do-it THEN RUN process-batch-list( batch-list ).
  76
  77 /* _UIB-CODE-BLOCK-END */
  78 &ANALYZE-RESUME
  79
  80
  81 /* **********************  Internal Procedures  *********************** */
  82
  83 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE fix-intercompany Procedure
  84 PROCEDURE fix-intercompany :
  85 /*------------------------------------------------------------------------------
  86   Purpose:
  87 ------------------------------------------------------------------------------*/
  88
  89   FOR EACH AcctTran OF IC-Doc WHERE AcctTran.EntityType = "L"
  90                              AND AcctTran.EntityCode = OfficeControlAccount.EntityCode
  91                              AND AcctTran.AccountCode = OfficeControlAccount.AccountCode
  92                              EXCLUSIVE-LOCK:
  93     DISPLAY AcctTran .
  94     UPDATE AcctTran.Amount .
  95   END.
  96
  97 END PROCEDURE.
  98
  99 /* _UIB-CODE-BLOCK-END */
 100 &ANALYZE-RESUME
 101
 102
 103 &ANALYZE-SUSPEND _UIB-CODE-BLOCK _PROCEDURE process-batch-list Procedure
 104 PROCEDURE process-batch-list :
 105 /*------------------------------------------------------------------------------
 106   Purpose:
 107 ------------------------------------------------------------------------------*/
 108 DEF INPUT PARAMETER b-list AS CHAR NO-UNDO.
 109
 110 DEF VAR i AS INT NO-UNDO.
 111 DEF VAR n AS INT NO-UNDO.
 112   n = NUM-ENTRIES( b-list ).
 113   DO i = 1 TO n:
 114     FOR EACH Batch WHERE Batch.BatchCode = INT( ENTRY(i,b-list)) NO-LOCK:
 115       FIND LAST IC-Doc OF Batch WHERE IC-Doc.DocumentType = "ICOA" NO-LOCK.
 116       RUN fix-intercompany .
 117     END.
 118   END.
 119 END PROCEDURE.
 120
 121 /* _UIB-CODE-BLOCK-END */
 122 &ANALYZE-RESUME
 123
 124