Customer Comment Conversion (ARICOMMENT)?

 2 Replies
 0 Subscribed to this topic
 11 Subscribed to this forum
Sort:
Author
Messages
Garth Gerwing
Basic Member Send Private Message
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
Send Private Message
Posts: 3351
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 Send Private Message
Posts: 477
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