Customer Comment Conversion (ARICOMMENT)?

 2 Replies
 0 Subscribed to this topic
 11 Subscribed to this forum
Sort:
Author
Messages
Garth Gerwing
Basic Member
Posts: 27
Basic Member
    I see that Lawson has provided a staging table to support comment conversion (ARICOMMENT - consumed by AR506) - and that by leaving the "transaction/invoice-related" elements blank, the process will interpret these comments as "Customer" comments.  However:
    - there are appears to be no on-line dialogue to support conversion corrections (as per other conversion constructs)
    - the ARICOMMENT table has a single "Comment" element of 40 CHARS (which is less apace than desired)

    Does anyone have any experience with converting comments through these constructs?
    - How would you go about converting a comment that is larger than 40 chars?......or
    - How would you go about actively populating the Attachments Title/Text?

    John Henley
    Posts: 3353
      I believe you can use the SEQ-NBR field to add multiple 40-character comments.

      Thanks for using the LawsonGuru.com forums!
      John
      Ragu Raghavan
      Veteran Member
      Posts: 476
      Veteran Member
        I have not done this, but from what I see in the code, if the keys are the same, it appends,

        02 ARCMTWS-PREV-KEYS.
        03 ARCMTWS-PREV-COMPANY PIC 9(04) VALUE ZEROES.
        03 ARCMTWS-PREV-CUSTOMER PIC X(09) VALUE SPACES.
        03 ARCMTWS-PREV-TRANS-TYPE PIC X(01) VALUE SPACES.
        03 ARCMTWS-PREV-INVOICE PIC X(22) VALUE SPACES.
        03 ARCMTWS-PREV-CMMT-TYPE PIC X(01) VALUE SPACES.
        03 ARCMTWS-PREV-BEG-DATE PIC 9(08) VALUE ZEROES.
        03 ARCMTWS-PREV-END-DATE PIC 9(08) VALUE ZEROES.
        03 ARCMTWS-PREV-SYS-DATE PIC 9(08) VALUE ZEROES.
        03 ARCMTWS-PREV-SYS-TIME PIC 9(06) VALUE ZEROES.
        03 ARCMTWS-PREV-PRINT-CODE PIC X(01) VALUE SPACES.


        * INPUT/OUTPUT:
        * FUNCTION CODES FOR ARI1F1:
        *
        * A = ADD ARCOMMENT AND ATTACHMENT
        * B =
        * C =
        * C =
        * D =
        * E = APPEND ATTACHMENT
        * F =
        * G =
        * H =
        *
        ******************************************************************
        700-CONVERT-ARCOMMENT-80 SECTION.
        ******************************************************************
        700-START.

        IF (ARCMTWS-FC = SPACES)
        IF (ARCMTWS-COMP-KEYS NOT = ARCMTWS-PREV-KEYS)
        MOVE "A" TO ARI1F1-FC
        ELSE
        MOVE "E" TO ARI1F1-FC
        END-IF