PrevPrev Go to previous topic
NextNext Go to next topic
Last Post 7/5/2011 4:18 PM by  Ragu Raghavan
Customer Comment Conversion (ARICOMMENT)?
 2 Replies
 1 Subscribed to this topic
 50 Subscribed to this forum
Sort:
You are not authorized to post a reply.
Author Messages
Garth Gerwing
Solution/Integration Architect
Workers Compensation Board of Manitoba
Basic Member
(43 points)
Basic Member
Posts:27


Send Message:

--
7/5/2011 3:20 PM
    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
    Private
    Private
    Senior Member
    (9980 points)
    Senior Member
    Posts:3344


    Send Message:

    --
    7/5/2011 4:01 PM
    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
    Private
    Private
    Veteran Member
    (1333 points)
    Veteran Member
    Posts:463


    Send Message:

    --
    7/5/2011 4:18 PM
    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
    You are not authorized to post a reply.